求變色KDJ、MACD的原碼！

作者：通達信來源：cxh99.com 發(fā)布時間：2019年02月11日

咨詢內(nèi)容：
機器被格式化了，通達信掉了幾個公式。求各位幫忙發(fā)個變色KDJ、MACD的原碼！

變色KDJ、MACD：與普通KDJ、MACD差不多，但只是K\D\J三線的顏色不一樣。

?

?來源:C X H 9 9 .C O M ）
通達信技術(shù)部： RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:SMA(RSV,M1,1);
D:SMA(K,M2,1);
J:3*K-2*D;
VARK:K,COLORWHITE;
上升K:IF(VARK>REF(VARK,1),VARK,DRAWNULL),COLORRED;
走平K:IF(VARK=REF(VARK,1),VARK,DRAWNULL),COLORFFFFCC;
下降K:IF(VARK<REF(VARK,1),VARK,DRAWNULL),COLORGREEN;
VARD:D,COLORWHITE;
上升D:IF(VARD>REF(VARD,1),VARD,DRAWNULL),COLORRED;
走平D:IF(VARD=REF(VARD,1),VARD,DRAWNULL),COLORFFFFCC;
下降D:IF(VARD<REF(VARD,1),VARD,DRAWNULL),COLORGREEN;
VARJ:J,COLORWHITE;
上升J:IF(VARJ>REF(VARJ,1),VARJ,DRAWNULL),COLORRED;
走平J:IF(VARJ=REF(VARJ,1),VARJ,DRAWNULL),COLORFFFFCC;
下降J:IF(VARJ<REF(VARJ,1),VARJ,DRAWNULL),COLORGREEN;
?
通達信客服：
謝謝你發(fā)給我的原碼！

但變色KDJ始終有個問題：如J線，總會有三個顏色，紅、綠、白。

其中有明顯的錯誤發(fā)生：J勾頭向上，先出白色的再出紅色的，整個指標不平滑，很亂。

能否使整個J線平滑一些。只有紅、綠兩種色彩，但不要有錯誤發(fā)生。

能給進一步優(yōu)化一下嗎？

?
網(wǎng)友交流： RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;
K:EXPMEMA(EXPMEMA(RSV,M1),M1);
D:EXPMEMA(EXPMEMA(K,M2),M2);
J:3*K-2*D;
VARK:K,COLORRED;
上升K:IF(VARK>REF(VARK,1),VARK,DRAWNULL),COLORRED;
走平K:IF(VARK=REF(VARK,1),VARK,DRAWNULL),COLORRED;
下降K:IF(VARK<REF(VARK,1),VARK,DRAWNULL),COLORGREEN;
VARD:D,COLORRED;
上升D:IF(VARD>REF(VARD,1),VARD,DRAWNULL),COLORRED;
走平D:IF(VARD=REF(VARD,1),VARD,DRAWNULL),COLORRED;
下降D:IF(VARD<REF(VARD,1),VARD,DRAWNULL),COLORGREEN;
VARJ:J,COLORGREEN;
上升J:IF(VARJ>REF(VARJ,1),VARJ,DRAWNULL),COLORRED;
走平J:IF(VARJ=REF(VARJ,1),VARJ,DRAWNULL),COLORRED;
下降J:IF(VARJ<REF(VARJ,1),VARJ,DRAWNULL),COLORGREEN;
?
網(wǎng)友交流： 頂一下