顶底背离MACD、RSI、KDJ顶底背离副图

DIFF:EMA(CLOSE,12) - EMA(CLOSE,26);
 DEA:EMA(DIFF,9);
 MACD:2*(DIFF-DEA),COLORSTICK,COLORBROWN;
 A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
 B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);

 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;

 LC:=REF(CLOSE,1);
 RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
 RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;

 A2:=BARSLAST(REF(CROSS(K,D),1));
 B2:=REF(C,A2+1)>C AND REF(K,A2+1)<K AND CROSS(K,D);
 A3:=BARSLAST(REF(CROSS(RSI1,RSI2),1));
 B3:=REF(C,A3+1)>C AND REF(RSI1,A3+1)<RSI1 AND CROSS(RSI1,RSI2);
 C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));
 D1:=REF(C,C1+1)<C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);
 C2:=BARSLAST(REF(CROSS(D,K),1));
 D2:=REF(C,C2+1)<C AND REF(K,C2+1)>K AND CROSS(D,K);
 C3:=BARSLAST(REF(CROSS(RSI2,RSI1),1));
 D3:=REF(C,C3+1)<C AND REF(RSI1,C3+1)>RSI1 AND CROSS(RSI2,RSI1);
 LL:= CONST(LLV(MACD, 180));
 HH:= CONST(HHV(MACD, 180));

 MACD底背:IF(B1>0, 1,0),NODRAW, COLORRED;
 RSI底背:IF(B3>0, 1,0),NODRAW, COLORFF00FF;
 KDJ底背:IF(B2>0, 1,0),NODRAW, COLORYELLOW;

 MACD顶背:IF(D1>0, 1,0),NODRAW, COLOR00FF00;
 KDJ顶背:IF(D2>0, 1,0),NODRAW, COLORFFCC66;
 RSI顶背:IF(D3>0,1,0),NODRAW, COLORWHITE;

 STICKLINE(B1>0, LL,0,2,0), COLORRED;
 STICKLINE(B2>0, LL * 0.75 ,0,2,0), COLORFF00FF;
 STICKLINE(B3>0, LL * 0.5, 0,2,0), COLORYELLOW;
 STICKLINE(D1>0,0,HH,2,0), COLOR00FF00;
 STICKLINE(D2>0,0,HH * 0.75,2,0), COLORFFCC66;
 STICKLINE(D3>0,0,HH * 0.75,2,0), COLORWHITE;

============================================

三底背离选股
 

DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
 DEA:=EMA(DIFF,9);
 MACD:=2*(DIFF-DEA);
 A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
 B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);

 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;

 LC:=REF(CLOSE,1);
 RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
 RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;

 A2:=BARSLAST(REF(CROSS(K,D),1));
 B2:=REF(C,A2+1)>C AND REF(K,A2+1)<K AND CROSS(K,D);
 A3:=BARSLAST(REF(CROSS(RSI1,RSI2),1));
 B3:=REF(C,A3+1)>C AND REF(RSI1,A3+1)<RSI1 AND CROSS(RSI1,RSI2);
 C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));
 D1:=REF(C,C1+1)<C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);
 C2:=BARSLAST(REF(CROSS(D,K),1));
 D2:=REF(C,C2+1)<C AND REF(K,C2+1)>K AND CROSS(D,K);
 C3:=BARSLAST(REF(CROSS(RSI2,RSI1),1));
 D3:=REF(C,C3+1)<C AND REF(RSI1,C3+1)>RSI1 AND CROSS(RSI2,RSI1);

 XG1:= IF(MACD底背, B1, 0);
 XG2:= IF(KDJ底背, B2, 0);
 XG3:= IF(RSI底背, B3, 0);

 XG1 OR XG2 OR XG3;

===================================================

三底共振选股
 

DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
 DEA:=EMA(DIFF,9);
 MACD:=2*(DIFF-DEA);
 A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
 B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);

 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;

 LC:=REF(CLOSE,1);
 RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
 RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;

 A2:=BARSLAST(REF(CROSS(K,D),1));
 B2:=REF(C,A2+1)>C AND REF(K,A2+1)<K AND CROSS(K,D);
 A3:=BARSLAST(REF(CROSS(RSI1,RSI2),1));
 B3:=REF(C,A3+1)>C AND REF(RSI1,A3+1)<RSI1 AND CROSS(RSI1,RSI2);
 C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));
 D1:=REF(C,C1+1)<C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);
 C2:=BARSLAST(REF(CROSS(D,K),1));
 D2:=REF(C,C2+1)<C AND REF(K,C2+1)>K AND CROSS(D,K);
 C3:=BARSLAST(REF(CROSS(RSI2,RSI1),1));
 D3:=REF(C,C3+1)<C AND REF(RSI1,C3+1)>RSI1 AND CROSS(RSI2,RSI1);

 XG1:= BARSLAST(B1) < 3;
 XG2:= BARSLAST(B2) < 3;
 XG3:= BARSLAST(B3) < 3;

共振:= XG1 + XG2 + XG3 >= N;
 XG:BARSLAST(共振) < 3 AND CLOSE < OPEN AND REF(CLOSE < OPEN, 1);