Bull vs Bear

Bull power vs Bear power – Histogram

_SECTION_BEGIN("Bull vs Bear");
periods = Param( "Periods", 5, 3, 200, 1 );
Bull = (H - O)*100/C;
Bear = (L - O)*100/C;
val = Bull + Bear;
x = EMA(val,periods);
Plot(x,"", colorOrange);
dynamic_color = IIf( x> 0, colorGreen, colorRed );
Plot(x, "Bull vs Bear", dynamic_color, styleHistogram | styleThick);
PlotGrid(0, colorWhite);
PlotGrid(1, colorYellow);
PlotGrid(-1, colorYellow);
PlotGrid(2, colorGreen);
PlotGrid(-2, colorRed);
_SECTION_END();