通达信牛熊判势未加密选股指标公式源码

源码正文：

REFLINE:- 1, 0, 1{XG51};
A1:=(maX(H,REF(C,1))/MIN(L,REF(C,1))-1)*1.1{XG51};
A2:=dma(C,2.5*MAX(V/CAPITAL,A1)){XG51};
A3:=C>=REF(C,1){XG51};
A4:=C<=REF(C,1){XG51};
D1:=SMA(20*(A2/REF(A2,1)-1),2,1){XG51};
D2:=ema(D1,2){XG51};
stICKLINE(D2>=0,-0.1,0.07,10,0),COLORDD00EE{XG51};
STICKLINE(D2<=0,-0.1,0.07,10,0),COLOR00EE00{XG51};
牛股:IF(D1>0.06 AND D2>=0.005 AND A3,1,0),STICK,LINETHICK4,COLOR00ddfF{XG51};
疯牛:IF(D1>0.24 AND D2>=0.005 AND A3,1,0),STICK,LINETHICK4,COLOR0000FF{XG51};
熊股:IF(D1<-0.06 AND D2<=-0.005 AND A4,-1,0),STICK,LINETHICK4,COLORFFEE00{XG51};
疯熊:IF(D1<-0.24 AND D2<=-0.005 AND A4,-1,0),STICK,LINETHICK4,COLORRED{XG51};
DRAWTEXT(FILTER(疯牛,5),-0.3,'疯牛'),COLOR0000FF{XG51};
DRAWTEXT(FILTER(疯熊,5),0.5,'疯熊'),COLORRED{X!G+5_1!C!N!{};

源码正文：

difF:ema(CLOSE,8)-Ema(CLOSE,26){XG51};
DEA:EMA(DIFF,9){XG51};
macd:2*(DIFF-DEA), COLORstICK,LINETHICK2{XG51};
DRAWTEXT(crOSS(DIFF,DEA),DIFF,'☆'),COLORWHITE{XG51};
月DIFF:="MacD.DIF#MONTH"COLOR0080FF{XG51};
月DEA:="MACD.DEA#MONTH",COLOR0080FF,LINETHICK2{XG51};
周DIFF:="MACD.DIF#WEEK"COLORWHITE{XG51};
周DEA:="MACD.DEA#WEEK",COLORWHITE,LINETHICK2{XG51};
日DIFF:="MACD.DIF",COLORRED{XG51};
日DEA:="MACD.DEA",COLORRED,LINETHICK2{XG51};
日金:IF(CROSS(日DIFF,日DEA),0.125,0),COLORBLUE{XG51};
周金:IF(CROSS(周DIFF,周DEA),0.15,0),COLORWHITE{XG51};
月金:IF(CROSS(月DIFF,月DEA),0.175,0),COLORCYAN{XG51};
DRAWICON(周金 AND 日金,-0.1,7){XG51};
DRAWICON(周金 AND 月金,-0.15,11){XG51};
DRAWICON(日金 AND 月金,-0.1,1){XG51};
日死:IF(CROSS(日DEA,日DIFF),-0.1,0),COLORBLUE{XG51};
周死:IF(CROSS(周DEA,周DIFF),-0.125,0),COLORWHITE{XG51};
月死:IF(CROSS(月DEA,月DIFF),-0.15,0),COLORCYAN{XG51};
DRAWICON(周死 AND 日死,-0.1,8){XG51};
DRAWICON(周死 AND 月死,-0.15,12){XG51};
DRAWICON(日死 AND 月死,-0.15,2){XG51};
低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1,NODRAW{XG51};
STICKLINE(低位金叉,0,0.08,6,0),COLORBLUE{XG51};
DRAWTEXT(低位金叉,0.16,' 低位金叉'),COLORRED{XG51};
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BArslAST(DEA>=0)){XG51};
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1,NODRAW{XG51};
STICKLINE(二次金叉,0,0.06,6,0),COLORFF00FF{XG51};
DRAWICON(二次金叉,DEA*0.9,1) {XG51};
DRAWTEXT(二次金叉,0.225,' 二次金叉'),COLORBLUE{XG51};
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1)){XG51};
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA),NODRAW{XG51};
STICKLINE(底背离,0,0.03,6,0),COLOR00FF00{XG51};
底背:DRAWLINE(A1=0,DEA,底背离,DEA,0),COLORWHITE,NODRAW{XG51};
DRAWTEXT(底背离,0.10,' 底背离'),COLORFF00FF{XG51};
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1)){XG51};
顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF),NODRAW{XG51};
顶背:DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORCYAN,LINETHICK2;
DRAWTEXT(低位金叉 AND 二次金叉 AND 底背离,0.275,'三全项'),COLOR0000FF,LINETHICK2{XG51};
DRAWICON(CROSS(DIFF,DEA),DEA,1){XG51};
DRAWICON(CROSS(DEA,DIFF),DEA,2){XG51};
WW:=DEA>REF(DEA,1){XG51};
DD:=CROSS(DIFF,REF(DIFF,1)){XG51};
反身向上:IF((WW AND DD),0.25,0),COLORRED{XG51};
DRAWTEXT(反身向上,0.17,' 反身上'),COLORRED{XG51};
AD:=LOW=LLV(LOW,14) AND LOW<REF(LOW,1) AND LOW<REF(LOW,5) AND MACD>REF(MACD,1) AND 0>MACD AND 0>REF(MACD,1){XG51};
DRAWICON(AD,MACD,9){X.G*5.1.C.N.{};