把WH8翻譯成WH9
作者：文華財經 來源：cxh99.com 發布時間：2023年12月31日
-
咨詢內容：
如果可以，加點備注，我想理解一下編程思想，謝謝?
以下是基礎函數
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);
以下是主函數#IMPORT[HOUR,1,基礎函數] AS KDJ1H??#IMPORT[HOUR,2,基礎函數] AS KDJ2H??AA中文:=KDJ1H .KDJU&&KDJ2H.KDJU;BB中文:=KDJ1H .KDJD&&KDJ2H?.KDJD;
DRAWTEXT(AA中文,C,'B')；DRAWTEXT(BB中文,C,'B')；?
?
?來源:程序化99
-
文華技術人員：
請參考
//X新建指標 基礎數據
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;//收盤價與N周期最低值做差，N周期最高值與N周期最低值做差，兩差之間做比值。
? ? K = Sma(RSV,Length1,1);//RSV的移動平均值
? ? D = Sma(K,Length2,1);//K的移動平均值
? ? J = 3 * K - 2 * D;
? ? BackGroundStyle(1);
? ? KDJU=Cross(J,D);
? ? KDJD=CrossDown(J,D);
End
//主程序
ImPort
? ?#ImPort[Hour,1,基礎數據] AS KDJ1H
? ?#ImPort[Hour,2,基礎數據] 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
?
?來源: m.weiqiv.net.cn
-
文華客服：
?代碼真的大了一倍不止，能精簡點嗎？文華9中KDJ,MACD之類系統本身存在的指標引用的時候不能進行精簡嗎？
?
-
網友回復：
?請參考
//主程序
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
?
-
網友回復：
?這樣也不行呢，因為要引用的指標太多，基礎函數我一定要有的，樓二的基礎函數部分能精簡嗎？
打印本文
關閉窗口