// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("Intraday Intensity Index");
V_a=IIf(C>(L+(H-L)*2/3),V,IIf(C<(L+(H-L)*1/3),-V,0));
Cum(V_a);

Plot( Cum(V_a), "cummulative volume", colorBlue,style=1 );
Period = Param("Period", 10, 1, 300, 1, 10 );
Plot( EMA(Cum(V_a),Period), _DEFAULT_NAME(), colorRed, ParamStyle("Style") );
_SECTION_END();