a:=abs(rsi(c,14)-50);
yuzde:=1.5-0.028*a;
per:=8;
ort:=mov(c,per,E);
ortp:=ort-(ort*yuzde/100);
ortm:=ort+(ort*yuzde/100);
line1:=if(ort<prev,ortp,if(ortp>prev,ortp,prev));
line2:=if(ort>prev,ortm,if(ortm<prev,ortm,prev));
k1:=cross(ort,ref(line2,-1));
k2:=cross(ref(line1-1),ort)...