Chande's Momemtum Oscillator

{ Function (series/double): CMO (Chande Momemtum Oscillator) }
{ coded by eKam, 7/20/2003 }

input: Price(NumericSeries),Length(NumericSimple);

var: CMO1(0), CMO2(0);
CMO1 = summation(iff(Price > Price[1], Price - Price[1], .001), Length);
CMO2 = summation(iff(Price < Price[1], Price[1] - Price, .001), Length);

CMO = 100 * ((CMO1 - CMO2) / (CMO1 + CMO2)) ;

Type : Indicator, Name : Chande's Momemtum Oscillator

{ Indicator: Chande Momemtum Oscillator }
{ coded by eKam, 7/20/2003 }

input:
Price(C),
Length(14),
OverBought(50),
OverSold(-50);

plot1(CMO(Price, Length), "CMO");
plot3(OverBought, "OB");
plot4(OverSold, "OS");