uufuk abi paylaşmıştı, umarım formülde bir hata yapmamışımdır.

yuzde:=Input("% stop",0,10,1); per1:=Input("period",1,100,10);
a1:=Mov(C,per1,E); a2:=a1-(a1*yuzde/100); a3:=a1+(a1*yuzde/100);
b1:=If(a1<PREV,a2,If(a2>PREV,a2,PREV)); b2:=If(a1>PREV,a3,If(a3<PREV,a3,PREV));
k1:=Cross(a1,Ref(b2,-1)); k2:=Cross(Ref(b1,-1),a1);
s1:=BarsSince(k1) < BarsSince(k2);
s2:=If(s1=-1,b1,b2);
a1;s2