实用指标之KDJ周叉(通达信)

源码正文：

kdj周叉 ，可以在一个日线图里看日线、周线、周月kdJ的金叉、死叉很是方便，希望大家喜欢！
N:=9{XG51};
M1:=3{XG51};
M2:=3{XG51};
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};
周K:MA("KDJ.K#WEEK"(N,M1,M2) ,5),LINETHICK2,COLORRED{XG51};
周D:MA("KDJ.D#WEEK"(N,M1,M2) ,5),LINETHICK2,COLOR33FF99{XG51};
周J:MA("KDJ.J#WEEK"(N,M1,M2) ,5),LINETHICK2,COLORLIMAGENTA{XG51};
周金▲:DRAWTEXT(crOSS("KDJ.K#WEEK"(N,M1,M2),"KDJ.D#WEEK"(N,M1,M2)) ,8,'周▲'),COLORWHITE{XG51};
周死▼:DRAWTEXT(CROSS("KDJ.D#WEEK"(N,M1,M2),"KDJ.K#WEEK"(N,M1,M2)) ,92,'周▼'),COLORCYAN{XG51};
月金▲:DRAWTEXT(CROSS("KDJ.K#MONTH"(N,M1,M2),"KDJ.D#MONTH"(N,M1,M2)) ,0,'月▲'),COLORLIMAGENTA{XG51};
月死▼:DRAWTEXT(CROSS("KDJ.D#MONTH"(N,M1,M2),"KDJ.K#MONTH"(N,M1,M2)) ,100,'月▼'),COLORBLUE{XG51};
20{X_G~5-1_C_N_{};

源码正文：

difF:=ema(CLOSE,12)-Ema(CLOSE,27){XG51};
DEA:=EMA(DIFF,9){XG51};
macd:=(2)*(DIFF-DEA){XG51};
A1:=BArslAst(REF(crOSS(DIFF,DEA),1)){XG51};
接近大盘底:=(REF(CLOSE,A1+1)>CLOSE) AND (DIFF>REF(DIFF,A1+1)) AND CROSS(DIFF,DEA){XG51};
STICKLINE(接近大盘底,0,0.1,10,0),COLOR0000FF{XG51};
DRAWTEXT(接近大盘底,0.01,'接近大盘底'),COLORRED{XG51};
A2:=BARSLAST(REF(CROSS(DEA,DIFF),1)){XG51};
大盘顶:=(REF(CLOSE,A2+1)<CLOSE) AND (REF(DIFF,A2+1)>DIFF) AND CROSS(DEA,DIFF){XG51};
STICKLINE(大盘顶,0,0.1,10,0),COLOR00FF00{XG51};
DRAWTEXT(大盘顶,0.01,'大盘顶'),COLORBLUE{X.G.5_1.C.N.{};