成本集中度:(COST(95)-COST(5))/(COST(95)+COST(5))*100,NODRAW;
顶95:COST(95),LINETHICK2,COLORWHITE;
拉75:COST(75), COLORLIBLUE;
控30:COST(30),COLORGREEN;
调10:COST(10),COLORYELLOW;
惨4:COST(4),COLORMAGENTA;
底0.05:COST(0.05),COLORRED,LINETHICK2;

STICKLINE(C/REF(C,1)>1.095,C,O,2,0),COLORRED;

STICKLINE(V/REF(V,1)>2,OPEN,CLOSE,1,0),COLORGREEN;
 {BL}
 A1:=BARSLAST(REF(CROSS("MACD.DIF","MACD.DEA"),1));
 DRAWTEXT(REF(C,A1+1)>C AND REF("MACD.DIF",A1+1)<"MACD.DIF" AND CROSS("MACD.DIF","MACD.DEA")>0,L-0.02,'★M抄'),COLOREE00EE;{MACD底背离}
A2:=BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1));
 DRAWTEXT(REF(C,A2+1)>C AND REF("KDJ.K",A2+1)<"KDJ.K" AND CROSS("KDJ.K","KDJ.D"),L-0.10,'◎K抄'),COLOREE00EE;
 {KDJ底背离}A3:=BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1));
 DRAWTEXT(REF(C,A3+1)>C AND REF("RSI.RSI1",A3+1)<"RSI.RSI1" AND CROSS("RSI.RSI1","RSI.RSI2")>0,L-0.18,'◆R抄'),COLOREE00EE;{RSI底背离};
C1:=BARSLAST(REF(CROSS("MACD.DEA","MACD.DIF"),1));
 DRAWTEXT(REF(C,C1+1)"MACD.DIF" AND CROSS("MACD.DEA","MACD.DIF")>0,H+0.16,'★M顶背离'),COLORGREEN;{MACD顶背离};
C2:=BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1));
 DRAWTEXT(REF(C,C2+1)"KDJ.K" AND CROSS("KDJ.D","KDJ.K")>0,H+0.08,'◎K顶背离'),COLORGREEN;{KDJ顶背离}
C3:=BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1));
 DRAWTEXT(REF(C,C3+1)"RSI.RSI1" AND CROSS("RSI.RSI2","RSI.RSI1")>0,H+0.04,'◆R顶背离'),COLORGREEN;{RSI顶背离};

  {好底}
D:=EMA((C*3+H+L+O)/6,5);
 A线:=HHV(D,13)COLORYELLOW,LINETHICK2;
 B线:=LLV(D,13)COLORYELLOW,LINETHICK2;日平:="MACD.MACD#DAY"(12,26,9);
周平:="MACD.MACD#WEEK"(12,26,9);
 JC:=(A线-B线);
壹:=COUNT(JC>REF(JC,1)AND A线>REF(A线,1),5)=1 AND JC>REF(JC,1)AND A线>REF(A线,1)AND D>=REF(D,1);
 G1:=FILTER(壹=1,10);
 G2:=BARSLAST(G1>0);
 G3:=IFF(G2>0 AND G2<=10,1,0)=1 AND ((C-REF(C,G2))/REF(C,G2))*100>=5;
概壹:=(SUM(FILTER(G3,10),0)/SUM(G1>0,0))*100;
加1:=COUNT(日平>=0 AND 周平>=0,5)=1 AND 日平>=0 AND 周平>=0;
加2:=FILTER(D=A线 AND REF(D,1)  ①:=FILTER(加1=1,10);
 ②:=BARSLAST(①>0);
 ③:=IFF(②>0 AND ②<=10,1,0)=1 AND ((C-REF(C,②))/REF(C,②))*100>=5;
概加1:=(SUM(FILTER(③,10),0)/SUM(①>0,0))*100;
好底:FILTER(COUNT(D=B线,3)>=2 AND D>B线,5),COLORRED,NODRAW;
 DRAWTEXT(好底,L-0.5,'好底'),COLORRED;

{所有S，加S}
 SD1:=(C+L+H)/3;    
 SZ:=MA(C,120);
 SVAR3:=(MA(H,5)-SZ)/SZ;
 SVAR4:=MA((CLOSE-LLV(LOW,10))/(HHV(HIGH,10)-LLV(LOW,10))*100,3);
 SDD1:DRAWTEXT(CROSS(95,SVAR4) AND SVAR3>0.3,1.51+HIGH ,'★S'),COLORRED;
 SDD2:DRAWTEXT( CROSS(93,SVAR4) AND HHV(H,30)/LLV(L,30)>1.1 AND REF(SZ,1)/SZ>0.997 ,1.51+HIGH ,'★S'),COLORGREEN;
 SDD3:DRAWTEXT(CLOSE90 AND SVAR4REF(SVAR4,2) ,1.51+HIGH,'★S'),COLORBLUE;

{所有加J，J共振}
JRSV1:=(CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100;
 JK1:=SMA(JRSV1,5,1);
 JD1:=SMA(JK1,5,1);
 JJ1:=3*JK1-2*JD1;
 JAA1:=EMA(JJ1,5);
 JAA2:=REF(JAA1,1);
 JRSV2:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
 JK2:=SMA(JRSV2,3,1);
 JD2:=SMA(JK2,3,1);
 JJ2:=3*JK2-2*JD2;
 JBB1:=EMA(JJ2,5);
 JBB2:=REF(JBB1,1);
 JDD:=JAA1>JAA2 AND JBB1>JBB2,COLORYELLOW,,NODRAW;
 J共振:JDD AND NOT(REF(JDD,1)) AND (JAA1<50 OR JBB1<50),NODRAW,COLORYELLO