Oscillator Smoothed Offset Momentum w. Kase Filter

Smoothed Offset Momentum w. Kase Filter

PK:=Mov(C,30,S) - Ref(Mov(C,30,S),-10);
Per1:=30;
MN:=Mov(Pk,Per1,S);
SD:=Stdev(Pk,Per1);
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));
Green:=If(PK>Ref(PK,-1),PK,0);
Red:=If(PK<Ref(PK,-1),PK,0);
Signal:=Mov(PK,5,S);
LN;
Signal;
Green;{plot as Histogram}
Red;{plot as histogram}