求變色KDJ、MACD的原碼！ [通達(dá)信]
-
咨詢(xún)內(nèi)容：
機(jī)器被格式化了，通達(dá)信掉了幾個(gè)公式。求各位幫忙發(fā)個(gè)變色KDJ、MACD的原碼！
變色KDJ、MACD：與普通KDJ、MACD差不多，但只是K\D\J三線的顏色不一樣。
?
?來(lái)源:C X H 9 9 .C O M ）
-
通達(dá)信技術(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;?
-
通達(dá)信客服：
謝謝你發(fā)給我的原碼！
但變色KDJ始終有個(gè)問(wèn)題：如J線，總會(huì)有三個(gè)顏色，紅、綠、白。
其中有明顯的錯(cuò)誤發(fā)生：J勾頭向上，先出白色的再出紅色的，整個(gè)指標(biāo)不平滑，很亂。
能否使整個(gè)J線平滑一些。只有紅、綠兩種色彩，但不要有錯(cuò)誤發(fā)生。
能給進(jìn)一步優(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)友交流： 頂一下
有思路，想編寫(xiě)各種指標(biāo)公式，程序化交易模型，選股公式，預(yù)警公式的朋友
可聯(lián)系技術(shù)人員 QQ: 511411198 或微信：cxhjy888 進(jìn)行 有償 編寫(xiě)！（不貴！點(diǎn)擊查看價(jià)格！）
相關(guān)文章
-
沒(méi)有相關(guān)內(nèi)容
會(huì)員登錄/注冊(cè)