通达信MACD精确背离选股指标公式源码

通达信MACD精确背离选股指标公式源码

源码正文：

SHORT:=12{XG51};
LONG:=26{XG51};
MID:=9{XG51};
difF:ema(CLOSE,SHORT)-Ema(CLOSE,LONG){XG51};
DEA:EMA(DIFF,MID){XG51};
macd:(DIFF-DEA)*2,COLORFFFF00,COLORstICK{XG51};
A1:=BArslAST(REF(crOSS(0, DEA),1)){XG51};
A2:= BARSLAST(REF(COUNT(DEA<=0,A1+1)=A1+1  AND  LLV(DIFF,5)=LLV(DIFF,A1+1)  AND  CROSS(DIFF,DEA),1)){XG51};
A3:= BARSLAST(REF(CROSS(DIFF,DEA),1)){XG51};
金叉:=IF(CROSS(DIFF,DEA) AND DEA<=0,0,DEA),COLORBLUE{XG51};
低位多次金叉:IF(CROSS(DIFF,DEA) AND COUNT(A2>=1,A2+1)>=1  AND  COUNT(DEA <=0,A2+1)=A2+1,0,DEA),COLORBLUE{XG51};
DIBL1:= LLV(CLOSE,A3+1)=LLV(CLOSE,A1+1)   AND NOT(LLV(DIFF,A3+1)=LLV(DIFF,A1+1)) AND CROSS(DIFF,DEA) AND COUNT(A2>=1,A2+1)>=1  AND  COUNT(DEA <=0,A2+1)=A2+1{XG51};
底背离:=IF(DIBL1,0,DEA){XG51};
DRAWLINE(A2=0,DEA,DIBL1=1,DEA,0),COLORWHITE,LINETHICK3{XG51};
B1:=BARSLAST(REF(CROSS(DEA,0),1)){XG51};
B2:=BARSLAST(REF(COUNT(DEA>=0,B1+1)=B1+1   AND   HHV(DIFF,5)=HHV(DIFF,A1+1)  AND  CROSS(DEA,DIFF),1)){XG51};
B3:=BARSLAST(REF(CROSS(DEA,DIFF),1)){XG51};
死叉:=IF(CROSS(DEA,DIFF) AND DEA>=0,0,DEA),COLORFFFF00{XG51};
高位多次死叉:IF(CROSS(DEA,DIFF) AND COUNT(B2>=1,B2+1)>=1   AND REF(COUNT(DEA >=0,B2+1)=B2+1,1),0,DEA),COLORFFFF00{XG51};
DINGBL1:= HHV(CLOSE,B3+1)=HHV(CLOSE,B1+1)   AND  NOT(HHV(DIFF,B3+1)=HHV(DIFF,B1+1)) AND CROSS(DEA,DIFF) AND COUNT(B2>=1,B2+1)>=1   AND  COUNT(DEA >=0,B2+1)=B2+1;
顶背离:=IF(DINGBL1,0,DEA){XG51};
DRAWLINE(B2=0,DEA,DINGBL1,DEA,0),COLOR00FF00,LINETHICK3{XG51};
STICKLINE(DIFF>DEA,MacD,0,1,0),COLORWHITE{XG51};
STICKLINE(DEA>DIFF,MACD,0,1,0),COLORFFFF00{X~G-5.1~C~N~{};