通达信共振密令指标公式

月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)<ABS(月DEA-月DIF),月DIF,0,4,0 ),COLORCCCCCC;
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)<CLOSE AND REF(DIF,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);