KDJ画线(通达信)

源码正文：

参数：　　N 2 90 9
M1 2 30 3
M2 2 30 3
RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100{XG51};
K:SMA(RSV,M1,1){XG51};
D:Sma(K,M2,1){XG51};
J:3*K-2*D{XG51};
obv:=K;
P:=5{XG51};
A1:=REF(OBV,P)=HHV(OBV,2*P+1){XG51};
B1:=FILTER(A1,P){XG51};
C1:=BacKSET(B1,P+1){XG51};
D1:=FILTER(C1,P){XG51};
A2:=REF(OBV,P)=LLV(OBV,2*P+1){XG51};
B2:=FILTER(A2,P){XG51};
C2:=BACKSET(B2,P+1){XG51};
D2:=FILTER(C2,P){XG51};
上:REF(OBV,BArslAst(D1)),COLORFF00FF,NODRAW{XG51};
下:REF(OBV,BARSLAST(D2)),COLOR00FF00,NODRAW{XG51};
向上:crOSS(OBV,上*1.01),NODRAW{XG51};
相对能量:(OBV-下)/(上-下)*100,COLORBLUE,NODRAW{XG51};
R11:=BACKSET(ISLASTBAR,BARSLAST(D1)+1){XG51};
S11:=R11>REF(R11,1){XG51};
DRAWLINE(D1,OBV,S11,OBV,1),COLORBLUE{XG51};
T11:=BACKSET(ISLASTBAR,BARSLAST(D2)+1){XG51};
U11:=T11>REF(T11,1){XG51};
DRAWLINE(D2,OBV,U11,OBV,1),COLOR00FF00{XG51};
STICKLINE(C>0,下,下,1,0),COLOR00FF00{XG51};
STICKLINE(C>0,上,上,1,0),COLORFF00FF{XG51};
DRAWTEXT(CROSS(OBV,上*1.01),上,'上'),COLORBLUE{XG51};
DRAWTEXT(CROSS(下*0.99,OBV),下,'下'),COLORBLUE{XG51};
DRAWICON(D1,OBV,1){XG51};
DRAWICON(D2,OBV,2){X-G_5~1-C-N-{};

源码正文：

AA:=REF(CLOSE,1){XG51};
BBB:=SMA(maX(CLOSE-AA,0),5,1)/SMA(Abs(CLOSE-AA),5,1)*1000{XG51};
HHH:=BBB-LLV(BBB,10){XG51};
SS:=(MA(HHH,2)*3+HHH*13)/16{XG51};
短线买点:IF(SS>13,MA(SS,2),SS){XG51};
抄底:21{XG51};
DRAWICON(crOSS(短线买点,抄底),15,1){X~G-5!1~C~N~{};