把WH8翻譯成WH9
作者：文華財(cái)經(jīng) 來源：cxh99.com 發(fā)布時(shí)間：2023年12月31日
-
咨詢內(nèi)容：
如果可以，加點(diǎn)備注，我想理解一下編程思想，謝謝?
以下是基礎(chǔ)函數(shù)
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;BACKGROUNDSTYLE(1);K:=SMA(RSV,3,1);D:=SMA(K,3,1);J:=3*K-2*D;KDJU:=CROSSUP(J,D);KDJD:=CROSSDOWN(J,D);
以下是主函數(shù)#IMPORT[HOUR,1,基礎(chǔ)函數(shù)] AS KDJ1H??#IMPORT[HOUR,2,基礎(chǔ)函數(shù)] AS KDJ2H??AA中文:=KDJ1H .KDJU&&KDJ2H.KDJU;BB中文:=KDJ1H .KDJD&&KDJ2H?.KDJD;
DRAWTEXT(AA中文,C,'B')；DRAWTEXT(BB中文,C,'B')；?
?
?來源:程序化99
-
文華技術(shù)人員：
請(qǐng)參考
//X新建指標(biāo) 基礎(chǔ)數(shù)據(jù)
Params
? ? Numeric Length(9);
? ? Numeric Length1(3);
? ? Numeric Length2(3);
Vars
? ? Numeric RSV;
? ? Numeric K;
? ? Numeric D;
? ? Numeric J;
? ? Numeric KDJU;
? ? Numeric KDJD;
Begin
? ? RSV = (Close - LLV(Low,Length)) / (HHV(High,Length) - LLV(Low,Length)) * 100;//收盤價(jià)與N周期最低值做差，N周期最高值與N周期最低值做差，兩差之間做比值。
? ? K = Sma(RSV,Length1,1);//RSV的移動(dòng)平均值
? ? D = Sma(K,Length2,1);//K的移動(dòng)平均值
? ? J = 3 * K - 2 * D;
? ? BackGroundStyle(1);
? ? KDJU=Cross(J,D);
? ? KDJD=CrossDown(J,D);
End
//主程序
ImPort
? ?#ImPort[Hour,1,基礎(chǔ)數(shù)據(jù)] AS KDJ1H
? ?#ImPort[Hour,2,基礎(chǔ)數(shù)據(jù)] AS KDJ2H
Vars
? ? Numeric AA中文,BB中文,A1,A2,B1,B2;
Begin
? ??
? ? A1=KDJ1H.KDJU;
? ? A2=KDJ2H.KDJU;
? ? B1=KDJ1H.KDJD;
? ? B2=KDJ2H.KDJD;
? ? AA中文=A1&&A2;
? ? BB中文=B1&&B2;
DrawText(AA中文,Close,"B");
DrawText(BB中文,Close,"B");
End
?
?來源: www.kzuj.com.cn
-
文華客服：
?代碼真的大了一倍不止，能精簡(jiǎn)點(diǎn)嗎？文華9中KDJ,MACD之類系統(tǒng)本身存在的指標(biāo)引用的時(shí)候不能進(jìn)行精簡(jiǎn)嗎？
?
-
網(wǎng)友回復(fù)：
?請(qǐng)參考
//主程序
ImPort
? ?#ImPort[Hour,1,KDJ] AS KDJ1H
? ?#ImPort[Hour,2,KDJ] AS KDJ2H
Vars
? ? Numeric AA中文,BB中文,A1,A2,B1,B2;
Begin
? ??
? ? A1=KDJ1H.J;
? ? A2=KDJ1H.D;
? ? B1=KDJ2H.J;
? ? B2=KDJ2H.D;
? ? AA中文=Cross(A1,A2)&&Cross(B1,B2);
? ? BB中文=CrossDown(A1,A2)&&CrossDown(B1,B2);
DrawText(AA中文,Close,"B");
DrawText(BB中文,Close,"B");
End
?
-
網(wǎng)友回復(fù)：
?這樣也不行呢，因?yàn)橐玫闹笜?biāo)太多，基礎(chǔ)函數(shù)我一定要有的，樓二的基礎(chǔ)函數(shù)部分能精簡(jiǎn)嗎？
打印本文
關(guān)閉窗口