커뮤니티
전봉의 고점,저점,중심선 표시
2017-04-10 15:25:51
164
글번호 108626
아래의 수식은 직전 60분봉의 고점,저점,중간선에 선을 긋고 값을 표시하는
수식을 부탁 드렸었는데 잘 안되는군요
다시 부탁드릴께요
좀 수정해서 input에서 60분을 변경 가능하도록 (120분,30분,20분....)
그리고 input에서 전봉,전전봉을 선택할수 있도록 전봉(1),전전봉(2),전전전봉(3)...
부탁드립니다
아래
var : TF(0),DD(0),TT(0),HH(0),LL(0);
var : TL1(0),TL2(0),TL3(0),Tx1(0),tx2(0),tx3(0);
TF = TimeToMinutes(stime)%60;
if sdate != date[1] or (sdate == sdate[1] and TF < TF[1]) Then{
HH = H;
LL = L;
DD = sdate[1];
TT = stime[1];
}
if H > HH Then
HH = H;
if L < LL Then
LL = L;
TL_Delete(TL1);
TL_Delete(TL2);
TL_Delete(TL3);
TL1 = TL_New(dd,tt,HH,sdate,stime,HH);
TL2 = TL_New(dd,tt,LL,sdate,stime,LL);
TL3 = TL_New(dd,tt,(HH+LL)/2,sdate,stime,(HH+LL)/2);
TL_SetExtRight(TL1,true);
TL_SetExtRight(TL2,true);
TL_SetExtRight(TL3,true);
Text_Delete(tx1);
Text_Delete(tx2);
Text_Delete(tx3);
tx1 = Text_New(sdate,stime,HH,NumToStr(HH,2));
tx2 = Text_New(sdate,stime,LL,NumToStr(LL,2));
tx3 = Text_New(sdate,stime,(HH+LL)/2,NumToStr((HH+LL)/2,2));
답변 1
예스스탁 예스스탁 답변
2017-04-11 09:16:52
안녕하세요
예스스탁입니다.
input : 주기(60),X(0);
var : TF(0),TL1(0),TL2(0),TL3(0),Tx1(0),tx2(0),tx3(0);
var : S1(0),D1(0),TM(0),cnt(0);
Array : HH[20](0),LL[20](0),DD[20](0),TT[20](0);
if Bdate != Bdate[1] Then{
S1 = TimeToMinutes(stime);
D1 = sdate;
}
if D1 > 0 then{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF = TM%주기;
if bdate != bdate[1] or (bdate == bdate[1] and TF < TF[1]) Then{
HH[0] = H;
LL[0] = L;
DD[0] = sdate[1];
TT[0] = stime[1];
for cnt = 1 to 19{
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
DD[cnt] = DD[cnt-1][1];
TT[cnt] = TT[cnt-1][1];
}
}
if H > HH[0] Then
HH[0] = H;
if L < LL[0] Then
LL[0] = L;
TL_Delete(TL1);
TL_Delete(TL2);
TL_Delete(TL3);
TL1 = TL_New(dd[x],tt[x],HH[x],sdate,stime,HH[x]);
TL2 = TL_New(dd[x],tt[x],LL[x],sdate,stime,LL[x]);
TL3 = TL_New(dd[x],tt[x],(HH[x]+LL[x])/2,sdate,stime,(HH[x]+LL[x])/2);
TL_SetExtRight(TL1,true);
TL_SetExtRight(TL2,true);
TL_SetExtRight(TL3,true);
Text_Delete(tx1);
Text_Delete(tx2);
Text_Delete(tx3);
tx1 = Text_New(sdate,stime,HH[x],NumToStr(HH[x],2));
tx2 = Text_New(sdate,stime,LL[x],NumToStr(LL[x],2));
tx3 = Text_New(sdate,stime,(HH[x]+LL[x])/2,NumToStr((HH[x]+LL[x])/2,2));
}
즐거운 하루되세요
> 마르뚝 님이 쓴 글입니다.
> 제목 : 전봉의 고점,저점,중심선 표시
> 아래의 수식은 직전 60분봉의 고점,저점,중간선에 선을 긋고 값을 표시하는
수식을 부탁 드렸었는데 잘 안되는군요
다시 부탁드릴께요
좀 수정해서 input에서 60분을 변경 가능하도록 (120분,30분,20분....)
그리고 input에서 전봉,전전봉을 선택할수 있도록 전봉(1),전전봉(2),전전전봉(3)...
부탁드립니다
아래
var : TF(0),DD(0),TT(0),HH(0),LL(0);
var : TL1(0),TL2(0),TL3(0),Tx1(0),tx2(0),tx3(0);
TF = TimeToMinutes(stime)%60;
if sdate != date[1] or (sdate == sdate[1] and TF < TF[1]) Then{
HH = H;
LL = L;
DD = sdate[1];
TT = stime[1];
}
if H > HH Then
HH = H;
if L < LL Then
LL = L;
TL_Delete(TL1);
TL_Delete(TL2);
TL_Delete(TL3);
TL1 = TL_New(dd,tt,HH,sdate,stime,HH);
TL2 = TL_New(dd,tt,LL,sdate,stime,LL);
TL3 = TL_New(dd,tt,(HH+LL)/2,sdate,stime,(HH+LL)/2);
TL_SetExtRight(TL1,true);
TL_SetExtRight(TL2,true);
TL_SetExtRight(TL3,true);
Text_Delete(tx1);
Text_Delete(tx2);
Text_Delete(tx3);
tx1 = Text_New(sdate,stime,HH,NumToStr(HH,2));
tx2 = Text_New(sdate,stime,LL,NumToStr(LL,2));
tx3 = Text_New(sdate,stime,(HH+LL)/2,NumToStr((HH+LL)/2,2));
다음글