[LegacyColorValue = true]; 

{ TSMMarketDirection: Market Direction Indicator
  Copyright 1999, P.J.Kaufman. All rights reserved.
}
  inputs: price(numericseries), length(numericsimple);
  vars:   sum(0), projcross(0);

  sum = summation(price,length - 1);
  projcross = sum[1] / (length - 1);
  TSMMarketDirection = 100 * (projcross[1] - projcross) / ((price[1] + price) / 2);

