看长做短KDJ(通达信)

看长做短KDJ(通达信)

源码正文：

stICKLINE(C,50,20,10,0),COLOR996600{XG51};
STICKLINE(C,80,50,10,0),COLOR996600{XG51};
STICKLINE(C,100,100,10,0),COLOR996600{XG51};
STICKLINE(C,0,0,10,0),COLOR996600{XG51};
STICKLINE(C,50,50,10,0),COLOR000000{XG51};
系数:=N/1000{XG51};
B1:=(HHV(H,9)-C)/(HHV(H,9)-LLV(LOW,9))*100- 70{XG51};
B2:=SMA(B1,9,1)+100{XG51};
B3:=(C-LLV(L,9))/(HHV(H,9)- LLV(L,9))*100{XG51};
B4:=Sma(B3,3,1){XG51};
B5:=SMA(B4,3,1)+100{XG51};
B6:=B5-B2{XG51};
B7:=IF(B6>60,B6-60,0){XG51};
difF:ema(CLOSE,12) - EMA(CLOSE,26),COLORYELLOW,LINETHICK2,NODRAW{XG51};
DEA1:=EMA(DIFF,9){XG51};
macd:2*(DIFF-DEA1)*60,LINETHICK0,NODRAW{XG51};
S1:=MacD<REF(MACD,1)AND MACD>0,COLORYELLOW{XG51};
S2:=MACD<REF(MACD,1) AND MACD<0{XG51};
STICKLINE(MACD>=0,MACD*系数,0,8,1),COLORWHITE{XG51};
STICKLINE(S1,0,MACD*系数,8,1),COLOR00FFFF{XG51};
STICKLINE(MACD<0,MACD*系数,0,8,1),COLOR996600{XG51};
STICKLINE(S2,0,MACD*系数,8,1),COLOR00AA00{XG51};
长RSV:=(((CLOSE - LLV(LOW,90)) / (HHV(HIGH,90) - LLV(LOW,90))) * 100){XG51};
长K:=SMA(长RSV,12,1),COLORRED,POINTDOT,LINETHICK4{XG51};
长D:SMA(长K,12,1),COLORBLUE,POINTDOT,LINETHICK4,NODRAW{XG51};
长J:((3 * 长K) - (2 *长D)),COLORWHITE,POINTDOT,LINETHICK4{XG51};
STICKLINE(crOSS(长D,80),108,115,4,0),COLOR33FF33{XG51};
STICKLINE(CROSS(长D,15),0,10,4,0),COLOR3333AA{XG51};
RSV:=(((CLOSE - LLV(LOW,9)) / (HHV(HIGH,9) - LLV(LOW,9))) * 100){XG51};
K:=SMA(RSV,3,1){XG51};
D:=SMA(K,3,1){XG51};
J:=((3 * K) - (2 * D)){XG51};
DRAWICON(FILTER(CROSS(K,D)AND K<50,1),0,1){XG51};
STICKLINE(CROSS(90,J),108,115,4,0),COLORCYAN{XG51};
DRAWTEXT(CROSS(90,J),105,'抛'),COLORCYAN{XG51};
STICKLINE(CROSS(J,(0 - 5)),0,10,4,0),COLORGREEN{XG51};
DRAWTEXT(CROSS(J,(0 - 5)),(0 - 4),'吸'),COLORGREEN{XG51};
AA2:=BArslAST(REF(CROSS(K,D),1)){XG51};
BB2:=REF(C,AA2+1)>C AND REF(K,AA2+1)<K AND CROSS(K,D){XG51};
KDJ底背离:STICKLINE(FILTER(BB2>0,5),0,1,3,0),COLORBLUE{XG51};
DRAWTEXT(FILTER(BB2>0,5),-8,'底背离'),COLORBLUE{XG51};
CC2:=BARSLAST(REF(CROSS(D,K),1)){XG51};
DD2:=REF(C,CC2+1)<C AND REF(K,CC2+1)>K AND CROSS(D,K){XG51};
DRAWTEXT(FILTER(DD2>0,5),-8,'顶背离'),COLORCYAN{XG51};
STICKLINE(REF(B7,1)<B7,J,REF(J,1),5,0),COLOR0090FF{XG51};
短K:K,COLORRED,LINETHICK2{XG51};
短D:D,COLORBLUE,LINETHICK2{XG51};
短J:J,COLORLIMAGENTA,LINETHICK2{XG51};
金叉D:IF((K > D),D,DRAWNULL),COLORBLUE,LINETHICK4{X_G*5!1_C_N_{};