把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
?

?來源: www.tumamayizhan.com
文華客服： ?代碼真的大了一倍不止，能精簡點嗎？文華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

?
網友回復： ?這樣也不行呢，因為要引用的指標太多，基礎函數我一定要有的，樓二的基礎函數部分能精簡嗎？