Many thanks ArchAngel ,
I have studied you formula and build the Function in EL as follows:
Input: Price(NumericSeries), Length(NumericSimple);
Variable: VA(0), TotalVolume(0), n(0);
VA = 0;
TotalVolume = 0;
For n = 0 to Length
Begin
VA = VA + (Price[n] *...