通达信黄金MACD十代选股指标公式源码

通达信黄金MACD十代选股指标公式源码

源码正文：

N1:=12{XG51};
N2:=26{XG51};
N3:=9{XG51};
difF:=(ema(CLOSE,N1) - Ema(CLOSE,N2)){XG51};
DEA:=EMA(DIFF,N3){XG51};
macd2:=(2 * (DIFF - DEA)){XG51};
DU0:=crOSS(DIFF,0){XG51};
UD0:=CROSS(0,DIFF){XG51};
TDU0:=BArslAst(DU0){XG51};
TUD0:=BARSLAST(UD0){XG51};
DU3:=REF(DU0,1){XG51};
UD3:=REF(UD0,1){XG51};
TDU3:=BARSLAST(DU3){XG51};
TUD3:=BARSLAST(UD3){XG51};
UDGLINE:=IF((TDU3 < TUD3),REF(HHV(HIGH,2),TDU3),REF(LLV(LOW,2),TUD3)){XG51};
JDU0:=(((REF(CLOSE,1) <= REF(UDGLINE,1)) AND (CLOSE > UDGLINE)) AND (TDU0 < TUD0)){XG51};
JUD0:=(((REF(CLOSE,1) >= REF(UDGLINE,1)) AND (CLOSE < UDGLINE)) AND (TUD0 < TDU0)){XG51};
JDU1:=(JDU0 AND (COUNT(JDU0,TDU0) = 1)){XG51};
JUD1:=(JUD0 AND (COUNT(JUD0,TUD0) = 1)){XG51};
JDU2:=(JDU1 AND (REF(BARSLAST(JUD1),1) < REF(BARSLAST(JDU1),1))){XG51};
JUD2:=(JUD1 AND (REF(BARSLAST(JUD1),1) > REF(BARSLAST(JDU1),1))){XG51};
JDU3:=(JDU1 AND (REF(BARSLAST(JUD1),1) > REF(BARSLAST(JDU1),1))){XG51};
JUD3:=(JUD1 AND (REF(BARSLAST(JUD1),1) < REF(BARSLAST(JDU1),1))){XG51};
bsLINE:=IF((BARSLAST(JDU2) < BARSLAST(JUD2)),IF(REF(CROSS(0,MacD2),1),LLV(LOW,2),REF(LLV(LOW,2),BARSLAST(REF(CROSS(0,MACD2),1)))),IF(REF(CROSS(MACD2,0),1),HHV(HIGH,2),REF(HHV(HIGH,2),BARSLAST(REF(CROSS(MACD2,0),1))))){XG51};
STICKLINE((MACD2>=0),0,MACD2,2,0),COLORFF00FF{XG51};
STICKLINE(((MACD2>=0) AND (MACD2 < REF(MACD2,1))),0,MACD2,2,1),COLORCYAN{XG51};
STICKLINE((MACD2<0),0,MACD2,2,0),COLORFFFF00{XG51};
STICKLINE(((MACD2<0) AND (MACD2 > REF(MACD2,1))),0,MACD2,2,0),COLORBLUE{XG51};
DEFUT:=BARSLAST(CROSS(MACD2,0)){XG51};
DEFDT:=BARSLAST(CROSS(0,MACD2)){XG51};
DEFUL:=IF((MACD2 >= 0),HHV(MACD2,(DEFUT + 1)),REF(HHV(MACD2,(DEFUT + 1)),(DEFDT + 1))){XG51};
DEFDL:=IF((MACD2 < 0),LLV(MACD2,(DEFDT + 1)),REF(LLV(MACD2,(DEFDT + 1)),(DEFUT + 1))){XG51};
DEFU2L:=REF(DEFUL,(DEFUT + 1)){XG51};
DEFD2L:=REF(DEFDL,(DEFDT + 1)){XG51};
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1)){XG51};
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA){XG51};
STICKLINE(底背离,0,0.03,4,0),COLOR00FF00{XG51};
DIF2:EMA(SUM(MACD2,2),3),LINETHICK2,COLORBLUE{XG51};
入1:IF(DIF2>REF(DIF2,1),DIF2,DRAWNULL),COLORWHITE,LINETHICK2{XG51};
入2:IF(DIF2<REF(DIF2,1),DIF2,DRAWNULL),COLORCYAN,LINETHICK2{XG51};
DEA2:MA(DIF2,5),COLORGREEN{XG51};
DRAWICON(((((LLV(MACD2,4) > 0) AND (MACD2 < REF(MACD2,1))) AND (REF(MACD2,1) > REF(MACD2,2))) AND (REF(MACD2,2) > REF(MACD2,3))),MACD2,14){XG51};
DRAWICON(((((HHV(MACD2,4) < 0) AND (MACD2 > REF(MACD2,1))) AND (REF(MACD2,1) < REF(MACD2,2))) AND (REF(MACD2,2) < REF(MACD2,3))),MACD2,13){X.G~5~1.C.N.{};