ATR:=MA(TR1,N);
median:= (high + low) / 2;
up:= median+atr * M;
dn:= median-atr * M;
tr:=if(c ref(up,1),1,if(c ref(dn,1),-1,tr));
flag:=tr 0 and ref(tr,1)
flagh:=tr 0 and ref(tr,1)
dn:=if(tr 0 and dn ref(dn,1),ref(dn,1),dn);
up:=if(tr 0 and up ref(up,1),ref(up,1),up);
up:=if(flag,median + atr * M,up);
dn:=if(flagh,median - atr * M,dn);
PARTLINE(dn,tr=1,rgb(200,0,0));
PARTLINE(up,tr=-1,rgb(0,200,0));