커뮤니티
수식좀 요청 드립니다.
2025-06-17 07:25:54
196
글번호 191796
첨부 이미지
그림1
ㅇ항상 많은 도움에 고맙습니다.
ㅇ 아래 수식에 보면 3등분선이 나오는데 색상좀 부탁 드림니다.
##
input : n(20);
input : BW(1);
var : hh(0),ll(0),idx(0),tf(0),hh1(0),ll1(0),hh2(0),ll2(0);
var : TL1(0),TL2(0),d1(0),t1(0),TL3(0);
var : HTL1(0),HTL2(0),HTL3(0),HTL4(0),HTL5(0),HTL6(0),ii(0),tx(0);
if Bdate != Bdate[1] Then
idx = 0;
Else
idx = idx+1;
TF = idx%n;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1]) Then
{
hh = h;
ll = l;
hh1 = hh[1];
ll1 = ll[1];
hh2 = hh1[1];
ll2 = ll1[1];
d1 = sDate;
t1 = sTime;
ii = 1;
#TL_Delete(TL1);
//TL1 = TL_new(d1,t1,hh,NextBarSdate,NextBarStime,HH);
// TL1 = TL_new(d1,t1,hh,NextBarSdate,NextBarStime,NextBarStime);
TL1 = TL_New(sDate,sTime,HH[0],NextBarSdate,NextBarStime,HH[0]);
//TL1 = TL_New(sDate[0],sTime[0],HH,sDate,sTime,HH);
TL_SetColor(TL1,RgB(0,0,255));
TL_SetSize(TL1,BW);
//TL_SetEnd(TL1[0],sDate,sTime,NextBarStime);
//TL1 = TL_new(sDate,sTime,HH+0.25,NextBarSdate,NextBarStime,HH+0.25);
//TL_SetEnd(TL1,sDate,sTime,HH+0.25);
//TL_SetExtRight(TL1[10],true);
#TL_Delete(TL2);
TL2 = TL_new(d1,t1,ll,NextBarSdate,NextBarStime,ll);
TL_SetColor(TL2,RgB(0,0,255));
TL_SetSize(TL2,BW);
//TL_SetStyle((TL2,2,1);
#TL_Delete(TL3);
TL3 = TL_new(d1,t1,(hh+ll)/2,NextBarSdate,NextBarStime,(hh+ll)/2);
TL_SetColor(TL3,Rgb(0,0,255));
TL_SetSize(TL3,BW);
}
Else
{
ii = ii +1;
TL_SetEnd(TL1,sDate,sTime,HH);
TL_SetEnd(TL2,sDate,sTime,LL);
TL_SetEnd(TL3,sDate,sTime,(HH+LL)/2);
if ii%2 == 0 Then
{
tx = Text_New(sDate,sTime,HH,NumToStr(ii,0));
Text_SetStyle(tx,2,1);
}
}
#if h > hh Then
#{
# hh = h;
// TL_SetBegin(TL1,d1,t1,hh);
// TL_SetBegin(TL3,d1,t1,(hh+ll)/2);
#}
#if l < ll Then
#{
# ll = l;
//TL_SetBegin(TL2,d1,t1,ll);
// TL_SetBegin(TL3,d1,t1,(hh+ll)/2);
#}
//TL_SetEnd(TL1,NextBarSdate,NextBarStime,hh);
//TL_SetEnd(TL2,NextBarSdate,NextBarStime,ll);
//TL_SetEnd(TL3,NextBarSdate,NextBarStime,(hh+ll)/2);
//var1 = (hh+ll)/2;
//var2 = (hh1+ll1)/2;
//var3 = (hh2+ll2)/2;
//Var4 = MA(var1,5) ;
// Plot1(Var4-PriceScale*10,"1",RgB(255,0,255),DeF,2) ;
//Plot2(var2,"2",RgB(0,0,255),DeF,3) ;
//Plot3(var3,"3",RgB(0,0,0),DeF,3) ;
input : n2(20);
var : hh3(0),ll3(0),idx3(0),tf3(0),hh4(0),ll4(0),hh5(0),ll5(0);
var : TL11(0),TL12(0),d13(0),t13(0),TL13(0);
if Bdate != Bdate[1] Then
idx3 = 0;
Else
idx3 = idx+1;
tf3 = idx3%n2;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and tf3 < tf3[1]) Then
{
hh3 = h;
ll3 = l;
hh4 = hh3[1];
ll4 = ll3[1];
hh5 = hh4[1];
ll5 = ll4[1];
d13 = sDate;
t13 = sTime;
#TL_Delete(TL11);
// TL11 = TL_new(d13,t13,hh3,NextBarSdate,NextBarStime,hh3);
#TL_Delete(TL12);
// TL12 = TL_new(d13,t13,ll3,NextBarSdate,NextBarStime,ll3);
#TL_Delete(TL13);
// TL13 = TL_new(d13,t13,(hh+ll)/2,NextBarSdate,NextBarStime,(hh+ll)/2);
}
if h > hh3 Then
{
hh3 = h;
TL_SetBegin(TL11,d13,t13,hh3);
TL_SetBegin(TL13,d13,t13,( hh3 + ll3)/2);
}
if l < ll3 Then
{
ll3 = l;
TL_SetBegin(TL12,d13,t13,ll3);
TL_SetBegin(TL13,d13,t13,( hh3 + ll3)/2);
}
//TL_SetEnd(TL11,NextBarSdate,NextBarStime,hh3);
//TL_SetEnd(TL12,NextBarSdate,NextBarStime,ll3);
//TL_SetEnd(TL13,NextBarSdate,NextBarStime,(hh+ll)/2);
var1 = ( hh3 + ll3)/2;
var2 = ( hh4 + ll4)/2;
var3 = ( hh5 + ll5)/2;
Var4 = MA(var1,5) ;
//Plot1(Var4-PriceScale*1,"1",RgB(255,0,255),DeF,0) ;
* 항상 많은 도움에 고맙습니다. 수고하십시요.
- 1. 3등분.GIF (0.00 MB)
답변 1
예스스탁 예스스탁 답변
2025-06-17 10:35:46
안녕하세요
예스스탁입니다.
input : n(20);
input : BW(1);
var : hh(0),ll(0),idx(0),tf(0),hh1(0),ll1(0),hh2(0),ll2(0);
var : TL1(0),TL2(0),d1(0),t1(0),TL3(0);
var : HTL1(0),HTL2(0),HTL3(0),HTL4(0),HTL5(0),HTL6(0),ii(0),tx(0);
var : box1(0),box2(0);
if Bdate != Bdate[1] Then
idx = 0;
Else
idx = idx+1;
TF = idx%n;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1]) Then
{
hh = h;
ll = l;
hh1 = hh[1];
ll1 = ll[1];
hh2 = hh1[1];
ll2 = ll1[1];
d1 = sDate;
t1 = sTime;
ii = 1;
#TL_Delete(TL1);
//TL1 = TL_new(d1,t1,hh,NextBarSdate,NextBarStime,HH);
// TL1 = TL_new(d1,t1,hh,NextBarSdate,NextBarStime,NextBarStime);
TL1 = TL_New(sDate,sTime,HH[0],NextBarSdate,NextBarStime,HH[0]);
//TL1 = TL_New(sDate[0],sTime[0],HH,sDate,sTime,HH);
TL_SetColor(TL1,RgB(0,0,255));
TL_SetSize(TL1,BW);
//TL_SetEnd(TL1[0],sDate,sTime,NextBarStime);
//TL1 = TL_new(sDate,sTime,HH+0.25,NextBarSdate,NextBarStime,HH+0.25);
//TL_SetEnd(TL1,sDate,sTime,HH+0.25);
//TL_SetExtRight(TL1[10],true);
#TL_Delete(TL2);
TL2 = TL_new(d1,t1,ll,NextBarSdate,NextBarStime,ll);
TL_SetColor(TL2,RgB(0,0,255));
TL_SetSize(TL2,BW);
//TL_SetStyle((TL2,2,1);
#TL_Delete(TL3);
TL3 = TL_new(d1,t1,(hh+ll)/2,NextBarSdate,NextBarStime,(hh+ll)/2);
TL_SetColor(TL3,Rgb(0,0,255));
TL_SetSize(TL3,BW);
box1 = Box_New(d1,t1,hh,NextBarSdate,NextBarStime,(hh+ll)/2);
Box_SetColor(box1,Magenta);
Box_SetFill(box1,true);
box2 = Box_New(d1,t1,(hh+ll)/2,NextBarSdate,NextBarStime,ll);
Box_SetColor(box2,Lime);
Box_SetFill(box2,true);
}
Else
{
ii = ii +1;
TL_SetEnd(TL1,sDate,sTime,HH);
TL_SetEnd(TL2,sDate,sTime,LL);
TL_SetEnd(TL3,sDate,sTime,(HH+LL)/2);
Box_SetEnd(box1,sDate,sTime,(HH+LL)/2);
Box_SetEnd(box2,sDate,sTime,LL);
if ii%2 == 0 Then
{
tx = Text_New(sDate,sTime,HH,NumToStr(ii,0));
Text_SetStyle(tx,2,1);
}
}
#if h > hh Then
#{
# hh = h;
// TL_SetBegin(TL1,d1,t1,hh);
// TL_SetBegin(TL3,d1,t1,(hh+ll)/2);
#}
#if l < ll Then
#{
# ll = l;
//TL_SetBegin(TL2,d1,t1,ll);
// TL_SetBegin(TL3,d1,t1,(hh+ll)/2);
#}
//TL_SetEnd(TL1,NextBarSdate,NextBarStime,hh);
//TL_SetEnd(TL2,NextBarSdate,NextBarStime,ll);
//TL_SetEnd(TL3,NextBarSdate,NextBarStime,(hh+ll)/2);
//var1 = (hh+ll)/2;
//var2 = (hh1+ll1)/2;
//var3 = (hh2+ll2)/2;
//Var4 = MA(var1,5) ;
// Plot1(Var4-PriceScale*10,"1",RgB(255,0,255),DeF,2) ;
//Plot2(var2,"2",RgB(0,0,255),DeF,3) ;
//Plot3(var3,"3",RgB(0,0,0),DeF,3) ;
input : n2(20);
var : hh3(0),ll3(0),idx3(0),tf3(0),hh4(0),ll4(0),hh5(0),ll5(0);
var : TL11(0),TL12(0),d13(0),t13(0),TL13(0);
if Bdate != Bdate[1] Then
idx3 = 0;
Else
idx3 = idx+1;
tf3 = idx3%n2;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and tf3 < tf3[1]) Then
{
hh3 = h;
ll3 = l;
hh4 = hh3[1];
ll4 = ll3[1];
hh5 = hh4[1];
ll5 = ll4[1];
d13 = sDate;
t13 = sTime;
#TL_Delete(TL11);
// TL11 = TL_new(d13,t13,hh3,NextBarSdate,NextBarStime,hh3);
#TL_Delete(TL12);
// TL12 = TL_new(d13,t13,ll3,NextBarSdate,NextBarStime,ll3);
#TL_Delete(TL13);
// TL13 = TL_new(d13,t13,(hh+ll)/2,NextBarSdate,NextBarStime,(hh+ll)/2);
}
if h > hh3 Then
{
hh3 = h;
TL_SetBegin(TL11,d13,t13,hh3);
TL_SetBegin(TL13,d13,t13,( hh3 + ll3)/2);
}
if l < ll3 Then
{
ll3 = l;
TL_SetBegin(TL12,d13,t13,ll3);
TL_SetBegin(TL13,d13,t13,( hh3 + ll3)/2);
}
//TL_SetEnd(TL11,NextBarSdate,NextBarStime,hh3);
//TL_SetEnd(TL12,NextBarSdate,NextBarStime,ll3);
//TL_SetEnd(TL13,NextBarSdate,NextBarStime,(hh+ll)/2);
var1 = ( hh3 + ll3)/2;
var2 = ( hh4 + ll4)/2;
var3 = ( hh5 + ll5)/2;
Var4 = MA(var1,5) ;
//Plot1(Var4-PriceScale*1,"1",RgB(255,0,255),DeF,0) ;
즐거운 하루되세요
> 요타 님이 쓴 글입니다.
> 제목 : 수식좀 요청 드립니다.
> ㅇ항상 많은 도움에 고맙습니다.
ㅇ 아래 수식에 보면 3등분선이 나오는데 색상좀 부탁 드림니다.
##
input : n(20);
input : BW(1);
var : hh(0),ll(0),idx(0),tf(0),hh1(0),ll1(0),hh2(0),ll2(0);
var : TL1(0),TL2(0),d1(0),t1(0),TL3(0);
var : HTL1(0),HTL2(0),HTL3(0),HTL4(0),HTL5(0),HTL6(0),ii(0),tx(0);
if Bdate != Bdate[1] Then
idx = 0;
Else
idx = idx+1;
TF = idx%n;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and TF < TF[1]) Then
{
hh = h;
ll = l;
hh1 = hh[1];
ll1 = ll[1];
hh2 = hh1[1];
ll2 = ll1[1];
d1 = sDate;
t1 = sTime;
ii = 1;
#TL_Delete(TL1);
//TL1 = TL_new(d1,t1,hh,NextBarSdate,NextBarStime,HH);
// TL1 = TL_new(d1,t1,hh,NextBarSdate,NextBarStime,NextBarStime);
TL1 = TL_New(sDate,sTime,HH[0],NextBarSdate,NextBarStime,HH[0]);
//TL1 = TL_New(sDate[0],sTime[0],HH,sDate,sTime,HH);
TL_SetColor(TL1,RgB(0,0,255));
TL_SetSize(TL1,BW);
//TL_SetEnd(TL1[0],sDate,sTime,NextBarStime);
//TL1 = TL_new(sDate,sTime,HH+0.25,NextBarSdate,NextBarStime,HH+0.25);
//TL_SetEnd(TL1,sDate,sTime,HH+0.25);
//TL_SetExtRight(TL1[10],true);
#TL_Delete(TL2);
TL2 = TL_new(d1,t1,ll,NextBarSdate,NextBarStime,ll);
TL_SetColor(TL2,RgB(0,0,255));
TL_SetSize(TL2,BW);
//TL_SetStyle((TL2,2,1);
#TL_Delete(TL3);
TL3 = TL_new(d1,t1,(hh+ll)/2,NextBarSdate,NextBarStime,(hh+ll)/2);
TL_SetColor(TL3,Rgb(0,0,255));
TL_SetSize(TL3,BW);
}
Else
{
ii = ii +1;
TL_SetEnd(TL1,sDate,sTime,HH);
TL_SetEnd(TL2,sDate,sTime,LL);
TL_SetEnd(TL3,sDate,sTime,(HH+LL)/2);
if ii%2 == 0 Then
{
tx = Text_New(sDate,sTime,HH,NumToStr(ii,0));
Text_SetStyle(tx,2,1);
}
}
#if h > hh Then
#{
# hh = h;
// TL_SetBegin(TL1,d1,t1,hh);
// TL_SetBegin(TL3,d1,t1,(hh+ll)/2);
#}
#if l < ll Then
#{
# ll = l;
//TL_SetBegin(TL2,d1,t1,ll);
// TL_SetBegin(TL3,d1,t1,(hh+ll)/2);
#}
//TL_SetEnd(TL1,NextBarSdate,NextBarStime,hh);
//TL_SetEnd(TL2,NextBarSdate,NextBarStime,ll);
//TL_SetEnd(TL3,NextBarSdate,NextBarStime,(hh+ll)/2);
//var1 = (hh+ll)/2;
//var2 = (hh1+ll1)/2;
//var3 = (hh2+ll2)/2;
//Var4 = MA(var1,5) ;
// Plot1(Var4-PriceScale*10,"1",RgB(255,0,255),DeF,2) ;
//Plot2(var2,"2",RgB(0,0,255),DeF,3) ;
//Plot3(var3,"3",RgB(0,0,0),DeF,3) ;
input : n2(20);
var : hh3(0),ll3(0),idx3(0),tf3(0),hh4(0),ll4(0),hh5(0),ll5(0);
var : TL11(0),TL12(0),d13(0),t13(0),TL13(0);
if Bdate != Bdate[1] Then
idx3 = 0;
Else
idx3 = idx+1;
tf3 = idx3%n2;
if Bdate != Bdate[1] or (Bdate == Bdate[1] and tf3 < tf3[1]) Then
{
hh3 = h;
ll3 = l;
hh4 = hh3[1];
ll4 = ll3[1];
hh5 = hh4[1];
ll5 = ll4[1];
d13 = sDate;
t13 = sTime;
#TL_Delete(TL11);
// TL11 = TL_new(d13,t13,hh3,NextBarSdate,NextBarStime,hh3);
#TL_Delete(TL12);
// TL12 = TL_new(d13,t13,ll3,NextBarSdate,NextBarStime,ll3);
#TL_Delete(TL13);
// TL13 = TL_new(d13,t13,(hh+ll)/2,NextBarSdate,NextBarStime,(hh+ll)/2);
}
if h > hh3 Then
{
hh3 = h;
TL_SetBegin(TL11,d13,t13,hh3);
TL_SetBegin(TL13,d13,t13,( hh3 + ll3)/2);
}
if l < ll3 Then
{
ll3 = l;
TL_SetBegin(TL12,d13,t13,ll3);
TL_SetBegin(TL13,d13,t13,( hh3 + ll3)/2);
}
//TL_SetEnd(TL11,NextBarSdate,NextBarStime,hh3);
//TL_SetEnd(TL12,NextBarSdate,NextBarStime,ll3);
//TL_SetEnd(TL13,NextBarSdate,NextBarStime,(hh+ll)/2);
var1 = ( hh3 + ll3)/2;
var2 = ( hh4 + ll4)/2;
var3 = ( hh5 + ll5)/2;
Var4 = MA(var1,5) ;
//Plot1(Var4-PriceScale*1,"1",RgB(255,0,255),DeF,0) ;
* 항상 많은 도움에 고맙습니다. 수고하십시요.
다음글
이전글