As described in Article by Stephan Bisse from April 2005 issue of S & C Magazine
Formulas:
VOMOMA = (MOMA+VOMA)/2,
WEVOMO = (MOMA+VOMA+WMA)/3, where
MOMA[i] = (Close[i-Length+1]*Difference[i-Length+1]+Close[i-Length+2]*Difference[i-Length+2]+...+Close[i]*Difference[i])/Sum(Difference),
VOMA[i] = (Close[i-Length+1]*Volume[i-Length+1]+Close[i-Length+2]*Volume[i-Length+2]+...+Close[i]*Volume[i])/Sum(Volume),
WMA[i] = (Close[i-Length+1]*1+Close[i-Length+2]*2+...+Close[i]*Length)/LSum,
LSum = (Length+1)*Length/2,
Difference[i] = Abs(Close[i]-Close[i-1]),
Abs - absolute value.
Download: