通达信特殊MACD未加密选股指标公式源码

源码正文：

dif:ema(CLOSE,12)-Ema(CLOSE,26){XG51};
DEA:EMA(DIF,9){XG51};
MYY:=EMA(CLOSE,3)-EMA(CLOSE,3){XG51};
YMM:=EMA(MYY,3){XG51};
macd:(DIF-DEA)*2,COLORstICK{XG51};
IF(DIF>REF(DIF,1),DIF,DRAWNULL),COLORWHITE,LINETHICK2{XG51};
IF(DIF<REF(DIF,1),DIF,DRAWNULL),COLORCYAN,LINETHICK2{XG51};
MacD2:=MACD{XG51};
获利比:WINNER(C),NODRAW{XG51};
STICKLINE((MACD2>=0),0,MACD2,0,1),COLORWHITE{XG51};
STICKLINE(((MACD2>=0) AND (MACD2 < REF(MACD2,1))),0,MACD2,0,0),COLORLIMAGENTA{XG51};
STICKLINE((MACD2<0),0,MACD2,0,0),COLORCYAN{XG51};
STICKLINE(((MACD2<0) AND (MACD2 > REF(MACD2,1))),0,MACD2,0,1),COLORRED{XG51};
DRAWICON(LONGcrOSS(CLOSE,MA(CLOSE,5),17),MACD2,1){XG51};
DRAWICON(LONGCROSS(MA(CLOSE,5),CLOSE,17),MACD2,2){XG51};
DRAWICON(CROSS(DIF,DEA) AND DIF<=0.2,LLV(DIF,1),29){XG51};
DRAWICON(CROSS(DIF>=0,DIF<DEA),DIF,1){XG51};
低位反转:=MACD<0 AND MACD>REF(MACD ,1) AND REF(MACD ,1)<REF(MACD ,2)AND REF(MACD ,2)<REF(MACD ,3)AND REF(MACD ,3)<REF(MACD ,4){XG51};
STICKLINE(低位反转,0,MACD,0.3,0),COLORWHITE{XG51};
高位反转:=MACD>0 AND MACD<REF(MACD ,1) AND REF(MACD ,1)>REF(MACD ,2)AND REF(MACD ,2)>REF(MACD ,3)AND REF(MACD ,3)>REF(MACD ,4){XG51};
STICKLINE(高位反转,0,MACD,0.3,0),COLORCYAN{XG51};
低位金叉:=CROSS(DIF,DEA) AND DIF<-0.1{XG51};
JCCOUNT:=COUNT(CROSS(DIF,DEA),BArslAST(DEA>=0)){XG51};
二次金叉:=CROSS(DIF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1{XG51};
DRAWICON(二次金叉,0,25){XG51};
三次金叉:=CROSS(DIF,DEA) AND DEA<0 AND COUNT(JCCOUNT=3,60)=1{XG51};
DRAWICON(三次金叉,0,26);A1:=IF(MACD2>0,1,-1){XG51};
TJ:=MACD2>0{XG51};
T:=MACD2<0{XG51};
DRAWTEXT(BARSLAST(TJ)=1,MACD2,'1'),COLORBLUE{XG51};
DRAWTEXT(BARSLAST(TJ)=2,MACD2,'2'),COLORBLUE{XG51};
DRAWTEXT(BARSLAST(TJ)=3,MACD2,'3'),COLORBLUE{XG51};
DRAWTEXT(BARSLAST(TJ)=5,MACD2,'5'),COLORBLUE{XG51};
DRAWTEXT(BARSLAST(TJ)=8,MACD2,'8'),COLORBLUE{XG51};
DRAWTEXT(BARSLAST(TJ)=13,MACD2,'13'),COLORBLUE{XG51};
DRAWTEXT(BARSLAST(TJ)=21,MACD2,'21'),COLORBLUE{XG51};
DRAWTEXT(BARSLAST(TJ)=34,MACD2,'34'),COLORBLUE{XG51};
DRAWTEXT(BARSLAST(TJ)=55,MACD2,'55'),COLORBLUE{XG51};
DRAWTEXT(BARSLAST(T)=1,MACD2,'1'),COLORCYAN{XG51};
DRAWTEXT(BARSLAST(T)=2,MACD2,'2'),COLORCYAN{XG51};
DRAWTEXT(BARSLAST(T)=3,MACD2,'3'),COLORCYAN{XG51};
DRAWTEXT(BARSLAST(T)=5,MACD2,'5'),COLORCYAN{XG51};
DRAWTEXT(BARSLAST(T)=8,MACD2,'8'),COLORCYAN{XG51};
DRAWTEXT(BARSLAST(T)=13,MACD2,'13'),COLORCYAN{XG51};
DRAWTEXT(BARSLAST(T)=21,MACD2,'21'),COLORCYAN{XG51};
DRAWTEXT(BARSLAST(T)=34,MACD2,'34'),COLORCYAN{XG51};
DRAWTEXT(BARSLAST(T)=55,MACD2,'55'),COLORCYAN{XG51};
涨家数:INDEXADV,NODRAW,COLORWHITE{XG51};
跌家数:INDEXDEC,NODRAW,COLORCYAN{XG51};
正量能:涨家数/(涨家数+跌家数)*100,NODRAW,COLORLIMAGENTA{XG51};
负量能:跌家数/(涨家数+跌家数)*100,NODRAW,COLORBLUE{XG51};
高开:=O>REF(H,1){XG51};
隔空高开:高开,NODRAW{XG51};
低开:=O<REF(L,1){XG51};
隔空低开:低开,NODRAW{X^G=5~1^C^N^{};

源码正文：

N:=5{XG51};
FF:=(C-REF(C,N))/REF(C,N){XG51};
stICKLINE(FF>0,DYnaINFO(3),DYNAINFO(3)*(1+FF),0.5,0),COLORWHITE{XG51};
STICKLINE(FF<0,DYNAINFO(3),DYNAINFO(3)*(1+FF),0.5,0),COLORCYAN{XG51};
A1:=BArslAST(REF(crOSS("macd.dif"(12,26,9),"maCD.DEA"(12,26,9)),1)){XG51};
B1:=REF(C,A1+1)>C AND REF("MacD.DIF"(12,26,9),A1+1)<"MACD.DIF"(12,26,9) AND CROSS("MACD.DIF"(12,26,9),"MACD.DEA"(12,26,9)){XG51};
底MACD:DRAWTEXT(FILTER(B1>0,5),HIGH*0.9988,'↖'),COLOR80FFFF{XG51};
DRAWTEXT(FILTER(B1>0,5),LOW*0.997,'MACD底'),COLORFF55FF{XG51};
A2:=BARSLAST(REF(CROSS("kdj.K"(9,3,3),"kdj.D"(9,3,3)),1)){XG51};
B2:=REF(C,A2+1)>C AND REF("KDJ.K"(9,3,3),A2+1)<"KDJ.K"(9,3,3) AND CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)){XG51};
底KDJ:DRAWTEXT(FILTER(B2>0,5),HIGH*0.9988,'↖'),COLOR80FFFF{XG51};
DRAWTEXT(FILTER(B2>0,5),LOW*0.997,'KDJ底'),COLORFF55FF{XG51};
A3:=BARSLAST(REF(CROSS("rsi.RSI1"(8,55,55),"RSI.RSI2"(8,55,55)),1)){XG51};
B3:=REF(C,A3+1)>C AND REF("RSI.RSI1"(8,55,55),A3+1)<"RSI.RSI1"(8,55,55) AND CROSS("RSI.RSI1"(8,55,55),"RSI.RSI2"(8,55,55)){XG51};
底RSI:DRAWTEXT(FILTER(B3>0,5),HIGH*0.9988,'↖'),COLOR3EFFFF{XG51};
DRAWTEXT(FILTER(B3>0,5),LOW*0.997,'RSI底'),COLOR00FFFF{XG51};
C1:=BARSLAST(REF(CROSS("MACD.DEA"(12,26,9),"MACD.DIF"(12,26,9)),1)){XG51};
D1:=REF(C,C1+1)<C AND REF("MACD.DIF"(12,26,9),C1+1)>"MACD.DIF"(12,26,9) AND CROSS("MACD.DEA"(12,26,9),"MACD.DIF"(12,26,9)){XG51};
顶MACD:DRAWTEXT(FILTER(D1>0,5),HIGH*1.0008,'↙'),COLORFFFF00{XG51};
DRAWTEXT(FILTER(D1>0,5),HIGH*1.003,'MACD顶'),COLORFFFF00{XG51};
C2:=BARSLAST(REF(CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)),1)){XG51};
D2:=REF(C,C2+1)<C AND REF("KDJ.K"(9,3,3),C2+1)>"KDJ.K"(9,3,3) AND CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)){XG51};
顶KDJ:DRAWTEXT(FILTER(D2>0,5),HIGH*1.0008,'↙'),COLORFFFF00{XG51};
DRAWTEXT(FILTER(D2>0,5),HIGH*1.003,'KDJ顶'),COLORFFFF00{XG51};
C3:=BARSLAST(REF(CROSS("RSI.RSI2"(8,55,55),"RSI.RSI1"(8,55,55)),1)){XG51};
D3:=REF(C,C3+1)<C AND REF("RSI.RSI1"(8,55,55),C3+1)>"RSI.RSI1"(8,55,55) AND CROSS("RSI.RSI2"(8,55,55),"RSI.RSI1"(8,55,55)){XG51};
顶RSI:DRAWTEXT(FILTER(D3>0,5),HIGH*1.0008,'↙'),COLOR00FF00{XG51};
DRAWTEXT(FILTER(D3>0,5),HIGH*1.003,'RSI顶'),COLOR00FFFF{X-G~5^1-C-N-{};