自用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-{};

源码正文：

A1:=DATE <= 13181231{XG51};
工作线:(ema(C,14)) * A1,POINTDOT,LINETHICK4,COLORBLUE;

AA05:ma(C,5),LINETHICK3,COLOR0099CC{XG51};
五日乖离率:=(C-AA05)/AA05*100{XG51};
BB05:=ATAN((AA05/REF(AA05,1)-1)*100)*180/3.1416{XG51};
速度5:=SMA(EMA((AA05-REF(AA05,1))/REF(AA05,1),3)*100,3,1){XG51};
加速度5:EMA((速度5-REF(速度5,1)),3),NODRAW{XG51};
IF(BB05>30 AND AA05>REF(AA05,1), AA05,DRAWNULL),LINETHICK2,COLORWHITE{XG51};
AA10:MA(C,10), LINETHICK0{XG51};
AA20:=MA(C,20){XG51};
BB10:=ATAN((AA10/REF(AA10,1)-1)*100)*180/3.1416{XG51};
IF(BB05<0 AND AA05<REF(AA05,1), AA05,DRAWNULL),LINETHICK2,COLORFFFF00{XG51};
AA30:MA(C,30), LINETHICK0{XG51};
三拾日乖离率:(C-AA30)/AA30*100,NODRAW{XG51};
VAR1:=(AA20-AA30)>REF((AA20-AA30),1) AND AA20>REF(AA20,1) AND AA30>REF(AA30,1){XG51};
VAR2:=(AA30-AA20)<REF((AA30-AA20),1) AND AA20<REF(AA20,1) AND AA30<REF(AA30,1){XG51};
BB30:=ATAN((AA30/REF(AA30,1)-1)*100)*180/3.1416{XG51};
强势狙击:=FILTER(BB30>30 AND BB10>45 AND crOSS(BB05,60),10){XG51};
加仓:=FILTER(COUNT(CROSS(BB05,30),5)>=1 AND AA05>REF(AA05,1) AND 三拾日乖离率>REF(三拾日乖离率,1) AND AA10>REF(AA10,1)
AND 加速度5>REF(加速度5,1) AND 速度5>REF(速度5,1) ,10) {XG51};
清仓:=FILTER(COUNT(CROSS(30,BB05),5)>=1 AND (C>AA30 OR O>AA30) AND AA05<REF(AA05,1) AND 三拾日乖离率<REF(三拾日乖离率,1) AND AA10<REF(AA10,1),10){XG51};
DRAWTEXT(加仓 ,LOW*0.98,'←-----加仓'),COLORBLUE{XG51};
JC:=CROSS(0,五日乖离率) AND 三拾日乖离率<REF(三拾日乖离率,1) AND AA10>REF(AA10,1) {XG51};
减仓:=FILTER(JC,10){XG51};
MR:=COUNT(CROSS(五日乖离率,0),3)>=1 AND 三拾日乖离率>REF(三拾日乖离率,1) AND AA05>REF(AA05,1) AND (C/REF(C,1)-1)*100>5 AND REF(C,1)<AA30{XG51};
买入:=FILTER(MR,10){XG51};
DRAWTEXT(减仓,HIGH*1.02,'←减仓'),COLORGREEN{XG51};
DRAWTEXT(买入,LOW*0.98,'←买入'),COLORBLUE;

TYP:=(HIGH+LOW+CLOSE)/3{XG51};
cci:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14));

VAR5:=CROSS(CCI,-100){XG51};
VAR6:=CCI>=200{XG51};
DRAWTEXT(VAR6,HIGH*1.02,'←----小心'),COLORBLUE;

SJ:=VAR5{XG51};
stICKLINE(SJ,H,L,0.6,0),COLORBLUE;

LC:=REF(CLOSE,1){XG51};
rsi:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(Abs(CLOSE-LC),6,1)*100{XG51};
DRAWTEXT(CROSS(84,RSI) , HIGH,'←-----逃'),COLORCYAN{XG51};
VAR3AA:=IF((CLOSE>REF(CLOSE,1)),88,0){XG51};
VAR4AA:=IF(((CLOSE)/(REF(CLOSE,1))>1.05) AND ((HIGH)/(CLOSE)<1.01) AND (VAR3AA>0),91,0){XG51};
DRAWTEXT(FILTER((VAR4AA>90),45),(LOW)*(0.93),'←---大胆搏 '),COLORBLUE;

A:=(3*C+L+O+H)/6{XG51};
X:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+
14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)
+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+
REF(A,20))/210{XG51};
生命线:EMA(X,13),LINETHICK2,COLORLIMAGENTA{X.G?5?1.C.N.{};