커뮤니티
수식문의 합니다
2018-01-07 07:35:06
277
글번호 115518
첨부 이미지
그림1
#,아래수식은 4시간봉의 시가,고가,저가,라인 입니다.
ㅡ,당일 4시간봉이 완성된 시점에서 이전봉의 시가,고가,저가라인을 우측연장선으로 끝까지
그리기 하면 좋겠습니다.(첨부파일 그림참조)
ㅡ,이때 우측연장선 그리기 현재값을 우측으로 텍스트 출력 하면 좋겠습니다.
(중복되는라인(+-1틱)은 먼저 텍스트 출력된 값만 표현요)
ㅡ,당일 그리기한 시고저라인을 다음날 까지 표기되게 N 데이 설정하면 좋겠습니다.
ㅡ,시가(MAGENTA),고가(RED),저가(BLUE) 표현하면 좋겠습니다.
var : Ov(0),Hv(0),Lv(0);
if (stime == 80000 or (stime > 80000 and stime[1] < 80000)) or
(stime == 120000 or (stime > 120000 and stime[1] < 120000)) or
(stime == 160000 or (stime > 160000 and stime[1] < 160000)) or
(stime == 200000 or (stime > 200000 and stime[1] < 200000)) or
(stime == 00000 or (stime > 00000 and stime[1] < 00000)) or
(stime == 40000 or (stime > 40000 and stime[1] < 40000)) Then{
Ov = O;
Hv = H;
Lv = L;
}
if H > Hv Then
Hv = H;
if L < Lv Then
Lv = L;
plot1(Ov);
plot2(Hv);
plot3(Lv);
$,도움 주심에 감사드립니다.
- 1. 캡처_2018_01_07_07_22_36_197.png (0.00 MB)
답변 1
예스스탁 예스스탁 답변
2018-01-08 17:44:25
안녕하세요
예스스탁입니다.
적용에 시간이 오래 걸리실수 있습니다.
이용에 참고하시기 바랍니다.
var : cnt(0),idx(0);
Array : HL[50](0),LL[50](0),OL[50](0);
Array : HX[50](0),LX[50](0),OX[50](0);
if bdate != bdate[1] Then{
idx = 0;
for cnt = 0 to 49{
TL_delete(OL[cnt]);
TL_delete(HL[cnt]);
TL_delete(LL[cnt]);
Text_delete(OX[cnt]);
Text_delete(HX[cnt]);
Text_delete(LX[cnt]);
}
}
else{
idx = idx+1;
}
Condition1 = true;
for cnt = 0 to idx{
if O == TL_GetValue(OL[cnt],sdate,stime) or
O == TL_GetValue(HL[cnt],sdate,stime) or
O == TL_GetValue(LL[cnt],sdate,stime) Then
Condition1 = false;
}
if Condition1 == true then
{
OL[idx] = TL_New(sdate[1],stime[1],O,sdate,stime,O);
TL_SetExtRight(OL[idx],true);
TL_SetColor(OL[idx],MAGENTA);
OX[idx] = Text_New(sdate,stime,O,"시 : "+NumToStr(O,2));
Text_SetColor(OX[idx],MAGENTA);
}
Condition2 = true;
for cnt = 0 to idx{
if H == TL_GetValue(OL[cnt],sdate,stime) or
H == TL_GetValue(HL[cnt],sdate,stime) or
H == TL_GetValue(LL[cnt],sdate,stime) Then
Condition2 = false;
}
if Condition2 == true then
{
HL[idx] = TL_New(sdate[1],stime[1],H,sdate,stime,H);
TL_SetExtRight(HL[idx],true);
TL_SetColor(HL[idx],RED);
HX[idx] = Text_New(sdate,stime,H,"고 : "+NumToStr(H,2));
Text_SetColor(HX[idx],RED);
}
Condition3 = true;
for cnt = 0 to idx{
if L == TL_GetValue(OL[cnt],sdate,stime) or
L == TL_GetValue(HL[cnt],sdate,stime) or
L == TL_GetValue(LL[cnt],sdate,stime) Then
Condition3 = false;
}
if Condition3 == true then
{
LL[idx] = TL_New(sdate[1],stime[1],L,sdate,stime,L);
TL_SetExtRight(LL[idx],true);
TL_SetColor(LL[idx],blue);
LX[idx] = Text_New(sdate,stime,L,"저 : "+NumToStr(L,2));
Text_SetColor(LX[idx],blue);
}
if idx > 0 then{
for cnt = 0 to idx{
Text_SetLocation(OX[cnt],sdate,stime,TL_GetValue(OL[cnt],sdate,stime));
Text_SetLocation(HX[cnt],sdate,stime,TL_GetValue(HL[cnt],sdate,stime));
Text_SetLocation(LX[cnt],sdate,stime,TL_GetValue(LL[cnt],sdate,stime));
}
}
즐거운 하루되세요
> 골든키 님이 쓴 글입니다.
> 제목 : 수식문의 합니다
> #,아래수식은 4시간봉의 시가,고가,저가,라인 입니다.
ㅡ,당일 4시간봉이 완성된 시점에서 이전봉의 시가,고가,저가라인을 우측연장선으로 끝까지
그리기 하면 좋겠습니다.(첨부파일 그림참조)
ㅡ,이때 우측연장선 그리기 현재값을 우측으로 텍스트 출력 하면 좋겠습니다.
(중복되는라인(+-1틱)은 먼저 텍스트 출력된 값만 표현요)
ㅡ,당일 그리기한 시고저라인을 다음날 까지 표기되게 N 데이 설정하면 좋겠습니다.
ㅡ,시가(MAGENTA),고가(RED),저가(BLUE) 표현하면 좋겠습니다.
var : Ov(0),Hv(0),Lv(0);
if (stime == 80000 or (stime > 80000 and stime[1] < 80000)) or
(stime == 120000 or (stime > 120000 and stime[1] < 120000)) or
(stime == 160000 or (stime > 160000 and stime[1] < 160000)) or
(stime == 200000 or (stime > 200000 and stime[1] < 200000)) or
(stime == 00000 or (stime > 00000 and stime[1] < 00000)) or
(stime == 40000 or (stime > 40000 and stime[1] < 40000)) Then{
Ov = O;
Hv = H;
Lv = L;
}
if H > Hv Then
Hv = H;
if L < Lv Then
Lv = L;
plot1(Ov);
plot2(Hv);
plot3(Lv);
$,도움 주심에 감사드립니다.