{ Downloaded From https://www.WiseStockTrader.com }
Per1:=Input("max length",1,100,8);
RWH:=(H-Ref(L,-Per1))/(ATR(Per1)*Sqrt(Per1));
RWL:=(Ref(H,-Per1)-L)/(ATR(Per1)*Sqrt(Per1));
Pk:=Mov(Mov((RWH-RWL),3,W),3,S);
KCD:=PK-Mov(PK,8,S);
MN:=Mov(KCD,Per1,S);
SD:=Stdev(KCD,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(KCD,-1)>=0 AND KCD>0,Val1,If(Ref(KCD,-1)<=0 AND
KCD<0,Val2,0));
Red:=If(Ref(KCD,-1)>KCD,KCD,0);
Green:=If(KCD>Ref(KCD,-1),KCD,0);
Red;Green;LN;