Discussione: bobao + indicatore
-
28-09-11, 10:13 #1
- Data Registrazione
- Jan 2008
- Messaggi
- 739
bobao + indicatore
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;Ultima modifica di Gauss; 28-09-11 alle 10:19