// Downloaded From https://www.WiseStockTrader.com
_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();