// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("EOM");

SetChartBkGradientFill( ParamColor("BgTop", colorLightGrey),ParamColor("BgBottom", colorLightYellow)); 

//x - zmienia mianownik, gdy wolumen w krótkim okresie zmienia się zbyt bardzo, np. przed wygasaniem starej serii kontraktów terminowych
x = Param("iloraz VOL", 100, 1000, 50000 );

EOM = ((H + L) / 2 - Ref((H + L) / 2,-1))/((Volume/x) / (H-L));
Plot (EOM,"EOM",ParamColor ("Color", colorRed));

Buy = Cross (EOM, 0);
Sell = Cross (0, EOM);
Short= Cross (0, EOM);
Cover= Cross (EOM, 0);

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

Plot(0,"ZERO LINE",colorBlack,styleThick);
Plot(600,"600 LINE",colorBlue,styleThick);
Plot(-600,"-600 LINE",colorBlue,styleThick);
Plot(-600,"-600 LINE",colorBlue,styleThick);

_SECTION_END();