把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.CXH99.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
网友回复： 这样也不行呢，因为要引用的指标太多，基础函数我一定要有的，楼二的基础函数部分能精简吗？