通达信RSI_KDJ_MACD共振副图公式

N1:=6;N2:=12;N3:=24;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:SMA(RSV,3,1),LINETHICK2,COLORWHITE;
D:SMA(K,3,1),LINETHICK2,COLORYELLOW;
J:3*K-2*D,LINETHICK2,COLORRED;
DIFF:EMA(CLOSE,12)-EMA(CLOSE,26),LINETHICK2,COLORGREEN;
DEA :EMA(DIFF,9),LINETHICK2,COLORBLUE;
MACD:2*(DIFF-DEA),LINETHICK2,COLORRED;
RSV1:=(HHV(H,9.8)-C)/(HHV(H,9.8)-LLV(L,9.8))*101;
KK:=SMA(RSV1,3,1);
DD:=SMA(KK,3,1);
JJ:=3*KK-2*DD;
买卖:=IF(JJ>=100,100,IF(JJ<=0,0,JJ));
明天买:IF(买卖=100,0-10,0),COLOR00CCCC;
明天卖:IF(买卖=0,90,100),COLOR00FF00;
TYP:=(HIGH+LOW+CLOSE)/3;
STICKLINE(DIFF>REF(DIFF,1),20,20,2,0),COLORRED;
STICKLINE(DIFF STICKLINE(K>=REF(K,1) OR K>D AND DIFF>REF(DIFF,1),80,80,2,1),COLORRED;
STICKLINE(K MACD金叉:=CROSS(MACD,DIFF) AND MACD>=(0-0.05) AND MACD<=0.02;
DRAWTEXT(MACD金叉,40,'▲MACD金叉'),COLORRED;
XX:=EMA(MA(LOW,3)*0.96,30);
DIFF金叉:=IF(CROSS(DIFF,DEA) AND XX-REF(XX,1)>0 AND MACD>=REF(MACD,1) AND DIFF<=0,1,0);
DRAWTEXT(DIFF金叉=1,35,'▲DIFF金叉'),COLORRED;
低位金叉:=CROSS(DIFF,DEA) AND DIFF<-0.1;
DRAWTEXT(低位金叉,25,'▲低位金叉'),COLORRED;
DIFDEA:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0));
二次金叉:=CROSS(DIFF,DEA) AND DEA<0 AND COUNT(DIFDEA=2,21)=1;
DRAWTEXT(二次金叉,20,'▲二次金叉'),COLORRED;
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
MACD底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA);
DRAWTEXT(MACD底背离,30,'▲MACD底背离'),COLORRED;
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1));
MACD顶背离:=REF(CLOSE,A2+1)DIFF AND CROSS(DEA,DIFF);
DRAWTEXT(FILTER(MACD顶背离,5),100,'▼MACD顶背离') ;
周DIFF:='MACD.DIFF#WEEK';
周DEA:='MACD.DEA#WEEK';
周MACD:='MACD.MACD#WEEK';
DIF周金叉:=CROSS(周DIFF,周DEA);
DRAWTEXT(DIF周金叉,45,'▲DIFF周金叉'),COLORRED;
DRAWTEXT(CROSS(周DEA,周DIFF),110,'▼DIFF周死叉') ;
MACD周金叉:=CROSS(周MACD,周DIFF) AND 周MACD>=(0-0.05) AND 周MACD<=0.02;
DRAWTEXT(MACD周金叉,50,'▲MACD周金叉'),COLORRED;
月DIFF:='MACD.DIFF#MONTH';
月DEA:='MACD.DEA#MONTH';
月MACD:='MACD.MACD#MONTH';
DIF月金叉:=CROSS(月DIFF,月DEA);
DRAWTEXT(DIF月金叉,55,'▲DIFF月金叉'),COLORRED ;
DRAWTEXT(CROSS(月DEA,月DIFF),105,'▼DIFF月死叉') ;
MACD月金叉:=CROSS(月MACD,月DIFF) AND 月MACD>=(0-0.05) AND 月MACD<=0.02;
DRAWTEXT(MACD月金叉,60,'▲MACD月金叉'),COLORRED;
周K:="KDJ.K#WEEK"(9,3,3);
周D:="KDJ.D#WEEK"(9,3,3);
周J:="KDJ.J#WEEK"(9,3,3);
月K:="KDJ.K#MONTH"(9,3,3);
月D:="KDJ.D#MONTH"(9,3,3);
月J:="KDJ.J#MONTH"(9,3,3);
KD月金叉:=CROSS(月K,月D);
KD周金叉:=CROSS(周K,周D);
KD日金叉:=FILTER(CROSS(K,D) AND D<50,4);
KD低位金叉:=FILTER(CROSS(K,D) AND D<20,4);
DRAWTEXT(KD月金叉,0,'▲KD月金叉'),COLORRED;
DRAWTEXT(KD周金叉,-5,'▲KD周金叉'),COLORRED ;
DRAWTEXT(KD日金叉,-10,'▲KD日金叉'),COLORRED ;
DRAWTEXT(KD低位金叉,5,'▲KD低位金叉'),COLORRED;
KD1:=COUNT(CROSS(K,D),BARSLAST(D>=50));
KD二次金叉:=CROSS(K,D) AND D<50 AND COUNT(KD1=2,21)=1;
DRAWTEXT(KD二次金叉,10,'▲KD二次金叉'),COLORRED ;
KD2:=COUNT(CROSS(D,K),BARSLAST(D<=50));
KD二次死叉:=CROSS(D,K) AND D>50 AND COUNT(KD2=2,21)=1;
DRAWTEXT(KD二次死叉,95,'▼KD二次死叉') ;
KD日死叉:=FILTER(CROSS(D,K) AND D>80,4);
DRAWTEXT(KD日死叉,80,'▼KD日死叉') ;
DRAWTEXT(CROSS(周D,周K),85,'KD周死叉') ;
DRAWTEXT(CROSS(月D,月K),90,'KD月死叉') ;
KDB:=BARSLAST(REF(CROSS(K,D),1));
KDDB:=REF(CLOSE,KDB+1)>CLOSE AND REF(K,KDB+1) KDJ底背离:=IF(FILTER(KDDB>0,5),1,0);
DRAWTEXT(KDJ底背离=1,15,'▲KDJ底背离'),COLORRED;
KDD:=BARSLAST(REF(CROSS(D,K),1));
KDJ顶背离:=REF(CLOSE,KDD+1)K AND CROSS(D,K);
DRAWTEXT(FILTER(KDJ顶背离>0,5),120,'▼KDJ顶背离') ;
RSI周金:DRAWTEXT(CROSS("RSI.RSI1#WEEK"(N1,N2,N3),"RSI.RSI2#WEEK"(N1,N2,N3)) ,65,'▲RSI周金'),COLORRED;
RSI周死:DRAWTEXT(CROSS("RSI.RSI2#WEEK"(N1,N2,N3),"RSI.RSI1#WEEK"(N1,N2,N3)) ,130,'▼RSI周死') ;
RSI月金:DRAWTEXT(CROSS("RSI.RSI1#MONTH"(N1,N2,N3),"RSI.RSI2#MONTH"(N1,N2,N3)) ,70,'▲RSI月金'),COLORRED;
RSI月死:DRAWTEXT(CROSS("RSI.RSI2#MONTH"(N1,N2,N3),"RSI.RSI1#MONTH"(N1,N2,N3)) ,115,'▼RSI月死') ;
A3:=BARSLAST(REF(CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1));
B3:=REF(C,A3+1)>C AND REF("RSI.RSI1"(6,12,24),A3+1)<"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,