十四款背离合集 MACD KD RSI DMI CCI各种背离
本文提供纯源码，适合各类流行的主流杭琴软件，例如通达信大智慧同花顺，
并无提供附件下载。
1 MACD背离指标
MCD1:EMA(C,12)-EMA(C,26),COLORRED;
MCD2:EMA(MCD1,9),COLORWHITE;
MCD3:(MCD1-MCD2)*2,COLORSTICK;
STICKLINE(((MCD3< REF(MCD3,1)) AND (MCD3>0)),0,MCD3,1,0),COLORLIBLUE;
STICKLINE(((MCD3>REF(MCD3,1)) AND (MCD3< 0)),0,MCD3,1,0),COLORFF00FF;
IF(MCD1< 0,MCD1,0),COLORYELLOW;
IF(MCD1< 0,0,MCD1),COLORRED;
IF(MCD1< MCD2,MCD1,MCD2),COLORWHITE;
IF(MCD1>MCD2,MCD2,MCD2),COLORFF937F;
MCD4:=COUNT(CROSS(MCD1,MCD2),BARSLAST(MCD2>=0));
MCD5:=CROSS(MCD1,MCD2) AND MCD2< 0 AND COUNT(MCD4=2,21)=1;
DRAWTEXT(MCD5,0.2,' 二次金叉'),COLORYELLOW;
MCD6:=BARSLAST(REF(CROSS(MCD1,MCD2),1));
MCD7:=REF(C,MCD6+1)>C AND MCD1>REF(MCD1,MCD6+1) AND CROSS(MCD1,MCD2);
STICKLINE(MCD7,0,0.03,6,0),COLOR00FF00;
MCD8:DRAWLINE(MCD6=0,MCD2,MCD7,MCD2,0),COLORRED;
DRAWTEXT(MCD7,0.12,' 底背离'),COLORFF00FF;
MCD9:=BARSLAST(REF(CROSS(MCD2,MCD1),1));
MCD10:=REF(C,MCD9+1)< C AND REF(MCD1,MCD9+1)>MCD1 AND CROSS(MCD2,MCD1);
MCD11:DRAWLINE(MCD9=0,MCD2,MCD10,MCD2,0),COLORGREEN;
2 KDJ背离指标
gspt1:=9;
gspt2:=3;
gspt3:=3;
gspt4:=(CLOSE-LLV(LOW,gspt1))/(HHV(HIGH,gspt1)-LLV(LOW,gspt1))*100;
gspt5:SMA(gspt4,gspt2,1);
gspt6:SMA(gspt5,gspt3,1);
gspt7:3*gspt5-2*gspt6;
gspt8:=CROSS(gspt5,gspt6) AND gspt6< 20;
STICKLINE(gspt8,gspt6,gspt6+8,5,0),COLORYELLOW;
gspt9:=COUNT(CROSS(gspt5,gspt6),BARSLAST(gspt5>=gspt6));
gspt10:=CROSS(gspt5,gspt6) AND gspt6< 20 AND COUNT(gspt9=2,34)=1;
STICKLINE(gspt10,gspt6,gspt6+5,5,0),COLORFF80FF;
DRAWICON(gspt10,gspt6*0.85,1) ;
gspt11:=BARSLAST(REF(CROSS(gspt5,gspt6),1));
gspt12:=REF(CLOSE,gspt11+1)>CLOSE AND gspt5>REF(gspt5,gspt11+1) AND CROSS(gspt5,gspt6);
STICKLINE(gspt12,gspt6,gspt6+5,5,0),COLORRED;
DRAWLINE(gspt11=0,gspt6,gspt12,gspt6,0),COLORRED,LINETHICK2;
DRAWTEXT(gspt12>0,gspt7,'D底背离'),COLORRED;
gspt13:=BARSLAST(REF(CROSS(gspt6,gspt5),1));
gspt14:=REF(CLOSE,gspt13+1)< CLOSE AND REF(gspt6,gspt13+1)>gspt6 AND CROSS(gspt6,gspt5);
DRAWLINE(gspt13=0,gspt6,gspt14,gspt6,0),COLORGREEN,LINETHICK2;
DRAWTEXT(gspt14>0,gspt5+2,'D顶背离'),COLORGREEN;
3 KDJ优化背离指标
LOWV:=EMA(LLV(LOW,34),3);
HIGHV:=EMA(HHV(HIGH,34),3);
RSV:=EMA((CLOSE-LOWV)/(HIGHV-LOWV)*100,3);
K:=SMA(RSV,8,1);
D:=SMA(K,6,1);
J:3*K-2*D;
J1:MA(J,3);
A1:=BARSLAST(REF(CROSS(J,J1),1));
AA:=REF(CLOSE,A1+1)>CLOSE AND J>REF(J,A1+1) AND CROSS(J,J1) AND J< 20;
STICKLINE(AA,0,25,3,0),COLORMAGENTA;
DRAWTEXT(AA>0,30,'底背离');
A2:=BARSLAST(REF(CROSS(J1,J),1));
BB:=REF(CLOSE,A2+1)< CLOSE AND REF(J1,A2+1)>J1 AND CROSS(J1,J) AND J>90;
DRAWTEXT(BB>0,75,'顶背离');
STICKLINE(BB,100,80,3,0),COLORGREEN;
100;
50;
0;
4 RSI背离指标
LC :=REF(CLOSE,1);
RSI1:SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
RSI2:SMA(MAX(CLOSE-LC,0),24,1)/SMA(ABS(CLOSE-LC),24,1)*100;
A12022:=BARSLAST(REF(CROSS(RSI1,RSI2),1));
R底背离:=REF(C,A12022+1)>C AND RSI1>REF(RSI1,A12022+1) AND CROSS(RSI1,RSI2);
DRAWTEXT(R底背离,RSI2,' 底背离'),COLORYELLOW;
A22022:=BARSLAST(REF(CROSS(RSI2,RSI1),1));
R顶背离:=REF(C,A22022+1)< C AND REF(RSI1,A22022+1)>RSI1 AND CROSS(RSI2,RSI1);
DRAWTEXT(R顶背离,RSI2,'顶背离'),COLORGREEN;
DD2022:=CROSS(RSI2,RSI1);
DRAWICON(DD2022,RSI1,1);
KK2022:=CROSS(RSI1,RSI2);
DRAWICON(KK2022,RSI1,2);
DRAWLINE(A12022=0,RSI2,R底背离,RSI2,0),COLORRED;
DRAWLINE(A22022=0,RSI2,R顶背离,RSI2,0),COLORGREEN;
5 CCI背离指标
gspt1:=14;
gspt2:=(HIGH+LOW+CLOSE)/3;
gspt3:(gspt2-MA(gspt2,gspt1))/(0.015*AVEDEV(gspt2,gspt1));
gspt4:=gspt3;
gspt5:=REF(gspt4,gspt1)=HHV(gspt4,2*gspt1+1);
gspt6:=BACKSET(gspt5,gspt1+1);
gspt7:=FILTER(gspt6,gspt1) AND gspt4=HHV(gspt4,gspt1+1);
gspt8:=BARSLAST(REF(gspt7,1));
gspt9:=REF(CLOSE,gspt8+1)< CLOSE AND REF(gspt4,gspt8+1)>gspt4 AND gspt7;
DRAWICON(gspt9,gspt3*0.9,1);
gspt10:=BACKSET(gspt9,REF(BARSLAST(gspt7),1)+2);
DRAWLINE(CROSS(gspt10,0.5),gspt4,CROSS(FILTER(gspt9>0,5),0.5),gspt4,0),COLORGREEN,LINETHICK2;
gspt11:=REF(gspt4,gspt1)=LLV(gspt4,2*gspt1+1);
gspt12:=BACKSET(gspt11,gspt1+1);
gspt13:=FILTER(gspt12,gspt1) AND gspt4=LLV(gspt4,gspt1+1);
gspt14:=BARSLAST(REF(gspt13,1));
gspt15:=REF(CLOSE,gspt14+1)>CLOSE AND REF(gspt4,gspt14+1)< gspt4 AND gspt13;
gspt16:=BACKSET(gspt15,REF(BARSLAST(gspt13),1)+2);
DRAWLINE(CROSS(gspt16,0.5),gspt4,CROSS(FILTER(gspt15>0,5),0.5),gspt4,0),COLORMAGENTA,LINETHICK2;
DRAWICON(gspt15,-130,2);
IF(gspt3>=100,gspt3,DRAWNULL),COLORGREEN;
IF(gspt3<=-100,gspt3,DRAWNULL),COLORRED;
6 三指标组合背离
DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIFF,8);
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)< DIFF AND CROSS(DIFF,DEA);
DRAWTEXT(IF(B1>0,1,0),L,'MACD底背'),COLORGREEN;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
A2:=BARSLAST(REF(CROSS(K,D),1));
B2:=REF(C,A2+1)>C AND REF(K,A2+1)< K AND CROSS(K,D);
DRAWTEXT(IF(B2>0,1,0),L*0.999,'KDJ底背'),COLORYELLOW;
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;
A3:=BARSLAST(REF(CROSS(RSI1,RSI2),1));
B3:=REF(C,A3+1)>C AND REF(RSI1,A3+1)< RSI1 AND CROSS(RSI1,RSI2);
DRAWTEXT(IF(B3>0,1,0),L*0.998,'RSI底背'),COLORCYAN;
C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));
D1:=REF(C,C1+1)< C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);
DRAWTEXT(IF(D1>0,1,0),H,'MACD顶背'),COLORWHITE;
C2:=BARSLAST(REF(CROSS(D,K),1));
D2:=REF(C,C2+1)< C AND REF(K,C2+1)>K AND CROSS(D,K);
DRAWTEXT(IF(D2>0,1,0),H*1.001,'KDJ顶背'),COLORWHITE;
C3:=BARSLAST(REF(CROSS(RSI2,RSI1),1));
D3:=REF(C,C3+1)< C AND REF(RSI1,C3+1)>RSI1 AND CROSS(RSI2,RSI1);
DRAWTEXT(IF(D3>0,1,0),H*1.002,'RSI顶背'),COLORMAGENTA;
7 四指标组合背离
ZHBL1:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
ZHBL2:=SMA(ZHBL1,3,1);
ZHBL3:=SMA(ZHBL2,3,1);
ZHBL4:=3*ZHBL2-2*ZHBL3;
ZHBL5:=REF(C,1);
ZHBL6:=SMA(MAX(C-ZHBL5,0),6,1)/SMA(ABS(C-ZHBL5),6,1)*100;
ZHBL7:=SMA(MAX(C-ZHBL5,0),12,1)/SMA(ABS(C-ZHBL5),12,1)*100;
ZHBL8:=SMA(MAX(C-ZHBL5,0),24,1)/SMA(ABS(C-ZHBL5),24,1)*100;
ZHBL9:ZHBL6-ZHBL8, COLORSTICK,LINETHICK0;
ZHBL10:=BARSLAST(REF(CROSS(ZHBL2,ZHBL3),1));
ZHBL11:=REF(C,ZHBL10+1)>C AND REF(ZHBL2,ZHBL10+1)< ZHBL2 AND CROSS(ZHBL2,ZHBL3);
ZHBL12:=BARSLAST(REF(CROSS(ZHBL6,ZHBL7),1));
ZHBL13:=REF(C,ZHBL12+1)>C AND REF(ZHBL6,ZHBL12+1)< ZHBL6 AND CROSS(ZHBL6,ZHBL7);
ZHBL14:=BARSLAST(REF(CROSS(ZHBL3,ZHBL2),1));
ZHBL15:=REF(C,ZHBL14+1)< C AND REF(ZHBL2,ZHBL14+1)>ZHBL2 AND CROSS(ZHBL3,ZHBL2);
ZHBL16:=BARSLAST(REF(CROSS(ZHBL7,ZHBL6),1));
ZHBL17:=REF(C,ZHBL16+1)< C AND REF(ZHBL6,ZHBL16+1)>ZHBL6 AND CROSS(ZHBL7,ZHBL6);
ZHBL18:IF(ZHBL11>0,1,0),COLORRED,POINTDOT;
ZHBL19:IF(ZHBL13>0,1,0),COLORYELLOW,POINTDOT;
ZHBL20:IF(ZHBL15>0,1,0),COLORBLUE,POINTDOT;
ZHBL21:IF(ZHBL17>0,1,0),COLORGREEN,POINTDOT;
ZHBL22:=EMA(CLOSE,12)-EMA(CLOSE,26),COLORYELLOW;
ZHBL23:=EMA(ZHBL22,9),COLORCYAN;
ZHBL24:=2*(ZHBL22-ZHBL23),COLORSTICK;
ZHBL25:=SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14);
ZHBL26:=HIGH-REF(HIGH,1);
ZHBL27:=REF(LOW,1)-LOW;
ZHBL28:=SUM(IF(ZHBL26>0 AND ZHBL26>ZHBL27,ZHBL26,0),14);
ZHBL29:=SUM(IF(ZHBL27>0 AND ZHBL27>ZHBL26,ZHBL27,0),14);
ZHBL30:=ZHBL28*100/ZHBL25;
ZHBL31:=ZHBL29*100/ZHBL25;
ZHBL32:=BARSLAST(REF(CROSS(ZHBL22,ZHBL23),1));
ZHBL33:=REF(CLOSE,ZHBL32+1)>CLOSE && REF(ZHBL22,ZHBL32+1)< ZHBL22 && CROSS(ZHBL22,ZHBL23);
ZHBL34:=BARSLAST(REF(CROSS(ZHBL23,ZHBL22),1));
ZHBL35:=REF(CLOSE,ZHBL34+1)< CLOSE && REF(ZHBL22,ZHBL34+1)>ZHBL22 && CROSS(ZHBL23,ZHBL22);
ZHBL36:=BARSLAST(REF(CROSS(ZHBL31,ZHBL30),1));
ZHBL37:=REF(C,C+1)< C AND REF(ZHBL31,ZHBL36+1)>ZHBL31 AND CROSS(ZHBL31,ZHBL30);
ZHBL38:=BARSLAST(REF(CROSS(ZHBL30,ZHBL31),1));
ZHBL39:=REF(C,ZHBL38+1)>C AND REF(ZHBL30,ZHBL38+1)< ZHBL30 AND CROSS(ZHBL30,ZHBL31);
ZHBL40:IF(ZHBL33>0,1,0),COLORRED,NODRAW;
ZHBL41:IF(ZHBL39>0,1,0),NODRAW;
ZHBL42:IF(ZHBL35>0,1,0),COLOR00FF00,NODRAW;
ZHBL43:IF(ZHBL37>0,1,0),COLORRED,NODRAW;
DRAWTEXT(ZHBL40,ZHBL9,'M低'),COLORRED;
DRAWTEXT(ZHBL18,ZHBL9,'K低'),COLORFF00FF;
DRAWTEXT(ZHBL19,ZHBL9,'R低'),COLORYELLOW;
DRAWTEXT(ZHBL41,ZHBL9,'D低'),COLORRED;
DRAWTEXT(ZHBL42,ZHBL9,'M顶'),COLOR00FF00;
DRAWTEXT(ZHBL20,ZHBL9,'K顶'),COLORFFCC66;
DRAWTEXT(ZHBL21,ZHBL9,'R顶'),COLORWHITE;
DRAWTEXT(ZHBL43,ZHBL9,'D顶'),COLORMAGENTA;
STICKLINE(ZHBL11>0 ,-25,0,5,0),COLORRED;
STICKLINE(ZHBL13>0 ,-25,0,5,0),COLORYELLOW;
STICKLINE(ZHBL15>0 ,25,0,5,0),COLORBLUE;
STICKLINE(ZHBL17>0,25,0,5,0),COLORGREEN;
8 MACD新高低背离
M:=20;
DIFF:EMA(CLOSE,12) - EMA(CLOSE,26);
DEA :EMA(DIFF,9),COLORGREEN;
MACD:2*(DIFF-DEA), COLORSTICK;
AA2000:=CLOSE>REF(HHV(HIGH,M),1) AND MACD< REF(HHV(MACD,M),1) ;
BB2000:=CLOSE< REF(LLV(LOW,M),1) AND MACD>REF(LLV(MACD,M),1) ;
DRAWTEXT(AA2000,MACD,'▲顶背离'),COLORYELLOW;
DRAWTEXT(BB2000,MACD,'▼低背离'),COLORGREEN;
9 MACD均线背离
DIF:EMA(CLOSE,12)-EMA(CLOSE,26),COLORWHITE;
DEA:EMA(DIF,9),COLORYELLOW;
MACD:(DIF-DEA)*2,COLORSTICK;
A1:=BARSLAST(REF(CROSS(DEA,DIF),1));
A2:=BARSLAST(REF(CROSS(DIF,DEA),1));
DD2022:=HHV(MA(C,2),9)>REF(HHV(MA(C,2),9),A1) AND HHV(DIF,5)< REF(HHV(DIF,5),A1) AND CROSS(DEA,DIF);
KK2022:=LLV(MA(C,2),9)< REF(LLV(MA(C,2),9),A2) AND LLV(DIF,5)>REF(LLV(DIF,5),A2) AND CROSS(DIF,DEA);
DRAWTEXT(DD2022,DEA+0.1,'顶背离'),COLORGREEN ;
DRAWTEXT(KK2022,DEA-0.1,'底背离'),COLORYELLOW;
DRAWICON(CROSS(DEA,DIF),DEA,5);
DRAWICON(CROSS(DIF,DEA),DEA,4);
10 MACD结构背离
JGBL1:100*(EMA(CLOSE,12)-EMA(CLOSE,26));
JGBL2:EMA(JGBL1,9);
JGBL3:(JGBL1-JGBL2)*2,COLORSTICK;
JGBL4:=CROSS(JGBL2,JGBL1);
JGBL5:=BARSLAST(JGBL4),NODRAW;
JGBL6:=REF(BARSLAST(JGBL4),JGBL5+1),NODRAW;
JGBL7:=REF(BARSLAST(JGBL4),JGBL6+JGBL5+2),NODRAW;
JGBL8:=LLV(C,JGBL5+1),NODRAW;
JGBL9:=LLV(JGBL1,JGBL5+1),NODRAW;
JGBL10:=REF(JGBL8,JGBL5+1),NODRAW;
JGBL11:=REF(JGBL9,JGBL5+1),NODRAW;
JGBL12:=REF(JGBL10,JGBL5+1),NODRAW;
JGBL13:=REF(JGBL11,JGBL5+1),NODRAW;
JGBL14:=IF(JGBL11>0,INTPART(LOG(JGBL11))-1,INTPART(LOG(-(JGBL11)))-1);
JGBL15:=INTPART(JGBL11/POW(10,JGBL14));
JGBL16:=IF(JGBL13>0,INTPART(LOG(JGBL13))-1,INTPART(LOG(-(JGBL13)))-1);
JGBL17:=INTPART(JGBL13/POW(10,JGBL16));
JGBL18:=INTPART(JGBL1/POW(10,JGBL14));
JGBL19:=INTPART(JGBL1/POW(10,JGBL16));
JGBL20:=(JGBL8< JGBL10 ) AND (JGBL18>JGBL15) AND (JGBL3< 0 AND REF(JGBL3,1)< 0) AND JGBL18<=REF(JGBL18,1);
JGBL21:=(JGBL8< JGBL12 AND JGBL12< JGBL10 ) AND (JGBL19>JGBL17) AND (JGBL3< 0 AND REF(JGBL3,1)< 0) AND JGBL19<=REF(JGBL19,1);
JGBL22:JGBL20 OR JGBL21,NODRAW;
JGBL23:((JGBL18>REF(JGBL18,1))*REF(JGBL20,1)) OR ((JGBL19>REF(JGBL19,1))*REF(JGBL21,1)),NODRAW;
JGBL24:=(REF(JGBL20,1) AND JGBL9<=JGBL11 ) OR (REF(JGBL21,1) AND JGBL9<=JGBL13);
JGBL25:=BARSLAST(JGBL3>0);
DRAWTEXT(COUNT(JGBL22,JGBL25)=1 AND NOT(REF(COUNT(JGBL22,JGBL25)=1 ,1)),(JGBL1+JGBL3),'钝化'),COLORRED;
STICKLINE(JGBL22 OR JGBL23,JGBL1,JGBL2,1,0),COLORRED;
JGBL26:=BARSLAST(JGBL22);
DRAWTEXT(JGBL24,(JGBL3),'消失'),COLORYELLOW;
JGBL27:=BARSLAST(JGBL3>0);
DRAWTEXT(COUNT(JGBL23,JGBL27)=1 AND NOT(REF(COUNT(JGBL23,JGBL27)=1,1)),JGBL1*1.1,'结构形成'),COLORMAGENTA;
JGBL28:=CROSS(JGBL1,JGBL2);
JGBL29:=BARSLAST(JGBL28),NODRAW;
JGBL30:=REF(BARSLAST(JGBL28),JGBL29+1),NODRAW;
JGBL31:=REF(BARSLAST(JGBL28),JGBL30+JGBL29+2),NODRAW;
JGBL32:=HHV(C,JGBL29+1),NODRAW;
JGBL33:=HHV(JGBL1,JGBL29+1),NODRAW;
JGBL34:=REF(JGBL32,JGBL29+1),NODRAW;
JGBL35:=REF(JGBL33,JGBL29+1),NODRAW;
JGBL36:=REF(JGBL34,JGBL29+1),NODRAW;
JGBL37:=REF(JGBL35,JGBL29+1),NODRAW;
JGBL38:=IF(JGBL35>0,INTPART(LOG(JGBL35))-1,INTPART(LOG(-(JGBL35)))-1);
JGBL39:=INTPART(JGBL35/POW(10,JGBL38));
JGBL40:=IF(JGBL37>0,INTPART(LOG(JGBL37))-1,INTPART(LOG(-(JGBL37)))-1);
JGBL41:=INTPART(JGBL37/POW(10,JGBL40));
JGBL42:=INTPART(JGBL1/POW(10,JGBL38));
JGBL43:=INTPART(JGBL1/POW(10,JGBL40));
JGBL44:=(JGBL32>JGBL34 ) AND (JGBL42< JGBL39) AND (JGBL3>0 AND REF(JGBL3,1)>0) AND JGBL42>=REF(JGBL42,1);
JGBL45:=(JGBL32>JGBL36 AND JGBL36>JGBL34 ) AND (JGBL43< JGBL41) AND (JGBL3>0 AND REF(JGBL3,1)>0) AND JGBL43>=REF(JGBL43,1);
JGBL46:JGBL44 OR JGBL45,NODRAW;
JGBL47:((JGBL42< REF(JGBL42,1))*REF(JGBL44,1)) OR ((JGBL43< REF(JGBL43,1))*REF(JGBL45,1)),NODRAW;
JGBL48:=(REF(JGBL44,1) AND JGBL33>=JGBL35 ) OR (REF(JGBL45,1) AND JGBL33>=JGBL37);
JGBL49:=BARSLAST(JGBL3< 0);
DRAWTEXT(COUNT(JGBL46,JGBL49)=1 AND REF(COUNT(JGBL46,JGBL49),1)< 1,(JGBL1+JGBL3),'钝化'),COLORGREEN;
JGBL50:=BARSLAST(JGBL46);
DRAWTEXT(JGBL48,(JGBL3),'消失'),COLORYELLOW;
STICKLINE(JGBL46 OR JGBL47,JGBL1,JGBL2,1,0),COLORGREEN;
DRAWTEXT(COUNT(JGBL47,JGBL49)=1 AND REF(COUNT(JGBL47,JGBL49),1)< 1,JGBL1*1.02,'结构形成'),COLORMAGENTA;
JGBL51:JGBL44 OR JGBL45,NODRAW,COLORGREEN;
JGBL52:JGBL20 OR JGBL21,NODRAW,COLORYELLOW;
DRAWTEXT(JGBL51,0,'顶背'),COLORGREEN;
DRAWTEXT(JGBL52,0,'底背'),COLORGREEN;
11 特殊MACD背离
DIFF : EMA(CLOSE,12) - EMA(CLOSE,26),COLORBFFF10;
DEA : EMA(DIFF,9);
IF(DIFF>DEA AND DIFF< 0,DIFF,DRAWNULL),COLORBFA4D9,LINETHICK2;
IF(DIFF>DEA AND DIFF>0,DIFF,DRAWNULL),COLORRED,LINETHICK2;
IF(DEA< 0,DEA,DRAWNULL),COLORBLUE,LINETHICK2;
MACD : 2*(DIFF-DEA), COLORSTICK;
MA1:=REF(MACD,1),POINTDOT,COLORGRAY;
STICKLINE(DEA>0 AND MACD< MA1 AND MACD>=0,0,MACD,1,1),COLORBFA4D9;
STICKLINE(DEA< 0 AND MACD>=MA1 AND MACD< 0,0,MACD,1,1),COLORBFFF10;
MN:=BARSLAST(CROSS(DEA,0))+1;
SN:=BARSLAST(CROSS(DIFF,DEA))+1;
数:=COUNT(CROSS(DEA,DIFF) AND DEA>0,MN);
顶背离:=CROSS(DEA,DIFF) AND 数>1 AND HHV(DIFF,SN)< HHV(DIFF,MN) AND HHV(H,SN)=HHV(H,MN),NODRAW;
顶:=HHV(DIFF,MN),POINTDOT,COLORGREEN;
STICKLINE(顶=REF(顶,1) AND DEA>0,顶,顶,5,0),COLORGREEN;
DRAWTEXT(顶背离,顶,'顶背离');
DRAWNUMBER(CROSS(DEA,DIFF) AND DEA>0,顶*1.3,数),COLORGREEN;
MN1:=BARSLAST(CROSS(0,DEA))+1;
JN:=BARSLAST(CROSS(DEA,DIFF))+1;
数1:=COUNT(CROSS(DIFF,DEA) AND DEA< 0,MN1);
底背离:CROSS(DIFF,DEA) AND 数1>1 AND LLV(DIFF,MN1)< LLV(DIFF,JN) AND LLV(L,JN)=LLV(L,MN1),NODRAW;
底:=LLV(DIFF,MN1),POINTDOT,COLORRED;
STICKLINE(底=REF(底,1) AND DEA< 0,底,底,5,0),COLORYELLOW;
DRAWTEXT(底背离,底,'底背离');
DRAWNUMBER(CROSS(DIFF,DEA) AND DEA< 0,底*0.7,数1),COLORYELLOW;
12 MACD连线背离
gspt1:=7;
gspt2:=7;
gspt3:=9;
gspt4:=3;
gspt5:=3;
gspt6:=(CLOSE-LLV(LOW,gspt3))/(HHV(HIGH,gspt3)-LLV(LOW,gspt3))*100;
gspt7:SMA(gspt6,gspt4,1);
gspt8:SMA(gspt7,gspt5,1);
gspt9:3*gspt7-2*gspt8,LINETHICK2;
IF(gspt9>100-10,95-10,100-10),COLORGREEN,LINETHICK2;
IF(gspt9< 0+10,5+10,0),COLORRED,LINETHICK2;
IF(gspt9>100-10,gspt9,DRAWNULL),COLORBLUE,LINETHICK3;
IF(gspt9< -5+10,gspt9,DRAWNULL),COLORRED,LINETHICK3;
gspt10:(C-REF(C,1))/REF(C,1)*100,NODRAW;
gspt11:=REF(gspt9,1)< -15 AND gspt9>REF(gspt9,1) AND C< REF(C,1) AND COUNT(gspt10< -4,2)>=1;
DRAWICON(gspt11,gspt9,1);
gspt12:=REF(gspt9,1)>=110 AND gspt9< REF(gspt9,1) AND C>=REF(C,1) AND gspt9>105;
DRAWICON(gspt12,gspt9,2);
gspt13:=CROSS(gspt7,gspt8) AND REF(gspt9,1)< 0;
STICKLINE(gspt13,0,20,3,0),COLORYELLOW;
gspt14:=CROSS(gspt7,gspt8) AND COUNT(CROSS(gspt7,gspt8),5)>=2 ;
gspt15:=BARSLAST(REF(CROSS(gspt7,gspt8),1));
gspt16:=REF(CLOSE,gspt15+1)>CLOSE AND gspt7>REF(gspt7,gspt15+1) AND CROSS(gspt7,gspt8) AND gspt9< 50;
gspt17:=CROSS(gspt8,gspt7) AND REF(gspt9,1)>100;
STICKLINE(gspt17,100,80,3,0),COLORGREEN;
DRAWICON(gspt16,gspt9,26);
gspt18:=BARSLAST(REF(CROSS(gspt8,gspt7),1));
gspt19:=REF(CLOSE,gspt18+1)< CLOSE AND REF(gspt8,gspt18+1)>gspt8 AND CROSS(gspt8,gspt7) AND REF(gspt9,1)>70;
DRAWICON(gspt19,gspt9,27);
gspt20:=REF(gspt9,3)=HHV(gspt9,2*3+1);
gspt21:=BACKSET(gspt20,3+1);
gspt22:=FILTER(gspt21,3) AND gspt9=HHV(gspt9,3+1);
gspt23:=BARSLAST(REF(gspt22,1));
gspt24:=REF(CLOSE,gspt23+1)< CLOSE AND REF(gspt9,gspt23+1)>gspt9 AND gspt22;
gspt25:=BARSLAST(gspt22);
gspt26:=BACKSET(FILTER(gspt24>0,5),REF(gspt25,1)+1);
DRAWLINE(CROSS(REFX(gspt26=1,1),0.5),gspt9,FILTER(gspt24>0,5),gspt9,0),COLORGREEN,LINETHICK2;
gspt27:=REF(gspt9,3)=LLV(gspt9,2*3+1);
gspt28:=BACKSET(gspt27,3+1);
gspt29:=FILTER(gspt28,3) AND gspt9=LLV(gspt9,3+1) AND gspt9< 40 ;
gspt30:=BARSLAST(REF(gspt29,1));
gspt31:=REF(C,gspt30+1)>CLOSE AND REF(gspt9,gspt30+1)< gspt9 AND gspt29;
gspt32:=BARSLAST(gspt29 AND gspt9< 40);
gspt33:=BACKSET(FILTER(gspt31>0,5),REF(gspt32,1)+1);
DRAWLINE(CROSS(REFX(gspt33=1,1),0.5),gspt9,FILTER(gspt31>0,5),gspt9,0),COLORYELLOW,LINETHICK2;
gspt34:=C=LLV(C,6);
gspt35:=gspt9=LLV(gspt9,6);
gspt36:=gspt34=1 AND gspt35=0 AND gspt9< 10;
gspt37:=C=LLV(C,12);
gspt38:=gspt9=LLV(gspt9,12);
gspt39:=gspt37=1 AND gspt38=0 AND gspt9< 10;
gspt40:=gspt36 AND gspt39;
gspt41:=gspt40;
gspt42:=C=HHV(C,6);
gspt43:=gspt9=HHV(gspt9,6);
gspt44:=gspt42=1 AND gspt43=0 AND gspt9>85;
gspt45:=C=HHV(C,12);
gspt46:=gspt9=HHV(gspt9,12);
gspt47:=gspt45=1 AND gspt46=0 AND gspt9>85;
gspt48:=gspt44 AND gspt47;
gspt49:=gspt48;
gspt50:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND REF(gspt9,1)>90 AND gspt9>50;
gspt51:=BARSLAST(REF(gspt50,1));
gspt52:=gspt51<=36 AND REF(CLOSE,gspt51+2)< REF(CLOSE,1) AND REF(gspt9,1)< REF(gspt9,gspt51+2) AND gspt50;
gspt53:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND REF(gspt9,1)>100.6 AND gspt9>50;
gspt54:=BARSLAST(REF(gspt53,1));
gspt55:=gspt54<=36 AND REF(CLOSE,gspt54+2)< REF(CLOSE,1) AND REF(gspt9,1)< REF(gspt9,gspt54+2) AND gspt53;
gspt56:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND REF(gspt9,1)>105 AND gspt9>50;
gspt57:=BARSLAST(REF(gspt56,1));
gspt58:=gspt57<=36 AND REF(CLOSE,gspt57+2)< REF(CLOSE,1) AND REF(gspt9,1)< REF(gspt9,gspt57+2) AND gspt56;
gspt59:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND REF(gspt9,1)>95 AND gspt9>50;
gspt60:=BARSLAST(REF(gspt59,1));
gspt61:=gspt60<=36 AND REF(CLOSE,gspt60+2)< REF(CLOSE,1) AND REF(gspt9,1)< REF(gspt9,gspt60+2) AND gspt59;
gspt62:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND REF(gspt9,1)>98 AND gspt9>50;
gspt63:=BARSLAST(REF(gspt62,1));
gspt64:=gspt63<=36 AND REF(CLOSE,gspt63+2)< REF(CLOSE,1) AND REF(gspt9,1)< REF(gspt9,gspt63+2) AND gspt62;
gspt65:=gspt52+gspt58+gspt55+gspt61+gspt64;
gspt66:=IF(gspt65>=3,3,gspt65);
gspt67:=BARSLAST(CROSS(gspt8,gspt9));
gspt68:=gspt9>REF(gspt9,1) AND REF(gspt9,1)< REF(gspt9,2) AND COUNT(CROSS(gspt8,gspt9),gspt67)<=1 AND REF(gspt9,1)< 15;
gspt69:=BARSLAST(REF(gspt68,1));
gspt70:=gspt69<=36 AND REF(CLOSE,gspt69+2)>=REF(CLOSE,1) AND REF(gspt9,1)>REF(gspt9,gspt69+2) AND gspt68;
gspt71:=gspt9>REF(gspt9,1) AND REF(gspt9,1)< REF(gspt9,2) AND COUNT(CROSS(gspt8,gspt9),gspt67)<=1 AND REF(gspt9,1)< 5;
gspt72:=BARSLAST(REF(gspt71,1));
gspt73:=gspt72<=36 AND REF(CLOSE,gspt72+2)>=REF(CLOSE,1) AND REF(gspt9,1)>REF(gspt9,gspt72+2) AND gspt71;
gspt74:=gspt9>REF(gspt9,1) AND REF(gspt9,1)< REF(gspt9,2) AND COUNT(CROSS(gspt8,gspt9),gspt67)<=1 AND REF(gspt9,1)< 0;
gspt75:=BARSLAST(REF(gspt74,1));
gspt76:=gspt75<=36 AND REF(CLOSE,gspt75+2)>=REF(CLOSE,1) AND REF(gspt9,1)>REF(gspt9,gspt75+2) AND gspt74;
gspt77:=gspt70+gspt73+gspt76;
gspt78:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND REF(gspt9,1)>90;
gspt79:=BARSLAST(REF(gspt78,1));
gspt80:=gspt79<=36 AND REF(CLOSE,gspt79+1)< CLOSE AND gspt9< REF(gspt9,gspt79+1) AND gspt78;
gspt81:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND REF(gspt9,1)>100;
gspt82:=BARSLAST(REF(gspt81,1));
gspt83:=gspt82<=36 AND REF(CLOSE,gspt82+1)< CLOSE AND gspt9< REF(gspt9,gspt82+1) AND gspt81;
gspt84:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND REF(gspt9,1)>95;
gspt85:=BARSLAST(REF(gspt84,1));
gspt86:=gspt85<=36 AND REF(CLOSE,gspt85+1)< CLOSE AND gspt9< REF(gspt9,gspt85+1) AND gspt84;
gspt87:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND REF(gspt9,1)>92.5;
gspt88:=BARSLAST(REF(gspt87,1));
gspt89:=gspt88<=36 AND REF(CLOSE,gspt88+1)< CLOSE AND gspt9< REF(gspt9,gspt88+1) AND gspt87;
gspt90:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND REF(gspt9,1)>97.5;
gspt91:=BARSLAST(REF(gspt90,1));
gspt92:=gspt91<=36 AND REF(CLOSE,gspt91+1)< CLOSE AND gspt9< REF(gspt9,gspt91+1) AND gspt90;
gspt93:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND REF(gspt9,1)>102.5;
gspt94:=BARSLAST(REF(gspt93,1));
gspt95:=gspt94<=36 AND REF(CLOSE,gspt94+1)< CLOSE AND gspt9< REF(gspt9,gspt94+1) AND gspt93;
gspt96:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND REF(gspt9,1)>85;
gspt97:=BARSLAST(REF(gspt96,1));
gspt98:=gspt97<=36 AND REF(CLOSE,gspt97+1)< CLOSE AND gspt9< REF(gspt9,gspt97+1) AND gspt96;
gspt99:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND REF(gspt9,1)>80 AND gspt9>70;
gspt100:=BARSLAST(REF(gspt99,1));
gspt101:=gspt100<=36 AND REF(CLOSE,gspt100+1)< CLOSE AND gspt9< REF(gspt9,gspt100+1) AND gspt99;
gspt102:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND REF(gspt9,1)>75 AND gspt9>65;
gspt103:=BARSLAST(REF(gspt102,1));
gspt104:=gspt103<=36 AND REF(CLOSE,gspt103+1)< CLOSE AND gspt9< REF(gspt9,gspt103+1) AND gspt102;
gspt105:=gspt9< REF(gspt9,1) AND REF(gspt9,1)< REF(gspt9,2) AND REF(gspt9,2)>REF(gspt9,1) AND (REF(gspt9,2)-REF(gspt9,1))< 2 AND ABS(gspt9-REF(gspt9,1))>5 AND gspt9>=60;
gspt106:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND ABS(gspt9-REF(gspt9,1))>5 AND gspt9>=60;
gspt107:=gspt105 OR gspt106;
gspt108:=BARSLAST(REF(gspt107,1));
gspt109:=gspt108<=36 AND REF(CLOSE,gspt108+1)< CLOSE AND gspt9< REF(gspt9,gspt108+1) AND gspt107;
gspt110:=gspt80+gspt83+gspt86+gspt89+gspt92+gspt95+gspt98+gspt101+gspt104+gspt109;
gspt111:=IF(gspt110>=5,5,gspt110);
gspt112:=gspt9>REF(gspt9,1) AND REF(gspt9,1)< REF(gspt9,2);
gspt113:=BARSLAST(REF(gspt112,1));
gspt114:=gspt113<=36 AND REF(CLOSE,gspt113+1)>CLOSE AND gspt9>REF(gspt9,gspt113+1) AND gspt112;
gspt115:=gspt9>REF(gspt9,1) AND REF(gspt9,1)< REF(gspt9,2) AND REF(gspt9,1)< 2.5 ;
gspt116:=BARSLAST(REF(gspt115,1));
gspt117:=gspt116<=36 AND REF(CLOSE,gspt116+1)>CLOSE AND gspt9>REF(gspt9,gspt116+1) AND gspt115;
gspt118:=gspt9>REF(gspt9,1) AND REF(gspt9,1)< REF(gspt9,2) AND REF(gspt9,1)< -5 ;
gspt119:=BARSLAST(REF(gspt118,1));
gspt120:=gspt119<=36 AND REF(CLOSE,gspt119+1)>CLOSE AND gspt9>REF(gspt9,gspt119+1) AND gspt118;
gspt121:=gspt9>REF(gspt9,1) AND REF(gspt9,1)< REF(gspt9,2) AND REF(gspt9,1)< 5 ;
gspt122:=gspt113<=36 AND BARSLAST(REF(gspt121,1));
gspt123:=gspt122<=36 AND REF(CLOSE,gspt122+1)>CLOSE AND gspt9>REF(gspt9,gspt122+1) AND gspt121;
gspt124:=gspt9>REF(gspt9,1) AND REF(gspt9,1)< REF(gspt9,2) AND REF(gspt9,1)< 7.5 ;
gspt125:=BARSLAST(REF(gspt124,1));
gspt126:=gspt125<=36 AND REF(CLOSE,gspt125+1)>CLOSE AND gspt9>REF(gspt9,gspt125+1) AND gspt124;
gspt127:=gspt9>REF(gspt9,1) AND REF(gspt9,1)< REF(gspt9,2) AND REF(gspt9,1)< 10 ;
gspt128:=BARSLAST(REF(gspt127,1));
gspt129:=gspt128<=36 AND REF(CLOSE,gspt128+1)>CLOSE AND gspt9>REF(gspt9,gspt128+1) AND gspt127;
gspt130:=gspt114+gspt117+gspt120+gspt123+gspt126+gspt129;
gspt131:=BARSLAST(CROSS(gspt9,gspt8));
gspt132:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND COUNT(CROSS(gspt9,gspt8),gspt131)<=1 AND REF(gspt9,1)>85;
gspt133:=BARSLAST(REF(gspt132,1));
gspt134:=gspt133<=36 AND REF(CLOSE,gspt133+2)<=REF(CLOSE,1) AND REF(gspt9,1)< REF(gspt9,gspt133+2) AND gspt132;
gspt135:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND COUNT(CROSS(gspt9,gspt8),gspt131)<=1 AND REF(gspt9,1)>90;
gspt136:=BARSLAST(REF(gspt135,1));
gspt137:=gspt136<=36 AND REF(CLOSE,gspt136+2)<=REF(CLOSE,1) AND REF(gspt9,1)< REF(gspt9,gspt136+2) AND gspt135;
gspt138:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND COUNT(CROSS(gspt9,gspt8),gspt131)<=1 AND REF(gspt9,1)>95;
gspt139:=BARSLAST(REF(gspt138,1));
gspt140:=gspt139<=36 AND REF(CLOSE,gspt139+2)<=REF(CLOSE,1) AND REF(gspt9,1)< REF(gspt9,gspt139+2) AND gspt138;
gspt141:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND COUNT(CROSS(gspt9,gspt8),gspt131)<=1 AND REF(gspt9,1)>100;
gspt142:=BARSLAST(REF(gspt141,1));
gspt143:=gspt142<=36 AND REF(CLOSE,gspt142+2)<=REF(CLOSE,1) AND REF(gspt9,1)< REF(gspt9,gspt142+2) AND gspt141;
gspt144:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND COUNT(CROSS(gspt9,gspt8),gspt131)<=1 AND REF(gspt9,1)>105;
gspt145:=BARSLAST(REF(gspt144,1));
gspt146:=gspt145<=36 AND REF(CLOSE,gspt145+2)<=REF(CLOSE,1) AND REF(gspt9,1)< REF(gspt9,gspt145+2) AND gspt144;
gspt147:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND COUNT(CROSS(gspt9,gspt8),gspt131)<=1 AND REF(gspt9,1)>80 AND gspt9>70;
gspt148:=BARSLAST(REF(gspt147,1));
gspt149:=gspt148<=36 AND REF(CLOSE,gspt148+2)<=REF(CLOSE,1) AND REF(gspt9,1)< REF(gspt9,gspt148+2) AND gspt147;
gspt150:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND COUNT(CROSS(gspt9,gspt8),gspt131)<=1 AND REF(gspt9,1)>75 AND gspt9>65;
gspt151:=BARSLAST(REF(gspt150,1));
gspt152:=gspt151<=36 AND REF(CLOSE,gspt151+2)<=REF(CLOSE,1) AND REF(gspt9,1)< REF(gspt9,gspt151+2) AND gspt150;
gspt153:=gspt134+gspt137+gspt140+gspt143+gspt146+gspt149+gspt152;
gspt154:=IF(gspt153>=4,4,gspt153);
gspt155:gspt41+gspt77+gspt130+gspt16,COLORRED,NODRAW;
gspt156:gspt49+gspt66+gspt111+gspt154+gspt19,COLORGREEN,NODRAW;
DRAWNUMBER(gspt155>=1,gspt9,gspt155),COLORRED;
DRAWNUMBER(gspt156>=1,gspt9,gspt156),COLORGREEN;
DRAWICON(gspt155>gspt2,gspt9,3);
DRAWICON(gspt156>gspt1,gspt9,4);
13 多元KDJ背离指标
STICKLINE(C>0,-100,100,28,0),COLOR000840;
STICKLINE(C>0,200,200,28,-1),COLOR000080;
STICKLINE(C>0,100,100,28,-1),COLOR000080;
STICKLINE(C>0,-2.5,2.5,28,0),COLOR000080;
STICKLINE(C>0,-100,-100,28,-1),COLOR000080;
STICKLINE(C>0,-200,-200,28,-1),COLOR000080;
MJCC1:=(HIGH+LOW+CLOSE)/3;
MJCC2:=(MJCC1-MA(MJCC1,14))/(0.015*AVEDEV(MJCC1,14)),STICK;
MJCC3:EMA(MJCC2,4.5),COLOR0080FF,NODRAW;
DRAWBAND(MJCC3,RGB(0,224,224),MJCC2,RGB(255,96,96));
STICKLINE(MJCC2>=0,0,MJCC2,0,-1),COLORRED;
STICKLINE(MJCC2< 0,0,MJCC2,0,-1),COLORBLUE;
MJCC4:(MJCC1-MA(MJCC1,14))/(0.015*AVEDEV(MJCC1,14)),COLORYELLOW,LINETHICK1;
DRAWTEXT(ISLASTBAR,MJCC4,' ←CCI'),COLORYELLOW;
MJCC5:=5;
MJCC6:=REF(C,BARSLAST(REF(FILTER(BACKSET(REF(MJCC2,MJCC5)=LLV(MJCC2,2*MJCC5+1),MJCC5+1),MJCC5) AND MJCC2=LLV(MJCC2,MJCC5+1),1))+1)>C AND REF(MJCC2,BARSLAST(REF(FILTER(BACKSET(REF(MJCC2,MJCC5)=LLV(MJCC2,2*MJCC5+1),MJCC5+1),MJCC5) AND MJCC2=LLV(MJCC2,MJCC5+1),1))+1)< MJCC2 AND FILTER(BACKSET(REF(MJCC2,MJCC5)=LLV(MJCC2,2*MJCC5+1),MJCC5+1),MJCC5) AND MJCC2=LLV(MJCC2,MJCC5+1),COLORWHITE,NODRAW;
DRAWLINE(FILTER(BACKSET(REF(MJCC2,MJCC5)=LLV(MJCC2,2*MJCC5+1),MJCC5+1),MJCC5) AND MJCC2=LLV(MJCC2,MJCC5+1),MJCC2,FILTER(MJCC6>0,5),MJCC2,0),COLORWHITE;
DRAWTEXT(MJCC6,MJCC2,'底背'),COLORWHITE;
MJCC7:=REF(C,BARSLAST(REF(FILTER(BACKSET(REF(MJCC2,MJCC5)=HHV(MJCC2,2*MJCC5+1),MJCC5+1),MJCC5) AND MJCC2=HHV(MJCC2,MJCC5+1),1))+1)< C AND REF(MJCC2,BARSLAST(REF(FILTER(BACKSET(REF(MJCC2,MJCC5)=HHV(MJCC2,2*MJCC5+1),MJCC5+1),MJCC5) AND MJCC2=HHV(MJCC2,MJCC5+1),1))+1)>MJCC2 AND FILTER(BACKSET(REF(MJCC2,MJCC5)=HHV(MJCC2,2*MJCC5+1),MJCC5+1),MJCC5) AND MJCC2=HHV(MJCC2,MJCC5+1),COLORGREEN,NODRAW;
DRAWLINE(FILTER(BACKSET(REF(MJCC2,MJCC5)=HHV(MJCC2,2*MJCC5+1),MJCC5+1),MJCC5) AND MJCC2=HHV(MJCC2,MJCC5+1),MJCC2,FILTER(MJCC7>0,5),MJCC2,0),COLORGREEN;
DRAWTEXT(MJCC7,MJCC2,'顶背'),COLORGREEN;
MJCC8:=REF(C,BARSLAST(REF(FILTER(BACKSET(REF(MJCC3,MJCC5)=LLV(MJCC3,2*MJCC5+1),MJCC5+1),MJCC5) AND MJCC3=LLV(MJCC3,MJCC5+1),1))+1)>C AND REF(MJCC3,BARSLAST(REF(FILTER(BACKSET(REF(MJCC3,MJCC5)=LLV(MJCC3,2*MJCC5+1),MJCC5+1),MJCC5) AND MJCC3=LLV(MJCC3,MJCC5+1),1))+1)< MJCC3 AND FILTER(BACKSET(REF(MJCC3,MJCC5)=LLV(MJCC3,2*MJCC5+1),MJCC5+1),MJCC5) AND MJCC3=LLV(MJCC3,MJCC5+1),COLORWHITE,NODRAW;
DRAWLINE(FILTER(BACKSET(REF(MJCC3,MJCC5)=LLV(MJCC3,2*MJCC5+1),MJCC5+1),MJCC5) AND MJCC3=LLV(MJCC3,MJCC5+1),MJCC3,FILTER(MJCC8>0,5),MJCC3,0),COLORWHITE;
DRAWTEXT(MJCC8,MJCC3,'趋势底背'),COLORFF80FF;
MJCC9:=REF(C,BARSLAST(REF(FILTER(BACKSET(REF(MJCC3,MJCC5)=HHV(MJCC3,2*MJCC5+1),MJCC5+1),MJCC5) AND MJCC3=HHV(MJCC3,MJCC5+1),1))+1)< C AND REF(MJCC3,BARSLAST(REF(FILTER(BACKSET(REF(MJCC3,MJCC5)=HHV(MJCC3,2*MJCC5+1),MJCC5+1),MJCC5) AND MJCC3=HHV(MJCC3,MJCC5+1),1))+1)>MJCC3 AND FILTER(BACKSET(REF(MJCC3,MJCC5)=HHV(MJCC3,2*MJCC5+1),MJCC5+1),MJCC5) AND MJCC3=HHV(MJCC3,MJCC5+1),COLORGREEN,NODRAW;
DRAWLINE(FILTER(BACKSET(REF(MJCC3,MJCC5)=HHV(MJCC3,2*MJCC5+1),MJCC5+1),MJCC5) AND MJCC3=HHV(MJCC3,MJCC5+1),MJCC3,FILTER(MJCC9>0,5),MJCC3,0),COLORGREEN;
DRAWTEXT(MJCC9,MJCC3,'趋势顶背'),COLORFF8000;
MJCC10:=0-MJCC2;
MJCC11:=IF(MJCC2< 0,SUM(MJCC2,BARSLAST(MJCC10< 0)),0);
MJCC12:=IF(MJCC2>0,SUM(MJCC2,BARSLAST(MJCC10>0)),0);
MJCC13:=LLV(L,BARSLAST(MJCC10< 0));
MJCC14:=HHV(H,BARSLAST(MJCC10>0));
MJCC15:=IF (MJCC2< 0,BARSLAST(CROSS(MJCC2,0)),0);
MJCC16:=REF(MJCC11,MJCC15+1);
MJCC17:=REF(MJCC13,MJCC15+1);
MJCC18:=IF((MJCC11< 0 AND ABS(MJCC11)< ABS(MJCC16) AND MJCC13< MJCC17 ),1,0);
MJCC19:=MJCC2< 0 AND REF(MJCC2,1)< 0 AND C< MJCC17 AND ABS(MJCC11)< ABS(MJCC16) AND ABS(MJCC2)< ABS(REF(MJCC2,1));
MJCC20:=IF (CROSS(MJCC2,0),REF(MJCC18,1),0);
DRAWTEXT(MJCC20,LLV(MJCC2,5),'←面积底背'),COLORRED;
MJCC21:=IF (MJCC2>0,BARSLAST(CROSS(0,MJCC2)),0);
MJCC22:=REF(MJCC12,MJCC21+1);
MJCC23:=REF(MJCC14,MJCC21+1);
MJCC24:=IF((MJCC12>0 AND MJCC12< MJCC22 AND MJCC14>MJCC23 ),1,0);
MJCC25:=MJCC2>0 AND REF(MJCC2,1)>0 AND C>MJCC23 AND ABS(MJCC12)< ABS(MJCC22) AND ABS(MJCC2)< ABS(REF(MJCC2,1));
MJCC26:=IF (CROSS(0,MJCC2),REF(MJCC24,1),0);
DRAWTEXT(MJCC26,HHV(MJCC2,5),'←面积顶背'),COLORCYAN;
MJCC27:=EMA(EMA(EMA(MJCC2,2),2),2);
MJCC28:=EMA(EMA(EMA(MJCC2,3),2),2);
MJCC29:=(CROSS(MJCC27,MJCC28) OR (MJCC27 >=MJCC28)) AND MJCC27>=-101 AND MJCC27>=REF(MJCC27,1) AND REF(MJCC27,1)< -101 ;
MJCC30:IF(MJCC29>0,100,0),STICK,COLORYELLOW,LINETHICK2;
14 CCI顶底面积背离指标
MCD1:EMA(C,12)-EMA(C,26),COLORRED;
MCD2:EMA(MCD1,9),COLORWHITE;
MCD3:(MCD1-MCD2)*2,COLORSTICK;
STICKLINE(((MCD3< REF(MCD3,1)) AND (MCD3>0)),0,MCD3,1,0),COLORLIBLUE;
STICKLINE(((MCD3>REF(MCD3,1)) AND (MCD3< 0)),0,MCD3,1,0),COLORFF00FF;
IF(MCD1< 0,MCD1,0),COLORYELLOW;
IF(MCD1< 0,0,MCD1),COLORRED;
IF(MCD1< MCD2,MCD1,MCD2),COLORWHITE;
IF(MCD1>MCD2,MCD2,MCD2),COLORFF937F;
MCD4:=COUNT(CROSS(MCD1,MCD2),BARSLAST(MCD2>=0));
MCD5:=CROSS(MCD1,MCD2) AND MCD2< 0 AND COUNT(MCD4=2,21)=1;
DRAWTEXT(MCD5,0.2,' 二次金叉'),COLORYELLOW;
MCD6:=BARSLAST(REF(CROSS(MCD1,MCD2),1));
MCD7:=REF(C,MCD6+1)>C AND MCD1>REF(MCD1,MCD6+1) AND CROSS(MCD1,MCD2);
STICKLINE(MCD7,0,0.03,6,0),COLOR00FF00;
MCD8:DRAWLINE(MCD6=0,MCD2,MCD7,MCD2,0),COLORRED;
DRAWTEXT(MCD7,0.12,' 底背离'),COLORFF00FF;
MCD9:=BARSLAST(REF(CROSS(MCD2,MCD1),1));
MCD10:=REF(C,MCD9+1)< C AND REF(MCD1,MCD9+1)>MCD1 AND CROSS(MCD2,MCD1);
MCD11:DRAWLINE(MCD9=0,MCD2,MCD10,MCD2,0),COLORGREEN;
02 KDJ背离
gspt1:=9;
gspt2:=3;
gspt3:=3;
gspt4:=(CLOSE-LLV(LOW,gspt1))/(HHV(HIGH,gspt1)-LLV(LOW,gspt1))*100;
gspt5:SMA(gspt4,gspt2,1);
gspt6:SMA(gspt5,gspt3,1);
gspt7:3*gspt5-2*gspt6;
gspt8:=CROSS(gspt5,gspt6) AND gspt6< 20;
STICKLINE(gspt8,gspt6,gspt6+8,5,0),COLORYELLOW;
gspt9:=COUNT(CROSS(gspt5,gspt6),BARSLAST(gspt5>=gspt6));
gspt10:=CROSS(gspt5,gspt6) AND gspt6< 20 AND COUNT(gspt9=2,34)=1;
STICKLINE(gspt10,gspt6,gspt6+5,5,0),COLORFF80FF;
DRAWICON(gspt10,gspt6*0.85,1) ;
gspt11:=BARSLAST(REF(CROSS(gspt5,gspt6),1));
gspt12:=REF(CLOSE,gspt11+1)>CLOSE AND gspt5>REF(gspt5,gspt11+1) AND CROSS(gspt5,gspt6);
STICKLINE(gspt12,gspt6,gspt6+5,5,0),COLORRED;
DRAWLINE(gspt11=0,gspt6,gspt12,gspt6,0),COLORRED,LINETHICK2;
DRAWTEXT(gspt12>0,gspt7,'D底背离'),COLORRED;
gspt13:=BARSLAST(REF(CROSS(gspt6,gspt5),1));
gspt14:=REF(CLOSE,gspt13+1)< CLOSE AND REF(gspt6,gspt13+1)>gspt6 AND CROSS(gspt6,gspt5);
DRAWLINE(gspt13=0,gspt6,gspt14,gspt6,0),COLORGREEN,LINETHICK2;
DRAWTEXT(gspt14>0,gspt5+2,'D顶背离'),COLORGREEN;
03 KDJ优化背离
LOWV:=EMA(LLV(LOW,34),3);
HIGHV:=EMA(HHV(HIGH,34),3);
RSV:=EMA((CLOSE-LOWV)/(HIGHV-LOWV)*100,3);
K:=SMA(RSV,8,1);
D:=SMA(K,6,1);
J:3*K-2*D;
J1:MA(J,3);
A1:=BARSLAST(REF(CROSS(J,J1),1));
AA:=REF(CLOSE,A1+1)>CLOSE AND J>REF(J,A1+1) AND CROSS(J,J1) AND J< 20;
STICKLINE(AA,0,25,3,0),COLORMAGENTA;
DRAWTEXT(AA>0,30,'底背离');
A2:=BARSLAST(REF(CROSS(J1,J),1));
BB:=REF(CLOSE,A2+1)< CLOSE AND REF(J1,A2+1)>J1 AND CROSS(J1,J) AND J>90;
DRAWTEXT(BB>0,75,'顶背离');
STICKLINE(BB,100,80,3,0),COLORGREEN;
100;
50;
0;
04 RSI背离
LC :=REF(CLOSE,1);
RSI1:SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;
RSI2:SMA(MAX(CLOSE-LC,0),24,1)/SMA(ABS(CLOSE-LC),24,1)*100;
A12022:=BARSLAST(REF(CROSS(RSI1,RSI2),1));
R底背离:=REF(C,A12022+1)>C AND RSI1>REF(RSI1,A12022+1) AND CROSS(RSI1,RSI2);
DRAWTEXT(R底背离,RSI2,' 底背离'),COLORYELLOW;
A22022:=BARSLAST(REF(CROSS(RSI2,RSI1),1));
R顶背离:=REF(C,A22022+1)< C AND REF(RSI1,A22022+1)>RSI1 AND CROSS(RSI2,RSI1);
DRAWTEXT(R顶背离,RSI2,'顶背离'),COLORGREEN;
DD2022:=CROSS(RSI2,RSI1);
DRAWICON(DD2022,RSI1,1);
KK2022:=CROSS(RSI1,RSI2);
DRAWICON(KK2022,RSI1,2);
DRAWLINE(A12022=0,RSI2,R底背离,RSI2,0),COLORRED;
DRAWLINE(A22022=0,RSI2,R顶背离,RSI2,0),COLORGREEN;
05 CCI背离
gspt1:=14;
gspt2:=(HIGH+LOW+CLOSE)/3;
gspt3:(gspt2-MA(gspt2,gspt1))/(0.015*AVEDEV(gspt2,gspt1));
gspt4:=gspt3;
gspt5:=REF(gspt4,gspt1)=HHV(gspt4,2*gspt1+1);
gspt6:=BACKSET(gspt5,gspt1+1);
gspt7:=FILTER(gspt6,gspt1) AND gspt4=HHV(gspt4,gspt1+1);
gspt8:=BARSLAST(REF(gspt7,1));
gspt9:=REF(CLOSE,gspt8+1)< CLOSE AND REF(gspt4,gspt8+1)>gspt4 AND gspt7;
DRAWICON(gspt9,gspt3*0.9,1);
gspt10:=BACKSET(gspt9,REF(BARSLAST(gspt7),1)+2);
DRAWLINE(CROSS(gspt10,0.5),gspt4,CROSS(FILTER(gspt9>0,5),0.5),gspt4,0),COLORGREEN,LINETHICK2;
gspt11:=REF(gspt4,gspt1)=LLV(gspt4,2*gspt1+1);
gspt12:=BACKSET(gspt11,gspt1+1);
gspt13:=FILTER(gspt12,gspt1) AND gspt4=LLV(gspt4,gspt1+1);
gspt14:=BARSLAST(REF(gspt13,1));
gspt15:=REF(CLOSE,gspt14+1)>CLOSE AND REF(gspt4,gspt14+1)< gspt4 AND gspt13;
gspt16:=BACKSET(gspt15,REF(BARSLAST(gspt13),1)+2);
DRAWLINE(CROSS(gspt16,0.5),gspt4,CROSS(FILTER(gspt15>0,5),0.5),gspt4,0),COLORMAGENTA,LINETHICK2;
DRAWICON(gspt15,-130,2);
IF(gspt3>=100,gspt3,DRAWNULL),COLORGREEN;
IF(gspt3<=-100,gspt3,DRAWNULL),COLORRED;
06 三指标背离
DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIFF,8);
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)< DIFF AND CROSS(DIFF,DEA);
DRAWTEXT(IF(B1>0,1,0),L,'MACD底背'),COLORGREEN;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
A2:=BARSLAST(REF(CROSS(K,D),1));
B2:=REF(C,A2+1)>C AND REF(K,A2+1)< K AND CROSS(K,D);
DRAWTEXT(IF(B2>0,1,0),L*0.999,'KDJ底背'),COLORYELLOW;
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;
A3:=BARSLAST(REF(CROSS(RSI1,RSI2),1));
B3:=REF(C,A3+1)>C AND REF(RSI1,A3+1)< RSI1 AND CROSS(RSI1,RSI2);
DRAWTEXT(IF(B3>0,1,0),L*0.998,'RSI底背'),COLORCYAN;
C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));
D1:=REF(C,C1+1)< C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);
DRAWTEXT(IF(D1>0,1,0),H,'MACD顶背'),COLORWHITE;
C2:=BARSLAST(REF(CROSS(D,K),1));
D2:=REF(C,C2+1)< C AND REF(K,C2+1)>K AND CROSS(D,K);
DRAWTEXT(IF(D2>0,1,0),H*1.001,'KDJ顶背'),COLORWHITE;
C3:=BARSLAST(REF(CROSS(RSI2,RSI1),1));
D3:=REF(C,C3+1)< C AND REF(RSI1,C3+1)>RSI1 AND CROSS(RSI2,RSI1);
DRAWTEXT(IF(D3>0,1,0),H*1.002,'RSI顶背'),COLORMAGENTA;
07 四指标背离
ZHBL1:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
ZHBL2:=SMA(ZHBL1,3,1);
ZHBL3:=SMA(ZHBL2,3,1);
ZHBL4:=3*ZHBL2-2*ZHBL3;
ZHBL5:=REF(C,1);
ZHBL6:=SMA(MAX(C-ZHBL5,0),6,1)/SMA(ABS(C-ZHBL5),6,1)*100;
ZHBL7:=SMA(MAX(C-ZHBL5,0),12,1)/SMA(ABS(C-ZHBL5),12,1)*100;
ZHBL8:=SMA(MAX(C-ZHBL5,0),24,1)/SMA(ABS(C-ZHBL5),24,1)*100;
ZHBL9:ZHBL6-ZHBL8, COLORSTICK,LINETHICK0;
ZHBL10:=BARSLAST(REF(CROSS(ZHBL2,ZHBL3),1));
ZHBL11:=REF(C,ZHBL10+1)>C AND REF(ZHBL2,ZHBL10+1)< ZHBL2 AND CROSS(ZHBL2,ZHBL3);
ZHBL12:=BARSLAST(REF(CROSS(ZHBL6,ZHBL7),1));
ZHBL13:=REF(C,ZHBL12+1)>C AND REF(ZHBL6,ZHBL12+1)< ZHBL6 AND CROSS(ZHBL6,ZHBL7);
ZHBL14:=BARSLAST(REF(CROSS(ZHBL3,ZHBL2),1));
ZHBL15:=REF(C,ZHBL14+1)< C AND REF(ZHBL2,ZHBL14+1)>ZHBL2 AND CROSS(ZHBL3,ZHBL2);
ZHBL16:=BARSLAST(REF(CROSS(ZHBL7,ZHBL6),1));
ZHBL17:=REF(C,ZHBL16+1)< C AND REF(ZHBL6,ZHBL16+1)>ZHBL6 AND CROSS(ZHBL7,ZHBL6);
ZHBL18:IF(ZHBL11>0,1,0),COLORRED,POINTDOT;
ZHBL19:IF(ZHBL13>0,1,0),COLORYELLOW,POINTDOT;
ZHBL20:IF(ZHBL15>0,1,0),COLORBLUE,POINTDOT;
ZHBL21:IF(ZHBL17>0,1,0),COLORGREEN,POINTDOT;
ZHBL22:=EMA(CLOSE,12)-EMA(CLOSE,26),COLORYELLOW;
ZHBL23:=EMA(ZHBL22,9),COLORCYAN;
ZHBL24:=2*(ZHBL22-ZHBL23),COLORSTICK;
ZHBL25:=SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14);
ZHBL26:=HIGH-REF(HIGH,1);
ZHBL27:=REF(LOW,1)-LOW;
ZHBL28:=SUM(IF(ZHBL26>0 AND ZHBL26>ZHBL27,ZHBL26,0),14);
ZHBL29:=SUM(IF(ZHBL27>0 AND ZHBL27>ZHBL26,ZHBL27,0),14);
ZHBL30:=ZHBL28*100/ZHBL25;
ZHBL31:=ZHBL29*100/ZHBL25;
ZHBL32:=BARSLAST(REF(CROSS(ZHBL22,ZHBL23),1));
ZHBL33:=REF(CLOSE,ZHBL32+1)>CLOSE && REF(ZHBL22,ZHBL32+1)< ZHBL22 && CROSS(ZHBL22,ZHBL23);
ZHBL34:=BARSLAST(REF(CROSS(ZHBL23,ZHBL22),1));
ZHBL35:=REF(CLOSE,ZHBL34+1)< CLOSE && REF(ZHBL22,ZHBL34+1)>ZHBL22 && CROSS(ZHBL23,ZHBL22);
ZHBL36:=BARSLAST(REF(CROSS(ZHBL31,ZHBL30),1));
ZHBL37:=REF(C,C+1)< C AND REF(ZHBL31,ZHBL36+1)>ZHBL31 AND CROSS(ZHBL31,ZHBL30);
ZHBL38:=BARSLAST(REF(CROSS(ZHBL30,ZHBL31),1));
ZHBL39:=REF(C,ZHBL38+1)>C AND REF(ZHBL30,ZHBL38+1)< ZHBL30 AND CROSS(ZHBL30,ZHBL31);
ZHBL40:IF(ZHBL33>0,1,0),COLORRED,NODRAW;
ZHBL41:IF(ZHBL39>0,1,0),NODRAW;
ZHBL42:IF(ZHBL35>0,1,0),COLOR00FF00,NODRAW;
ZHBL43:IF(ZHBL37>0,1,0),COLORRED,NODRAW;
DRAWTEXT(ZHBL40,ZHBL9,'M低'),COLORRED;
DRAWTEXT(ZHBL18,ZHBL9,'K低'),COLORFF00FF;
DRAWTEXT(ZHBL19,ZHBL9,'R低'),COLORYELLOW;
DRAWTEXT(ZHBL41,ZHBL9,'D低'),COLORRED;
DRAWTEXT(ZHBL42,ZHBL9,'M顶'),COLOR00FF00;
DRAWTEXT(ZHBL20,ZHBL9,'K顶'),COLORFFCC66;
DRAWTEXT(ZHBL21,ZHBL9,'R顶'),COLORWHITE;
DRAWTEXT(ZHBL43,ZHBL9,'D顶'),COLORMAGENTA;
STICKLINE(ZHBL11>0 ,-25,0,5,0),COLORRED;
STICKLINE(ZHBL13>0 ,-25,0,5,0),COLORYELLOW;
STICKLINE(ZHBL15>0 ,25,0,5,0),COLORBLUE;
STICKLINE(ZHBL17>0,25,0,5,0),COLORGREEN;
08 MACD新高低背离
M:=20;
DIFF:EMA(CLOSE,12) - EMA(CLOSE,26);
DEA :EMA(DIFF,9),COLORGREEN;
MACD:2*(DIFF-DEA), COLORSTICK;
AA2000:=CLOSE>REF(HHV(HIGH,M),1) AND MACD< REF(HHV(MACD,M),1) ;
BB2000:=CLOSE< REF(LLV(LOW,M),1) AND MACD>REF(LLV(MACD,M),1) ;
DRAWTEXT(AA2000,MACD,'▲顶背离'),COLORYELLOW;
DRAWTEXT(BB2000,MACD,'▼低背离'),COLORGREEN;
09 macd均线背离
DIF:EMA(CLOSE,12)-EMA(CLOSE,26),COLORWHITE;
DEA:EMA(DIF,9),COLORYELLOW;
MACD:(DIF-DEA)*2,COLORSTICK;
A1:=BARSLAST(REF(CROSS(DEA,DIF),1));
A2:=BARSLAST(REF(CROSS(DIF,DEA),1));
DD2022:=HHV(MA(C,2),9)>REF(HHV(MA(C,2),9),A1) AND HHV(DIF,5)< REF(HHV(DIF,5),A1) AND CROSS(DEA,DIF);
KK2022:=LLV(MA(C,2),9)< REF(LLV(MA(C,2),9),A2) AND LLV(DIF,5)>REF(LLV(DIF,5),A2) AND CROSS(DIF,DEA);
DRAWTEXT(DD2022,DEA+0.1,'顶背离'),COLORGREEN ;
DRAWTEXT(KK2022,DEA-0.1,'底背离'),COLORYELLOW;
DRAWICON(CROSS(DEA,DIF),DEA,5);
DRAWICON(CROSS(DIF,DEA),DEA,4);
10 MACD结构背离
JGBL1:100*(EMA(CLOSE,12)-EMA(CLOSE,26));
JGBL2:EMA(JGBL1,9);
JGBL3:(JGBL1-JGBL2)*2,COLORSTICK;
JGBL4:=CROSS(JGBL2,JGBL1);
JGBL5:=BARSLAST(JGBL4),NODRAW;
JGBL6:=REF(BARSLAST(JGBL4),JGBL5+1),NODRAW;
JGBL7:=REF(BARSLAST(JGBL4),JGBL6+JGBL5+2),NODRAW;
JGBL8:=LLV(C,JGBL5+1),NODRAW;
JGBL9:=LLV(JGBL1,JGBL5+1),NODRAW;
JGBL10:=REF(JGBL8,JGBL5+1),NODRAW;
JGBL11:=REF(JGBL9,JGBL5+1),NODRAW;
JGBL12:=REF(JGBL10,JGBL5+1),NODRAW;
JGBL13:=REF(JGBL11,JGBL5+1),NODRAW;
JGBL14:=IF(JGBL11>0,INTPART(LOG(JGBL11))-1,INTPART(LOG(-(JGBL11)))-1);
JGBL15:=INTPART(JGBL11/POW(10,JGBL14));
JGBL16:=IF(JGBL13>0,INTPART(LOG(JGBL13))-1,INTPART(LOG(-(JGBL13)))-1);
JGBL17:=INTPART(JGBL13/POW(10,JGBL16));
JGBL18:=INTPART(JGBL1/POW(10,JGBL14));
JGBL19:=INTPART(JGBL1/POW(10,JGBL16));
JGBL20:=(JGBL8< JGBL10 ) AND (JGBL18>JGBL15) AND (JGBL3< 0 AND REF(JGBL3,1)< 0) AND JGBL18<=REF(JGBL18,1);
JGBL21:=(JGBL8< JGBL12 AND JGBL12< JGBL10 ) AND (JGBL19>JGBL17) AND (JGBL3< 0 AND REF(JGBL3,1)< 0) AND JGBL19<=REF(JGBL19,1);
JGBL22:JGBL20 OR JGBL21,NODRAW;
JGBL23:((JGBL18>REF(JGBL18,1))*REF(JGBL20,1)) OR ((JGBL19>REF(JGBL19,1))*REF(JGBL21,1)),NODRAW;
JGBL24:=(REF(JGBL20,1) AND JGBL9<=JGBL11 ) OR (REF(JGBL21,1) AND JGBL9<=JGBL13);
JGBL25:=BARSLAST(JGBL3>0);
DRAWTEXT(COUNT(JGBL22,JGBL25)=1 AND NOT(REF(COUNT(JGBL22,JGBL25)=1 ,1)),(JGBL1+JGBL3),'钝化'),COLORRED;
STICKLINE(JGBL22 OR JGBL23,JGBL1,JGBL2,1,0),COLORRED;
JGBL26:=BARSLAST(JGBL22);
DRAWTEXT(JGBL24,(JGBL3),'消失'),COLORYELLOW;
JGBL27:=BARSLAST(JGBL3>0);
DRAWTEXT(COUNT(JGBL23,JGBL27)=1 AND NOT(REF(COUNT(JGBL23,JGBL27)=1,1)),JGBL1*1.1,'结构形成'),COLORMAGENTA;
JGBL28:=CROSS(JGBL1,JGBL2);
JGBL29:=BARSLAST(JGBL28),NODRAW;
JGBL30:=REF(BARSLAST(JGBL28),JGBL29+1),NODRAW;
JGBL31:=REF(BARSLAST(JGBL28),JGBL30+JGBL29+2),NODRAW;
JGBL32:=HHV(C,JGBL29+1),NODRAW;
JGBL33:=HHV(JGBL1,JGBL29+1),NODRAW;
JGBL34:=REF(JGBL32,JGBL29+1),NODRAW;
JGBL35:=REF(JGBL33,JGBL29+1),NODRAW;
JGBL36:=REF(JGBL34,JGBL29+1),NODRAW;
JGBL37:=REF(JGBL35,JGBL29+1),NODRAW;
JGBL38:=IF(JGBL35>0,INTPART(LOG(JGBL35))-1,INTPART(LOG(-(JGBL35)))-1);
JGBL39:=INTPART(JGBL35/POW(10,JGBL38));
JGBL40:=IF(JGBL37>0,INTPART(LOG(JGBL37))-1,INTPART(LOG(-(JGBL37)))-1);
JGBL41:=INTPART(JGBL37/POW(10,JGBL40));
JGBL42:=INTPART(JGBL1/POW(10,JGBL38));
JGBL43:=INTPART(JGBL1/POW(10,JGBL40));
JGBL44:=(JGBL32>JGBL34 ) AND (JGBL42< JGBL39) AND (JGBL3>0 AND REF(JGBL3,1)>0) AND JGBL42>=REF(JGBL42,1);
JGBL45:=(JGBL32>JGBL36 AND JGBL36>JGBL34 ) AND (JGBL43< JGBL41) AND (JGBL3>0 AND REF(JGBL3,1)>0) AND JGBL43>=REF(JGBL43,1);
JGBL46:JGBL44 OR JGBL45,NODRAW;
JGBL47:((JGBL42< REF(JGBL42,1))*REF(JGBL44,1)) OR ((JGBL43< REF(JGBL43,1))*REF(JGBL45,1)),NODRAW;
JGBL48:=(REF(JGBL44,1) AND JGBL33>=JGBL35 ) OR (REF(JGBL45,1) AND JGBL33>=JGBL37);
JGBL49:=BARSLAST(JGBL3< 0);
DRAWTEXT(COUNT(JGBL46,JGBL49)=1 AND REF(COUNT(JGBL46,JGBL49),1)< 1,(JGBL1+JGBL3),'钝化'),COLORGREEN;
JGBL50:=BARSLAST(JGBL46);
DRAWTEXT(JGBL48,(JGBL3),'消失'),COLORYELLOW;
STICKLINE(JGBL46 OR JGBL47,JGBL1,JGBL2,1,0),COLORGREEN;
DRAWTEXT(COUNT(JGBL47,JGBL49)=1 AND REF(COUNT(JGBL47,JGBL49),1)< 1,JGBL1*1.02,'结构形成'),COLORMAGENTA;
JGBL51:JGBL44 OR JGBL45,NODRAW,COLORGREEN;
JGBL52:JGBL20 OR JGBL21,NODRAW,COLORYELLOW;
DRAWTEXT(JGBL51,0,'顶背'),COLORGREEN;
DRAWTEXT(JGBL52,0,'底背'),COLORGREEN;
11 特殊MACD背离
DIFF : EMA(CLOSE,12) - EMA(CLOSE,26),COLORBFFF10;
DEA : EMA(DIFF,9);
IF(DIFF>DEA AND DIFF< 0,DIFF,DRAWNULL),COLORBFA4D9,LINETHICK2;
IF(DIFF>DEA AND DIFF>0,DIFF,DRAWNULL),COLORRED,LINETHICK2;
IF(DEA< 0,DEA,DRAWNULL),COLORBLUE,LINETHICK2;
MACD : 2*(DIFF-DEA), COLORSTICK;
MA1:=REF(MACD,1),POINTDOT,COLORGRAY;
STICKLINE(DEA>0 AND MACD< MA1 AND MACD>=0,0,MACD,1,1),COLORBFA4D9;
STICKLINE(DEA< 0 AND MACD>=MA1 AND MACD< 0,0,MACD,1,1),COLORBFFF10;
MN:=BARSLAST(CROSS(DEA,0))+1;
SN:=BARSLAST(CROSS(DIFF,DEA))+1;
数:=COUNT(CROSS(DEA,DIFF) AND DEA>0,MN);
顶背离:=CROSS(DEA,DIFF) AND 数>1 AND HHV(DIFF,SN)< HHV(DIFF,MN) AND HHV(H,SN)=HHV(H,MN),NODRAW;
顶:=HHV(DIFF,MN),POINTDOT,COLORGREEN;
STICKLINE(顶=REF(顶,1) AND DEA>0,顶,顶,5,0),COLORGREEN;
DRAWTEXT(顶背离,顶,'顶背离');
DRAWNUMBER(CROSS(DEA,DIFF) AND DEA>0,顶*1.3,数),COLORGREEN;
MN1:=BARSLAST(CROSS(0,DEA))+1;
JN:=BARSLAST(CROSS(DEA,DIFF))+1;
数1:=COUNT(CROSS(DIFF,DEA) AND DEA< 0,MN1);
底背离:CROSS(DIFF,DEA) AND 数1>1 AND LLV(DIFF,MN1)< LLV(DIFF,JN) AND LLV(L,JN)=LLV(L,MN1),NODRAW;
底:=LLV(DIFF,MN1),POINTDOT,COLORRED;
STICKLINE(底=REF(底,1) AND DEA< 0,底,底,5,0),COLORYELLOW;
DRAWTEXT(底背离,底,'底背离');
DRAWNUMBER(CROSS(DIFF,DEA) AND DEA< 0,底*0.7,数1),COLORYELLOW;
12 MACD连线背离
BLLX1:EMA(C,12) - EMA(CLOSE,26);
BLLX2:EMA(BLLX1,9);
BLLX3:2*(BLLX1-BLLX2),NODRAW;
2*(BLLX1-BLLX2),COLORSTICK;
BLLX4:=CROSS(BLLX1,BLLX2);
BLLX5:=CROSS(BLLX2,BLLX1);
BLLX6:=SUMBARS(BLLX5,1);
BLLX7:=REF(SUMBARS(BLLX4,1),BLLX6);
BLLX8:=SUMBARS(BLLX5,2);
BLLX9:=REF(REF(HHV(H,BLLX7),1),BLLX6-1);
BLLX10:=REF(REF(HHV(H,BLLX7),1),BLLX8-1);
BLLX11:=REF(REF(HHV(BLLX1,BLLX7),1),BLLX6-1);
BLLX12:=REF(REF(HHV(BLLX1,BLLX7),1),BLLX8-1);
BLLX13:=CROSS(0,BLLX3) && BLLX9>BLLX10 && BLLX11< BLLX12;
DRAWTEXT(BLLX13,BLLX3,'顶背离'),COLORYELLOW;
BLLX14:=BACKSET(CROSS(0,BLLX3),LLVBARS(BLLX1,BLLX6)+1);
BLLX15:=BACKSET(BLLX13,SUMBARS(BLLX14>REF(BLLX14,1),2));
DRAWLINE(CROSS(BLLX15,0.5),BLLX1,BLLX13,BLLX1,0),COLORGREEN,LINETHICK3;
BLLX16:=SUMBARS(BLLX4,1);
BLLX17:=REF(SUMBARS(BLLX5,1),BLLX16);
BLLX18:=SUMBARS(BLLX4,2);
BLLX19:=REF(REF(LLV(L,BLLX17),1),BLLX16-1);
BLLX20:=REF(REF(LLV(L,BLLX17),1),BLLX18-1);
BLLX21:=REF(REF(LLV(BLLX1,BLLX17),1),BLLX16-1);
BLLX22:=REF(REF(LLV(BLLX1,BLLX17),1),BLLX18-1);
BLLX23:=CROSS(BLLX3,0) && BLLX19< BLLX20 && BLLX21>BLLX22;
DRAWTEXT(BLLX23,BLLX3,'底背离');
BLLX24:=BACKSET(CROSS(0,BLLX3),HHVBARS(BLLX1,BLLX6)+1);
BLLX25:=BACKSET(BLLX23,SUMBARS(BLLX24>REF(BLLX24,1),2));
DRAWLINE(CROSS(BLLX25,0.5),BLLX1,BLLX23,BLLX1,0),COLORRED,LINETHICK3;
13 多元KDJ背离
gspt1:=7;
gspt2:=7;
gspt3:=9;
gspt4:=3;
gspt5:=3;
gspt6:=(CLOSE-LLV(LOW,gspt3))/(HHV(HIGH,gspt3)-LLV(LOW,gspt3))*100;
gspt7:SMA(gspt6,gspt4,1);
gspt8:SMA(gspt7,gspt5,1);
gspt9:3*gspt7-2*gspt8,LINETHICK2;
IF(gspt9>100-10,95-10,100-10),COLORGREEN,LINETHICK2;
IF(gspt9< 0+10,5+10,0),COLORRED,LINETHICK2;
IF(gspt9>100-10,gspt9,DRAWNULL),COLORBLUE,LINETHICK3;
IF(gspt9< -5+10,gspt9,DRAWNULL),COLORRED,LINETHICK3;
gspt10:(C-REF(C,1))/REF(C,1)*100,NODRAW;
gspt11:=REF(gspt9,1)< -15 AND gspt9>REF(gspt9,1) AND C< REF(C,1) AND COUNT(gspt10< -4,2)>=1;
DRAWICON(gspt11,gspt9,1);
gspt12:=REF(gspt9,1)>=110 AND gspt9< REF(gspt9,1) AND C>=REF(C,1) AND gspt9>105;
DRAWICON(gspt12,gspt9,2);
gspt13:=CROSS(gspt7,gspt8) AND REF(gspt9,1)< 0;
STICKLINE(gspt13,0,20,3,0),COLORYELLOW;
gspt14:=CROSS(gspt7,gspt8) AND COUNT(CROSS(gspt7,gspt8),5)>=2 ;
gspt15:=BARSLAST(REF(CROSS(gspt7,gspt8),1));
gspt16:=REF(CLOSE,gspt15+1)>CLOSE AND gspt7>REF(gspt7,gspt15+1) AND CROSS(gspt7,gspt8) AND gspt9< 50;
gspt17:=CROSS(gspt8,gspt7) AND REF(gspt9,1)>100;
STICKLINE(gspt17,100,80,3,0),COLORGREEN;
DRAWICON(gspt16,gspt9,26);
gspt18:=BARSLAST(REF(CROSS(gspt8,gspt7),1));
gspt19:=REF(CLOSE,gspt18+1)< CLOSE AND REF(gspt8,gspt18+1)>gspt8 AND CROSS(gspt8,gspt7) AND REF(gspt9,1)>70;
DRAWICON(gspt19,gspt9,27);
gspt20:=REF(gspt9,3)=HHV(gspt9,2*3+1);
gspt21:=BACKSET(gspt20,3+1);
gspt22:=FILTER(gspt21,3) AND gspt9=HHV(gspt9,3+1);
gspt23:=BARSLAST(REF(gspt22,1));
gspt24:=REF(CLOSE,gspt23+1)< CLOSE AND REF(gspt9,gspt23+1)>gspt9 AND gspt22;
gspt25:=BARSLAST(gspt22);
gspt26:=BACKSET(FILTER(gspt24>0,5),REF(gspt25,1)+1);
DRAWLINE(CROSS(REFX(gspt26=1,1),0.5),gspt9,FILTER(gspt24>0,5),gspt9,0),COLORGREEN,LINETHICK2;
gspt27:=REF(gspt9,3)=LLV(gspt9,2*3+1);
gspt28:=BACKSET(gspt27,3+1);
gspt29:=FILTER(gspt28,3) AND gspt9=LLV(gspt9,3+1) AND gspt9< 40 ;
gspt30:=BARSLAST(REF(gspt29,1));
gspt31:=REF(C,gspt30+1)>CLOSE AND REF(gspt9,gspt30+1)< gspt9 AND gspt29;
gspt32:=BARSLAST(gspt29 AND gspt9< 40);
gspt33:=BACKSET(FILTER(gspt31>0,5),REF(gspt32,1)+1);
DRAWLINE(CROSS(REFX(gspt33=1,1),0.5),gspt9,FILTER(gspt31>0,5),gspt9,0),COLORYELLOW,LINETHICK2;
gspt34:=C=LLV(C,6);
gspt35:=gspt9=LLV(gspt9,6);
gspt36:=gspt34=1 AND gspt35=0 AND gspt9< 10;
gspt37:=C=LLV(C,12);
gspt38:=gspt9=LLV(gspt9,12);
gspt39:=gspt37=1 AND gspt38=0 AND gspt9< 10;
gspt40:=gspt36 AND gspt39;
gspt41:=gspt40;
gspt42:=C=HHV(C,6);
gspt43:=gspt9=HHV(gspt9,6);
gspt44:=gspt42=1 AND gspt43=0 AND gspt9>85;
gspt45:=C=HHV(C,12);
gspt46:=gspt9=HHV(gspt9,12);
gspt47:=gspt45=1 AND gspt46=0 AND gspt9>85;
gspt48:=gspt44 AND gspt47;
gspt49:=gspt48;
gspt50:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND REF(gspt9,1)>90 AND gspt9>50;
gspt51:=BARSLAST(REF(gspt50,1));
gspt52:=gspt51<=36 AND REF(CLOSE,gspt51+2)< REF(CLOSE,1) AND REF(gspt9,1)< REF(gspt9,gspt51+2) AND gspt50;
gspt53:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND REF(gspt9,1)>100.6 AND gspt9>50;
gspt54:=BARSLAST(REF(gspt53,1));
gspt55:=gspt54<=36 AND REF(CLOSE,gspt54+2)< REF(CLOSE,1) AND REF(gspt9,1)< REF(gspt9,gspt54+2) AND gspt53;
gspt56:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND REF(gspt9,1)>105 AND gspt9>50;
gspt57:=BARSLAST(REF(gspt56,1));
gspt58:=gspt57<=36 AND REF(CLOSE,gspt57+2)< REF(CLOSE,1) AND REF(gspt9,1)< REF(gspt9,gspt57+2) AND gspt56;
gspt59:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND REF(gspt9,1)>95 AND gspt9>50;
gspt60:=BARSLAST(REF(gspt59,1));
gspt61:=gspt60<=36 AND REF(CLOSE,gspt60+2)< REF(CLOSE,1) AND REF(gspt9,1)< REF(gspt9,gspt60+2) AND gspt59;
gspt62:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND REF(gspt9,1)>98 AND gspt9>50;
gspt63:=BARSLAST(REF(gspt62,1));
gspt64:=gspt63<=36 AND REF(CLOSE,gspt63+2)< REF(CLOSE,1) AND REF(gspt9,1)< REF(gspt9,gspt63+2) AND gspt62;
gspt65:=gspt52+gspt58+gspt55+gspt61+gspt64;
gspt66:=IF(gspt65>=3,3,gspt65);
gspt67:=BARSLAST(CROSS(gspt8,gspt9));
gspt68:=gspt9>REF(gspt9,1) AND REF(gspt9,1)< REF(gspt9,2) AND COUNT(CROSS(gspt8,gspt9),gspt67)<=1 AND REF(gspt9,1)< 15;
gspt69:=BARSLAST(REF(gspt68,1));
gspt70:=gspt69<=36 AND REF(CLOSE,gspt69+2)>=REF(CLOSE,1) AND REF(gspt9,1)>REF(gspt9,gspt69+2) AND gspt68;
gspt71:=gspt9>REF(gspt9,1) AND REF(gspt9,1)< REF(gspt9,2) AND COUNT(CROSS(gspt8,gspt9),gspt67)<=1 AND REF(gspt9,1)< 5;
gspt72:=BARSLAST(REF(gspt71,1));
gspt73:=gspt72<=36 AND REF(CLOSE,gspt72+2)>=REF(CLOSE,1) AND REF(gspt9,1)>REF(gspt9,gspt72+2) AND gspt71;
gspt74:=gspt9>REF(gspt9,1) AND REF(gspt9,1)< REF(gspt9,2) AND COUNT(CROSS(gspt8,gspt9),gspt67)<=1 AND REF(gspt9,1)< 0;
gspt75:=BARSLAST(REF(gspt74,1));
gspt76:=gspt75<=36 AND REF(CLOSE,gspt75+2)>=REF(CLOSE,1) AND REF(gspt9,1)>REF(gspt9,gspt75+2) AND gspt74;
gspt77:=gspt70+gspt73+gspt76;
gspt78:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND REF(gspt9,1)>90;
gspt79:=BARSLAST(REF(gspt78,1));
gspt80:=gspt79<=36 AND REF(CLOSE,gspt79+1)< CLOSE AND gspt9< REF(gspt9,gspt79+1) AND gspt78;
gspt81:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND REF(gspt9,1)>100;
gspt82:=BARSLAST(REF(gspt81,1));
gspt83:=gspt82<=36 AND REF(CLOSE,gspt82+1)< CLOSE AND gspt9< REF(gspt9,gspt82+1) AND gspt81;
gspt84:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND REF(gspt9,1)>95;
gspt85:=BARSLAST(REF(gspt84,1));
gspt86:=gspt85<=36 AND REF(CLOSE,gspt85+1)< CLOSE AND gspt9< REF(gspt9,gspt85+1) AND gspt84;
gspt87:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND REF(gspt9,1)>92.5;
gspt88:=BARSLAST(REF(gspt87,1));
gspt89:=gspt88<=36 AND REF(CLOSE,gspt88+1)< CLOSE AND gspt9< REF(gspt9,gspt88+1) AND gspt87;
gspt90:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND REF(gspt9,1)>97.5;
gspt91:=BARSLAST(REF(gspt90,1));
gspt92:=gspt91<=36 AND REF(CLOSE,gspt91+1)< CLOSE AND gspt9< REF(gspt9,gspt91+1) AND gspt90;
gspt93:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND REF(gspt9,1)>102.5;
gspt94:=BARSLAST(REF(gspt93,1));
gspt95:=gspt94<=36 AND REF(CLOSE,gspt94+1)< CLOSE AND gspt9< REF(gspt9,gspt94+1) AND gspt93;
gspt96:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND REF(gspt9,1)>85;
gspt97:=BARSLAST(REF(gspt96,1));
gspt98:=gspt97<=36 AND REF(CLOSE,gspt97+1)< CLOSE AND gspt9< REF(gspt9,gspt97+1) AND gspt96;
gspt99:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND REF(gspt9,1)>80 AND gspt9>70;
gspt100:=BARSLAST(REF(gspt99,1));
gspt101:=gspt100<=36 AND REF(CLOSE,gspt100+1)< CLOSE AND gspt9< REF(gspt9,gspt100+1) AND gspt99;
gspt102:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND REF(gspt9,1)>75 AND gspt9>65;
gspt103:=BARSLAST(REF(gspt102,1));
gspt104:=gspt103<=36 AND REF(CLOSE,gspt103+1)< CLOSE AND gspt9< REF(gspt9,gspt103+1) AND gspt102;
gspt105:=gspt9< REF(gspt9,1) AND REF(gspt9,1)< REF(gspt9,2) AND REF(gspt9,2)>REF(gspt9,1) AND (REF(gspt9,2)-REF(gspt9,1))< 2 AND ABS(gspt9-REF(gspt9,1))>5 AND gspt9>=60;
gspt106:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND ABS(gspt9-REF(gspt9,1))>5 AND gspt9>=60;
gspt107:=gspt105 OR gspt106;
gspt108:=BARSLAST(REF(gspt107,1));
gspt109:=gspt108<=36 AND REF(CLOSE,gspt108+1)< CLOSE AND gspt9< REF(gspt9,gspt108+1) AND gspt107;
gspt110:=gspt80+gspt83+gspt86+gspt89+gspt92+gspt95+gspt98+gspt101+gspt104+gspt109;
gspt111:=IF(gspt110>=5,5,gspt110);
gspt112:=gspt9>REF(gspt9,1) AND REF(gspt9,1)< REF(gspt9,2);
gspt113:=BARSLAST(REF(gspt112,1));
gspt114:=gspt113<=36 AND REF(CLOSE,gspt113+1)>CLOSE AND gspt9>REF(gspt9,gspt113+1) AND gspt112;
gspt115:=gspt9>REF(gspt9,1) AND REF(gspt9,1)< REF(gspt9,2) AND REF(gspt9,1)< 2.5 ;
gspt116:=BARSLAST(REF(gspt115,1));
gspt117:=gspt116<=36 AND REF(CLOSE,gspt116+1)>CLOSE AND gspt9>REF(gspt9,gspt116+1) AND gspt115;
gspt118:=gspt9>REF(gspt9,1) AND REF(gspt9,1)< REF(gspt9,2) AND REF(gspt9,1)< -5 ;
gspt119:=BARSLAST(REF(gspt118,1));
gspt120:=gspt119<=36 AND REF(CLOSE,gspt119+1)>CLOSE AND gspt9>REF(gspt9,gspt119+1) AND gspt118;
gspt121:=gspt9>REF(gspt9,1) AND REF(gspt9,1)< REF(gspt9,2) AND REF(gspt9,1)< 5 ;
gspt122:=gspt113<=36 AND BARSLAST(REF(gspt121,1));
gspt123:=gspt122<=36 AND REF(CLOSE,gspt122+1)>CLOSE AND gspt9>REF(gspt9,gspt122+1) AND gspt121;
gspt124:=gspt9>REF(gspt9,1) AND REF(gspt9,1)< REF(gspt9,2) AND REF(gspt9,1)< 7.5 ;
gspt125:=BARSLAST(REF(gspt124,1));
gspt126:=gspt125<=36 AND REF(CLOSE,gspt125+1)>CLOSE AND gspt9>REF(gspt9,gspt125+1) AND gspt124;
gspt127:=gspt9>REF(gspt9,1) AND REF(gspt9,1)< REF(gspt9,2) AND REF(gspt9,1)< 10 ;
gspt128:=BARSLAST(REF(gspt127,1));
gspt129:=gspt128<=36 AND REF(CLOSE,gspt128+1)>CLOSE AND gspt9>REF(gspt9,gspt128+1) AND gspt127;
gspt130:=gspt114+gspt117+gspt120+gspt123+gspt126+gspt129;
gspt131:=BARSLAST(CROSS(gspt9,gspt8));
gspt132:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND COUNT(CROSS(gspt9,gspt8),gspt131)<=1 AND REF(gspt9,1)>85;
gspt133:=BARSLAST(REF(gspt132,1));
gspt134:=gspt133<=36 AND REF(CLOSE,gspt133+2)<=REF(CLOSE,1) AND REF(gspt9,1)< REF(gspt9,gspt133+2) AND gspt132;
gspt135:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND COUNT(CROSS(gspt9,gspt8),gspt131)<=1 AND REF(gspt9,1)>90;
gspt136:=BARSLAST(REF(gspt135,1));
gspt137:=gspt136<=36 AND REF(CLOSE,gspt136+2)<=REF(CLOSE,1) AND REF(gspt9,1)< REF(gspt9,gspt136+2) AND gspt135;
gspt138:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND COUNT(CROSS(gspt9,gspt8),gspt131)<=1 AND REF(gspt9,1)>95;
gspt139:=BARSLAST(REF(gspt138,1));
gspt140:=gspt139<=36 AND REF(CLOSE,gspt139+2)<=REF(CLOSE,1) AND REF(gspt9,1)< REF(gspt9,gspt139+2) AND gspt138;
gspt141:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND COUNT(CROSS(gspt9,gspt8),gspt131)<=1 AND REF(gspt9,1)>100;
gspt142:=BARSLAST(REF(gspt141,1));
gspt143:=gspt142<=36 AND REF(CLOSE,gspt142+2)<=REF(CLOSE,1) AND REF(gspt9,1)< REF(gspt9,gspt142+2) AND gspt141;
gspt144:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND COUNT(CROSS(gspt9,gspt8),gspt131)<=1 AND REF(gspt9,1)>105;
gspt145:=BARSLAST(REF(gspt144,1));
gspt146:=gspt145<=36 AND REF(CLOSE,gspt145+2)<=REF(CLOSE,1) AND REF(gspt9,1)< REF(gspt9,gspt145+2) AND gspt144;
gspt147:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND COUNT(CROSS(gspt9,gspt8),gspt131)<=1 AND REF(gspt9,1)>80 AND gspt9>70;
gspt148:=BARSLAST(REF(gspt147,1));
gspt149:=gspt148<=36 AND REF(CLOSE,gspt148+2)<=REF(CLOSE,1) AND REF(gspt9,1)< REF(gspt9,gspt148+2) AND gspt147;
gspt150:=gspt9< REF(gspt9,1) AND REF(gspt9,1)>REF(gspt9,2) AND COUNT(CROSS(gspt9,gspt8),gspt131)<=1 AND REF(gspt9,1)>75 AND gspt9>65;
gspt151:=BARSLAST(REF(gspt150,1));
gspt152:=gspt151<=36 AND REF(CLOSE,gspt151+2)<=REF(CLOSE,1) AND REF(gspt9,1)< REF(gspt9,gspt151+2) AND gspt150;
gspt153:=gspt134+gspt137+gspt140+gspt143+gspt146+gspt149+gspt152;
gspt154:=IF(gspt153>=4,4,gspt153);
gspt155:gspt41+gspt77+gspt130+gspt16,COLORRED,NODRAW;
gspt156:gspt49+gspt66+gspt111+gspt154+gspt19,COLORGREEN,NODRAW;
DRAWNUMBER(gspt155>=1,gspt9,gspt155),COLORRED;
DRAWNUMBER(gspt156>=1,gspt9,gspt156),COLORGREEN;
DRAWICON(gspt155>gspt2,gspt9,3);
DRAWICON(gspt156>gspt1,gspt9,4);
14 CCI面积
STICKLINE(C>0,-100,100,28,0),COLOR000840;
STICKLINE(C>0,200,200,28,-1),COLOR000080;
STICKLINE(C>0,100,100,28,-1),COLOR000080;
STICKLINE(C>0,-2.5,2.5,28,0),COLOR000080;
STICKLINE(C>0,-100,-100,28,-1),COLOR000080;
STICKLINE(C>0,-200,-200,28,-1),COLOR000080;
MJCC1:=(HIGH+LOW+CLOSE)/3;
MJCC2:=(MJCC1-MA(MJCC1,14))/(0.015*AVEDEV(MJCC1,14)),STICK;
MJCC3:EMA(MJCC2,4.5),COLOR0080FF,NODRAW;
DRAWBAND(MJCC3,RGB(0,224,224),MJCC2,RGB(255,96,96));
STICKLINE(MJCC2>=0,0,MJCC2,0,-1),COLORRED;
STICKLINE(MJCC2< 0,0,MJCC2,0,-1),COLORBLUE;
MJCC4:(MJCC1-MA(MJCC1,14))/(0.015*AVEDEV(MJCC1,14)),COLORYELLOW,LINETHICK1;
DRAWTEXT(ISLASTBAR,MJCC4,' ←CCI'),COLORYELLOW;
MJCC5:=5;
MJCC6:=REF(C,BARSLAST(REF(FILTER(BACKSET(REF(MJCC2,MJCC5)=LLV(MJCC2,2*MJCC5+1),MJCC5+1),MJCC5) AND MJCC2=LLV(MJCC2,MJCC5+1),1))+1)>C AND REF(MJCC2,BARSLAST(REF(FILTER(BACKSET(REF(MJCC2,MJCC5)=LLV(MJCC2,2*MJCC5+1),MJCC5+1),MJCC5) AND MJCC2=LLV(MJCC2,MJCC5+1),1))+1)< MJCC2 AND FILTER(BACKSET(REF(MJCC2,MJCC5)=LLV(MJCC2,2*MJCC5+1),MJCC5+1),MJCC5) AND MJCC2=LLV(MJCC2,MJCC5+1),COLORWHITE,NODRAW;
DRAWLINE(FILTER(BACKSET(REF(MJCC2,MJCC5)=LLV(MJCC2,2*MJCC5+1),MJCC5+1),MJCC5) AND MJCC2=LLV(MJCC2,MJCC5+1),MJCC2,FILTER(MJCC6>0,5),MJCC2,0),COLORWHITE;
DRAWTEXT(MJCC6,MJCC2,'底背'),COLORWHITE;
MJCC7:=REF(C,BARSLAST(REF(FILTER(BACKSET(REF(MJCC2,MJCC5)=HHV(MJCC2,2*MJCC5+1),MJCC5+1),MJCC5) AND MJCC2=HHV(MJCC2,MJCC5+1),1))+1)< C AND REF(MJCC2,BARSLAST(REF(FILTER(BACKSET(REF(MJCC2,MJCC5)=HHV(MJCC2,2*MJCC5+1),MJCC5+1),MJCC5) AND MJCC2=HHV(MJCC2,MJCC5+1),1))+1)>MJCC2 AND FILTER(BACKSET(REF(MJCC2,MJCC5)=HHV(MJCC2,2*MJCC5+1),MJCC5+1),MJCC5) AND MJCC2=HHV(MJCC2,MJCC5+1),COLORGREEN,NODRAW;
DRAWLINE(FILTER(BACKSET(REF(MJCC2,MJCC5)=HHV(MJCC2,2*MJCC5+1),MJCC5+1),MJCC5) AND MJCC2=HHV(MJCC2,MJCC5+1),MJCC2,FILTER(MJCC7>0,5),MJCC2,0),COLORGREEN;
DRAWTEXT(MJCC7,MJCC2,'顶背'),COLORGREEN;
MJCC8:=REF(C,BARSLAST(REF(FILTER(BACKSET(REF(MJCC3,MJCC5)=LLV(MJCC3,2*MJCC5+1),MJCC5+1),MJCC5) AND MJCC3=LLV(MJCC3,MJCC5+1),1))+1)>C AND REF(MJCC3,BARSLAST(REF(FILTER(BACKSET(REF(MJCC3,MJCC5)=LLV(MJCC3,2*MJCC5+1),MJCC5+1),MJCC5) AND MJCC3=LLV(MJCC3,MJCC5+1),1))+1)< MJCC3 AND FILTER(BACKSET(REF(MJCC3,MJCC5)=LLV(MJCC3,2*MJCC5+1),MJCC5+1),MJCC5) AND MJCC3=LLV(MJCC3,MJCC5+1),COLORWHITE,NODRAW;
DRAWLINE(FILTER(BACKSET(REF(MJCC3,MJCC5)=LLV(MJCC3,2*MJCC5+1),MJCC5+1),MJCC5) AND MJCC3=LLV(MJCC3,MJCC5+1),MJCC3,FILTER(MJCC8>0,5),MJCC3,0),COLORWHITE;
DRAWTEXT(MJCC8,MJCC3,'趋势底背'),COLORFF80FF;
MJCC9:=REF(C,BARSLAST(REF(FILTER(BACKSET(REF(MJCC3,MJCC5)=HHV(MJCC3,2*MJCC5+1),MJCC5+1),MJCC5) AND MJCC3=HHV(MJCC3,MJCC5+1),1))+1)< C AND REF(MJCC3,BARSLAST(REF(FILTER(BACKSET(REF(MJCC3,MJCC5)=HHV(MJCC3,2*MJCC5+1),MJCC5+1),MJCC5) AND MJCC3=HHV(MJCC3,MJCC5+1),1))+1)>MJCC3 AND FILTER(BACKSET(REF(MJCC3,MJCC5)=HHV(MJCC3,2*MJCC5+1),MJCC5+1),MJCC5) AND MJCC3=HHV(MJCC3,MJCC5+1),COLORGREEN,NODRAW;
DRAWLINE(FILTER(BACKSET(REF(MJCC3,MJCC5)=HHV(MJCC3,2*MJCC5+1),MJCC5+1),MJCC5) AND MJCC3=HHV(MJCC3,MJCC5+1),MJCC3,FILTER(MJCC9>0,5),MJCC3,0),COLORGREEN;
DRAWTEXT(MJCC9,MJCC3,'趋势顶背'),COLORFF8000;
MJCC10:=0-MJCC2;
MJCC11:=IF(MJCC2< 0,SUM(MJCC2,BARSLAST(MJCC10< 0)),0);
MJCC12:=IF(MJCC2>0,SUM(MJCC2,BARSLAST(MJCC10>0)),0);
MJCC13:=LLV(L,BARSLAST(MJCC10< 0));
MJCC14:=HHV(H,BARSLAST(MJCC10>0));
MJCC15:=IF (MJCC2< 0,BARSLAST(CROSS(MJCC2,0)),0);
MJCC16:=REF(MJCC11,MJCC15+1);
MJCC17:=REF(MJCC13,MJCC15+1);
MJCC18:=IF((MJCC11< 0 AND ABS(MJCC11)< ABS(MJCC16) AND MJCC13< MJCC17 ),1,0);
MJCC19:=MJCC2< 0 AND REF(MJCC2,1)< 0 AND C< MJCC17 AND ABS(MJCC11)< ABS(MJCC16) AND ABS(MJCC2)< ABS(REF(MJCC2,1));
MJCC20:=IF (CROSS(MJCC2,0),REF(MJCC18,1),0);
DRAWTEXT(MJCC20,LLV(MJCC2,5),'←面积底背'),COLORRED;
MJCC21:=IF (MJCC2>0,BARSLAST(CROSS(0,MJCC2)),0);
MJCC22:=REF(MJCC12,MJCC21+1);
MJCC23:=REF(MJCC14,MJCC21+1);
MJCC24:=IF((MJCC12>0 AND MJCC12< MJCC22 AND MJCC14>MJCC23 ),1,0);
MJCC25:=MJCC2>0 AND REF(MJCC2,1)>0 AND C>MJCC23 AND ABS(MJCC12)< ABS(MJCC22) AND ABS(MJCC2)< ABS(REF(MJCC2,1));
MJCC26:=IF (CROSS(0,MJCC2),REF(MJCC24,1),0);
DRAWTEXT(MJCC26,HHV(MJCC2,5),'←面积顶背'),COLORCYAN;
MJCC27:=EMA(EMA(EMA(MJCC2,2),2),2);
MJCC28:=EMA(EMA(EMA(MJCC2,3),2),2);
MJCC29:=(CROSS(MJCC27,MJCC28) OR (MJCC27 >=MJCC28)) AND MJCC27>=-101 AND MJCC27>=REF(MJCC27,1) AND REF(MJCC27,1)< -101 ;
MJCC30:IF(MJCC29>0,100,0),STICK,COLORYELLOW,LINETHICK2;
