通达信青龙白虎未加密选股指标公式源码

源码正文：

N1:=14{XG51};
VAR4C:=ma(CLOSE,5){XG51};
VAR5C:=MA(CLOSE,10){XG51};
VAR6C:=MA(CLOSE,30){XG51};
VAREC:=(SUM(((CLOSE * vol) * 100),28) / SUM((VOL * 100),28)){XG51};
VARFC:=(INTPART((VAREC * 100)) / 100){XG51};
短线趋势:=(ema(CLOSE,5) - EMA(CLOSE,10)){XG51};
中线趋势:=EMA(短线趋势,9){XG51};
VAR14C:=REF(中线趋势,1){XG51};
VAR15C:=中线趋势{XG51};
VAR16C:=(VAR15C - VAR14C){XG51};
VAR17C:=REF(短线趋势,1){XG51};
VAR18C:=短线趋势{XG51};
VAR19C:=(VAR18C - VAR17C){XG51};
发现机构:IF((((((((OPEN <= VAR4C) AND (OPEN <= VAR5C)) AND (OPEN <= VAR6C)) AND
(CLOSE >= VAR4C)) AND (CLOSE >= VARFC)) AND (VAR16C > 0)) AND (VAR19C > 0)),95,0),
LINETHICK3,COLORFF00FF{XG51};
-15{XG51};
VAR91:=(CLOSE-MA(CLOSE,21))/MA(CLOSE,21)*100{XG51};
VAR92:=(CLOSE-LLV(LOW,43))/(HHV(HIGH,43)-LLV(LOW,43))*100{XG51};
VAR93:=SMA(VAR92,2,1){XG51};
天C:=100+(-Abs(VAR91)){XG51};
下:=SMA(VAR93,2,1){XG51};
无:=ABS(VAR91){XG51};
买:stICKLINE(crOSS(下,无),15,30,2,0),COLORLICYAN,LINETHICK1{XG51};
卖:STICKLINE(CROSS(下,天C),80,99,2,0),COLORFF9900,LINETHICK1{XG51};
DRAWICON((CROSS(下,20) ),-10,11){XG51};
FG:=MA(C,60){XG51};
HI:=100*(C-REF(C,60))/REF(C,60){XG51};
HJ:=100*(INDEXC-REF(INDEXC,60))/REF(INDEXC,60){XG51};
HK:=SMA(HI-HJ,2,1){XG51};
HM:=V>REF(V,1)*3{XG51};
HO:=HM AND (C<FG AND COUNT(FG<REF(FG,1),10)=10){XG51};
DRAWICON(HO,HK+40,5),COLORRED{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);
A41:=((C-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100;
趋势线:=(MA(3*SMA(A41,6,1)-2*SMA(SMA(A41,5,1),5,1),2)){XG51};
DRAWTEXT(CROSS(趋势线,0)AND 黑马线<40,-10,'↖大黑马 '),COLORFFFF00{XG51};
VAR1F:=((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27)))*(100){XG51};
VAR20:=REVERSE(VAR1F){XG51};
VAR21:=SMA(VAR1F,3,1){XG51};
趋势:=SMA(VAR21,3,1){XG51};
人气:=SMA(趋势,3,1){XG51};
AA:=LLV(LOW,36){XG51};
BB:=HHV(HIGH,30){XG51};
DD:=(EMA(((CLOSE-AA)/(BB-AA))*(4),4))*(25){XG51};
出击:=IF(CROSS(趋势,人气) AND (趋势<30),30,0),COLOR0000FF,LINETHICK2{XG51};
必卖:IF(CROSS(人气,趋势) AND (人气>68),85,100),COLORYELLOW,LINETHICK2{XG51};
短卖:IF(CROSS(趋势,DD) AND (DD>73),75,100),COLOR008000,LINETHICK1{XG51};
顶:=85{XG51};
VAR5W:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100{XG51};
CCS:=SMA(VAR5W,13,1){XG51};
CC1S:=SMA(CCS,5,1){XG51};
出击O:IF((CROSS(CCS,CC1S) AND (CC1S < 顶) ),40,0),COLORWHITE{XG51};
VAR81:=100 - (3)*(SMA(((CLOSE - LLV(LOW,75))/(HHV(HIGH,75) - LLV(LOW,75)))*(100),20,1))
+ (2)*(SMA(SMA(((CLOSE - LLV(LOW,75))/(HHV(HIGH,75) - LLV(LOW,75)))*(100),20,1),15,1)){XG51};
VAR82:=100 - (3)*(SMA(((OPEN - LLV(LOW,75))/(HHV(HIGH,75) - LLV(LOW,75)))*(100),20,1))
+ (2)*(SMA(SMA(((OPEN - LLV(LOW,75))/(HHV(HIGH,75) - LLV(LOW,75)))*(100),20,1),15,1)){XG51};
VAR83:=(VAR81 < REF(VAR82,1)) AND (VOL > REF(VOL,1)) AND (CLOSE > REF(CLOSE,1)){XG51};
有主力:IF(VAR83 AND (COUNT(VAR83,24) = 1),60,0),LINETHICK1,COLORFF00FF{XG51};
DRAWTEXT((有主力 =60),55,'主力'),COLORFF00FF{XG51};
短趋势:=((3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-
2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1)-50)*1.032+50){XG51};
VAR2:=(2*CLOSE+HIGH+LOW+OPEN)/5{XG51};
VAR3:=LLV(LOW,34){XG51};
VAR4:=HHV(HIGH,34){XG51};
长趋势:=EMA((VAR2-VAR3)/(VAR4-VAR3)*100,13){XG51};
VAR7:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*80{XG51};
附属:=SMA(VAR7,5,1){XG51};
白金:=SMA(附属,10,1){XG51};
庄加仓后有买点:IF(CROSS(附属,白金) AND 附属<40,85,0),COLORBLUE,LINETHICK2{XG51};
DRAWTEXT(CROSS(附属,白金) AND 附属<40,50,'↑买点'),COLORBLUE,LINETHICK1{XG51};
QW1:=(HIGH+LOW+CLOSE*2)/4{XG51};
QW3:=EMA(QW1,10){XG51};
QW4:=STD(QW1,10){XG51};
QW5:=(QW1-QW3)*100/QW4{XG51};
QW6:=EMA(QW5,5){XG51};
RK7:=EMA(QW6,10){XG51};
涨:=EMA(QW6,10)+100/2-5,LINETHICK1,COLORWHITE{XG51};
跌:=EMA(涨,4),LINETHICK1,COLORFFFF34{XG51};
做多:=IF(CROSS(涨,跌) AND 跌<-10,30,0),LINETHICK3,COLORFF00FF{XG51};
做空:IF(CROSS(跌,80),70,100),COLOR0099FF,LINETHICK3{XG51};
DRAWICON(做多,30,1),COLORFF00FF{XG51};
DRAWICON(CROSS(跌,80),70,2),COLORCYAN{XG51};
VAR18T:=HHV(HIGH,30){XG51};
VAR19T:=LLV(LOW,30){XG51};
NL:=EMA((CLOSE-VAR19T)/(VAR18T-VAR19T)*100,5)/8*10,COLORBLUE,LINETHICK2{XG51};
DRAWTEXT(CROSS(5,NL),30,'★做底'),COLORRED{XG51};
VAR2Q:=(MA(CLOSE,80)-MA(CLOSE,13)/3){XG51};
神奇线:= MA((CLOSE-VAR2Q)/VAR2Q,2){XG51};
买12:IF(CROSS(神奇线,0) AND LOW/REF(HIGH,1)<1.012 AND ((C-REF(C,2))/C)>0.06,60,0),COLORRED,LINETHICK2{XG51};
YY:=SMA(SMA((CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,18,1),12,1){XG51};
YT:=SMA((CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100,12,1){XG51};
ST:=IF(CROSS(YT,YY),30,0){XG51};
VAR5PT:=(HIGH+LOW+CLOSE)/3{XG51};
VAR6PT:=(VAR5PT-MA(VAR5PT,14))/(0.015*AVEDEV(VAR5PT,14)){XG51};
VAR7PT:=(VAR5PT-MA(VAR5PT,85))/(0.015*AVEDEV(VAR5PT,85)){XG51};
SA:=IF(VAR7PT>=200 AND VAR6PT>=150,10,0){XG51};
VAR3QQ:=REF(CLOSE,1){XG51};
VAR4QQ:=SMA(MAX(CLOSE-VAR3QQ,0),6,1)/SMA(ABS(CLOSE-VAR3QQ),6,1)*100{XG51};
SM:=IF(CROSS(80,VAR4QQ),100,0){XG51};
卖11:IF((SM AND (SA OR ST)),70,100),COLORCCCC33,LINETHICK2{XG51};
HII:=100*(C-REF(C,60))/REF(C,60){XG51};
丰盛:IF(((COUNT(C>O,10)>=8) OR (COUNT(C>O,15)>=12)) AND HII<100,20,0),COLORFF00FF,LINETHICK1{XG51};
FC:=MA(C,3);FD:=MA(C,10){XG51};
FE:=MA(C,20);FF:=MA(C,30);FG1:=MA(C,60){XG51};
FH:=ABS(FC-FD)/MIN(FC,FD);FI:=ABS(FC-FE)/MIN(FC,FE){XG51};
FJ:=ABS(FC-FF)/MIN(FC,FF){XG51};
FK:=ABS(FE-FD)/MIN(FE,FD);FL:=ABS(FF-FD)/MIN(FF,FD){XG51};
FM:=ABS(FE-FF)/MIN(FE,FF){XG51};
FN:=MAX(MAX(MAX(FH,FI),MAX(FJ,FK)),MAX(FL,FM))*100,LINETHICK2{XG51};
FO:=EMA(FN,3),COLORYELLOW{XG51};
FS:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100{XG51};
FT:=(SMA(FS,3,1)-18)*1.55{XG51};
FV:=(CLOSE-LLV(LOW,100))/(HHV(HIGH,100)-LLV(LOW,100))*100{XG51};
FW:=SMA(FV,10,1){XG51};
GJ:=(HHV(H,5)-C)/(HHV(H,5)-LLV(L,5))*(-1)+0.9{XG51};
GK:=(HHV(H,10)-C)/(HHV(H,10)-LLV(L,10))*(-1)+0.92{XG51};
GL:=(HHV(H,15)-C)/(HHV(H,15)-LLV(L,15))*(-1)+0.93{XG51};
GM:=(HHV(H,55)-C)/(HHV(H,55)-LLV(L,55))*(-1)+0.94{XG51};
GN:=(HHV(H,89)-C)/(HHV(H,89)-LLV(L,89))*(-1)+0.95{XG51};
GO:=(HHV(H,120)-C)/(HHV(H,120)-LLV(L,120))*(-1)+0.91{XG51};
SP:=(HHV(H,180)-C)/(HHV(H,180)-LLV(L,180))*(-1)+0.96{XG51};
SQ:=(((GJ+GK+GL)*8+GM+GN+SP+GO)/28-0.1)*185{XG51};
GR:=SMA(SQ,3,1){XG51};
GS:=(FT+FW+GR*2)/4,COLOR00FFFF {XG51};
白虎出山:IF(FO<8 AND GS>95,GS,0),STICK,LINETHICK3,COLORFFFFFF{XG51};
K1:=N1/2{XG51};
DTPL:=MA(C,N1)>MA(C,N1*1.5) AND MA(C,N1*1.5)>MA(C,N1*3) AND MA(C,3)>MA(C,N1*6){XG51};
连续走强:=COUNT(C>MA(C,N1),K1)=K1{XG51};
ZQSJ:=BArslAST(连续走强){XG51};
STICKLINE(连续走强 ,0 ,K1*0.8 ,5 ,1 ),COLORWHITE{XG51};
下穿:=CROSS(MA(C,N1),C){XG51};
GLL:=MA(C,N1/2)/MA(C,N1*2)>=1.05{XG51};
买跌:(下穿 AND ZQSJ<=3 AND DTPL AND GLL)*N1,COLOR00FF00,LINETHICK2{XG51};
连续走弱:=COUNT(C<MA(C,N1),K1)=K1{XG51};
ZRSJ:=BARSLAST(连续走弱){XG51};
STICKLINE(连续走弱 ,0 ,K1*-0.8 ,5 ,1 ),COLOR00FF00{XG51};
上穿:=CROSS(C,MA(C,N1)){XG51};
买涨:(上穿 AND ZRSJ<=3)*K1,COLORFF00FF,LINETHICK2{XG51};
强:连续走强*K1*0.3,COLORWHITE{XG51};
弱:连续走弱*K1*-0.3,COLOR00FF00{XG51};
AAW1:=(EMA(CLOSE,12)-EMA(CLOSE,26))*(100)+50{XG51};
AAW2:=EMA(AAW1,9){XG51};
AAW3:=((HHV(HIGH,21)-CLOSE)/(HHV(HIGH,21)-LLV(LOW,21)))*(100)-10{XG51};
AAW4:=((CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21)))*(100){XG51};
AAW5:=SMA(AAW4,13,8){XG51};
走势1:=CEILING(SMA(AAW5,13,8)),COLOR00FF00{XG51};
AAW6:=SMA(AAW3,21,8){XG51};
卖观注:STICKLINE(走势1-AAW6>85,100,95,6,1),COLORFFFF00{XG51};
卖出1:STICKLINE((LONGCROSS(AAW2,(AAW1)*(0.94999998),7) AND (AAW1>0)),100,80,1,0),COLOR0000FF{XG51};
NN:=34{XG51};
MM:=3{XG51};
大盘生命指数:= EMA(100*(CLOSE-LLV(LOW,NN))/(HHV(HIGH,NN)-LLV(LOW,NN)),MM)/4{XG51};
大盘生命量能:=IF(大盘生命指数>23.16,大盘生命指数,0){XG51};
STICKLINE(大盘生命量能,100,70,1,1),COLORRED{XG51};
VARFN:=LOW*0.9;
VAR11N:=EMA(VARFN,30);
VAR12N:=CLOSE-REF(CLOSE,1){XG51};
VAR13N:=MAX(VAR12N,0);
VAR14N:=ABS(VAR12N);
VAR15N:=SMA(VAR13N,7,1)/SMA(VAR14N,7,1)*100;
VAR16N:=SMA(VAR13N,13,1)/SMA(VAR14N,13,1)*100;
VAR17N:=BARSCOUNT(CLOSE);
VAR18N:=SMA(MAX(VAR12N,0),6,1)/SMA(ABS(VAR12N),6,1)*100;
VAR19N:=(-200)*(HHV(HIGH,60)-CLOSE)/(HHV(HIGH,60)-LLV(LOW,60))+100;
VAR1AN:=(CLOSE-LLV(LOW,15))/(HHV(HIGH,15)-LLV(LOW,15))*100;
VAR1BN:=SMA((SMA(VAR1AN,4,1)-50)*2,3,1);
VAR1CN:=(INDEXC-LLV(INDEXL,14))/(HHV(INDEXH,14)-LLV(INDEXL,14))*100;
VAR1DN:=SMA(VAR1CN,4,1);
VAR1EN:=SMA(VAR1DN,3,1);
VAR1FN:=(HHV(HIGH,30)-CLOSE)/CLOSE*100;
VAR20N:=VAR18N<=25 AND VAR19N<-95 AND VAR1FN>20 AND VAR1BN<-30 AND VAR1EN<30
AND VAR11N-CLOSE>=-0.25 AND VAR15N<22 AND VAR16N<28 AND VAR17N>50;
STICKLINE(VAR20N,0,70,1,0),COLORYELLOW,LINETHICK3 {XG51};
DRAWTEXT(VAR20N,80,'★青龙出海!'),COLORYELLOW{X_G*5*1_C_N_{};

源码正文：

A0:=(2*C+H+L)/4{XG51};
均线:=ma(A0,3)>REF(MA(A0,3),1){XG51};
A1:=(CLOSE-LLV(LOW,7))/(HHV(HIGH,7)-LLV(LOW,7))*100{XG51};
A2:=ema(WINNER(C)*100,5){XG51};
A3:=MA(SMA(C-REF(C,1),3,1)/SMA(H-REF(C,1),3,1),3)*100;
K:MA(3*SMA(A1,6,1)-2*SMA(SMA(A1,5,1),5,1),3),LINETHICK1,COLORBLUE{XG51};
D:MA(K,3),COLORFF0000,LINETHICK1{XG51};
J:3*K-2*D,LINETHICK1{XG51};
A4:=SMA(MAX(C-REF(C,2),0),6,1)/SMA(Abs(C-REF(C,2)),6,1)*100{XG51};
A5:=MA(3*SMA((C-LLV(L,21))/(HHV(H,21)-LLV(L,21))*100,5,1)-2*SMA(SMA((C-LLV(L,21))/(HHV(H,21)-LLV(L,21))*100,5,1),3,1),3){XG51};
低吸:IF(crOSS(A4,14) OR A5>REF(A5,1) AND CROSS(K,A2)AND K<40,10,0){XG51};
IF(A2>80 AND CROSS(95,K),85,100){XG51};
跌幅较大:K<5 AND LLV(C,3)/HHV(C,20)<0.8,COLOR00FF00{XG51};
stICKLINE(跌幅较大,0,30,3,0),COLOR00FF00{XG51};
A6:=COUNT(CROSS(K,A2),2)=1 AND CROSS(K,A5)AND A5/REF(A5,1)>0.9 AND K<50{XG51};
A7:=CROSS(K,D)AND D<10 OR CROSS(K,D)AND CROSS(K,A5)AND D<18{XG51};
无限风光:A2>85 AND K>85 OR A2>90 OR K>90,LINETHICK0,COLORFFFF00{XG51};
STICKLINE(无限风光,MAX(A2,K),100,6,1),COLORFFFF00{XG51};
DRAWICON(CROSS(A3,-300)AND K<10,5,1){XG51};
A8:=BArslAST(REF(CROSS(K,D),1)){XG51};
二次金叉:=(A8<15 AND D<50 AND K>REF(K,A8+1) AND CROSS(K,D)AND A5<60){XG51};
A9:=LLV(C,2)<REF(LLV(C,15),2){XG51};
DRAWTEXT(二次金叉 AND A9,K,'底背离'),COLORLIMAGENTA{XG51};

A10:=MA((A0-MA(A0,13))/(0.15*AVEDEV(A0,13)),3){XG51};
DRAWICON(CROSS(A10,-15)AND J>REF(J,1),5,1){XG51};
DRAWICON(CROSS(20,A10),100,2){XG51};
卖点准备: IF(CROSS(D,K) AND K>85,70,100),LINETHICK1,COLORLIRED{XG51};
买点准备: IF(CROSS(K,D) AND K<10,35,-0.6),LINETHICK1,COLOR00FF00{XG51};
买入持股:IF(K<=9,K,DRAWNULL)COLORRED,LINETHICK2{XG51};
买入持股1:IF(K<=2,K,DRAWNULL)COLORWHITE,LINETHICK2{XG51};
卖出空仓:IF(K>=85 AND D>85,K,DRAWNULL)COLORRED,LINETHICK3{XG51};
卖出空仓1:IF(K>=85 AND D>90,K,DRAWNULL)COLORWHITE,LINETHICK2{XG51};
VAR1:=REF((LOW+OPEN+CLOSE+HIGH)/4,1);
VAR2:=SMA(ABS(LOW-VAR1),13,1)/SMA(MAX(LOW-VAR1,0),10,1);
VAR3:=EMA(VAR2,10){XG51};
VAR4:=LLV(LOW,33){XG51};
VAR5:=EMA(IF(LOW<=VAR4,VAR3,0),3){XG51};
主力进场:IF(VAR5>REF(VAR5,1),VAR5,0),COLORWHITE,NODRAW{XG51};
STICKLINE(VAR5>REF(VAR5,1),0,VAR5,3,0 ),COLORWHITE{XG51};
洗盘:IF(VAR5<REF(VAR5,1),VAR5,0),COLORCYAN,NODRAW{XG51};
STICKLINE(VAR5<REF(VAR5,1),0,VAR5,3,0),COLORCYAN{X!G_5_1!C!N!{};