通达信指标公式源码 新KDJ 副图源码.doc

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),HICK1,COLORYELLOW;D:MA(K,3),COLORFF0000,HICK1;J:3*K-2*D,HICK1;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)ORA5>REF(A5,1)ANDCROSS(K,A2)ANDK<40,10,0);IF(A2>80ANDCROSS(95,K),85,100);跌幅较大:K<5ANDLLV(C,3)/HHV(C,20)<,COLOR00FF00;STICKLINE(跌幅较大,0,30,3,0),COLOR00FF00;A6:=COUNT(CROSS(K,A2),2)=1ANDCROSS(K,A5)ANDA5/REF(A5,1)><50;A7:=CROSS(K,D)ANDD<10ORCROSS(K,D)ANDCROSS(K,A5)ANDD<18;{DRAWTEXT(FILTER((A6ORA7)ANDK>REF(K,1),5)AND均线,D,'金叉');DRAWTEXT(CROSS(D,K)ANDCROSS(A5,K)ANDD>85,D,'死叉');DRAWTEXT(FILTER(K>REF(K,1)AND(CROSS(K,10)ORCROSS(K,A2))ANDCOUNT(A4<14,3)>=1,3),15,'虎口拔牙');}无限风光:A2>85ANDK>85ORA2>90ORK>90,HICK0,COLORFFFF00;STICKLINE(无限风光,MAX(A2,K),100,6,1),COLORFFFF00;DRAWICON(CROSS(A3,-300)ANDK<10,5,1);A8:=BARSLAST(REF(CROSS(K,D),1));二次金叉:=(A8<15ANDD<50ANDK>REF(K,A8+1)ANDCROSS(K,D)ANDA5<60);{DRAWTEXT(二次金叉AND均线,K,'二次金叉');}A9:=LLV(C,2)<REF(LLV(C,15),2);DRAWTEXT(二次金叉ANDA9,K,'底背离'),COLORMAGENTA;{DRAWTEXT(LONGCROSS(J,K,7)ANDCROSS(J,A2)ANDA2<30ANDA2>REF(A2,1),K,'穿三线');}{DRAWTEXT(CROSS(84,A4)ANDCROSS(K,A4),90,'虎口脱险')