variable:tr=0,up=0,dn=0;
TR1:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
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)>0;
flagh:=tr>0 and ref(tr,1)<0;
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));
variable:TRA=0,up=0,dn=0;
TRA1:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
ATRA:=MA(TRA1,N);
median1:=(high+low)/2;
up:= median1+aTRA * M;
dn:= median1-aTRA * M;
TRA:=if(c>ref(up,1),1,if(c<ref(dn,1),-1,TRA));
flag:=TRA<0 and ref(TRA,1)>0;
flagh:=TRA>0 and ref(TRA,1)<0;
dn:=if(TRA>0 and dn<ref(dn,1),ref(dn,1),dn);
up:=if(TRA<0 and up>ref(up,1),ref(up,1),up);
up:=if(flag,median1+aTRA*M,up);
dn:=if(flagh,median1-aTRA*M,dn);
PARTLINE(dn,TRA=1,rgb(200,0,0));
PARTLINE(up,TRA=-1,rgb(0,200,0));