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();