커뮤니티
타주기 전환, 도지
2023-05-07 16:39:33
903
글번호 168735
1번 수식. (꼬리 삭제)
input : N(15);
var : S1(0),D1(0),TF(0),box(0),idx(0);
var : oo(0),hh(0),ll(0),TL1(0),TL2(0),clr(0),ii(0),TL(0);
Plot1(c);
if Bdate != Bdate[1] Then
{
S1 = TimeToMinutes(stime);
D1 = sdate;
idx = 0;
}
Else
idx = idx+1;
if D1 > 0 then
{
TF = idx%N;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and TF < TF[1]) Then
{
oo = O;
hh = H;
ll = L;
box = Box_New(sDate,sTime,oo,NextBarSdate,NextBarStime,c);
ii = 1;
}
Else
{
ii = ii +1;
if h > hh Then
hh = h;
if l < ll Then
ll = l;
var1 = Round(ii/2,1);
Box_SetEnd(box,sDate,sTime,C);
}
if C > oo Then
clr = Red;
else if C < oo Then
clr = Blue;
Else
clr = Green;
Box_SetColor(box,clr);
Box_SetSize(box,1);
Box_SetFill(box,true,255);
}
타주기 박스가 상승 전환시(음봉 박스 후 첫 양봉 박스), 상승 박스 하단에 네모 표시.
계속 상승하다 하락 전환시, 하단(상승) 네모 지우고, 첫 하락 박스 상단에 네모 표시.
도지는 무시.
2번수식.(꼬리 포함)
input : N(15);
var : S1(0),D1(0),TF(0),box(0),idx(0);
var : oo(0),hh(0),ll(0),TL1(0),TL2(0),clr(0),ii(0),TL(0);
Plot1(c);
if Bdate != Bdate[1] Then
{
S1 = TimeToMinutes(stime);
D1 = sdate;
idx = 0;
}
Else
idx = idx+1;
if D1 > 0 then
{
TF = idx%N;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and TF < TF[1]) Then
{
value1 = sDate;
value2 = sTime;
oo = O;
hh = H;
ll = L;
box = Box_New(value1,Value2,hh,NextBarSdate,NextBarStime,ll);
ii = 1;
}
Else
{
ii = ii +1;
if h > hh Then
hh = h;
if l < ll Then
ll = l;
var1 = Round(ii/2,1);
Box_SetBegin(box,value1,Value2,HH);
Box_SetEnd(box,sDate,sTime,LL);
}
if C > oo Then
clr = Red;
else if C < oo Then
clr = Blue;
Else
clr = Gold;
Box_SetColor(box,clr);
Box_SetSize(box,1);
Box_SetFill(box,true,255);
}
도지 박스 색상을 한가지(gold) 색에서, 직전 박스와 동일하게 해서 두가지 색으로 변경.
바로 직전 박스 색이 blue면 blue 색으로, red면 red 색으로 각각 변경.
상승중 도지는 red, 하락중 도지는 blue. 감사합니다.
답변 1
예스스탁 예스스탁 답변
2023-05-08 09:32:51
안녕하세요
예스스탁입니다.
1
하나의 박스가 끝나면 체크합니다.
input : N(15);
var : S1(0),D1(0),TF(0),box(0),idx(0),T(0),T1(0),T2(0),tx(0);
var : oo(0),hh(0),ll(0),TL1(0),TL2(0),clr(0),ii(0),TL(0);
#Plot1(c);
if Bdate != Bdate[1] Then
{
S1 = TimeToMinutes(stime);
D1 = sdate;
idx = 0;
}
Else
idx = idx+1;
if D1 > 0 then
{
TF = idx%N;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and TF < TF[1]) Then
{
oo = O;
hh = H;
ll = L;
box = Box_New(sDate,sTime,oo,NextBarSdate,NextBarStime,c);
ii = 1;
T1 = T[1];
T2 = T1[1];
if T1 != T2 Then
{
Text_Delete(tx);
if T1 == 1 Then
{
tx = Text_New(sDate[1],sTime[1],OO[1],"■");
Text_SetStyle(tx,2,0);
}
if T1 == -1 Then
{
Text_Delete(tx);
tx = Text_New(sDate[1],sTime[1],OO[1],"■");
Text_SetStyle(tx,2,1);
}
}
}
Else
{
ii = ii +1;
if h > hh Then
hh = h;
if l < ll Then
ll = l;
var1 = Round(ii/2,1);
Box_SetEnd(box,sDate,sTime,C);
}
if C > oo Then
{
clr = Red;
T = 1;
}
else if C < oo Then
{
clr = Blue;
T = -1;
}
Else
clr = Green;
Box_SetColor(box,clr);
Box_SetSize(box,1);
Box_SetFill(box,true,255);
}
Plot1(t);
plot2(t1);
2
input : N(15);
var : S1(0),D1(0),TF(0),box(0),idx(0),T(0),T1(0),T2(0);
var : oo(0),hh(0),ll(0),TL1(0),TL2(0),clr(0),ii(0),TL(0);
Plot1(c);
if Bdate != Bdate[1] Then
{
S1 = TimeToMinutes(stime);
D1 = sdate;
idx = 0;
}
Else
idx = idx+1;
if D1 > 0 then
{
TF = idx%N;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and TF < TF[1]) Then
{
value1 = sDate;
value2 = sTime;
oo = O;
hh = H;
ll = L;
box = Box_New(value1,Value2,hh,NextBarSdate,NextBarStime,ll);
ii = 1;
T1 = T[1];
T2 = T1[1];
}
Else
{
ii = ii +1;
if h > hh Then
hh = h;
if l < ll Then
ll = l;
var1 = Round(ii/2,1);
Box_SetBegin(box,value1,Value2,HH);
Box_SetEnd(box,sDate,sTime,LL);
}
if C > oo Then
{
T = 1;
clr = Red;
}
else if C < oo Then
{
clr = Blue;
T = -1;
}
Else
clr = IFf(T1==1,Red,Blue);
Box_SetColor(box,clr);
Box_SetSize(box,1);
Box_SetFill(box,true,255);
}
즐거운 하루되세요
> 고성 님이 쓴 글입니다.
> 제목 : 타주기 전환, 도지
> 1번 수식. (꼬리 삭제)
input : N(15);
var : S1(0),D1(0),TF(0),box(0),idx(0);
var : oo(0),hh(0),ll(0),TL1(0),TL2(0),clr(0),ii(0),TL(0);
Plot1(c);
if Bdate != Bdate[1] Then
{
S1 = TimeToMinutes(stime);
D1 = sdate;
idx = 0;
}
Else
idx = idx+1;
if D1 > 0 then
{
TF = idx%N;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and TF < TF[1]) Then
{
oo = O;
hh = H;
ll = L;
box = Box_New(sDate,sTime,oo,NextBarSdate,NextBarStime,c);
ii = 1;
}
Else
{
ii = ii +1;
if h > hh Then
hh = h;
if l < ll Then
ll = l;
var1 = Round(ii/2,1);
Box_SetEnd(box,sDate,sTime,C);
}
if C > oo Then
clr = Red;
else if C < oo Then
clr = Blue;
Else
clr = Green;
Box_SetColor(box,clr);
Box_SetSize(box,1);
Box_SetFill(box,true,255);
}
타주기 박스가 상승 전환시(음봉 박스 후 첫 양봉 박스), 상승 박스 하단에 네모 표시.
계속 상승하다 하락 전환시, 하단(상승) 네모 지우고, 첫 하락 박스 상단에 네모 표시.
도지는 무시.
2번수식.(꼬리 포함)
input : N(15);
var : S1(0),D1(0),TF(0),box(0),idx(0);
var : oo(0),hh(0),ll(0),TL1(0),TL2(0),clr(0),ii(0),TL(0);
Plot1(c);
if Bdate != Bdate[1] Then
{
S1 = TimeToMinutes(stime);
D1 = sdate;
idx = 0;
}
Else
idx = idx+1;
if D1 > 0 then
{
TF = idx%N;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and TF < TF[1]) Then
{
value1 = sDate;
value2 = sTime;
oo = O;
hh = H;
ll = L;
box = Box_New(value1,Value2,hh,NextBarSdate,NextBarStime,ll);
ii = 1;
}
Else
{
ii = ii +1;
if h > hh Then
hh = h;
if l < ll Then
ll = l;
var1 = Round(ii/2,1);
Box_SetBegin(box,value1,Value2,HH);
Box_SetEnd(box,sDate,sTime,LL);
}
if C > oo Then
clr = Red;
else if C < oo Then
clr = Blue;
Else
clr = Gold;
Box_SetColor(box,clr);
Box_SetSize(box,1);
Box_SetFill(box,true,255);
}
도지 박스 색상을 한가지(gold) 색에서, 직전 박스와 동일하게 해서 두가지 색으로 변경.
바로 직전 박스 색이 blue면 blue 색으로, red면 red 색으로 각각 변경.
상승중 도지는 red, 하락중 도지는 blue. 감사합니다.
이전글