ABHI Gread & Fear for Amibroker (AFL)

_SECTION_BEGIN ("ABHI GREAD FEAR ");

//////////////////////////////////////////////////////////////////
Plot(C, "", IIf( RSI(14)>55 , colorGreen, IIf(RSI(14)<45 ,colorRed, colorLime)), ParamStyle("Price
Style",stylebar,stylethick));

//////////////////////////////////////////////////////////////////

Buy=Cross(RSI(14),55) ; 

Sell=Cross(45,RSI(14)) ;

shape = Buy * shapeUpArrow + Sell * shapeDownArrow;


PlotShapes( shape, IIf( Buy, colorGreen, colorRed ));

MYcolor = IIf( RSI(14)>55 , colorGreen, IIf(RSI(14)<45,colorRed, colorBlue));

PlotOHLC( Open, High, Low, Close, "", Mycolor, styleBar); 

_SECTION_END();