通达信共振密令指标公式源码副图

　　月DIF:"macd.DIF#MONTH"COLORMAGENTA,DOTLINE;

　　月DEA:"MacD.DEA#MONTH"COLORGREEN,DOTLINE;

　　周DIF:"MACD.DIF#WEEK";

　　周DEA:"MACD.DEA#WEEK";

　　STICKLINE(月DIF>月DEA AND 月DEA<0 AND 月DIF<0 AND {周DIF>=REF(周DIF,5) AND} Abs(月DIF)

　　DRAWBAND(月DIF,RGB(110,50,0),月DEA,RGB(0,160,50));

　　DRAWBAND(周DIF,RGB(180,160,221),周DEA,RGB(10,100,100));

　　月条件:=月DIF>0 AND 月DEA<0.15 AND 周DIF>=REF(周DIF,5);

　　周条件:=周DIF>0 AND 周DEA<0 AND 月DIF>月DEA AND 周DIF>=REF(周DIF,5) AND REF(周DIF,5)>=REF(周DIF,10) AND ABS(月DIF)-ABS(周DEA)<0.7 AND 周DEA>=月DIF;

　　N:=20;

　　CZ:=C-REF(C,1);

　　SU:=SUM(IF(CZ>0,CZ,0),N);

　　SD:=SUM(IF(CZ<0,ABS(CZ),0),N);

　　CMO:=(SU-SD)/(SU+SD)*100;

　　MCMO:=MA(CMO,5);

　　MA20:=MA(C,20);

　　MA60:=MA(C,60);

　　JC:=crOSS(MA20,MA60);

　　T:=BArslAST(JC);

　　A1:=CROSS(CMO,0);

　　A2X:=T<20;

　　A3:=MA20>MA60;

　　A4:=MA60>REF(MA60,1);

　　AA:=A1 AND A2X AND A3 AND A4;

　　NOTEXTDIFF1:=EMA(CLOSE,12)-EMA(CLOSE,26);

　　NOTEXTDEA1:=EMA(NOTEXTDIFF1,9);

　　DIF:EMA(CLOSE,12)-EMA(CLOSE,26),COLORRED;

　　DEA:EMA(DIF,9),COLORLIBLUE;

　　MACD:2*(DIF-DEA),COLORSTICK;

　　RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;

　　K:=SMA(RSV,3,1);

　　D:=SMA(K,3,1);

　　J:=(3*K-2*D)/100;

　　STICKLINE(K>D AND DIF>DEA,MACD,0,1.5,0),COLORLIRED;

　　密令:=HHV(MACD,3)=HHV(MACD,7) AND COUNT(EVERY(C>O,3),13)>0 AND COUNT(K>D AND DIF>DEA,3)=3 AND REF(K>D AND DIF>DEA,3)=0 AND NOT(周DIF<周DEA) AND 周DIF>REF(周DIF,5) AND 月DIF>REF(月DIF,20);

　　DRAWBAND((DIF>REF(DIF,1) AND DIF>0 AND DEA>0 AND DIF>DEA AND MACD>DIF AND MACD>=REF(MACD,1))*ABS(MACD),RGB(200,0,0),0,RGB(200,0,0));

　　DRAWICON(月条件,月DIF,42);

　　DRAWICON(周条件,周DIF,11);

　　A2:=BARSLAST(REF(CROSS(DEA,DIF),1));

　　顶背离:=REF(CLOSE,A2+1)DIF AND CROSS(DEA,DIF);

　　顶背:DRAWLINE(A2=0,DEA,顶背离,DEA,0),COLORGREEN,LINETHICK4;

　　DRAWICON(顶背离,DEA,2);

　　{DRAWBAND(K/100,RGB(255,0,0),D/100,RGB(0,255,255));}

　　DRAWTEXT(密令,-MACD*0.8,'追击密令')COLORRED;

　　DRAWICON(密令,0,9);

　　DRAWICON(密令,-MACD*0.4,9);

　　DRAWICON(密令,-MACD*0.8,9);