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

一个简单实用的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!{};