通达信KDJ优化源码副图

10,COLORRED;
 20,COLOR00FF00,LINETHICK3,POINTDOT;
 40,COLOR00FFFF,LINETHICK3,POINTDOT;
 50,COLORRED,LINETHICK2;
 60,COLORRED,LINETHICK3,POINTDOT;
 80,COLOR00FFFF,LINETHICK3,POINTDOT;
 90,COLORWHITE;
 100,COLOR00FF00,LINETHICK1;
 {进入异动区}{当出现进入异动区提示时需观察买入，最好是第二次KDJ三线相交时介入}
VAR7:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
 VAR8:=EMA(VAR7,30);
 VAR9:=EMA(VAR8,30);
 VAR10:=3*VAR8-2*VAR9;
势:=EMA(VAR10,5);
 DRAWTEXT(CROSS(10,势),69,'进'),COLORYELLOW;
 DRAWTEXT(CROSS(10,势),58,'入'),COLORFF00FF;
 DRAWTEXT(CROSS(10,势),43,'异'),COLOR00C0FF;
 DRAWTEXT(CROSS(10,势),31,'动[↓]'),COLORFFFF6F;
 DRAWTEXT(CROSS(10,势),19,'区'), COLORB47DFF;
 {长线持股}{含未来函数：DRAWLINE当天出现信号可择机介入，明日买、卖需观察}
A7:=C-REF(C,1);
 A8:=100*EMA(EMA(A7,6),6)/EMA(EMA(ABS(A7),6),6);
 SHORT:=7; LONG:=19;
 RMA:=EMA(CLOSE,SHORT);
 NMA:=EMA(CLOSE,LONG);
 UP:=DRAWLINE(L=LLV(L,BARSLAST(CROSS(NMA,RMA))+1),LLV
 (L,BARSLAST(CROSS(NMA,RMA))+1),H=HHV
 (H,BARSLAST(CROSS(RMA,NMA))+1),HHV
 (H,BARSLAST(CROSS(RMA,NMA))+1),0);
 DOWN:=DRAWLINE(H=HHV(H,BARSLAST(CROSS(RMA,NMA))+1),HHV
 (H,BARSLAST(CROSS(RMA,NMA))+1),L=LLV
 (L,BARSLAST(CROSS(NMA,RMA))+1),LLV
 (L,BARSLAST(CROSS(NMA,RMA))+1),0);
买进:=(LLV(A8,2)=LLV(A8,7) AND COUNT(A8<0,2) AND
 CROSS(A8,MA(A8,2))) AND REF(DOWN,1)<REF(DOWN,2) AND UP>REF(DOWN,1);
 STICKLINE(买进,0,45,1.3,0),COLOR000088;
 STICKLINE(买进,0,45,0.9,0),COLOR0000AA;
 STICKLINE(买进,0,45,0.6,0),COLOR0000CC;
 STICKLINE(买进,0,45,0.2,0),COLOR0000FF;
 DRAWTEXT(买进,43,'长线持股'),COLORRED,LINETHICK1;
 {共振}
RV:=(CLOSE-LLV(LOW,33))/(HHV(HIGH,33)-LLV(LOW,33))*100;
 RG:=(CLOSE-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*100;
 VAR44:=SMA(RV,3,1);
 VAR55:=SMA(VAR44,3,1);
 KK:=EMA(SMA(RG,3,1),2),COLORFFFFFF;
 JJ:=SMA(KK,3,1),COLOR00FFFF;
共振点:=(CROSS(VAR44,VAR55) AND CROSS(KK,JJ));
 STICKLINE(共振点>0,0,35,1.3,0),COLOR008888;
 STICKLINE(共振点>0,0,35,0.9,0),COLOR00AAAA;
 STICKLINE(共振点>0,0,35,0.6,0),COLOR00DDDD;
 STICKLINE(共振点>0,0,35,0.2,0),COLOR00FFFF;
 DRAWTEXT(共振点>0,33,'共振'),COLOR00FF00;
 {涨}
VAR1:=EMA(CLOSE,3);
 VAR2:=EMA(CLOSE,21);
 VAR3:=BARSLAST(CROSS(VAR2,VAR1))>15;
 VAR4:=VOL>MA(VOL,5)*2 AND VOL<MA(VOL,5)*5;
 VAR5:=CROSS(VAR1,VAR2) AND VAR4 AND VAR3;
 STICKLINE(VAR5,0,25,1.3,0),COLOR008800;
 STICKLINE(VAR5,0,25,0.9,0),COLOR00AA00;
 STICKLINE(VAR5,0,25,0.6,0),COLOR00CC00;
 STICKLINE(VAR5,0,25,0.2,0),COLOR00FF00;
 DRAWTEXT(VAR5,23,'★涨'),COLOR00FF00;
 {KDJ没有未来函}
RSV:=(CLOSE-LLV(LOW,33))/(HHV(HIGH,33)-LLV(LOW,33))*100;
 K:SMA(RSV,3,1),COLOR00FFFF,LINETHICK2;
 D:SMA(K,3,1),COLORWHITE LINETHICK2;
 J:3*K-2*D,COLORRED,LINETHICK2;
 IF(J<REF(J,1),J,DRAWNULL),COLORGREEN,LINETHICK2;
 {KDJ相交红蓝球}
DRAWICON(CROSS(J,D) AND CROSS(J,K),5,13);
 DRAWICON(CROSS(D,J) AND CROSS(K,J),95,14);
 {逃}
DRAWTEXT(CROSS(80,RSI),95,'★逃'),COLORWHITE LINETHICK1;
 {顶}
VAR22:=1;
 VAR23:=((((2*CLOSE)+HIGH)+LOW) / 4);
 VAR24:=LLV(LOW,5);
 VAR25:=HHV(HIGH,4);
 B1:=(EMA((((VAR23-VAR24)/(VAR25-VAR24))*100),4)*VAR22);
 B2:=(EMA(((0.667*REF(B1,1))+(0.333*B1)),2)*VAR22);
 TJ4:=CROSS(B2,B1) AND REF(B1,1)>80;
 DRAWTEXT(TJ4,102,'★顶'),COLOR00FFFF LINETHICK1;
 {今买明卖}
MA111:=MA(CLOSE,20);
 MA112:=MA(CLOSE,40);
 MA113:=MA(CLOSE,60);
 A11:=OPEN<MA111 OR OPEN<MA112 OR OPEN<MA113,COLORRED;
 A12:=C>MAX(MA111,MAX(MA112,MA113)),COLORRED;
 A13:=V/MA(V,30)>1.2,COLORRED;
 A14:=C/REF(C,1)>1.049,COLORRED;
今买明卖:IF(A11 AND A12 AND A13 AND A14,45,0),COLORWHITE LINETHICK2;
 DRAWTEXT(今买明卖>0.9,40,'今买明卖'),COLORWHITE LINETHICK1;
 {短买}
你:=MA(CLOSE,1);
老:=(LOW+HIGH+CLOSE)/3;
老板:= MA(老,5);
买卖:=LLV(老板,10);
短买:IF(LLV((你<买卖),5),15,0),COLOR00FFFF LINETHICK2;
 {当大牛\中牛\短牛同一天出现时,果断买入}{含未来函数：DRAWLINE暴跌途中慎用!!}
VAR20:=C-REF(C,1);
 VAR21:=100*EMA(EMA(VAR20,6),6)/EMA(EMA(ABS(VAR20),6),6);
 MA5:=EMA(C,5);
 MA13:=EMA(C,13);
 UP1:=DRAWLINE(L=LLV(L,BARSLAST(CROSS(MA13,MA5))+1),LLV(L,BARSLAST(CROSS
 (MA13,MA5))+1),H=HHV(H,BARSLAST(CROSS(MA5,MA13))+1),HHV(H,BARSLAST(CROSS
 (MA5,MA13))+1),0),COLOR0000FF;
 DOWN1:=DRAWLINE(H=HHV(H,BARSLAST(CROSS(MA5,MA13))+1),HHV(H,BARSLAST(CROSS
 (MA5,MA13))+1),L=LLV(L,BARSLAST(CROSS(MA13,MA5))+1),LLV(L,BARSLAST(CROSS
 (MA13,MA5))+1),0),COLOR00FF00;
 BT:=(LLV(VAR21,2)=LLV(VAR21,7) AND COUNT(VAR21<0,2) AND CROSS(VAR21,MA(VAR21,2))) AND
 REF(DOWN1,1)<REF(DOWN1,2) AND UP1>REF(DOWN1,1);
 0,COLORFF00FF;
 DRAWTEXT(BT,30,'短牛'),COLOR00FFFF;
 TJ1:=REF(DOWN1,1)<REF(DOWN1,2) AND UP1>REF(DOWN1,1) AND C<HHV(H,21)*0.82;
 DRAWTEXT(TJ1,20,'中牛'),COLOR0000FF;
 HR:=HHV(HIGH,55);
 HRY:=LLV(LOW,55);
 HRY11:=HR*HRY;
 HRY33:=SQRT(HRY11);
 TJ2:=REF(DOWN1,1)<REF(DOWN1,2) AND UP1>REF(DOWN1,1) AND C<HRY33;
 DRAWTEXT(TJ2,10,'大牛'),COLORCYAN;