예스스탁
예스스탁 답변
2020-04-09 10:21:45
안녕하세요
예스스탁입니다,
input : ntime1(60),P(20);
var : S1(0),D1(0),TM(0),TF(0),cnt(0),TL1(0),TL2(0);
Array : HH[10](0),LL[10](0),CC[10](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%ntime1;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1]) Then
{
TL_Delete(TL1);
TL_Delete(TL2);
HH[0] = h;
LL[0] = l;
for cnt = 1 to 9
{
CC[cnt] = CC[cnt-1][1];
HH[cnt] = HH[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
}
if HH[1] > 0 and LL[1] > 0 then
{
TL1 = TL_New(sdate[1],stime[1],(hh[1]+ll[1])/2,sdate,stime,(hh[1]+ll[1])/2);
TL_SetColor(TL1,RED);
TL_SetSize(TL1,2);
TL_SetExtRight(Tl1,true);
}
}
else
{
TL_SetEnd(TL1,sdate,stime,(hh[1]+ll[1])/2);
}
CC[0] = C;
if h > HH[0] Then
HH[0] = h;
if l < LL[0] Then
LL[0] = l;
}
즐거운 하루되세요
> 유선 님이 쓴 글입니다.
> 제목 : 문의드립니다
> input : ntime1(60),P(20);
var : S1(0),D1(0),TM(0),TF(0),cnt(0),TL1(0),TL2(0);
Array : HH[10](0),LL[10](0),CC[10](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%ntime1;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1]) Then
{
TL_Delete(TL1);
TL_Delete(TL2);
HH[0] = c;
LL[0] = c;
for cnt = 1 to 9
{
CC[cnt] = CC[cnt-1][1];
HH[cnt] = LL[cnt-1][1];
LL[cnt] = LL[cnt-1][1];
}
if HH[1] > 0 and LL[1] > 0 then
{
TL1 = TL_New(sdate[1],stime[1],cc[1],sdate,stime,cc[1]);
TL_SetColor(TL1,RED);
TL_SetSize(TL1,2);
TL_SetExtRight(Tl1,true);
}
}
else
{
TL_SetEnd(TL1,sdate,stime,cc[1]);
}
CC[0] = C;
if c > HH[0] Then
HH[0] = c;
if c < LL[0] Then
LL[0] = c;
}
위수식에서 종가가 아닌 전봉 고점저점중간(1/2)에 수평선이 나오게 다시한번수정부탁드립니다,미리감사드립니다,