커뮤니티
슈퍼트렌드 쓰리바닥
2022-12-06 22:41:17
1661
글번호 164384
input : Factor(4),Pd(9),highPd(1),lowPd(4);
input : ,쌍바닥상(2),쌍바닥하(2) ,폭(0.25);
var : sp(0),th(0),ll(0),myh(0),myl(0),up(0),dn(0),ii(0),Trendup(0),trenddown(0),Trend(0);
var : Tsl(0),linecolor(0),tx(0),tl(0),tx1(0),tx2(0);
sp = (H+L+c)/3;
th = high;
for ii = 1 to Pd*highPd
{
if th < high[ii] Then
th = high[ii];
}
ll = low;
for ii=1 to Pd*lowPd
{
if ll > low[ii] Then
ll = low[ii];
}
myh = ma(high,Pd)*0.4+th*0.6;
myl = (ma(sp,Pd)*0.5+ll*0.5);
Up = myl-(Factor*atr(Pd)*0.8 );
Dn = (myh+(Factor*atr(Pd) ));
TrendUp = iff(sp[1]>TrendUp[1], max(Up,TrendUp[1]) , Up);
TrendDown = iff(sp[1]<TrendDown[1], min(Dn,TrendDown[1]) , Dn);
Trend = iff(sp > TrendDown[1] , 1, iff(sp< TrendUp[1] , -1, Trend[1]));
Tsl = IFF(Trend==1, TrendUp, TrendDown);
linecolor = IFF(Trend == 1 , Red , Blue);
plot1(Tsl,"SuperTrend",linecolor);
if Trend != Trend[1] Then
{
if Trend == 1 Then
{
var1 = h;
var2 = var1[1];
if Var4 > 0 and var3 <= Var4+PriceScale*쌍바닥상 and var3 >= Var4-PriceScale*쌍바닥하 Then
{
tx1 = Text_New_Self(sDate,sTime, Tsl-PriceScale*0,"●");
Text_SetColor(tx1,Magenta);
Text_SetSize(tx1,20);
Text_SetStyle(tx1,2,0);
}
}
Else
{
Var3 = l;
Var4 = Var3[1];
}
}
Else
{
if Trend == 1 Then
{
if h > var1 Then
var1 = h;
}
if Trend == -1 Then
{
if l < var3 Then
var3 = l;
}
}
1.지표식:음선 내의 봉 최저가를 기준으로 0.25p 내에서 쓰리바닥일 때 동그라미로 수정.
2.시스템:쓰리바닥에 매수,음전환시 매수청산. 부탁합니다.
답변 4
예스스탁 예스스탁 답변
2022-12-07 13:02:37
안녕하세요
예스스탁입니다.
1
input : Factor(4),Pd(9),highPd(1),lowPd(4);
input : ,쌍바닥상(2),쌍바닥하(2) ,폭(0.25);
var : sp(0),th(0),ll(0),myh(0),myl(0),up(0),dn(0),ii(0),Trendup(0),trenddown(0),Trend(0);
var : Tsl(0),linecolor(0),tx(0),tl(0),tx1(0),tx2(0);
var : h1(0),h2(0),h3(0),l1(0),l2(0),l3(0);
sp = (H+L+c)/3;
th = high;
for ii = 1 to Pd*highPd
{
if th < high[ii] Then
th = high[ii];
}
ll = low;
for ii=1 to Pd*lowPd
{
if ll > low[ii] Then
ll = low[ii];
}
myh = ma(high,Pd)*0.4+th*0.6;
myl = (ma(sp,Pd)*0.5+ll*0.5);
Up = myl-(Factor*atr(Pd)*0.8 );
Dn = (myh+(Factor*atr(Pd) ));
TrendUp = iff(sp[1]>TrendUp[1], max(Up,TrendUp[1]) , Up);
TrendDown = iff(sp[1]<TrendDown[1], min(Dn,TrendDown[1]) , Dn);
Trend = iff(sp > TrendDown[1] , 1, iff(sp< TrendUp[1] , -1, Trend[1]));
Tsl = IFF(Trend==1, TrendUp, TrendDown);
linecolor = IFF(Trend == 1 , Red , Blue);
plot1(Tsl,"SuperTrend",linecolor);
if Trend != Trend[1] Then
{
if Trend == 1 Then
{
h1 = h;
h2 = h1[1];
h3 = h2[1];
if l3 > 0 and
l1 <= l2+PriceScale*쌍바닥상 and l1 >= l2-PriceScale*쌍바닥하 and
l2 <= l3+PriceScale*쌍바닥상 and l2 >= l3-PriceScale*쌍바닥하 Then
{
tx1 = Text_New_Self(sDate,sTime, Tsl-PriceScale*0,"●");
Text_SetColor(tx1,Magenta);
Text_SetSize(tx1,20);
Text_SetStyle(tx1,2,0);
}
}
Else
{
l1 = l;
l2 = l1[1];
l3 = l2[1];
}
}
Else
{
if Trend == 1 Then
{
if h > h1 Then
h1 = h;
}
if Trend == -1 Then
{
if l < l3 Then
l3 = l;
}
}
2
input : Factor(4),Pd(9),highPd(1),lowPd(4);
input : ,쌍바닥상(2),쌍바닥하(2) ,폭(0.25);
var : sp(0),th(0),ll(0),myh(0),myl(0),up(0),dn(0),ii(0),Trendup(0),trenddown(0),Trend(0);
var : Tsl(0),linecolor(0),tx(0),tl(0),tx1(0),tx2(0);
var : h1(0),h2(0),h3(0),l1(0),l2(0),l3(0);
sp = (H+L+c)/3;
th = high;
for ii = 1 to Pd*highPd
{
if th < high[ii] Then
th = high[ii];
}
ll = low;
for ii=1 to Pd*lowPd
{
if ll > low[ii] Then
ll = low[ii];
}
myh = ma(high,Pd)*0.4+th*0.6;
myl = (ma(sp,Pd)*0.5+ll*0.5);
Up = myl-(Factor*atr(Pd)*0.8 );
Dn = (myh+(Factor*atr(Pd) ));
TrendUp = iff(sp[1]>TrendUp[1], max(Up,TrendUp[1]) , Up);
TrendDown = iff(sp[1]<TrendDown[1], min(Dn,TrendDown[1]) , Dn);
Trend = iff(sp > TrendDown[1] , 1, iff(sp< TrendUp[1] , -1, Trend[1]));
Tsl = IFF(Trend==1, TrendUp, TrendDown);
linecolor = IFF(Trend == 1 , Red , Blue);
if Trend != Trend[1] Then
{
if Trend == 1 Then
{
h1 = h;
h2 = h1[1];
h3 = h2[1];
if l3 > 0 and
l1 <= l2+PriceScale*쌍바닥상 and l1 >= l2-PriceScale*쌍바닥하 and
l2 <= l3+PriceScale*쌍바닥상 and l2 >= l3-PriceScale*쌍바닥하 Then
{
Buy();
}
}
Else
{
l1 = l;
l2 = l1[1];
l3 = l2[1];
}
}
Else
{
if Trend == 1 Then
{
if h > h1 Then
h1 = h;
}
if Trend == -1 Then
{
if l < l3 Then
l3 = l;
}
}
if Trend != Trend[1] and Trend == -1 Then
ExitLong();
즐거운 하루되세요
> 고성 님이 쓴 글입니다.
> 제목 : 슈퍼트렌드 쓰리바닥
> input : Factor(4),Pd(9),highPd(1),lowPd(4);
input : ,쌍바닥상(2),쌍바닥하(2) ,폭(0.25);
var : sp(0),th(0),ll(0),myh(0),myl(0),up(0),dn(0),ii(0),Trendup(0),trenddown(0),Trend(0);
var : Tsl(0),linecolor(0),tx(0),tl(0),tx1(0),tx2(0);
sp = (H+L+c)/3;
th = high;
for ii = 1 to Pd*highPd
{
if th < high[ii] Then
th = high[ii];
}
ll = low;
for ii=1 to Pd*lowPd
{
if ll > low[ii] Then
ll = low[ii];
}
myh = ma(high,Pd)*0.4+th*0.6;
myl = (ma(sp,Pd)*0.5+ll*0.5);
Up = myl-(Factor*atr(Pd)*0.8 );
Dn = (myh+(Factor*atr(Pd) ));
TrendUp = iff(sp[1]>TrendUp[1], max(Up,TrendUp[1]) , Up);
TrendDown = iff(sp[1]<TrendDown[1], min(Dn,TrendDown[1]) , Dn);
Trend = iff(sp > TrendDown[1] , 1, iff(sp< TrendUp[1] , -1, Trend[1]));
Tsl = IFF(Trend==1, TrendUp, TrendDown);
linecolor = IFF(Trend == 1 , Red , Blue);
plot1(Tsl,"SuperTrend",linecolor);
if Trend != Trend[1] Then
{
if Trend == 1 Then
{
var1 = h;
var2 = var1[1];
if Var4 > 0 and var3 <= Var4+PriceScale*쌍바닥상 and var3 >= Var4-PriceScale*쌍바닥하 Then
{
tx1 = Text_New_Self(sDate,sTime, Tsl-PriceScale*0,"●");
Text_SetColor(tx1,Magenta);
Text_SetSize(tx1,20);
Text_SetStyle(tx1,2,0);
}
}
Else
{
Var3 = l;
Var4 = Var3[1];
}
}
Else
{
if Trend == 1 Then
{
if h > var1 Then
var1 = h;
}
if Trend == -1 Then
{
if l < var3 Then
var3 = l;
}
}
1.지표식:음선 내의 봉 최저가를 기준으로 0.25p 내에서 쓰리바닥일 때 동그라미로 수정.
2.시스템:쓰리바닥에 매수,음전환시 매수청산. 부탁합니다.
고성
2022-12-07 13:29:50
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 슈퍼트렌드 쓰리바닥
>
안녕하세요
예스스탁입니다.
1
input : Factor(4),Pd(9),highPd(1),lowPd(4);
input : ,쌍바닥상(2),쌍바닥하(2) ,폭(0.25);
var : sp(0),th(0),ll(0),myh(0),myl(0),up(0),dn(0),ii(0),Trendup(0),trenddown(0),Trend(0);
var : Tsl(0),linecolor(0),tx(0),tl(0),tx1(0),tx2(0);
var : h1(0),h2(0),h3(0),l1(0),l2(0),l3(0);
sp = (H+L+c)/3;
th = high;
for ii = 1 to Pd*highPd
{
if th < high[ii] Then
th = high[ii];
}
ll = low;
for ii=1 to Pd*lowPd
{
if ll > low[ii] Then
ll = low[ii];
}
myh = ma(high,Pd)*0.4+th*0.6;
myl = (ma(sp,Pd)*0.5+ll*0.5);
Up = myl-(Factor*atr(Pd)*0.8 );
Dn = (myh+(Factor*atr(Pd) ));
TrendUp = iff(sp[1]>TrendUp[1], max(Up,TrendUp[1]) , Up);
TrendDown = iff(sp[1]<TrendDown[1], min(Dn,TrendDown[1]) , Dn);
Trend = iff(sp > TrendDown[1] , 1, iff(sp< TrendUp[1] , -1, Trend[1]));
Tsl = IFF(Trend==1, TrendUp, TrendDown);
linecolor = IFF(Trend == 1 , Red , Blue);
plot1(Tsl,"SuperTrend",linecolor);
if Trend != Trend[1] Then
{
if Trend == 1 Then
{
h1 = h;
h2 = h1[1];
h3 = h2[1];
if l3 > 0 and
l1 <= l2+PriceScale*쌍바닥상 and l1 >= l2-PriceScale*쌍바닥하 and
l2 <= l3+PriceScale*쌍바닥상 and l2 >= l3-PriceScale*쌍바닥하 Then
{
tx1 = Text_New_Self(sDate,sTime, Tsl-PriceScale*0,"●");
Text_SetColor(tx1,Magenta);
Text_SetSize(tx1,20);
Text_SetStyle(tx1,2,0);
}
}
Else
{
l1 = l;
l2 = l1[1];
l3 = l2[1];
}
}
Else
{
if Trend == 1 Then
{
if h > h1 Then
h1 = h;
}
if Trend == -1 Then
{
if l < l3 Then
l3 = l;
}
}
2
input : Factor(4),Pd(9),highPd(1),lowPd(4);
input : ,쌍바닥상(2),쌍바닥하(2) ,폭(0.25);
var : sp(0),th(0),ll(0),myh(0),myl(0),up(0),dn(0),ii(0),Trendup(0),trenddown(0),Trend(0);
var : Tsl(0),linecolor(0),tx(0),tl(0),tx1(0),tx2(0);
var : h1(0),h2(0),h3(0),l1(0),l2(0),l3(0);
sp = (H+L+c)/3;
th = high;
for ii = 1 to Pd*highPd
{
if th < high[ii] Then
th = high[ii];
}
ll = low;
for ii=1 to Pd*lowPd
{
if ll > low[ii] Then
ll = low[ii];
}
myh = ma(high,Pd)*0.4+th*0.6;
myl = (ma(sp,Pd)*0.5+ll*0.5);
Up = myl-(Factor*atr(Pd)*0.8 );
Dn = (myh+(Factor*atr(Pd) ));
TrendUp = iff(sp[1]>TrendUp[1], max(Up,TrendUp[1]) , Up);
TrendDown = iff(sp[1]<TrendDown[1], min(Dn,TrendDown[1]) , Dn);
Trend = iff(sp > TrendDown[1] , 1, iff(sp< TrendUp[1] , -1, Trend[1]));
Tsl = IFF(Trend==1, TrendUp, TrendDown);
linecolor = IFF(Trend == 1 , Red , Blue);
if Trend != Trend[1] Then
{
if Trend == 1 Then
{
h1 = h;
h2 = h1[1];
h3 = h2[1];
if l3 > 0 and
l1 <= l2+PriceScale*쌍바닥상 and l1 >= l2-PriceScale*쌍바닥하 and
l2 <= l3+PriceScale*쌍바닥상 and l2 >= l3-PriceScale*쌍바닥하 Then
{
Buy();
}
}
Else
{
l1 = l;
l2 = l1[1];
l3 = l2[1];
}
}
Else
{
if Trend == 1 Then
{
if h > h1 Then
h1 = h;
}
if Trend == -1 Then
{
if l < l3 Then
l3 = l;
}
}
if Trend != Trend[1] and Trend == -1 Then
ExitLong();
즐거운 하루되세요
> 고성 님이 쓴 글입니다.
> 제목 : 슈퍼트렌드 쓰리바닥
> input : Factor(4),Pd(9),highPd(1),lowPd(4);
input : ,쌍바닥상(2),쌍바닥하(2) ,폭(0.25);
var : sp(0),th(0),ll(0),myh(0),myl(0),up(0),dn(0),ii(0),Trendup(0),trenddown(0),Trend(0);
var : Tsl(0),linecolor(0),tx(0),tl(0),tx1(0),tx2(0);
sp = (H+L+c)/3;
th = high;
for ii = 1 to Pd*highPd
{
if th < high[ii] Then
th = high[ii];
}
ll = low;
for ii=1 to Pd*lowPd
{
if ll > low[ii] Then
ll = low[ii];
}
myh = ma(high,Pd)*0.4+th*0.6;
myl = (ma(sp,Pd)*0.5+ll*0.5);
Up = myl-(Factor*atr(Pd)*0.8 );
Dn = (myh+(Factor*atr(Pd) ));
TrendUp = iff(sp[1]>TrendUp[1], max(Up,TrendUp[1]) , Up);
TrendDown = iff(sp[1]<TrendDown[1], min(Dn,TrendDown[1]) , Dn);
Trend = iff(sp > TrendDown[1] , 1, iff(sp< TrendUp[1] , -1, Trend[1]));
Tsl = IFF(Trend==1, TrendUp, TrendDown);
linecolor = IFF(Trend == 1 , Red , Blue);
plot1(Tsl,"SuperTrend",linecolor);
if Trend != Trend[1] Then
{
if Trend == 1 Then
{
var1 = h;
var2 = var1[1];
if Var4 > 0 and var3 <= Var4+PriceScale*쌍바닥상 and var3 >= Var4-PriceScale*쌍바닥하 Then
{
tx1 = Text_New_Self(sDate,sTime, Tsl-PriceScale*0,"●");
Text_SetColor(tx1,Magenta);
Text_SetSize(tx1,20);
Text_SetStyle(tx1,2,0);
}
}
Else
{
Var3 = l;
Var4 = Var3[1];
}
}
Else
{
if Trend == 1 Then
{
if h > var1 Then
var1 = h;
}
if Trend == -1 Then
{
if l < var3 Then
var3 = l;
}
}
1.지표식:음선 내의 봉 최저가를 기준으로 0.25p 내에서 쓰리바닥일 때 동그라미로 수정.
2.시스템:쓰리바닥에 매수,음전환시 매수청산. 부탁합니다.
[재문의]
트렌드 음선 내의 주가 최저가가 폭 0.25p 사이에서 3바닥일 때 동그라미.
수식에 폭이 없음. 트렌드 선 기준 최저가 3바닥 아님. 감사합니다.
예스스탁 예스스탁 답변
2022-12-07 13:42:22
안녕하세요
예스스탁입니다.
올리신 식이 이미 음선내 주가 최저가, 양선내 주가 최고가로 계산되어 있습니다.
수정해 드린식에 전전저점을 저정해야 하므로
각 음선내 최저가와 양선내 최고가의 변수명만 변경해서 처리한 것입니다.
작성해 드린식이 쌍바닥상과 쌍바닥하로 지정되어 있었습니다.
3개의 저점이 지정한 폭이내 있을 때로 수정해 드립니다.
1
input : Factor(4),Pd(9),highPd(1),lowPd(4);
input : 폭(0.25);
var : sp(0),th(0),ll(0),myh(0),myl(0),up(0),dn(0),ii(0),Trendup(0),trenddown(0),Trend(0);
var : Tsl(0),linecolor(0),tx(0),tl(0),tx1(0),tx2(0);
var : h1(0),h2(0),h3(0),l1(0),l2(0),l3(0);
sp = (H+L+c)/3;
th = high;
for ii = 1 to Pd*highPd
{
if th < high[ii] Then
th = high[ii];
}
ll = low;
for ii=1 to Pd*lowPd
{
if ll > low[ii] Then
ll = low[ii];
}
myh = ma(high,Pd)*0.4+th*0.6;
myl = (ma(sp,Pd)*0.5+ll*0.5);
Up = myl-(Factor*atr(Pd)*0.8 );
Dn = (myh+(Factor*atr(Pd) ));
TrendUp = iff(sp[1]>TrendUp[1], max(Up,TrendUp[1]) , Up);
TrendDown = iff(sp[1]<TrendDown[1], min(Dn,TrendDown[1]) , Dn);
Trend = iff(sp > TrendDown[1] , 1, iff(sp< TrendUp[1] , -1, Trend[1]));
Tsl = IFF(Trend==1, TrendUp, TrendDown);
linecolor = IFF(Trend == 1 , Red , Blue);
plot1(Tsl,"SuperTrend",linecolor);
if Trend != Trend[1] Then
{
if Trend == 1 Then
{
h1 = h;
h2 = h1[1];
h3 = h2[1];
if l3 > 0 and
max(l1,l2,3) <= min(L1,l2,3)+폭 Then
{
tx1 = Text_New_Self(sDate,sTime, Tsl-PriceScale*0,"●");
Text_SetColor(tx1,Magenta);
Text_SetSize(tx1,20);
Text_SetStyle(tx1,2,0);
}
}
Else
{
l1 = l;
l2 = l1[1];
l3 = l2[1];
}
}
Else
{
if Trend == 1 Then
{
if h > h1 Then
h1 = h;
}
if Trend == -1 Then
{
if l < l3 Then
l3 = l;
}
}
2
input : Factor(4),Pd(9),highPd(1),lowPd(4);
input : ,쌍바닥상(2),쌍바닥하(2) ,폭(0.25);
var : sp(0),th(0),ll(0),myh(0),myl(0),up(0),dn(0),ii(0),Trendup(0),trenddown(0),Trend(0);
var : Tsl(0),linecolor(0),tx(0),tl(0),tx1(0),tx2(0);
var : h1(0),h2(0),h3(0),l1(0),l2(0),l3(0);
sp = (H+L+c)/3;
th = high;
for ii = 1 to Pd*highPd
{
if th < high[ii] Then
th = high[ii];
}
ll = low;
for ii=1 to Pd*lowPd
{
if ll > low[ii] Then
ll = low[ii];
}
myh = ma(high,Pd)*0.4+th*0.6;
myl = (ma(sp,Pd)*0.5+ll*0.5);
Up = myl-(Factor*atr(Pd)*0.8 );
Dn = (myh+(Factor*atr(Pd) ));
TrendUp = iff(sp[1]>TrendUp[1], max(Up,TrendUp[1]) , Up);
TrendDown = iff(sp[1]<TrendDown[1], min(Dn,TrendDown[1]) , Dn);
Trend = iff(sp > TrendDown[1] , 1, iff(sp< TrendUp[1] , -1, Trend[1]));
Tsl = IFF(Trend==1, TrendUp, TrendDown);
linecolor = IFF(Trend == 1 , Red , Blue);
if Trend != Trend[1] Then
{
if Trend == 1 Then
{
h1 = h;
h2 = h1[1];
h3 = h2[1];
if l3 > 0 and
max(l1,l2,3) <= min(L1,l2,3)+폭 Then
{
Buy();
}
}
Else
{
l1 = l;
l2 = l1[1];
l3 = l2[1];
}
}
Else
{
if Trend == 1 Then
{
if h > h1 Then
h1 = h;
}
if Trend == -1 Then
{
if l < l3 Then
l3 = l;
}
}
if Trend != Trend[1] and Trend == -1 Then
ExitLong();
즐거운 하루되세요
> 고성 님이 쓴 글입니다.
> 제목 : Re : Re : 슈퍼트렌드 쓰리바닥
>
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 슈퍼트렌드 쓰리바닥
>
안녕하세요
예스스탁입니다.
1
input : Factor(4),Pd(9),highPd(1),lowPd(4);
input : ,쌍바닥상(2),쌍바닥하(2) ,폭(0.25);
var : sp(0),th(0),ll(0),myh(0),myl(0),up(0),dn(0),ii(0),Trendup(0),trenddown(0),Trend(0);
var : Tsl(0),linecolor(0),tx(0),tl(0),tx1(0),tx2(0);
var : h1(0),h2(0),h3(0),l1(0),l2(0),l3(0);
sp = (H+L+c)/3;
th = high;
for ii = 1 to Pd*highPd
{
if th < high[ii] Then
th = high[ii];
}
ll = low;
for ii=1 to Pd*lowPd
{
if ll > low[ii] Then
ll = low[ii];
}
myh = ma(high,Pd)*0.4+th*0.6;
myl = (ma(sp,Pd)*0.5+ll*0.5);
Up = myl-(Factor*atr(Pd)*0.8 );
Dn = (myh+(Factor*atr(Pd) ));
TrendUp = iff(sp[1]>TrendUp[1], max(Up,TrendUp[1]) , Up);
TrendDown = iff(sp[1]<TrendDown[1], min(Dn,TrendDown[1]) , Dn);
Trend = iff(sp > TrendDown[1] , 1, iff(sp< TrendUp[1] , -1, Trend[1]));
Tsl = IFF(Trend==1, TrendUp, TrendDown);
linecolor = IFF(Trend == 1 , Red , Blue);
plot1(Tsl,"SuperTrend",linecolor);
if Trend != Trend[1] Then
{
if Trend == 1 Then
{
h1 = h;
h2 = h1[1];
h3 = h2[1];
if l3 > 0 and
l1 <= l2+PriceScale*쌍바닥상 and l1 >= l2-PriceScale*쌍바닥하 and
l2 <= l3+PriceScale*쌍바닥상 and l2 >= l3-PriceScale*쌍바닥하 Then
{
tx1 = Text_New_Self(sDate,sTime, Tsl-PriceScale*0,"●");
Text_SetColor(tx1,Magenta);
Text_SetSize(tx1,20);
Text_SetStyle(tx1,2,0);
}
}
Else
{
l1 = l;
l2 = l1[1];
l3 = l2[1];
}
}
Else
{
if Trend == 1 Then
{
if h > h1 Then
h1 = h;
}
if Trend == -1 Then
{
if l < l3 Then
l3 = l;
}
}
2
input : Factor(4),Pd(9),highPd(1),lowPd(4);
input : ,쌍바닥상(2),쌍바닥하(2) ,폭(0.25);
var : sp(0),th(0),ll(0),myh(0),myl(0),up(0),dn(0),ii(0),Trendup(0),trenddown(0),Trend(0);
var : Tsl(0),linecolor(0),tx(0),tl(0),tx1(0),tx2(0);
var : h1(0),h2(0),h3(0),l1(0),l2(0),l3(0);
sp = (H+L+c)/3;
th = high;
for ii = 1 to Pd*highPd
{
if th < high[ii] Then
th = high[ii];
}
ll = low;
for ii=1 to Pd*lowPd
{
if ll > low[ii] Then
ll = low[ii];
}
myh = ma(high,Pd)*0.4+th*0.6;
myl = (ma(sp,Pd)*0.5+ll*0.5);
Up = myl-(Factor*atr(Pd)*0.8 );
Dn = (myh+(Factor*atr(Pd) ));
TrendUp = iff(sp[1]>TrendUp[1], max(Up,TrendUp[1]) , Up);
TrendDown = iff(sp[1]<TrendDown[1], min(Dn,TrendDown[1]) , Dn);
Trend = iff(sp > TrendDown[1] , 1, iff(sp< TrendUp[1] , -1, Trend[1]));
Tsl = IFF(Trend==1, TrendUp, TrendDown);
linecolor = IFF(Trend == 1 , Red , Blue);
if Trend != Trend[1] Then
{
if Trend == 1 Then
{
h1 = h;
h2 = h1[1];
h3 = h2[1];
if l3 > 0 and
l1 <= l2+PriceScale*쌍바닥상 and l1 >= l2-PriceScale*쌍바닥하 and
l2 <= l3+PriceScale*쌍바닥상 and l2 >= l3-PriceScale*쌍바닥하 Then
{
Buy();
}
}
Else
{
l1 = l;
l2 = l1[1];
l3 = l2[1];
}
}
Else
{
if Trend == 1 Then
{
if h > h1 Then
h1 = h;
}
if Trend == -1 Then
{
if l < l3 Then
l3 = l;
}
}
if Trend != Trend[1] and Trend == -1 Then
ExitLong();
즐거운 하루되세요
> 고성 님이 쓴 글입니다.
> 제목 : 슈퍼트렌드 쓰리바닥
> input : Factor(4),Pd(9),highPd(1),lowPd(4);
input : ,쌍바닥상(2),쌍바닥하(2) ,폭(0.25);
var : sp(0),th(0),ll(0),myh(0),myl(0),up(0),dn(0),ii(0),Trendup(0),trenddown(0),Trend(0);
var : Tsl(0),linecolor(0),tx(0),tl(0),tx1(0),tx2(0);
sp = (H+L+c)/3;
th = high;
for ii = 1 to Pd*highPd
{
if th < high[ii] Then
th = high[ii];
}
ll = low;
for ii=1 to Pd*lowPd
{
if ll > low[ii] Then
ll = low[ii];
}
myh = ma(high,Pd)*0.4+th*0.6;
myl = (ma(sp,Pd)*0.5+ll*0.5);
Up = myl-(Factor*atr(Pd)*0.8 );
Dn = (myh+(Factor*atr(Pd) ));
TrendUp = iff(sp[1]>TrendUp[1], max(Up,TrendUp[1]) , Up);
TrendDown = iff(sp[1]<TrendDown[1], min(Dn,TrendDown[1]) , Dn);
Trend = iff(sp > TrendDown[1] , 1, iff(sp< TrendUp[1] , -1, Trend[1]));
Tsl = IFF(Trend==1, TrendUp, TrendDown);
linecolor = IFF(Trend == 1 , Red , Blue);
plot1(Tsl,"SuperTrend",linecolor);
if Trend != Trend[1] Then
{
if Trend == 1 Then
{
var1 = h;
var2 = var1[1];
if Var4 > 0 and var3 <= Var4+PriceScale*쌍바닥상 and var3 >= Var4-PriceScale*쌍바닥하 Then
{
tx1 = Text_New_Self(sDate,sTime, Tsl-PriceScale*0,"●");
Text_SetColor(tx1,Magenta);
Text_SetSize(tx1,20);
Text_SetStyle(tx1,2,0);
}
}
Else
{
Var3 = l;
Var4 = Var3[1];
}
}
Else
{
if Trend == 1 Then
{
if h > var1 Then
var1 = h;
}
if Trend == -1 Then
{
if l < var3 Then
var3 = l;
}
}
1.지표식:음선 내의 봉 최저가를 기준으로 0.25p 내에서 쓰리바닥일 때 동그라미로 수정.
2.시스템:쓰리바닥에 매수,음전환시 매수청산. 부탁합니다.
[재문의]
트렌드 음선 내의 주가 최저가가 폭 0.25p 사이에서 3바닥일 때 동그라미.
수식에 폭이 없음. 트렌드 선 기준 최저가 3바닥 아님. 감사합니다.
고성
2022-12-07 14:03:46
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : Re : Re : 슈퍼트렌드 쓰리바닥
>
안녕하세요
예스스탁입니다.
올리신 식이 이미 음선내 주가 최저가, 양선내 주가 최고가로 계산되어 있습니다.
수정해 드린식에 전전저점을 저정해야 하므로
각 음선내 최저가와 양선내 최고가의 변수명만 변경해서 처리한 것입니다.
작성해 드린식이 쌍바닥상과 쌍바닥하로 지정되어 있었습니다.
3개의 저점이 지정한 폭이내 있을 때로 수정해 드립니다.
1
input : Factor(4),Pd(9),highPd(1),lowPd(4);
input : 폭(0.25);
var : sp(0),th(0),ll(0),myh(0),myl(0),up(0),dn(0),ii(0),Trendup(0),trenddown(0),Trend(0);
var : Tsl(0),linecolor(0),tx(0),tl(0),tx1(0),tx2(0);
var : h1(0),h2(0),h3(0),l1(0),l2(0),l3(0);
sp = (H+L+c)/3;
th = high;
for ii = 1 to Pd*highPd
{
if th < high[ii] Then
th = high[ii];
}
ll = low;
for ii=1 to Pd*lowPd
{
if ll > low[ii] Then
ll = low[ii];
}
myh = ma(high,Pd)*0.4+th*0.6;
myl = (ma(sp,Pd)*0.5+ll*0.5);
Up = myl-(Factor*atr(Pd)*0.8 );
Dn = (myh+(Factor*atr(Pd) ));
TrendUp = iff(sp[1]>TrendUp[1], max(Up,TrendUp[1]) , Up);
TrendDown = iff(sp[1]<TrendDown[1], min(Dn,TrendDown[1]) , Dn);
Trend = iff(sp > TrendDown[1] , 1, iff(sp< TrendUp[1] , -1, Trend[1]));
Tsl = IFF(Trend==1, TrendUp, TrendDown);
linecolor = IFF(Trend == 1 , Red , Blue);
plot1(Tsl,"SuperTrend",linecolor);
if Trend != Trend[1] Then
{
if Trend == 1 Then
{
h1 = h;
h2 = h1[1];
h3 = h2[1];
if l3 > 0 and
max(l1,l2,3) <= min(L1,l2,3)+폭 Then
{
tx1 = Text_New_Self(sDate,sTime, Tsl-PriceScale*0,"●");
Text_SetColor(tx1,Magenta);
Text_SetSize(tx1,20);
Text_SetStyle(tx1,2,0);
}
}
Else
{
l1 = l;
l2 = l1[1];
l3 = l2[1];
}
}
Else
{
if Trend == 1 Then
{
if h > h1 Then
h1 = h;
}
if Trend == -1 Then
{
if l < l3 Then
l3 = l;
}
}
2
input : Factor(4),Pd(9),highPd(1),lowPd(4);
input : ,쌍바닥상(2),쌍바닥하(2) ,폭(0.25);
var : sp(0),th(0),ll(0),myh(0),myl(0),up(0),dn(0),ii(0),Trendup(0),trenddown(0),Trend(0);
var : Tsl(0),linecolor(0),tx(0),tl(0),tx1(0),tx2(0);
var : h1(0),h2(0),h3(0),l1(0),l2(0),l3(0);
sp = (H+L+c)/3;
th = high;
for ii = 1 to Pd*highPd
{
if th < high[ii] Then
th = high[ii];
}
ll = low;
for ii=1 to Pd*lowPd
{
if ll > low[ii] Then
ll = low[ii];
}
myh = ma(high,Pd)*0.4+th*0.6;
myl = (ma(sp,Pd)*0.5+ll*0.5);
Up = myl-(Factor*atr(Pd)*0.8 );
Dn = (myh+(Factor*atr(Pd) ));
TrendUp = iff(sp[1]>TrendUp[1], max(Up,TrendUp[1]) , Up);
TrendDown = iff(sp[1]<TrendDown[1], min(Dn,TrendDown[1]) , Dn);
Trend = iff(sp > TrendDown[1] , 1, iff(sp< TrendUp[1] , -1, Trend[1]));
Tsl = IFF(Trend==1, TrendUp, TrendDown);
linecolor = IFF(Trend == 1 , Red , Blue);
if Trend != Trend[1] Then
{
if Trend == 1 Then
{
h1 = h;
h2 = h1[1];
h3 = h2[1];
if l3 > 0 and
max(l1,l2,3) <= min(L1,l2,3)+폭 Then
{
Buy();
}
}
Else
{
l1 = l;
l2 = l1[1];
l3 = l2[1];
}
}
Else
{
if Trend == 1 Then
{
if h > h1 Then
h1 = h;
}
if Trend == -1 Then
{
if l < l3 Then
l3 = l;
}
}
if Trend != Trend[1] and Trend == -1 Then
ExitLong();
즐거운 하루되세요
> 고성 님이 쓴 글입니다.
> 제목 : Re : Re : 슈퍼트렌드 쓰리바닥
>
> 예스스탁 님이 쓴 글입니다.
> 제목 : Re : 슈퍼트렌드 쓰리바닥
>
안녕하세요
예스스탁입니다.
1
input : Factor(4),Pd(9),highPd(1),lowPd(4);
input : ,쌍바닥상(2),쌍바닥하(2) ,폭(0.25);
var : sp(0),th(0),ll(0),myh(0),myl(0),up(0),dn(0),ii(0),Trendup(0),trenddown(0),Trend(0);
var : Tsl(0),linecolor(0),tx(0),tl(0),tx1(0),tx2(0);
var : h1(0),h2(0),h3(0),l1(0),l2(0),l3(0);
sp = (H+L+c)/3;
th = high;
for ii = 1 to Pd*highPd
{
if th < high[ii] Then
th = high[ii];
}
ll = low;
for ii=1 to Pd*lowPd
{
if ll > low[ii] Then
ll = low[ii];
}
myh = ma(high,Pd)*0.4+th*0.6;
myl = (ma(sp,Pd)*0.5+ll*0.5);
Up = myl-(Factor*atr(Pd)*0.8 );
Dn = (myh+(Factor*atr(Pd) ));
TrendUp = iff(sp[1]>TrendUp[1], max(Up,TrendUp[1]) , Up);
TrendDown = iff(sp[1]<TrendDown[1], min(Dn,TrendDown[1]) , Dn);
Trend = iff(sp > TrendDown[1] , 1, iff(sp< TrendUp[1] , -1, Trend[1]));
Tsl = IFF(Trend==1, TrendUp, TrendDown);
linecolor = IFF(Trend == 1 , Red , Blue);
plot1(Tsl,"SuperTrend",linecolor);
if Trend != Trend[1] Then
{
if Trend == 1 Then
{
h1 = h;
h2 = h1[1];
h3 = h2[1];
if l3 > 0 and
l1 <= l2+PriceScale*쌍바닥상 and l1 >= l2-PriceScale*쌍바닥하 and
l2 <= l3+PriceScale*쌍바닥상 and l2 >= l3-PriceScale*쌍바닥하 Then
{
tx1 = Text_New_Self(sDate,sTime, Tsl-PriceScale*0,"●");
Text_SetColor(tx1,Magenta);
Text_SetSize(tx1,20);
Text_SetStyle(tx1,2,0);
}
}
Else
{
l1 = l;
l2 = l1[1];
l3 = l2[1];
}
}
Else
{
if Trend == 1 Then
{
if h > h1 Then
h1 = h;
}
if Trend == -1 Then
{
if l < l3 Then
l3 = l;
}
}
2
input : Factor(4),Pd(9),highPd(1),lowPd(4);
input : ,쌍바닥상(2),쌍바닥하(2) ,폭(0.25);
var : sp(0),th(0),ll(0),myh(0),myl(0),up(0),dn(0),ii(0),Trendup(0),trenddown(0),Trend(0);
var : Tsl(0),linecolor(0),tx(0),tl(0),tx1(0),tx2(0);
var : h1(0),h2(0),h3(0),l1(0),l2(0),l3(0);
sp = (H+L+c)/3;
th = high;
for ii = 1 to Pd*highPd
{
if th < high[ii] Then
th = high[ii];
}
ll = low;
for ii=1 to Pd*lowPd
{
if ll > low[ii] Then
ll = low[ii];
}
myh = ma(high,Pd)*0.4+th*0.6;
myl = (ma(sp,Pd)*0.5+ll*0.5);
Up = myl-(Factor*atr(Pd)*0.8 );
Dn = (myh+(Factor*atr(Pd) ));
TrendUp = iff(sp[1]>TrendUp[1], max(Up,TrendUp[1]) , Up);
TrendDown = iff(sp[1]<TrendDown[1], min(Dn,TrendDown[1]) , Dn);
Trend = iff(sp > TrendDown[1] , 1, iff(sp< TrendUp[1] , -1, Trend[1]));
Tsl = IFF(Trend==1, TrendUp, TrendDown);
linecolor = IFF(Trend == 1 , Red , Blue);
if Trend != Trend[1] Then
{
if Trend == 1 Then
{
h1 = h;
h2 = h1[1];
h3 = h2[1];
if l3 > 0 and
l1 <= l2+PriceScale*쌍바닥상 and l1 >= l2-PriceScale*쌍바닥하 and
l2 <= l3+PriceScale*쌍바닥상 and l2 >= l3-PriceScale*쌍바닥하 Then
{
Buy();
}
}
Else
{
l1 = l;
l2 = l1[1];
l3 = l2[1];
}
}
Else
{
if Trend == 1 Then
{
if h > h1 Then
h1 = h;
}
if Trend == -1 Then
{
if l < l3 Then
l3 = l;
}
}
if Trend != Trend[1] and Trend == -1 Then
ExitLong();
즐거운 하루되세요
> 고성 님이 쓴 글입니다.
> 제목 : 슈퍼트렌드 쓰리바닥
> input : Factor(4),Pd(9),highPd(1),lowPd(4);
input : ,쌍바닥상(2),쌍바닥하(2) ,폭(0.25);
var : sp(0),th(0),ll(0),myh(0),myl(0),up(0),dn(0),ii(0),Trendup(0),trenddown(0),Trend(0);
var : Tsl(0),linecolor(0),tx(0),tl(0),tx1(0),tx2(0);
sp = (H+L+c)/3;
th = high;
for ii = 1 to Pd*highPd
{
if th < high[ii] Then
th = high[ii];
}
ll = low;
for ii=1 to Pd*lowPd
{
if ll > low[ii] Then
ll = low[ii];
}
myh = ma(high,Pd)*0.4+th*0.6;
myl = (ma(sp,Pd)*0.5+ll*0.5);
Up = myl-(Factor*atr(Pd)*0.8 );
Dn = (myh+(Factor*atr(Pd) ));
TrendUp = iff(sp[1]>TrendUp[1], max(Up,TrendUp[1]) , Up);
TrendDown = iff(sp[1]<TrendDown[1], min(Dn,TrendDown[1]) , Dn);
Trend = iff(sp > TrendDown[1] , 1, iff(sp< TrendUp[1] , -1, Trend[1]));
Tsl = IFF(Trend==1, TrendUp, TrendDown);
linecolor = IFF(Trend == 1 , Red , Blue);
plot1(Tsl,"SuperTrend",linecolor);
if Trend != Trend[1] Then
{
if Trend == 1 Then
{
var1 = h;
var2 = var1[1];
if Var4 > 0 and var3 <= Var4+PriceScale*쌍바닥상 and var3 >= Var4-PriceScale*쌍바닥하 Then
{
tx1 = Text_New_Self(sDate,sTime, Tsl-PriceScale*0,"●");
Text_SetColor(tx1,Magenta);
Text_SetSize(tx1,20);
Text_SetStyle(tx1,2,0);
}
}
Else
{
Var3 = l;
Var4 = Var3[1];
}
}
Else
{
if Trend == 1 Then
{
if h > var1 Then
var1 = h;
}
if Trend == -1 Then
{
if l < var3 Then
var3 = l;
}
}
1.지표식:음선 내의 봉 최저가를 기준으로 0.25p 내에서 쓰리바닥일 때 동그라미로 수정.
2.시스템:쓰리바닥에 매수,음전환시 매수청산. 부탁합니다.
[재문의]
트렌드 음선 내의 주가 최저가가 폭 0.25p 사이에서 3바닥일 때 동그라미.
수식에 폭이 없음. 트렌드 선 기준 최저가 3바닥 아님. 감사합니다.
[문의]
해당하는 동그라미가 하나도 없네요. 자꾸 죄송합니다.
다음글
이전글