[LegacyColorValue = true]; 

{ TSMNetMomOsc : Net Momentum Oscillator (CMO) 
  from Tushar Chande, "The New Technical Trader" (Wiley, 1994)
  Copyright 1999, P.J.Kaufman. All rights reserved.
}
  inputs: price(numericseries), length(numericsimple);
  vars: sumup(0), sumdn(0), ix(0), diff(0);

  sumup = 0;
  sumdn = 0;
  for ix = 0 to length-1 begin
    diff = price[ix] - price[ix+1];
    if diff > 0 then 
          sumup = sumup + diff
       else 
          sumdn = sumdn - diff;
       end;
  TSMNetMomOsc = 0;
  if sumdn + sumup <> 0 then
       TSMNetMomOsc = 100 * (sumup - sumdn) / (sumup + sumdn);