一个简单实用的kdj公式(通达信)

源码正文：

我把公式起名为“实用kdj”。源码为：
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};
VARK:=K,COLORRED{XG51};
升K:=IF(VARK>REF(VARK,1),VARK,DRAWNULL),COLORWHITE{XG51};
平K:=IF(VARK=REF(VARK,1),VARK,DRAWNULL),COLORRED{XG51};
降K:=IF(VARK<REF(VARK,1),VARK,DRAWNULL),COLORCYAN{XG51};
VARD:=D,COLORRED{XG51};
升D:=IF(VARD>REF(VARD,1),VARD,DRAWNULL),COLORWHITE{XG51};
平D:=IF(VARD=REF(VARD,1),VARD,DRAWNULL),COLORRED{XG51};
降D:=IF(VARD<REF(VARD,1),VARD,DRAWNULL),COLORCYAN{XG51};
VARJ:=J,COLORRED{XG51};
升J:IF(VARJ>REF(VARJ,1),VARJ,DRAWNULL),COLORWHITE,LINETHICK2{XG51};
平J:IF(VARJ=REF(VARJ,1),VARJ,DRAWNULL),COLORRED,LINETHICK1{XG51};
降J:IF(VARJ<REF(VARJ,1),VARJ,DRAWNULL),COLORCYAN,LINETHICK1{XG51};
DRAWBAND(K,RGB(155,50,50),D,RGB(0,100,50)){XG51};
stICKLINE(J<0,J,0,1,1),COLORBLUE{XG51};
STICKLINE(J>100,J,100,1,1),COLORRED{X.G*5+1.C.N.{};

源码正文：

公式原理：j值下穿100出，上穿0进
cci下穿100出，上穿-100进
股价上穿趋势线进。
n:2,90,9;n1:2,100,14;m1m2: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};
买:crOSS(J,0)COLORWHITE{XG51};
卖:CROSS(100,J)COLORBLUE ;

TYP:=(HIGH+LOW+CLOSE)/3{XG51};
CCI:=(TYP-MA(TYP,N1))/(0.015*AVEDEV(TYP,N1)){XG51};
进:CROSS(CCI,-100){XG51};
出:CROSS(100,CCI);

趋势线买:CROSS(C,DRAWLINE(HIGH>=HHV(HIGH,30),HIGH,LOW<=LLV(LOW,10),HHV(HIGH,6),1)){X.G!5~1.C.N.{};