通达信薛斯通道选股指标公式源码

通达信薛斯通道选股指标公式源码

源码正文：

N:=13;N1:=3;N2:=5;N3:=9;N4:=9{XG51};
VVAR4:=expma(CLOSE,9){XG51};
VLDN:=EXPma(VVAR4*0.86,5){XG51};
QAVW1:=(C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100;  
QAVW2:=100*(HHV(H,55)-C)/(HHV(H,55)-LLV(L,55));  
QAV21:=SMA(QAVW2,55,1)+100;  
HH:=(HHV(V,135)){XG51};
RSV8:=(CLOSE - LLV(L,21))/(HHV(H,21) - LLV(L,21)){XG51};
K18:=ema(RSV8,3){XG51};
D18:=EMA(K18,3){XG51};
J18:=3*K18-2*D18{XG51};
kdj1:=REF(COUNT(J18<REF(J18,1),5)>=3,1) AND REF(J18,1)<0.03{XG51};
kdJ2:=J18>REF(J18,1){XG51};
QAV11:=SMA(QAVW1,9,1);  
QAV51:=SMA(QAV11,3,1)+100;  
KDJ3:=REF(COUNT(J18>REF(J18,1),5)>=3,1) AND REF(J18,1)>0.99{XG51};
KDJ4:=J18<REF(J18,1){XG51};
VAR22:=(CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34))*200*10;  
能量:=SMA(VAR22,5,1){XG51};
wrH:=QAV51-QAV21+50{XG51};
T:=(HIGH+LOW+CLOSE)/3{XG51};
cciI:=(T-MA(T,9))/(0.016*AVEDEV(T,9)){XG51};
stICKLINE(WRH>REF(WRH,1),VLDN-0.4,VLDN-0.7,10,0),COLOR8C1177;  
STICKLINE(WRH<REF(WRH,1),VLDN-0.4,VLDN-0.7,10,0),COLOR015400{XG51};
JJ:=(H+L+C)/3{XG51};
QJ0:=vol/IF(H=L,4,H-L){XG51};
QJ1:=IF(CAPITAL=0,QJ0*(JJ-MIN(C,O)),QJ0*(MIN(O,C)-L)){XG51};
QJ2:=IF(CAPITAL=0,QJ0*(MIN(O,C)-L),QJ0*(JJ-MIN(C,O))){XG51};
QJ3:=QJ0*(H-MAX(O,C)){XG51};
QJ4:=QJ0*(MAX(C,O)-JJ){XG51};
QJ5:=QJ1+QJ2{XG51};
QJ6:=QJ3+QJ4{XG51};
DD:=(QJ5-QJ6)/(QJ5+QJ6)*100{XG51};
ddx:=((QJ1+QJ2)-(QJ3+QJ4))/SUM(VOL,10)*100{XG51};
DDZ:=DD*17{XG51};
DDY:=((QJ2+QJ4)-(QJ1+QJ3))/SUM(VOL,10)*100{XG51};
捡钱1:=crOSS(CCII,-150),NODRAW{XG51};
捡钱2:=CROSS(CCII,-150) AND ((DDX>0 AND DDY>0) OR DDZ>400),NODRAW{XG51};
bias:=(CLOSE-MA(CLOSE,34))/MA(CLOSE,34)*100,NODRAW{XG51};
捡钱3:=IF(BIAS<=-16,1,0),NODRAW{XG51};
量1:=MA(VOL,250){XG51};
F:=VOL<量1{XG51};
CCI8:=(T-MA(T,14))/(0.015*AVEDEV(T,14)){XG51};
R:=F OR ((捡钱1 OR 捡钱2 OR 捡钱3) AND 能量<550) OR (FILTER(KDJ1 AND KDJ2,3) AND 能量<650) AND CCI8<-180,NODRAW{XG51};
DRAWICON(R,VLDN-0.7,9){XG51};
DRAWTEXT(R,VLDN-0.7,'捡钱啦'),COLOR00FFFF{XG51};
VAR2:=CLOSE*VOL{XG51};
VAR3:=EMA((EXPMA(VAR2,3)/EXPMA(VOL,3)+EXPMA(VAR2,6)/EXPMA(VOL,6)+EXPMA(VAR2,12)/EXPMA(VOL,12)+EXPMA(VAR2,24)/EXPMA(VOL,24))/4,N){XG51};
SUP:1.06*VAR3{XG51};
SDN:VAR3*0.94{XG51};
VAR4:=EXPMA(CLOSE,9){XG51};
LUP:EXPMA(VAR4*1.14,5){XG51};
LDN:EXPMA(VAR4*0.86,5){XG51};
多头:=LDN>=REF(LDN,1){XG51};
STICKLINE(多头,LDN,LDN+LDN*0.03,0.8,1),COLORLIMAGENTA{XG51};
狮龙抬头:=多头 AND COUNT(多头=0,2)=1 {XG51};
上穿:=CROSS(C,SDN){XG51};
SS:=C-SDN<0 AND C/REF(C,3)>1  AND COUNT(C-SDN<0,2)=2 AND C-O>0{XG51};
进仓:=上穿 OR SS{XG51};
STICKLINE(进仓,L,L-L*0.03,0.8,1),COLOR70DB93{XG51};
A:=IF((CLOSE > 126.32),(AMOUNT / 100000),VOL){XG51};
散户:=MA(A,27),COLORF2E9E7,POINTDOT{XG51};
EMA5:=EMA(C,5){XG51};
EMA13:=EMA(C,9){XG51};
UP:=DRAWLINE(L=LLV(L,BArslAST(CROSS(EMA13,EMA5))+1),LLV(L,BARSLAST(CROSS
(EMA13,EMA5))+1),H=HHV(H,BARSLAST(CROSS(EMA5,EMA13))+1),HHV(H,BARSLAST(CROSS
(EMA5,EMA13))+1),0),COLOR0000FF{XG51};
DOWN:=DRAWLINE(H=HHV(H,BARSLAST(CROSS(EMA5,EMA13))+1),HHV(H,BARSLAST(CROSS
(EMA5,EMA13))+1),L=LLV(L,BARSLAST(CROSS(EMA13,EMA5))+1),LLV(L,BARSLAST(CROSS
(EMA13,EMA5))+1),0),COLOR00FF00{XG51};
HRY33:=SQRT((HHV(HIGH,55)*LLV(LOW,55))){XG51};
牛:=REF(DOWN,1)<REF(DOWN,2) AND UP>REF(DOWN,1) AND C<HRY33{XG51};
红犀牛1:=UP>0 AND COUNT(DOWN>0,2)=1{XG51};
多空:=IF(红犀牛1,-2,90),COLOR00FF00,LINETHICK3{XG51};
多:IF(多空=90,SDN,DRAWNULL),COLORLIMAGENTA,LINETHICK3{XG51};
mtm:=C-REF(C,1){XG51};
ZLGJ:=100*EMA(EMA(MTM,N3),N3)/EMA(EMA(Abs(MTM),N3),N3),COLORRED{XG51};
MAZL:=MA(ZLGJ,N2),COLORBLUE{XG51};
VAAR1:=REF((LOW+OPEN+CLOSE+HIGH)/4,1){XG51};
VAAR2:=SMA(ABS(LOW-VAAR1),13,1)/SMA(MAX(LOW-VAAR1,0),10,1){XG51};
VAAR3:=EMA(VAAR2,10){XG51};
VAAR4:=LLV(LOW,33){XG51};
VAAR5:=EMA(IF(LOW<=VAAR4,VAAR3,0),3){XG51};
主力进场:=IF(VAAR5>REF(VAAR5,1),VAAR5,0),COLORWHITE,NODRAW{XG51};
洗盘:=IF(VAAR5<REF(VAAR5,1),VAAR5,0),COLORCYAN,NODRAW{XG51};
AAA:=ZLGJ>REF(ZLGJ,1) AND MAZL>REF(MAZL,1) AND CROSS(ZLGJ,MAZL){XG51};
BBB:=CROSS(ZLGJ,MAZL) AND 多空>10{XG51};
CCC:=CROSS(ZLGJ,MAZL) AND COUNT(多空=90,2)=1{XG51};
进场:=AAA OR BBB OR CCC{XG51};
STICKLINE(进场,SUP,SUP+SUP*0.06,0.8,1),COLORBLUE{XG51};
买:=MA(CLOSE,1){XG51};
卖:=(LOW+HIGH+CLOSE)/3{XG51};
奇准:= MA(卖,5){XG51};
买卖:=LLV(奇准,10){XG51};
急买奇准:=LLV((买<买卖),5){XG51};
短买奇准:=LLV((买<买卖),10){XG51};
P:=((2)*(CLOSE) + HIGH + LOW + OPEN)/(5){XG51};
CCI:=((P - MA(P,14))*(100))/((1.5)*(AVEDEV(P,14))){XG51};
JL:=CCI < (-100){XG51};
P1:=4{XG51};
P2:=5{XG51};
V1:=LLV(LOW,P1){XG51};
V2:=HHV(HIGH,P1){XG51};
牛线:= EMA((CLOSE-V1)/(V2-V1)*100,P2),COLORWHITE,LINETHICK1{XG51};
马线:= EMA(0.667*REF(牛线,1)+0.333*牛线,2),COLORCYAN,LINETHICK1{XG51};
AAAA:=CROSS(牛线,马线) AND COUNT(急买奇准,2)=1 {XG51};
BBBB:=CROSS(牛线,马线) AND COUNT(短买奇准,2)=1 {XG51};
CCCC:=CROSS(牛线,马线) AND COUNT(JL,2)=1{XG51};
DDDD:=CROSS(牛线,马线) AND JL{XG51};
进:=AAAA OR BBBB OR CCCC OR DDDD{XG51};
STICKLINE(进,SUP,SUP+SUP*0.016,0.8,1),COLORLIMAGENTA{XG51};
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
K:=SMA(RSV,5,1){XG51};
D:=SMA(K,3,1){XG51};
J:=3*K-2*D{XG51};
VARB2:=(RSV/2+22)*1{XG51};
量:=EMA(VOL,13){XG51};
资金:=EMA(AMOUNT,13){XG51};
过滤:=((资金 /量) / 100){XG51};
提纯:=(((CLOSE -过滤) / 过滤) * 100){XG51};
黄金:=((提纯 < (0)) AND ZXNH),COLORWHITE{XG51};
低:=黄金 AND RSV<VARB2-2{XG51};
DRAWTEXT(低,SUP,'低'),COLORBLUE{XG51};
AA8:=AMOUNT/VOL/100{XG51};
RSSV:=(AA8-LLV(AA8,9))/(HHV(AA8,9)-LLV(AA8,9))*100{XG51};
K8:=SMA(RSSV,3,1){XG51};
D8:=SMA(K8,3,1){XG51};
J8:=K8*3-D8*2{XG51};
CCI1:=(AA8-MA(AA8,14))/(0.015*AVEDEV(AA8,14)){XG51};
DIIF:=EMA(AA8,12)-EMA(AA8,26){XG51};
DEA:=EMA(DIIF,9){XG51};
KDJJ:IF(J8>D,LDN,DRAWNULL),COLORBLUE,LINETHICK3{XG51};
difFF:=EMA(CLOSE,3)-EMA(CLOSE,8){XG51};
DEAA:=EMA(DIFFF,5){XG51};
macd:=2*(DIFFF-DEAA){XG51};
A1:=EMA(DIFFF,5)*100{XG51};
A2:=((EMA(CLOSE,3)-EMA(CLOSE,8)))*100{XG51};
A3:=IF(A2>0,A2,50),POINTDOT,COLORWHITE{XG51};
A4:=IF(A2<0,A2,50),POINTDOT,COLORCYAN{XG51};
资金动能A:=A2+50,COLOR00FFFF,LINETHICK2{XG51};
资金动能B:=A1+50,COLORFFFF00,LINETHICK2{XG51};
资金动能C:=资金动能A-资金动能B>0{XG51};
资金动能:IF(资金动能C,LUP,DRAWNULL),COLORBLUE,LINETHICK3{XG51};
VA1:=HHV(HIGH,9)-LLV(LOW,9);      
VA2:=HHV(HIGH,9)-CLOSE{XG51};
VA3:=CLOSE-LLV(LOW,9){XG51};
VA4:=VA2/VA1*100-70{XG51};
VA5:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100{XG51};
VA6:=(CLOSE+HIGH+LOW)/3{XG51};
VA7:=SMA(VA3/VA1*100,3,1){XG51};
VA8:=LLV(LOW,34){XG51};
VA9:=SMA(VA7,3,1)-SMA(VA4,9,1){XG51};
VARA:=IF(VA9>100,VA9-100,0){XG51};
VARB:=HHV(HIGH,34){XG51};
VARC:=EMA((VA6-VA8)/(VARB-VA8)*100,13){XG51};
VARD:=EMA(0.667*REF(VARC,1)+0.333*VARC,2){XG51};
生命线:=EMA(VARD,1),COLORBLUE{XG51};
A5:=3*SMA((CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18))*100,21,1)-2*SMA(SMA((CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18))*100,20,1),8,1),CIRCLEDOT,COLORFF9900 {XG51};
开始拉升:=IF(CROSS(VARC,生命线) AND VARC>VARD AND VARC<55 AND C>O,1,0),COLORLICYAN,POINTDOT{XG51};
安全位:=20{XG51};
STICKLINE(CROSS(A5,安全位),LDN,LDN-LDN*0.04,2,1){XG51};
STICKLINE(开始拉升,LDN,LDN-LDN*0.03,4,1),COLORD9D919{XG51};
DRAWTEXT(开始拉升,LDN,'     开始拉升' ),COLORD9D919{XG51};
DRAWTEXT(CROSS(A5,安全位),LDN-0.5,'   低位转强' ),COLORBLUE{XG51};
VARE:=SMA(MAX(CLOSE-REF(CLOSE,1),0)/CLOSE,8,1)/SMA(ABS(INDEXC-REF(INDEXC,1))/INDEXC,8,1)*100-25{XG51};
VARF:=MA(VARE,3){XG51};
VAR1:=HHV(HIGH,9)-LLV(LOW,9){XG51};
VAR29:=HHV(HIGH,9)-CLOSE{XG51};
VAR39:=CLOSE-LLV(LOW,9){XG51};
VAR49:=((VAR29)/(VAR1))*(100)-70{XG51};
VAR59:=((CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60)))*(100){XG51};
VAR69:=((2)*(CLOSE)+HIGH+LOW)/(4){XG51};
VAR79:=SMA(((VAR39)/(VAR1))*(100),3,1){XG51};
VAR89:=LLV(LOW,34){XG51};
VAR99:=SMA(VAR79,3,1)-SMA(VAR49,9,1){XG51};
VAR10:=IF((VAR99>100),VAR99-100,0){XG51};
VAR11:=HHV(HIGH,34){XG51};
VAR6:=((2)*(CLOSE)+HIGH+LOW)/(4){XG51};
VAR7:=SMA(((VAR39)/(VAR1))*(100),3,1){XG51};
VAR8:=LLV(LOW,34){XG51};
VAR9:=SMA(VAR79,3,1)-SMA(VAR4,9,1){XG51};
VAR109:=IF((VAR99>100),VAR9-100,0){XG51};
VAR191:=HHV(HIGH,34){XG51};
B1:=EMA(((VAR69-VAR89)/(VAR11-VAR89))*(100),8){XG51};
领先:=EMA(B1,5),COLORGREEN{XG51};
A6:=LLV(C,500)=LLV(C,5) AND C/REF(C,1)>(1+9.8/100){XG51};
极地上涨:=IF(A6,领先,0),COLORCYAN,LINETHICK2{XG51};
STICKLINE(极地上涨,LDN,LDN-LDN*0.05.1,2,1),COLORLIMAGENTA{XG51};
清:=EMA(ATAN((MA(C,5)/REF(MA(C,5),1)-1)*100)*180/3.1416,5)/2+50,COLORCYAN,POINTDOT{XG51};
赚20个点就走:=EMA(ATAN((MA(C,10)/REF(MA(C,10),1)-1)*100)*180/3.1416,5)/2+50,COLORWHITE,POINTDOT{XG51};
黄主升蓝主跌:=EMA(ATAN((MA(C,30)/REF(MA(C,30),1)-1)*100)*180/3.1416,5)/2+50,COLORBLUE,POINTDOT{XG51};
STICKLINE(黄主升蓝主跌>REF(黄主升蓝主跌,1),LUP+0.3,LUP+0.4,3,0),COLORD9D919{XG51};
N10:=7{XG51};
LC1:=REF(CLOSE,1){XG51};
X:=SMA(MAX(CLOSE-LC1,0),N10,1)/SMA(ABS(CLOSE-LC1),N10,1)*100{XG51};
Y:=DRAWLINE(X>=HHV(X,N10),X,X<=LLV(X,N10),X,1){XG51};
TJ10:=X=Y{XG51};
TJ20:=X<REF(X,1){XG51};
绝对买底:STICKLINE(TJ10 AND TJ20,LUP,LUP+0.3,1,0),COLORYELLOW{XG51};
A11:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1){XG51};
黑码线:=EMA(A11,5); A21:=(黑码线-REF(黑码线,1))/REF(黑码线,1)*100; A31:=EMA(C,5){XG51};
A41:=((C-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100{XG51};
趋势线:=(MA(3*SMA(A41,6,1)-2*SMA(SMA(A41,5,1),5,1),2)){XG51};
A51:=(HHV(H,60)-C)/(HHV(H,60)-LLV(L,60))*100{XG51};
DRAWTEXT(CROSS(A11,黑码线)AND 黑码线<A51,LUP+0.6,'黑码'),COLORD9D919{XG51};
VARM1:=4*SMA((CLOSE-LLV(LOW,N4))/(HHV(HIGH,N4)-LLV(LOW,N4))*100,5,1)-
3*SMA(SMA((CLOSE-LLV(LOW,N4))/(HHV(HIGH,N4)-LLV(LOW,N4))*100,5,1),3.2,1),COLORRED,LINETHICK1{XG51};
VARM2:=15,COLORCYAN,LINETHICK1{XG51};
上升在即1:= IF(CROSS(VARM1,VARM2),LUP,0),STICK,COLORWHITE,LINETHICK2{XG51};
上升在即:STICKLINE(上升在即1,SUP,SDN,0.1,0),COLORWHITE{XG51};
VARH2:=(CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20))*100{XG51};
VARH3:=SMA(SMA(VARH2,3,1),3,1)/28.57{XG51};
VARH4:=EMA(VARH3,5){XG51};
操盘:=3*VARH3-2*VARH4{XG51};
AH1:=CROSS(操盘,VARH3) AND VARH3<2.1 AND C>O{XG51};
DRAWTEXT(AH1,SUP-0.6,'财神'),COLORBLUE{X.G^5=1.C.N.{};