{黄金分割}
N:=1,999,80;M:=1,15,3;P:=1,100,5;K:=1,100,13;
高:=REF(HHV(H,N),M);
低:=REF(LLV(L,N),M);
STICKLINE(C>0,REFDATE(高,DATE),REFDATE(低,DATE),10,0),COLORA5A5A5;
H19:=高-(高-低)*0.191;
H38:=高-(高-低)*0.382;
H中:=高-(高-低)*0.5;
H61:=高-(高-低)*0.618;
H80:=高-(高-低)*0.809;
顶点:REFDATE(高,DATE),COLOR009900,LINETHICK3;
H1:REFDATE(H19,DATE),POINTDOT,COLORGREEN;
H2:REFDATE(H38,DATE),POINTDOT,COLORCYAN;
H3:REFDATE(H中,DATE),POINTDOT,COLORYELLOW;
H4:REFDATE(H61,DATE),POINTDOT,COLORMAGENTA;
H5:REFDATE(H80,DATE),POINTDOT,COLORLIRED;
低点:REFDATE(低,DATE),COLOR000099,LINETHICK2;
DRAWTEXT(ISLASTBAR,顶点*0.99,'顶线'),COLOR009900;
DRAWTEXT(ISLASTBAR,H1,'％19.8'),COLORGREEN;
DRAWTEXT(ISLASTBAR,H2,'％38.2'),COLORCYAN;
DRAWTEXT(ISLASTBAR,H3,'％50'),COLORYELLOW;
DRAWTEXT(ISLASTBAR,H4,'％61.8'),COLORMAGENTA;
DRAWTEXT(ISLASTBAR,H5,'％80.9'),COLORLIRED;
DRAWTEXT(ISLASTBAR,低点*1.01,'底线'),COLOR000099;
MA5:MA(C,P),COLORWHITE;
MA18:=MA(CLOSE,18);
MA13:MA(C,K),COLORGREEN,LINETHICK2;
MA34:MA(C,34),COLORYELLOW;
降:IF(MA5<REF(MA5,3),MA5,DRAWNULL),COLORAAAAAA;
降1:IF(MA13<REF(MA13,3),MA13,DRAWNULL),LINETHICK2,COLOR00AA00;
降2:IF(MA34<REF(MA34,3),MA34,DRAWNULL),COLOR9999DD;
VAR1:=C=HHV(C,4) AND REF(C,1)=LLV(C,4);
VAR2:=C=LLV(C,4) AND (REF(C,1)<REF(C,2) OR REF(C,1)<REF(C,3)) OR REF(C,1)=LLV(C,4) AND C<REF(C,2) OR REF(C,2)=LLV(C,4) AND REF(C,1)=HHV(C,4) AND C<REF(C,1) OR REF(C,3)=LLV(C,4) AND C<REF(C,1) AND C<REF(C,2);
VAR3:=REF(C,1)=LLV(C,4) AND C>=REF(C,2) OR REF(C,2)=LLV(C,4) AND REF(C,1)<=REF(C,3) AND REF(C,2)<REF(C,4) AND C>=REF(C,1);
A:=(3*C+L+O+H)/6;
VAR4:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+
14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)
+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+REF(A,20))/210;
MTM:=C-REF(C,1);
DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
CB:=EMA(VAR4,13);
{红}
STICKLINE(CLOSE>=OPEN,H,L,0,0),COLOR0000FF;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,3,0),COLOR0000FF;
STICKLINE(CLOSE>=OPEN,CLOSE,OPEN,0.5,0),COLORCC66FF;
{蓝}
STICKLINE(CLOSE<OPEN,H,L,0,0),COLORFF9900;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,3,0),COLORFF9900;
STICKLINE(CLOSE<OPEN,CLOSE,OPEN,0.5,0),COLORFFCC00;
{粉}
STICKLINE(VAR1,C,(O+C)/2,3,0),COLORFF11FF;  
STICKLINE(VAR1,C,(O+C)/2,0.5,0),COLORFFDDFF;
{灰}  
STICKLINE(VAR2,C,(O+C)/2,3,0),COLOR999999;   
STICKLINE(VAR2,C,(O+C)/2,0.5,0),COLORFFBBFF;
{绿}  
STICKLINE(VAR3,O,(O+C)/2,3,0),COLOR00BB00;
STICKLINE(VAR3,O,(O+C)/2,0.5,0),COLOR00FF00;
卖:=HHV(DX,2)=HHV(DX,7) AND COUNT(DX>50,2) AND CROSS(MA(DX,2),DX);
DRAWTEXT(FILTER(卖=1,1),HIGH*1.02,'卖'),COLORGREEN;
买:=LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2));
DRAWTEXT(FILTER(买=1,5),LOW-0.03,'买'),COLORRED;
加仓:=SMA(EMA((C-REF(C,1))/REF(C,1),5)*100,3,1)*10;
DRAWTEXT(FILTER((CROSS(加仓,0) OR CROSS(CLOSE,CB)) AND 买=1,3),LOW-0.03,'加'),COLORWHITE;
跟:=MA18>=REF(MA18,3) AND CROSS(CLOSE,MA18);
DRAWTEXT(跟,LOW*0.96,'跟'),COLORCC66FF;
{一阳穿三线}
一阳穿三:=COUNT(CROSS(C,MA(C,5)) AND CROSS(C,MA(C,13))
AND CROSS(C,MA(C,18)),1);
DRAWTEXT(一阳穿三,L*0.99,'一阳穿三线'),COLORMAGENTA;
附图：

不改变背景颜色？把这一句去掉就行了：
STICKLINE(C>0,REFDATE(高,DATE),REFDATE(低,DATE),10,0),COLOR757575;

分割尺_0.tne      

双向黄金分割.txt