求變色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勾頭向上，先出白色的再出紅色的，整個指標(biāo)不平滑，很亂。
能否使整個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)友交流：
頂一下
打印本文
關(guān)閉窗口