Join our facebook group for Amibroker afl code discussion https://www.facebook.com/groups/603980776889348

RSI-Bullish-Bearish-Divergence

RSI-Bullish-Bearish-Divergence
RSI-Bullish-Bearish-Divergence



//www.aflcode.com
_SECTION_BEGIN("RSI Divergence");

GraphXSpace=7;
n=Param("% Reverse ",20,0,100,1);

Buy=Sell=0;
Var = Zig(RSI(), n);
t= Trough(RSI(), n, 1);
p= Peak(RSI(), n, 1);
x[0] =Var[0];
price[0] = C[0];
j=0;

// bearish divergence
for ( i=0; i<BarCount; i++)
{
if(Var[i] == p[i])
{

j++;
x[j] =Var[i];
price[j] =C[i];
if(x[j] <x[j-1] && price[j-1]< price[j])
Sell[i] =1;
}
}

// bullish divergence
for ( i=0; i<BarCount; i++)
{
if(Var[i] == t[i])
{
j++;
x[j] =Var[i];
price[j] =C[i];
if(x[j] >x[j-1] && price[j]<price[j-1])
Buy[i] =1;
}
}

Plot(Var, "", 39);
PlotShapes ( IIf(Sell, shapeDownTriangle, shapeNone), colorRed, 0 , Var,0);
PlotShapes( IIf(Buy, shapeUpTriangle, shapeNone), colorBrightGreen, 0, Var,0);

Title ="RSI Divergence" ;
_SECTION_END();
Previous
Next Post »