Nj demand and supply for Amibroker (AFL)

_SECTION_BEGIN("njethva@ymail.com");
r1 = Param( "Fast avg", 2, 2, 200, 1 );
r2 = Param( "Slow avg", 21, 2, 200, 1 );
A = 0;

TrendColor = IIf(OscP(r1,r2)>0,colorLime,colorRed);
Plot( OscP( r1,r2), _DEFAULT_NAME(), TrendColor, ParamStyle("Histogram style", styleThick | styleHistogram | styleNoLabel, maskHistogram ));
Plot(OscP(r1,r2),"",IIf(OscP(r1,r2)<0,colorGreen,colorRed),styleLine | styleThick);
 
Plot(OscP(r1,r2),"",IIf(OscP(r1,r2)>0,colorGreen,colorRed),styleLine | styleThick);

Plot ( A, _DEFAULT_NAME(), ParamColor( "A", colorCycle ),styleLine | styleThick);


Buy=Cross(OscP (r1,r2),0); 
Sell=Cross(0,OscP(r1,r2));

Buy=ExRem(Buy,Sell);
Sell=ExRem(Sell,Buy);

Short=Sell;
Cover=Buy;

PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorGreen); 
PlotShapes(IIf(Sell, shapeDownArrow, shapeNone),colorRed);


_SECTION_END();