通达信至尊变色MACD选股指标公式源码

通达信至尊变色MACD选股指标公式源码

源码正文：

dif1:=ema(CLOSE,12) - Ema(CLOSE,26){XG51};
DEA1:=EMA(DIF1,9){XG51};
macd1:=2*(DIF1-DEA1),stICK{XG51};
MacD2:=EMA(MACD1,3){XG51};
STICKLINE(MACD1>MACD2 AND MACD1>0,0,MACD1,1,0),COLORWHITE{XG51};
STICKLINE(MACD1>MACD2 AND MACD1<0,0,MACD1,1,0),COLORCYAN{XG51};
STICKLINE(MACD1<MACD2,0,MACD1,1,0),COLORCBCBC0{XG51};
STICKLINE(MACD1>=0,0,0,50,1),COLORRED{XG51};
DIF:DIF1,COLOR33FF33{XG51};
DEA:DEA1,COLORBLUE{XG51};
MACD:MACD1,NODRAW,COLORLIMAGENTA{XG51};
强:IF(DIF1>=DEA1,DIF1,DRAWNULL),COLORWHITE,LINETHICK2{XG51};
低位金叉:=crOSS(DIF1,DEA1) AND DIF1<-0.1{XG51};
STICKLINE(低位金叉,0,0.08,6,0),COLORBLUE{XG51};
JCCOUNT:=COUNT(CROSS(DIF1,DEA1),BArslAST(DEA1>=0)){XG51};
二次金叉:=CROSS(DIF1,DEA1) AND DEA1<0 AND COUNT(JCCOUNT=2,21)=1{XG51};
DRAWICON(二次金叉,DEA1*0.9,1) {XG51};
A1:=BARSLAST(REF(CROSS(DIF1,DEA1),1)){XG51};
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIF1>REF(DIF1,A1+1) AND CROSS(DIF1,DEA1){XG51};
底背:DRAWLINE(A1=0,DEA1,底背离,DEA1,0),COLORYELLOW,LINETHICK2{XG51};
A2:=BARSLAST(REF(CROSS(DEA1,DIF1),1)){XG51};
顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIF1,A2+1)>DIF1 AND CROSS(DEA1,DIF1){XG51};
顶背:DRAWLINE(A2=0,DEA1,顶背离,DEA1,0),COLORFF00FF,LINETHICK2{XG51};
周期放大:=1{XG51};
数显开关:=1{XG51};
倍数:=
IF(PERIOD=11,1,
IF(PERIOD=10,4,
IF(PERIOD=9,6,
IF(PERIOD=8,10,
IF(PERIOD=7,12,
IF(PERIOD=6,5,
IF(PERIOD=5,5,
IF(PERIOD=4,4,
IF(PERIOD=3,8,
IF(PERIOD=2,4,
IF(PERIOD=1,6,
IF(PERIOD=0,5,
1)))))))))))){XG51};
N1:=IF(周期放大,12,12*倍数){XG51};
N2:=IF(周期放大,26,26*倍数){XG51};
N3:=IF(周期放大,9,9*倍数){XG51};
DIFF:EMA(CLOSE,N1) - EMA(CLOSE,N2),COLORRED,NODRAW{XG51};
红柱面积:IF(MACD>0,SUM(MACD,BARSLAST(MACD<0)),0),NODRAW,COLORWHITE{XG51};
绿柱面积:Abs(IF(MACD<0,SUM(MACD,BARSLAST(MACD>0)),0)),NODRAW,COLORLIBLUE{XG51};
MACD面积:=IF(MACD>0,红柱面积,绿柱面积),NODRAW,COLORFFFF00{XG51};
位置:=MAX(HHV(DIFF,100),ABS(LLV(DIFF,100))){XG51};
DRAWNUMBER(数显开关=1 AND LONGCROSS(DEA,DIFF,3),位置*0.8,REF(红柱面积,1)),COLORWHITE{XG51};
DRAWNUMBER(数显开关=1 AND LONGCROSS(DIFF,DEA,3),0-位置*0.5,REF(绿柱面积,1)),COLORCYAN{XG51};
NOTEXTLMH: DRAWNUMBER(数显开关=1 AND ISLASTBAR AND MACD>0,位置*0.8,红柱面积),COLORWHITE{XG51};
NOTEXTLML: DRAWNUMBER(数显开关=1 AND ISLASTBAR AND MACD<0,0-位置*0.5,绿柱面积),COLORCYAN{X^G?5.1^C^N^{};