{J顶低集结}
DRAWGBKlast(c>0,strip(RGB(0,0,60),RGB(0,0,0),0));
 80,DOTLINE;20,DOTLINE;
 J9:EMA("KDJ.J"(9,3,3),5) ,COLOR0000FF,LINETHICK2;
 J18:EMA("KDJ.J"(18,3,3),5) ,COLOR00FFFF,DOTLINE;
 J27:EMA("KDJ.J"(27,3,3),5) ,COLOR00FF00,DOTLINE;
 J36:EMA("KDJ.J"(36,3,3),5) ,COLOR0077FF,DOTLINE;
 J45:EMA("KDJ.J"(45,3,3),5) ,COLOR00FFCC,LINETHICK2;
 A级顶:=J9>80 AND J18>80 AND J27>80 AND J36>80 AND J45>80;
 B级顶:=(J9>80 OR J18>80) AND (J27>80 OR J36>80 OR J45>80);
 A级低:=J9<5 AND J18<5 AND J27<5 AND J36<5 AND J45<5;
 B级低:=J9<10 AND J18<20 AND (J27<10 OR J36<10 OR J45<10);
 IF(A级顶,90,100),COLOR0077FF,LINETHICK3,LAYER2;
 IF(B级顶 ,80,100),COLOR00FF00,LINETHICK2,LAYER0;
 IF(A级低,10,0),COLOR00FF00,LINETHICK2,LAYER0;
 IF(B级低,20,0),COLORFF9900,LINETHICK2,LAYER2;
 FILLRGN(IF(A级顶,90,100),90),ColorFF2200,LAYER5;;
 FILLRGN(IF(B级顶,80,100),80),ColorFF9900,LAYER6;;
 FILLRGN(100,80),Color000000,LAYER7;;
 FILLRGN(10,20,10<20,RGB(0,40,60)),LAYER7;
 FILLRGN(0,10,0<10,RGB(0,60,0)),LAYER7;
选股A:A级低,LINETHICK0;
 {低部}
DIBU:= "KDJ.K"(9,3,3)<15 AND "KDJ.D"(9,3,3)<15 AND "KDJ.K"(18,3,3)<15 AND "KDJ.D"(18,3,3)<15
 AND "KDJ.K"(27,3,3)<20 AND "KDJ.D"(27,3,3)<20 AND "KDJ.D"(36,3,3)<20 AND "KDJ.D"(54,3,3)<20;
 STICKLINE(DIBU=1,30,20,1,0),COLORff00ff,LAYER5;
 STICKLINE(DIBU=1,20,10,2,0),COLORYELLOW,LAYER5;
 STICKLINE(DIBU=1,10,0,8,0),COLORff8000,LINETHICK2,LAYER5;
选股B:DIBU,LINETHICK0;

{大盘KDJ}
 DRSV:=(INDEXC-LLV(INDEXL,27))/(HHV(INDEXH,27)-LLV(INDEXL,27))*100;
 DK:=SMA(DRSV,3,1);
 DD:=SMA(DK,3,1);
 DJ:EMA((3*DK-2*DD),5),COLOR00FFFF;
 PARTLINE(DJ,(DJ>REF(DJ,1))-1,rgb(0,255,0),1,rgb(255,0,0) ),POINTDOT,LINETHICK6,LAYER1;

 {MACD}
 DIF:EMA(CLOSE,12)-EMA(CLOSE,26),LINETHICK0;
 DEA:=EMA(DIF,9);
 VAR1:=HHV(DEA,53);
 VAR2:=LLV(DEA,55);
 VAR3:=DEA-(DIF-DEA);
 UP:=IF(DIF>VAR1 AND DEA=VAR1,MAX(LLV(VAR1,10),VAR3),VAR1);
 DN:=IF(DIF<VAR2 AND DEA=VAR2,MIN(HHV(VAR2,10),VAR3),VAR2);
 PARTLINE(105,DIF>UP,RGB(255,0,0)),LINETHICK5,LAYER4;
 PARTLINE(104,DIF>UP,RGB(255,120,0)),LINETHICK5,LAYER5;
 PARTLINE(103,DIF>UP,RGB(255,200,0)),LINETHICK5,LAYER6;
 PARTLINE(-3,DIF<DN,RGB(0,130,100)),LINETHICK5,LAYER4;
 PARTLINE(-4,DIF<DN,RGB(0,220,0)),LINETHICK6,LAYER5;
 {KDJ周金叉死叉}
周K:"KDJ.K#WEEK"(9,2,5),COLOR0000FF,LINETHICK0,LAYER3;
周D:"KDJ.D#WEEK"(9,2,5),COLOR00FF00,LINETHICK0;
 DRAWTEXT(CROSS(周K,周D),30,'J周金叉'),ALIGN1,color00FFFF,LINETHICK1;
 DRAWTEXT(CROSS(周D,周K),70,'J周死叉'),ALIGN1,COLOR0077FF,LINETHICK1;
 KDB:=BARSLAST(REF(CROSS(周K,周D),1));
 KDDB:=REF(WMA(C,5),KDB+1)>WMA(C,5) AND REF(周K,KDB+1)<周K AND CROSS(周K,周D);
 K底背:=IF(FILTER(KDDB>0,5),1,0);
 DRAWTEXT(K底背=1,15,'J周底背'),COLOR00FFFF,LINETHICK1;
 KDD:=BARSLAST(REF(CROSS(周D,周K),1));
 K顶背:=REF(WMA(C,5),KDD+1)<WMA(C,5) AND REF(周K,KDD+1)>周K AND CROSS(周D,周K);
 DRAWTEXT(FILTER(K顶背>0,5),80,'J周顶背'),COLOR0077FF,LINETHICK1;
 {顶底背离}
 {1.MACD}
 A1:=BARSLAST(REF(CROSS("MACD.DIFF","MACD.DEA"),1));
 B1:=REF(C,A1+1)>C AND REF("MACD.DIFF",A1+1)<"MACD.DIFF" AND CROSS("MACD.DIFF","MACD.DEA");
 DRAWTEXT(B1>0,-2,'M底背'),COLOR00FFFF,LINETHICK1;{MACD底背离};
C1:=BARSLAST(REF(CROSS("MACD.DEA","MACD.DIFf"),1));
 D1:=REF(C,C1+1)<C AND REF("MACD.DIFf",C1+1)>"MACD.DIFf" AND CROSS("MACD.DEA","MACD.DIFf");
 DRAWTEXT(D1>0,105,'M顶背'),COLOR00FF00,LINETHICK1;{MACD顶背离};
 {2.KDJ}
 A2:=BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1));
 B2:=REF(C,A2+1)>C AND REF("KDJ.K",A2+1)<"KDJ.K" AND CROSS("KDJ.K","KDJ.D");
 DRAWTEXT(B2,5,'J9底背'),COLOR00FFFF,LINETHICK1;{KDJ底背离};
C2:=BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1));
 D2:=REF(C,C2+1)<C AND REF("KDJ.K",C2+1)>"KDJ.K" AND CROSS("KDJ.D","KDJ.K");
 DRAWTEXT(D2>0,80,'J9顶背'),COLOR0077FF,LINETHICK1;{KDJ顶背离};
 {3.RSI}
 A3:=BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1));
 B3:=REF(C,A3+1)>C AND REF("RSI.RSI1",A3+1)<"RSI.RSI1" AND CROSS("RSI.RSI1","RSI.RSI2");
 DRAWTEXT(B3>0,24,'R底背'),COLOR00FFFF,LINETHICK1;{RSI底背离}
C3:=BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1));
 D3:=REF(C,C3+1)<C AND REF("RSI.RSI1",C3+1)>"RSI.RSI1" AND CROSS("RSI.RSI2","RSI.RSI1");
 DRAWTEXT(D3>0,95,'R顶背'),COLOR0077FF,LINETHICK1;{RSI顶背离};