예스스탁
예스스탁 답변
2024-01-25 11:31:20
안녕하세요
예스스탁입니다.
input : 분1(20);
var : S1(0),D1(0),TM(0),TF1(0),cnt(0),DD(0),TT(0);
var : TL1(0),TL2(0),TL3(0),TL4(0),TL5(0),TL6(0),TL7(0),TL8(0);
Array : OO1[10](0),HH1[10](0),LL1[10](0),CC1[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;
TF1 = TM%분1;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 분1 > 1 and TF1 < TF1[1]) or
(Bdate == Bdate[1] and 분1 > 1 and TM >= TM[1]+분1) or
(Bdate == Bdate[1] and 분1 == 1 and TM > TM[1]) Then
{
for cnt = 9 downto 1
{
OO1[cnt] = OO1[cnt-1];
HH1[cnt] = HH1[cnt-1];
LL1[cnt] = LL1[cnt-1];
CC1[cnt] = CC1[cnt-1];
}
DD = sDate;
TT = sTime;
OO1[0] = O;
HH1[0] = H;
LL1[0] = L;
TL_Delete(TL1);
TL_Delete(TL2);
TL_Delete(TL3);
TL_Delete(TL4);
TL_Delete(TL5);
TL_Delete(TL6);
TL_Delete(TL7);
TL_Delete(TL8);
TL1 = TL_New(DD,TT,HH1[2],NextBarSdate,NextBarStime,HH1[2]);
TL2 = TL_New(DD,TT,LL1[2],NextBarSdate,NextBarStime,LL1[2]);
TL3 = TL_New(DD,TT,HH1[1],NextBarSdate,NextBarStime,HH1[1]);
TL4 = TL_New(DD,TT,LL1[1],NextBarSdate,NextBarStime,LL1[1]);
TL5 = TL_New(DD,TT,CC1[1],NextBarSdate,NextBarStime,CC1[1]);
TL6 = TL_New(DD,TT,OO1[0],NextBarSdate,NextBarStime,OO1[0]);
TL7 = TL_New(DD,TT,(HH1[0]+LL1[0])/2,NextBarSdate,NextBarStime,(HH1[0]+LL1[0])/2);
TL_SetColor(TL1,Red);
TL_SetColor(TL2,Blue);
TL_SetColor(TL3,Red);
TL_SetColor(TL4,Blue);
TL_SetColor(TL5,Black);
TL_SetColor(TL6,Green);
TL_SetColor(TL7,Green);
TL_SetExtRight(TL1,true);
TL_SetExtRight(TL2,true);
TL_SetExtRight(TL3,true);
TL_SetExtRight(TL4,true);
TL_SetExtRight(TL5,true);
TL_SetExtRight(TL6,true);
TL_SetExtRight(TL7,true);
}
if H > HH1[0] Then
{
HH1[0] = H;
}
if L < LL1[0] Then
{
LL1[0] = L;
}
CC1[0] = C;
TL_SetBegin(TL7,DD,TT,(HH1[0]+LL1[0])/2);
TL_SetEnd(TL7,NextBarSdate, NextBarStime,(HH1[0]+LL1[0])/2);
}
즐거운 하루되세요
> 서태공 님이 쓴 글입니다.
> 제목 : 부탁드립니다
> 1. 전전일 최고가, 최저가와 전일 최고가, 최저가, 종가 및 당일 시가, 중간값을 우측 추세선으로 구현해 주세요
고맙습니다.