_SECTION_BEGIN( "Price Volume Oscillator" );
Periods = Param( "Periods", 30, 2, 200, 1 );
PROC = IIf( ROC( C, 1 ) > 0, V * ROC( C, 1 ), 0 );
NROC = IIf( ROC( C, 1 ) < 0, V * ROC( C, 1 ), 0 );
ROCresult = 100 * ( Sum( PROC, Periods ) + Sum( NROC, Periods ) ) / ( Sum( PROC, Periods ) - Sum( NROC, Periods ) );
Plot( ROCresult , "Price*Volume Osc", ParamColor( "Color", colorCycle ), ParamStyle( "Style" ) );
_SECTION_END();
//Plot(0,"zero",colorRed,styleDashed);// this if uncommented may interfere with chart size-visibility not full
PVsm9= EMA(ROCresult,9);
Plot(PVsm9,"price vol osc smooth9",colorBlue,styleThick);