커뮤니티
부탁드립니다
2022-05-16 11:42:14
736
글번호 158867
$,안녕하세요
아래식에서 사각박스가 완성된후 박스의 중심선을 최근2개박스(양,음관계없이)만
Y축까지 첨부그림처럼 우측추세선 그리기 하고 싶습니다,
도움 부탁드립니다.
input : n(0),굵R(0),굵b(0);
var : T(0),box(0);
if C > O Then
T = 1;
Else if C < O Then
T = -1;
Else
T = 0;
if T == 1 Then
{
if T != T[1] Then
{
var1 = sDate;
Var2 = sTime;
Var3 = max(h,l);
Var4 = max(h,l);
Var5 = 0;
}
Var5 = Var5+1;
if max(h,l ) > Var3 Then
Var3 = max(h,l);
if min(h,l ) < Var4 Then
Var4 = min(h,l);
if var5 == n Then
{
box = Box_New(var1,Var2,Var3,sDate,sTime,Var4);
Box_SetColor(box,MAGENTA);
TL_SetSize(box,굵R);
}
if var5 > n Then
{
Box_SetBegin(box,var1,Var2,Var3);
Box_SetEnd(box,sDate,sTime,Var4);
}
}
if T == -1 Then
{
if T != T[1] Then
{
var1 = sDate;
Var2 = sTime;
Var3 = max(h,l);
Var4 = max(h,l);
Var5 = 0;
}
Var5 = Var5+1;
if max(h,l ) > Var3 Then
Var3 = max(h,l);
if min(h,l ) < Var4 Then
Var4 = min(h,l);
if var5 == n Then
{
box = Box_New(var1,Var2,Var3,sDate,sTime,Var4);
Box_SetColor(box,BLUE);
TL_SetSize(box,굵b);
}
if var5 > n Then
{
Box_SetBegin(box,var1,Var2,Var3);
Box_SetEnd(box,sDate,sTime,Var4);
}
}
답변 1
예스스탁 예스스탁 답변
2022-05-16 11:22:28
안녕하세요
예스스탁입니다.
input : n(0),굵R(0),굵b(0);
var : T(0),box(0),TL1(0),TL2(0);
if C > O Then
T = 1;
Else if C < O Then
T = -1;
Else
T = 0;
if T == 1 Then
{
if T != T[1] Then
{
var1 = sDate;
Var2 = sTime;
Var3 = max(h,l);
Var4 = max(h,l);
Var5 = 0;
}
Var5 = Var5+1;
if max(h,l ) > Var3 Then
Var3 = max(h,l);
if min(h,l ) < Var4 Then
Var4 = min(h,l);
if var5 == n Then
{
box = Box_New(var1,Var2,Var3,sDate,sTime,Var4);
Box_SetColor(box,MAGENTA);
TL_SetSize(box,굵R);
TL_Delete(TL1);
TL1 = TL_New(var1,var2,(Var3+Var4)/2,sdate,sTime,(Var3+Var4)/2);
TL_SetExtRight(TL1,true);
TL_SetColor(TL1,Magenta);
}
if var5 > n Then
{
Box_SetBegin(box,var1,Var2,Var3);
Box_SetEnd(box,sDate,sTime,Var4);
TL_SetBegin(TL1,var1,Var2,(Var3+Var4)/2);
TL_SetEnd(TL1,sdate,sTime,(Var3+Var4)/2);
}
}
if T == -1 Then
{
if T != T[1] Then
{
var1 = sDate;
Var2 = sTime;
Var3 = max(h,l);
Var4 = max(h,l);
Var5 = 0;
}
Var5 = Var5+1;
if max(h,l ) > Var3 Then
Var3 = max(h,l);
if min(h,l ) < Var4 Then
Var4 = min(h,l);
if var5 == n Then
{
box = Box_New(var1,Var2,Var3,sDate,sTime,Var4);
Box_SetColor(box,BLUE);
TL_SetSize(box,굵b);
TL_Delete(TL2);
TL2 = TL_New(var1,var2,(Var3+Var4)/2,sdate,sTime,(Var3+Var4)/2);
TL_SetExtRight(TL2,true);
TL_SetColor(TL2,Blue);
}
if var5 > n Then
{
Box_SetBegin(box,var1,Var2,Var3);
Box_SetEnd(box,sDate,sTime,Var4);
TL_SetBegin(TL2,var1,Var2,(Var3+Var4)/2);
TL_SetEnd(TL2,sdate,sTime,(Var3+Var4)/2);
}
}
즐거운 하루되세요
> 크라켄 님이 쓴 글입니다.
> 제목 : 부탁드립니다
> $,안녕하세요
아래식에서 사각박스가 완성된후 박스의 중심선을 최근2개박스(양,음관계없이)만
Y축까지 첨부그림처럼 우측추세선 그리기 하고 싶습니다,
도움 부탁드립니다.
input : n(0),굵R(0),굵b(0);
var : T(0),box(0);
if C > O Then
T = 1;
Else if C < O Then
T = -1;
Else
T = 0;
if T == 1 Then
{
if T != T[1] Then
{
var1 = sDate;
Var2 = sTime;
Var3 = max(h,l);
Var4 = max(h,l);
Var5 = 0;
}
Var5 = Var5+1;
if max(h,l ) > Var3 Then
Var3 = max(h,l);
if min(h,l ) < Var4 Then
Var4 = min(h,l);
if var5 == n Then
{
box = Box_New(var1,Var2,Var3,sDate,sTime,Var4);
Box_SetColor(box,MAGENTA);
TL_SetSize(box,굵R);
}
if var5 > n Then
{
Box_SetBegin(box,var1,Var2,Var3);
Box_SetEnd(box,sDate,sTime,Var4);
}
}
if T == -1 Then
{
if T != T[1] Then
{
var1 = sDate;
Var2 = sTime;
Var3 = max(h,l);
Var4 = max(h,l);
Var5 = 0;
}
Var5 = Var5+1;
if max(h,l ) > Var3 Then
Var3 = max(h,l);
if min(h,l ) < Var4 Then
Var4 = min(h,l);
if var5 == n Then
{
box = Box_New(var1,Var2,Var3,sDate,sTime,Var4);
Box_SetColor(box,BLUE);
TL_SetSize(box,굵b);
}
if var5 > n Then
{
Box_SetBegin(box,var1,Var2,Var3);
Box_SetEnd(box,sDate,sTime,Var4);
}
}