请把这个指标改为金字塔的　[金字塔]

variable:tr=0,up=0,dn=0;
N:=10;
M:=1.5;
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);
outtr:=tr;
outup:=up;
outdn:=dn;
supertren:if(outtr=1,outdn,outup),colorwhite;
PARTLINE(supertren,tr=1,rgb(200,0,0),tr=-1,rgb(0,200,0)),linethick2;

下面的链接里有指标效果

http://www.55188.com/thread-4930383-1-1.html

variable:trn=0,up=0,dn=0;
N:=10;
M:=1.5;
TR1:=MAX(MAX((HIGH-LOW),ABS(REF(CLOSE,1)-HIGH)),ABS(REF(CLOSE,1)-LOW));
ATR:=MA(TR1,N);
median1:= (high + low) / 2;
up:= median1+atr * M;
dn:= median1-atr * M;
trn:=if(c>ref(up,1),1,if(c<ref(dn,1),-1,tr));
flag:=trn<0 and ref(tr,1)>0;
flagh:=trn>0 and ref(tr,1)<0;
dn:=if(trn>0 and dn<ref(dn,1),ref(dn,1),dn);
up:=if(trn<0 and up>ref(up,1),ref(up,1),up);
up:=if(flag,median1 + atr * M,up);
dn:=if(flagh,median1 - atr * M,dn);
outtr:=trn;
outup:=up;
outdn:=dn;
supertren:if(outtr=1,outdn,outup),colorwhite;
PARTLINE(supertren,trn=1,rgb(200,0,0),trn=-1,rgb(0,200,0)),linethick2;

改了一些和金字塔已有函数名相同的变量名

谢谢 能通过 但显示效果不对

划线函数定义不一样，说一下划线的思路