通达信一个很好用的未加密选股指标公式源码

源码正文：

A1:=(H+L+O+3*C)/6{XG51};
A0:0,colorcyan{XG51};
bias1:(A1-ema(A1,21))/Ema(A1,21)*100,colorwhite{XG51};
MX1:SMA(BIAS1,3,1),coloryellow{XG51};
MX2:SMA(MX1,3,1),colorblue{XG51};
M1:HHV(BIAS1,89),colorcyan{XG51};
M2:LLV(BIAS1,89),colorcyan{XG51};
difF:=BIAS1{XG51};
顶背离:=A1<=REF(A1,1) AND diff>REF(diff,1){XG51};
DRAWTEXT(顶背离,DIFF,'底'),colorred{XG51};
底背离:=A1>REF(A1,1) AND diff<REF(diff,1){XG51};
DRAWTEXT(底背离,DIFF,'顶'),colorgreen{XG51};
stICKLINE(crOSS(BIAS1,5),0,BIAS1,1,0),colorred{XG51};
DRAWTEXT(CROSS(BIAS1,5) AND BIAS1<10,BIAS1,'5'),coloryellow{XG51};
STICKLINE(CROSS(BIAS1,10),0,BIAS1,2,0),colorred{XG51};
DRAWTEXT(CROSS(BIAS1,10) AND BIAS1<15,BIAS1,'10'),coloryellow{XG51};
STICKLINE(CROSS(BIAS1,15),0,BIAS1,3,0),colorred{XG51};
DRAWTEXT(CROSS(BIAS1,15) AND BIAS1<20,BIAS1,'15'),coloryellow{XG51};
STICKLINE(CROSS(BIAS1,20),0,BIAS1,3,0),colormagenta{XG51};
DRAWTEXT(CROSS(BIAS1,20),BIAS1,'20'),coloryellow{XG51};
STICKLINE(CROSS(-5,BIAS1),0,BIAS1,1,0),colorgreen{XG51};
DRAWTEXT(CROSS(-5,BIAS1) AND BIAS1> -10,BIAS1,'-5'),coloryellow{XG51};
STICKLINE(CROSS(-10,BIAS1),0,BIAS1,2,0),colorgreen{XG51};
DRAWTEXT(CROSS(-10,BIAS1) AND BIAS1> -15,BIAS1,'-10'),coloryellow{XG51};
STICKLINE(CROSS(-15,BIAS1),0,BIAS1,3,0),colorgreen{XG51};
DRAWTEXT(CROSS(-15,BIAS1) AND BIAS1> -20,BIAS1,'-15'),coloryellow{XG51};
STICKLINE(CROSS(-20,BIAS1),0,BIAS1,3,0),colormagenta{XG51};
DRAWTEXT(CROSS(-20,BIAS1),BIAS1,'-20'),coloryellow{X.G!5_1.C.N.{};

源码正文：

VAR1:=(CLOSE-LLV(LOW,36))/(HHV(HIGH,36)-LLV(LOW,36))*100{XG51};
VAR2:=SMA(VAR1,3,1){XG51};
VAR3:=Sma(VAR2,3,1){XG51};
VAR4:=SMA(VAR3,3,1){XG51};
波: VAR3{XG51};
段: VAR4{XG51};
AA:=LLV(LOW,36){XG51};
BB:=HHV(HIGH,30){XG51};
DD:=(ema(((CLOSE-AA)/(BB-AA))*(4),4))*(25){XG51};
股神:DD{XG51};
股海:=(((DD-LLV(DD,21))/(HHV(DD,21)-LLV(DD,21)))*(4))*(25){XG51};
stICKLINE(股神<波,波,股神,1,0){XG51};
XC:=IF (股神<=段,股神,波){XG51};
XD:=IF (股神<=段,段,波){XG51};
XA:=IF (股神>=段,股神,波){XG51};
XB:=IF (股神>=段,段,波){XG51};
大头部:=IF((波>(90)),20,0){XG51};
头部:=IF((股神>(90)),10,0){XG51};
S:=50{XG51};
XAA:IF (股神>=段,股神,波),COLORWHITE,LINETHICK2{XG51};
XBB:IF (股神>=段,段,波),COLORWHITE,LINETHICK2{XG51};
XCC:IF (股神<=段,股神,波),COLOR00FF00,LINETHICK2{XG51};
XDD:IF (股神<=段,段,波),COLOR00FF00,LINETHICK2{XG51};
XX:波{X+G~5+1+C+N+{};