예스스탁
예스스탁 답변
2025-10-28 14:32:56
안녕하세요.
예스스탁입니다.
input : 타주기분(5);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
var : dd(0),tt(0),box(0),tl(0);
Array : HH[10](0),LL[10](0),MM[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%타주기분;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 타주기분 > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and 타주기분 > 1 and TM >= TM[1]+타주기분) or
(Bdate == Bdate[1] and 타주기분 == 1 and TM > TM[1]) Then
{
dd = sDate;
tt = sTime;
for cnt = 9 downto 1
{
HH[cnt] = HH[cnt-1];
LL[cnt] = LL[cnt-1];
MM[cnt] = MM[cnt-1];
}
HH[0] = H;
LL[0] = L;
MM[0] = (HH[0]+LL[0])/2;
box = Box_New(sDate,sTime,HH[0],NextBarSdate,NextBarStime,LL[0]);
Box_SetFill(box,true,100);
Box_SetColor(box,IFF(MM[0]>MM[1],Yellow,Cyan));
tl = TL_New(sDate,sTime,MM[0],NextBarSdate,NextBarStime,MM[0]);
}
Else
{
if HH[0] > 0 and H > HH[0] Then
HH[0] = H;
if LL[0] > 0 and L < LL[0] Then
LL[0] = L;
MM[0] = (HH[0]+LL[0])/2;
Box_SetBegin(box,dd,tt,hh[0]);
Box_SetEnd(box,sDate,sTime,LL[0]);
Box_SetColor(box,IFF(MM[0]>MM[1],Yellow,Cyan));
TL_SetBegin(tl,dd,tt,mm[0]);
TL_SetEnd(tl,sDate,sTime,mm[0]);
}
}
즐거운 하루되세요