bobao + indicatore

[Gauss]

per chi vuole allego un indicatore per tradestation / multicharts per il trend.

io lo abbino a bobao così mi indica le variazioni di trend.

( sempre senza alcuna responsabilità e solo per uno "studio" personale)


// SuperTrend indicator


inputs:
ATRLength(9), ATRMult(1), Strength(9);


vars:
strend(0),

st(0);

st = SuperTrend(ATRLength, ATRMult, Strength, strend);


Plot1(st,"Up");

Plot2(st,"Down");

Plot3(st,"SuperTrend",iff(strend = 1,GetPlotColor(1),GetPlotColor(2)));


// SuperTrend function

inputs:
ATRLength(NumericSimple), ATRMult(NumericSimple), Strength(NumericSimple), STrend(NumericRef);


vars:
ATR(0),

avg(0),
dn(0),

up(0),
trend(1),

flag(0),
flagh(0),

ST(0),
hl(0);



hl = Highest(High, ATRLength) - Lowest(Low, ATRLength);

ATR = XAverage(hl, ATRLength);

avg = (XAverage(high, Strength) + XAverage(low, Strength))/2;

up = avg + ATR;

dn = avg - ATR;


if c > up[1] and c > Highest(High, Strength)[1] then

trend = 1
else if c < dn[1] and c < Lowest(Low, Strength)[1] then

trend = -1;


if trend < 0 and trend[1] > 0 then flag=1 else flag=0;

if trend > 0 and trend[1] < 0 then flagh = 1 else flagh = 0;


if trend > 0 and dn < dn[1] then dn=dn[1];

if trend < 0 and up > up[1] then up=up[1];


if flag = 1 then up = avg + ATR;

if flagh = 1 then dn = avg - ATR;


if trend = 1 then ST = dn else ST = up;

SuperTrend = ST;
STrend = trend;