[LegacyColorValue = true]; 

{ TSMVelocity: Average Velocity
  Copyright 1999, P.J.Kaufman. All rights reserved.
}
  inputs: price(numericseries), length(numericsimple);

  TSMVelocity = (price - price[length]) / length;