안녕하세요 예스스탁입니다. input : Factor(7),Pd(10),highPd(1),lowPd(1); 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); 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 { tx = Text_New_Self(sDate,sTime, Tsl,"●"); Text_SetColor(tx,linecolor); Text_SetStyle(tx,2,2); } 즐거운 하루되세요 > 고성 님이 쓴 글입니다. > 제목 : 슈퍼트렌드 동그라미 > input : Factor(7),Pd(10),highPd(1),lowPd(1); 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); 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); 양음 전환시마다 차트에 동그라미 표시. 감사합니다.

> 예스스탁 님이 쓴 글입니다. > 제목 : Re : 슈퍼트렌드 동그라미 > 안녕하세요 예스스탁입니다. input : Factor(7),Pd(10),highPd(1),lowPd(1); 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); 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 { tx = Text_New_Self(sDate,sTime, Tsl,"●"); Text_SetColor(tx,linecolor); Text_SetStyle(tx,2,2); } 즐거운 하루되세요 > 고성 님이 쓴 글입니다. > 제목 : 슈퍼트렌드 동그라미 > input : Factor(7),Pd(10),highPd(1),lowPd(1); 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); 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); 양음 전환시마다 차트에 동그라미 표시. 감사합니다. [재문의] 상승과 하락을 색상과 크기, 별도 분리해서 동그라미 표시.

안녕하세요 예스스탁입니다. input : Factor(7),Pd(10),highPd(1),lowPd(1); 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); 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 { tx = Text_New_Self(sDate,sTime, Tsl,"●"); Text_SetColor(tx,Magenta); Text_SetSize(tx,10); Text_SetStyle(tx,2,2); } Else { tx = Text_New_Self(sDate,sTime, Tsl,"●"); Text_SetColor(tx,Cyan); Text_SetSize(tx,20); Text_SetStyle(tx,2,2); } } 즐거운 하루되세요 > 고성 님이 쓴 글입니다. > 제목 : Re : Re : 슈퍼트렌드 동그라미 > > 예스스탁 님이 쓴 글입니다. > 제목 : Re : 슈퍼트렌드 동그라미 > 안녕하세요 예스스탁입니다. input : Factor(7),Pd(10),highPd(1),lowPd(1); 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); 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 { tx = Text_New_Self(sDate,sTime, Tsl,"●"); Text_SetColor(tx,linecolor); Text_SetStyle(tx,2,2); } 즐거운 하루되세요 > 고성 님이 쓴 글입니다. > 제목 : 슈퍼트렌드 동그라미 > input : Factor(7),Pd(10),highPd(1),lowPd(1); 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); 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); 양음 전환시마다 차트에 동그라미 표시. 감사합니다. [재문의] 상승과 하락을 색상과 크기, 별도 분리해서 동그라미 표시.