通达信顶底波段选股指标公式源码

通达信顶底波段选股指标公式源码

源码正文：

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