多年优化的通达信实战指标：KDJ虎公式

VAR1:=(HHV(HIGH,21)-CLOSE)/(HHV(HIGH,21)-LLV(LOW,21))*100-10;
 VAR2:=(CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100;
 VAR3A:=SMA(VAR2,13,8);
多方能量: SMA(VAR3A,13,8),DOTLINE,COLORRED;
空方能量: SMA(VAR1,21,8),DOTLINE,COLORGREEN;
 A0:=(2*C+H+L)/4;
均线:=MA(A0,3)>REF(MA(A0,3),1);
 A1:=(CLOSE-LLV(LOW,7))/(HHV(HIGH,7)-LLV(LOW,7))*100;
 A2:=EMA(WINNER(C)*100,5);
 A3:=MA(SMA(C-REF(C,1),3,1)/SMA(H-REF(C,1),3,1),3)*100;
 K:MA(3*SMA(A1,6,1)-2*SMA(SMA(A1,5,1),5,1),3),LINETHICK1,COLORWHITE;
 D:MA(K,3),COLORYELLOW,LINETHICK1;
 J:3*K-2*D,COLORYELLOW,LINETHICK1;
 A4:=SMA(MAX(C-REF(C,2),0),6,1)/SMA(ABS(C-REF(C,2)),6,1)*100;
 A5:=MA(3*SMA((C-LLV(L,21))/(HHV(H,21)-LLV(L,21))*100,5,1)-2*SMA(SMA((C-LLV(L,21))/(HHV(H,21)-LLV(L,21))*100,5,1),3,1),3);
低吸:IF(CROSS(A4,14) OR A5>REF(A5,1) AND CROSS(K,A2)AND K<40,10,0),COLORYELLOW;
 IF(A2>80 AND CROSS(95,K),85,100);
入虎穴:K<5 AND LLV(C,3)/HHV(C,20)<0.8,COLORYELLOW;
 STICKLINE(入虎穴,0,30,3,0),COLORYELLOW;
 A6:=COUNT(CROSS(K,A2),2)=1 AND CROSS(K,A5)AND A5/REF(A5,1)>0.9 AND K<50;
 A7:=CROSS(K,D)AND D<10 OR CROSS(K,D)AND CROSS(K,A5)AND D<18;
 DRAWTEXT(FILTER((A6 OR A7)AND K>REF(K,1),5)AND 均线 ,D,'金叉');
DRAWTEXT(CROSS(D,K)AND CROSS(A5,K)AND D>85,D,'死叉');
DRAWTEXT(FILTER(K>REF(K,1)AND (CROSS(K,10)OR CROSS(K,A2))AND COUNT(A4<14,3)>=1,3),15,'抱虎仔');
无限风光:A2>85 AND K>85 OR A2>90 OR K>90,LINETHICK0,COLORLIGRAY;
 STICKLINE(无限风光,MAX(A2,K),100,5,1),COLORLIGRAY;
 DRAWICON(CROSS(A3,-300)AND K<10,5,1);
 A8:=BARSLAST(REF(CROSS(K,D),1));
二金:=(A8<15 AND D<50 AND K>REF(K,A8+1) AND CROSS(K,D)AND A5<60);
 DRAWTEXT(二金 AND 均线,K,'二金'),COLORYELLOW;
 A9:=LLV(C,2)<REF(LLV(C,15),2);
 DRAWTEXT(二金 AND A9,K,'底背离'),COLORRED;
 DRAWTEXT(LONGCROSS(J,K,7)AND CROSS(J,A2)AND A2<30 AND A2>REF(A2,1),K,'穿三线'),COLORMAGENTA;
 DRAWTEXT(CROSS(84,A4)AND CROSS(K,A4),90,'虎口'),COLOR00FF00;
 A10:=MA((A0-MA(A0,13))/(0.15*AVEDEV(A0,13)),3);
 DRAWICON(CROSS(A10,-15)AND J>REF(J,1),5,1);
 DRAWICON(CROSS(20,A10),100,2);
 IF(K<REF(K,1),K,DRAWNULL),COLORGREEN,LINETHICK1;
 IF(D<REF(D,1),D,DRAWNULL),COLORGREEN,LINETHICK1;
 IF(J<REF(J,1),J,DRAWNULL),COLORFFFF00,LINETHICK1;
 IF(K>REF(K,1),K,DRAWNULL),COLORRED,LINETHICK1;
 IF(D>REF(D,1),D,DRAWNULL),COLORRED,LINETHICK1;
 IF(J>REF(J,1),J,DRAWNULL),COLORFF00FF,LINETHICK1;
 {掘底买点}
WVAR1:=(HIGH+LOW+CLOSE)/3;
 WVAR2:=(WVAR1-MA(WVAR1,14))/(0.015*AVEDEV(WVAR1,14));
 WVAR3:=IF(TROUGHBARS(3,16,1)=0 AND HIGH>LOW+0.04,80,0);
 WVAR4:=IF(ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3),50,0);
 STICKLINE(WVAR3,80,95,0,0),COLORWHITE;
 STICKLINE(WVAR3,50,80,3,0),COLOR3366BB;
 STICKLINE(WVAR3,50,80,2,0),COLOR3399CC;
 STICKLINE(WVAR3,50,80,1,0),COLOR33CCEE;
 STICKLINE(WVAR3,50,80,0.1,0),COLOR33FFFF;
 STICKLINE(WVAR3,20,50,5,0),COLOR3366BB;
 STICKLINE(WVAR3,20,50,3.3,0),COLOR3399CC;
 STICKLINE(WVAR3,20,50,1.6,0),COLOR33CCEE;
 STICKLINE(WVAR3,20,50,0.1,0),COLOR33FFFF;
 STICKLINE(WVAR4,50,65,0,0),COLORWHITE;
 STICKLINE(WVAR4,30,50,3,0),COLOR000055;
 STICKLINE(WVAR4,30,50,2,0),COLOR000088;
 STICKLINE(WVAR4,30,50,1,0),COLOR0000BB;
 STICKLINE(WVAR4,30,50,0.1,0),COLOR0000EE;
 STICKLINE(WVAR4,10,30,5,0),COLOR000055;
 STICKLINE(WVAR4,10,30,3.3,0),COLOR000088;
 STICKLINE(WVAR4,10,30,1.6,0),COLOR0000BB;
 STICKLINE(WVAR4,10,30,0.1,0),COLOR0000EE;
掘底买点:=WVAR3,COLORYELLOW,LINETHICK2;
黑码信号:=WVAR4,COLORRED,LINETHICK2;
 DRAWTEXT(WVAR2<-110 AND WVAR3>0,87,'▲山人B点'),COLORYELLOW;
 DRAWTEXT(WVAR2<-110 AND WVAR4>0,57,'▲山人黑码'),COLORRED;