[LegacyColorValue = true]; 

{ TSMMompcVol: Momentum Percentage Volume
  Copyright 1999, P.J.Kaufman. All rights reserved.
}
  inputs: price(numericseries), length(numericsimple);

  TSMMompcVol = (price - price[length]) * average(volume,length) / price[length];