eVwma

inputs:
Price( Close ),
VolumeDivisor( 1 ),
N( 100000 ) ;

variables:
eVWMA( 0 ),
ScaledVol( 0 ),
VolDiff( 0 ),
Violation( false ) ;

if CurrentBar = 1 then
eVWMA = Price

else
begin
ScaledVol = Volume / VolumeDivisor ;
VolDiff = N - ScaledVol ;
if VolDiff < 0 and Violation = false then
Violation = true ;
if Violation = true then
eVWMA = eVWMA[1]

else
eVWMA = ( VolDiff * eVWMA[1] + ScaledVol * Price ) / N ;
end ;

Plot1( eVWMA ) ;