Filtered CMO w Kase Filter
momu:=If(C>Ref(C,-1),C-Ref(C,-1),0); 
momd:=If(C<Ref(C,-1),Ref(C,-1)-C,0); 
A1:=Stdev(momu,100); 
A2:=Stdev(momd,100); 
Mup:=If(C-Ref(C,-1)>A1,C-Ref(C,-1),A1); 
Mdn:=If(Ref(C,-1)-C>A2,Ref(C,-1)-C,A2); 
Per1:=Input("Length of CMO",5,100,15); 
Per3:=Input("Length of Sig",3,100,5); 
Pk:=100*((Sum(Mup,Per1)-Sum(Mdn,Per1)) 
/(Sum(Mup,Per1)+Sum(Mdn,Per1))); 
Per2:=100; 
MN:=Mov(Pk,Per2,S); 
SD:=Stdev(Pk,Per2); 
Val1:=If(MN+(1.33*SD)>2.08,MN+(1.33*SD),2.08); 
Val2:=If(MN-(1.33*SD)<-1.92,MN-(1.33*SD),-1.92); 
LN:=If(Ref(Pk,-1)>=0 AND Pk>0,Val1,If(Ref(Pk,-1)<=0 AND Pk<0,Val2,0)); 
Red:=If(Ref(Pk,-1)>Pk,Pk,0); 
Green:=If(Pk>Ref(Pk,-1),Pk,0); 
Sig:=Mov(Pk,Per3,E); 
Red;Green;LN; 
Sig; 


this cmo must be at least the standard deviation of momemtum up or down, I then used the same method that Cynthia Kase uses in her Peak Osc to find extremes. 

this indicator plots 4 lines, change the 2 lines that crisscross the 0 line to plot as a histogram, color the rising lines green,color declining lines red