通达信简单明了MACD选股指标公式源码

通达信简单明了MACD选股指标公式源码

源码正文：

difF:=(ema(CLOSE,12) - Ema(CLOSE,26)){XG51};
DEA:=EMA(DIFF,9){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};
DRAWICON((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))),0, 0)  {XG51};
DRAWICON((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))),0,0) {XG51};
STICKLINE((MACD2 >= 0),0,MACD2,2,1),COLORWHITE {XG51};
STICKLINE(((MACD2 >= 0) AND (MACD2 < REF(MACD2,1))),0,MACD2,2,0),COLORWHITE{XG51};
STICKLINE((MACD2 < 0),0,MACD2,2,0),COLORFFFF00{XG51};
STICKLINE(((MACD2 < 0) AND (MACD2 > REF(MACD2,1))),0,MACD2,2,1),COLORFFFF00{XG51};
DIF:DIFF,LINETHICK1,COLORBLUE  {XG51};
MACD:DEA ,COLORMAGENTA {XG51};
DEF:MACD2,LINETHICK0,COLORFFFF00 {XG51};
STICKLINE((CLOSE > 0),0,0,0 ,0) {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};

_红柱:=IF("MACD.MACD">REF("MACD.MACD",1),"MACD.MACD",DRAWNULL),STICK,COLORWHITE{XG51};
绿柱:=IF("MACD.MACD"<REF("MACD.MACD",1),"MACD.MACD",DRAWNULL),STICK,COLORBLUE{XG51};
_抄底:=ABS((CROSS("MACD.DIF","MACD.DEA")
&&"MACD.DEA"<=-0.07)*"MACD.DIF")*1.50,COLORMAGENTA{XG51};
_DIF:="MACD.DIF",COLORRED{XG51};
_DEA:="MACD.DEA",COLORBLUE{XG51};
__强度:=IF(_DIF>_DEA,_DIF,DRAWNULL),COLORWHITE,LINETHICK2{XG51};
_强度:=IF(_DEA<_DIF,_DEA,DRAWNULL),COLORLIMAGENTA,LINETHICK2{XG51};
DRAWTEXT(ABS(_抄底)>0,_抄底*1.20,' 抄底'),COLORBLUE{XG51};
DRAWICON(CROSS(_DIF,_DEA),_DEA,1){XG51};
DRAWICON(CROSS(_DEA,_DIF),_DEA,2){XG51};
A111:=BARSLAST(REF(CROSS("MACD.DIF","MACD.DEA"),1)){XG51};
B1:=REF(C,A111+1)>C AND REF("MACD.DIF",A111+1)<"MACD.DIF" AND CROSS("MACD.DIF","MACD.DEA"){XG51};
DRAWTEXT(B1>0,_DIF*0.95,'MACD'),COLORWHITE;;
C1:=BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1)){XG51};
D1:=REF(C,C1+1)<C AND REF("MACD.DIF",C1+1)>"MACD.DIF" AND CROSS("MACD.DEA","MACD.DIF"){XG51};
DRAWTEXT(D1>0,_DEA*1.05,'MACD'),COLORRED;{XG51};
净资产增长率:FINANCE(33)/FINANCE(34),NODRAW{XG51};
每股收益:FINANCE(33),NODRAW{XG51};
公积金:FINANCE(18),NODRAW{XG51};
未分利润:FINANCE(32),NODRAW{XG51};
净资产:FINANCE(34),NODRAW{XG51};
流通股:FINANCE(7)/100000000,NODRAW{XG51};
总股本:FINANCE(1)/100000000,NODRAW{XG51};
市净率PB:C/FINANCE(34),NODRAW{XG51};
市盈率PE:C/FINANCE(33),NODRAW{XG51};
现金流:FINANCE(26)/100000000,NODRAW{XG51};
换手率:V*100/CAPITAL,NODRAW{XG51};
换手率20:SUM(V*100,20)/CAPITAL,NODRAW{XG51};
换手率60:SUM(V*100,60)/CAPITAL,NODRAW{XG51};
{XG51};
{X~G~5+1~C~N~{};