自用MACD超准(通达信)

自用MACD超准(通达信)

源码正文：

SQX:=(C-ma(CLOSE,13))*100{XG51};
difF:ema(MA(SQX,7),1),COLORRED{XG51};
DEA:EMA(DIFF,7),COLORBLUE{XG51};
DRAWBAND(DIFF,RGB(220,160,230),DEA,RGB(110,90,150)){XG51};
MacD:(DIFF-DEA)*2,COLORstICK{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD>0,0,MACD,0,0),COLORLIMAGENTA{XG51};
STICKLINE(MACD<REF(MACD,1)AND MACD<0,0,MACD,0,0),COLORCYAN{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD,0,MACD,0,0),COLORBLUE{XG51};
STICKLINE(MACD>REF(MACD,1)AND MACD>0,0,MACD,0,0),COLORWHITE{XG51};
低位金叉:IF(crOSS(DIFF,DEA) AND DIFF<-0.1,15,DRAWNULL),COLORLIMAGENTA,LINETHICK9,CROSSDOT{XG51};
IF(CROSS(DIFF,DEA) AND DIFF<-0.1,15,DRAWNULL),COLORBLUE,LINETHICK4,POINTDOT{XG51};
JCCOUNT:=COUNT(CROSS(DIFF,DEA),BArslAST(DEA>=0)){XG51};
二次金叉:IF(CROSS(DIFF,DEA) AND DEA<0 AND COUNT(JCCOUNT=2,21)=1,28,DRAWNULL),COLORFF00FF,LINETHICK4,CROSSDOT{XG51};
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1)){XG51};
底背离:IF(REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA),40,DRAWNULL),COLORWHITE,LINETHICK4,CROSSDOT{XG51};
势:DRAWLINE(A1=0,DEA,底背离,DEA,0),COLORCYAN{XG51};
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1)){XG51};
顶背离:=REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF AND CROSS(DEA,DIFF),COLORRED{XG51};
顶背离_:IF(REF(CLOSE,A2+1)<CLOSE AND REF(DIFF,A2+1)>DIFF
AND CROSS(DEA,DIFF),66,DRAWNULL)
,COLORF08000,LINETHICK4,CROSSDOT{XG51};
压:DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORFFBB99{XG51};
A3:=CROSS(DIFF,DEA) AND DEA<0{XG51};
零下二次金叉_:IF(FILTER(COUNT(A3,21)=2,10),53,DRAWNULL)
,COLORRED,LINETHICK4,CROSSDOT{X*G_5_1*C*N*{};