通达信自用的顶底波段副图源码、无未来

{N;1;100;3}
 LC:=REF(CLOSE,1);
 E:=-100*(HHV(HIGH,84)-CLOSE)/(HHV(HIGH,84)-LLV(LOW,84));
 顶:CROSS(-1,E)*7000,COLORGREEN;
 DRAWTEXT(CROSS(0,E) , 6500,' 顶 ')COLORGREEN;
 VARB:=SMA(MAX(CLOSE-LC,0),7,1)/SMA(ABS(CLOSE-LC),7,1)*100;
 VARC:=SMA(MAX(CLOSE-LC,0),13,1)/SMA(ABS(CLOSE-LC),13,1)*100;
 VARD:=BARSCOUNT(CLOSE);
 底:( E<-98)*2000,COLORWHITE;
 DRAWTEXT(CROSS(1000,底) , 2100,' 底 ')COLORGREEN;
 
VAR1:=(HHV(HIGH,N)-CLOSE)/(HHV(HIGH,N)-LLV(LOW,N))*1000-700;
 VAR2:=SMA(VAR1,N,1)+100;
 VAR3:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*10000;
 VAR4:=SMA(VAR3,3,1);
 VAR5:=SMA(VAR4,3,1)+100;
 VAR6:=VAR5-VAR2;
 S:= IF(VAR6>100,VAR6-100,0);
 STICKLINE(REF(S,1)<S,S,REF(S,1),8,1)COLORRED;
 STICKLINE(REF(S,1)>S,S,REF(S,1),8,1)COLORYELLOW;