커뮤니티
54371 재질문 드립니다
2017-08-09 13:34:01
90
글번호 111894
답변 감사드립니다.
5분챠트에서 15분 주기 잘 확인 되었는데요. 15분 주기 셑팅하고 15분챠트"에서 표현이 안되는 되요. 예전에 60분 주기 세팅하고 이평체크하면 60분챠트에서도 표시가 되던데 뭐가 문제인지 모르겠네요. 도움 부탁립니다
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : Re : Re : 54356 재질문입니다
> 안녕하세요
예스스탁입니다.
input : 분주기(30);
input : D1(20170804),T1(201500);
input : D2(20170804),T2(211500);
input : D3(20170804),T3(221500);
var : H1(0),L1(0),Tcond1(false),tx11(0),tx12(0);
var : H2(0),L2(0),Tcond2(false),tx21(0),tx22(0);
var : H3(0),L3(0),Tcond3(false),tx31(0),tx32(0);
var : SS(0),DD(0),TM(0),TF(0);
var : SD(0),ST(0),HH(0),LL(0);
if bdate != Bdate[1] Then{
SS = TimeToMinutes(stime);
DD = sdate;
}
if DD > 0 then{
if sdate == DD Then
TM = TimeToMinutes(stime)-SS;
Else
TM = TimeToMinutes(stime)+1440-SS;
TF = TM%분주기;
if (Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1])) Then{
SD = Sdate;
ST = Stime;
HH = H;
LL = L;
}
if H > HH Then
HH = H;
if L < LL Then
LL = L;
if SD == D1 and ST == T1 Then{
Tcond1 = true;
H1 = HH;
L1 = LL;
}
if SD == D2 and ST == T2 Then{
Tcond2 = true;
H2 = HH;
L2 = LL;
}
if SD == D3 and ST == T3 Then{
Tcond3 = true;
H3 = HH;
L3 = LL;
}
if Tcond1 == true then{
plot1(H1);
plot2(L1);
Text_Delete(Tx11);
Text_Delete(Tx12);
tx11 = Text_New(sdate,stime,H1,NumToStr(H1,2));
tx12 = Text_New(sdate,stime,L1,NumToStr(L1,2));
Text_SetStyle(tx11,0,2);
Text_SetStyle(tx12,0,2);
}
if Tcond2 == true then{
plot3(H2);
plot4(L2);
Text_Delete(Tx21);
Text_Delete(Tx22);
tx21 = Text_New(sdate,stime,H2,NumToStr(H2,2));
tx22 = Text_New(sdate,stime,L2,NumToStr(L2,2));
Text_SetStyle(tx21,0,2);
Text_SetStyle(tx22,0,2);
}
if Tcond3 == true then{
plot5(H3);
plot6(L3);
Text_Delete(Tx31);
Text_Delete(Tx32);
tx31 = Text_New(sdate,stime,H3,NumToStr(H3,2));
tx32 = Text_New(sdate,stime,L3,NumToStr(L3,2));
Text_SetStyle(tx31,0,2);
Text_SetStyle(tx32,0,2);
}
}
즐거운 하루되세요
답변 1
예스스탁 예스스탁 답변
2017-08-09 14:24:04
안녕하세요
예스스탁입니다.
차트와 동일주기도 체크되게 수정했습니다.
input : 분주기(15);
input : D1(20170804),T1(201500);
input : D2(20170804),T2(211500);
input : D3(20170804),T3(221500);
var : H1(0),L1(0),Tcond1(false),tx11(0),tx12(0);
var : H2(0),L2(0),Tcond2(false),tx21(0),tx22(0);
var : H3(0),L3(0),Tcond3(false),tx31(0),tx32(0);
var : SS(0),DD(0),TM(0),TF(0);
var : SD(0),ST(0),HH(0),LL(0);
if bdate != Bdate[1] Then{
SS = TimeToMinutes(stime);
DD = sdate;
}
if DD > 0 then{
if sdate == DD Then
TM = TimeToMinutes(stime)-SS;
Else
TM = TimeToMinutes(stime)+1440-SS;
TF = TM%분주기;
if (Bdate != Bdate[1] or (Bdate == Bdate[1] and (TF < TF[1] or TF == 0))) Then{
SD = Sdate;
ST = Stime;
HH = H;
LL = L;
}
if H > HH Then
HH = H;
if L < LL Then
LL = L;
if SD == D1 and ST == T1 Then{
Tcond1 = true;
H1 = HH;
L1 = LL;
}
if SD == D2 and ST == T2 Then{
Tcond2 = true;
H2 = HH;
L2 = LL;
}
if SD == D3 and ST == T3 Then{
Tcond3 = true;
H3 = HH;
L3 = LL;
}
if Tcond1 == true then{
plot1(H1);
plot2(L1);
Text_Delete(Tx11);
Text_Delete(Tx12);
tx11 = Text_New(sdate,stime,H1,NumToStr(H1,2));
tx12 = Text_New(sdate,stime,L1,NumToStr(L1,2));
Text_SetStyle(tx11,0,2);
Text_SetStyle(tx12,0,2);
}
if Tcond2 == true then{
plot3(H2);
plot4(L2);
Text_Delete(Tx21);
Text_Delete(Tx22);
tx21 = Text_New(sdate,stime,H2,NumToStr(H2,2));
tx22 = Text_New(sdate,stime,L2,NumToStr(L2,2));
Text_SetStyle(tx21,0,2);
Text_SetStyle(tx22,0,2);
}
if Tcond3 == true then{
plot5(H3);
plot6(L3);
Text_Delete(Tx31);
Text_Delete(Tx32);
tx31 = Text_New(sdate,stime,H3,NumToStr(H3,2));
tx32 = Text_New(sdate,stime,L3,NumToStr(L3,2));
Text_SetStyle(tx31,0,2);
Text_SetStyle(tx32,0,2);
}
}
즐거운 하루되세요
> 스로우 님이 쓴 글입니다.
> 제목 : 54371 재질문 드립니다
> 답변 감사드립니다.
5분챠트에서 15분 주기 잘 확인 되었는데요. 15분 주기 셑팅하고 15분챠트"에서 표현이 안되는 되요. 예전에 60분 주기 세팅하고 이평체크하면 60분챠트에서도 표시가 되던데 뭐가 문제인지 모르겠네요. 도움 부탁립니다
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : Re : Re : 54356 재질문입니다
> 안녕하세요
예스스탁입니다.
input : 분주기(30);
input : D1(20170804),T1(201500);
input : D2(20170804),T2(211500);
input : D3(20170804),T3(221500);
var : H1(0),L1(0),Tcond1(false),tx11(0),tx12(0);
var : H2(0),L2(0),Tcond2(false),tx21(0),tx22(0);
var : H3(0),L3(0),Tcond3(false),tx31(0),tx32(0);
var : SS(0),DD(0),TM(0),TF(0);
var : SD(0),ST(0),HH(0),LL(0);
if bdate != Bdate[1] Then{
SS = TimeToMinutes(stime);
DD = sdate;
}
if DD > 0 then{
if sdate == DD Then
TM = TimeToMinutes(stime)-SS;
Else
TM = TimeToMinutes(stime)+1440-SS;
TF = TM%분주기;
if (Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1])) Then{
SD = Sdate;
ST = Stime;
HH = H;
LL = L;
}
if H > HH Then
HH = H;
if L < LL Then
LL = L;
if SD == D1 and ST == T1 Then{
Tcond1 = true;
H1 = HH;
L1 = LL;
}
if SD == D2 and ST == T2 Then{
Tcond2 = true;
H2 = HH;
L2 = LL;
}
if SD == D3 and ST == T3 Then{
Tcond3 = true;
H3 = HH;
L3 = LL;
}
if Tcond1 == true then{
plot1(H1);
plot2(L1);
Text_Delete(Tx11);
Text_Delete(Tx12);
tx11 = Text_New(sdate,stime,H1,NumToStr(H1,2));
tx12 = Text_New(sdate,stime,L1,NumToStr(L1,2));
Text_SetStyle(tx11,0,2);
Text_SetStyle(tx12,0,2);
}
if Tcond2 == true then{
plot3(H2);
plot4(L2);
Text_Delete(Tx21);
Text_Delete(Tx22);
tx21 = Text_New(sdate,stime,H2,NumToStr(H2,2));
tx22 = Text_New(sdate,stime,L2,NumToStr(L2,2));
Text_SetStyle(tx21,0,2);
Text_SetStyle(tx22,0,2);
}
if Tcond3 == true then{
plot5(H3);
plot6(L3);
Text_Delete(Tx31);
Text_Delete(Tx32);
tx31 = Text_New(sdate,stime,H3,NumToStr(H3,2));
tx32 = Text_New(sdate,stime,L3,NumToStr(L3,2));
Text_SetStyle(tx31,0,2);
Text_SetStyle(tx32,0,2);
}
}
즐거운 하루되세요
이전글