커뮤니티
수정 부탁드립니다.
2017-08-14 14:26:17
154
글번호 112005
안녕하세요
다음 수식 추가 부탁드립니다.
1) 당일의 최고값,최저값의 1/2 가격을 당일 첫봉부터 완성봉 기준 수평선 추가
(당일 최고값,최저값이 변동하면 1/2값도 수평선으로 변동)
2) 전일의 최고값,최저값의 1/2 가격을 전일 첫봉부터 당일 완성봉 기준 수평선 추가
3) 전일과 당일만 수평선 표시 (색상 : Green)
< 원본 수식 >
var: HH(0),HD(0),HT(0),LL(0),LD(0),LT(0);
var: HH1(0),HD1(0),HT1(0),LL1(0),LD1(0),LT1(0);
var: TL1(0),TL2(0);
if Bdate!=Bdate[1] then {
HH = H;
HD = sdate;
HT = stime;
HH1 = HH[1];
HD1 = HD[1];
HT1 = HT[1];
LL = L;
LD = sdate;
LT = stime;
LL1 = LL[1];
LD1 = LD[1];
LT1 = LT[1];
TL_Delete(TL1);
TL_Delete(TL2);
if HH1>0 then {
TL1 = TL_New(HD1,HT1,HH1,HD,HT,HH);
TL_SetExtRight(TL1,True);
TL_SetSize(TL1,2);
}
if LL1>0 then {
TL2 = TL_New(LD1,LT1,LL1,LD,LT,LL);
TL_SetExtRight(TL2,True);
TL_SetSize(TL2,2);
}
}
if H>HH then {
HH = H;
HD = sdate;
HT = stime;
TL_SetEnd(TL1,HD,HT,HH);
}
if L<LL then {
LL = L;
LD = sdate;
LT = stime;
TL_SetEnd(TL2,LD,LT,LL);
}
감사합니다 !!
답변 1
예스스탁 예스스탁 답변
2017-08-14 15:12:05
안녕하세요
예스스탁입니다.
var: HH(0),HD(0),HT(0),LL(0),LD(0),LT(0);
var: HH1(0),HD1(0),HT1(0),LL1(0),LD1(0),LT1(0);
var : D1(0),T1(0),D2(0),T2(0);
var: TL1(0),TL2(0),TL3(0),TL4(0);
if Bdate!=Bdate[1] then {
D1 = sdate[1];
T1 = stime[1];
D2 = D1[1];
T2 = T1[1];
HH = H;
HD = sdate;
HT = stime;
HH1 = HH[1];
HD1 = HD[1];
HT1 = HT[1];
LL = L;
LD = sdate;
LT = stime;
LL1 = LL[1];
LD1 = LD[1];
LT1 = LT[1];
TL_Delete(TL1);
TL_Delete(TL2);
if HH1>0 then {
TL1 = TL_New(HD1,HT1,HH1,HD,HT,HH);
TL_SetExtRight(TL1,True);
TL_SetSize(TL1,2);
}
if LL1>0 then {
TL2 = TL_New(LD1,LT1,LL1,LD,LT,LL);
TL_SetExtRight(TL2,True);
TL_SetSize(TL2,2);
}
}
if H>HH then {
HH = H;
HD = sdate;
HT = stime;
TL_SetEnd(TL1,HD,HT,HH);
}
if L<LL then {
LL = L;
LD = sdate;
LT = stime;
TL_SetEnd(TL2,LD,LT,LL);
}
TL_Delete(TL3);
TL3 = TL_New(D1,T1,(HH+LL)/2,sdate,stime,(HH+LL)/2);
TL_SetSize(TL3,2);
TL_SetExtRight(TL3,true);
TL_SetColor(TL3,GREEN);
TL_Delete(TL4);
TL4 = TL_New(D2,T2,(HH1+LL1)/2,sdate,stime,(HH1+LL1)/2);
TL_SetSize(TL4,2);
TL_SetExtRight(TL4,true);
TL_SetColor(TL4,GREEN);
즐거운 하루되세요
> 새로운세상 님이 쓴 글입니다.
> 제목 : 수정 부탁드립니다.
> 안녕하세요
다음 수식 추가 부탁드립니다.
1) 당일의 최고값,최저값의 1/2 가격을 당일 첫봉부터 완성봉 기준 수평선 추가
(당일 최고값,최저값이 변동하면 1/2값도 수평선으로 변동)
2) 전일의 최고값,최저값의 1/2 가격을 전일 첫봉부터 당일 완성봉 기준 수평선 추가
3) 전일과 당일만 수평선 표시 (색상 : Green)
< 원본 수식 >
var: HH(0),HD(0),HT(0),LL(0),LD(0),LT(0);
var: HH1(0),HD1(0),HT1(0),LL1(0),LD1(0),LT1(0);
var: TL1(0),TL2(0);
if Bdate!=Bdate[1] then {
HH = H;
HD = sdate;
HT = stime;
HH1 = HH[1];
HD1 = HD[1];
HT1 = HT[1];
LL = L;
LD = sdate;
LT = stime;
LL1 = LL[1];
LD1 = LD[1];
LT1 = LT[1];
TL_Delete(TL1);
TL_Delete(TL2);
if HH1>0 then {
TL1 = TL_New(HD1,HT1,HH1,HD,HT,HH);
TL_SetExtRight(TL1,True);
TL_SetSize(TL1,2);
}
if LL1>0 then {
TL2 = TL_New(LD1,LT1,LL1,LD,LT,LL);
TL_SetExtRight(TL2,True);
TL_SetSize(TL2,2);
}
}
if H>HH then {
HH = H;
HD = sdate;
HT = stime;
TL_SetEnd(TL1,HD,HT,HH);
}
if L<LL then {
LL = L;
LD = sdate;
LT = stime;
TL_SetEnd(TL2,LD,LT,LL);
}
감사합니다 !!