老师能否帮我把这个代码转化成文华能用的代码~
作者：文华财经 来源：cxh99.com 发布时间：2014年04月11日
- 咨询内容：
老师能否帮我把这个代码转化成文华能用的代码~ O(∩_∩)O谢谢
V2:=C-MA(C,7);EE:=CLOSE;Y:=0;J:=0;S:=0;SHOWTIME:=288;IF DATACOUNT>=(N+7) THEN BEGIN
IF DATACOUNT>=(SHOWTIME+N+7) THEN SHOWTIME:=288
ELSE SHOWTIME:=DATACOUNT-N-7;
FOR Y=DATACOUNT-SHOWTIME TO DATACOUNT DO
BEGIN
FOR J=1 TO N DO TEMP[J]:= V2[Y-J+1];
TEMPSORT:=SORT(TEMP,0,1,N);
SX:=0;
SC:=0;
FOR S=0 TO M-1 DO
BEGIN
SX:=SX+TEMP[N-S];
SC:=SC+TEMP[1+S];
END;
SX:=SX/M;
SC:=SC/M;
EEMA:=( EE[Y]+EE[Y-1]+EE[Y-2]+EE[Y-3]+EE[Y-4]+EE[Y-5])/6;
SU[Y]:=SX*7/6*平均超买超卖值/100+EEMA;
SD[Y]:=SC*7/6*平均超买超卖值/100+EEMA;
END;
超买基准价:SU,SHIFT1,COLORRED,LINETHICK1;超卖基准价:SD,SHIFT1,COLORBLUE,LINETHICK1;
//超买预测价格: REF(超买基准价,0),COLORRED,LINETHICK0;//超卖预测价格: REF(超卖基准价,0),COLORGREEN,LINETHICK0;PARTLINE(0<REF(超买基准价,1),REF(超买基准价,1)),COLORRED,LINETHICK2;PARTLINE(0<REF(超卖基准价,1),REF(超卖基准价,1)),COLORBLUE,LINETHICK2;PARTLINE(H>REF(超买基准价,1),REF(超买基准价,1)),COLORBLACK,LINETHICK1;PARTLINE(L<REF(超卖基准价,1),REF(超卖基准价,1)),COLORBLACK,LINETHICK2;//超买预测价格A:REF(超买基准价,1),COLORMAGENTA,LINETHICK0;//超卖预测价格A:REF(超卖基准价,1),COLORMAGENTA,LINETHICK0;DRAWTEXT((SYSPARAM(3) = BARSCOUNT(CLOSE)),SU,( NUMTOSTR(SU,2))),SHIFT2,COLORRED;DRAWTEXT((SYSPARAM(3) = BARSCOUNT(CLOSE)),SD,( NUMTOSTR(SD,2))),SHIFT2,COLORRED;DRAWICON((SYSPARAM(3) = BARSCOUNT(CLOSE)),SU,12),SHIFT1;DRAWICON((SYSPARAM(3) = BARSCOUNT(CLOSE)),SD,12),SHIFT1;
DRAWICON(CROSS(CLOSE,REF(超买基准价,1)),HIGH*1.02,5);DRAWICON(CROSS(REF(超卖基准价,1),CLOSE),LOW*0.98,4);
END;
- 文华技术人员：
明天工作时间与相关同事核实后给您回复
- 文华客服：
回复1楼，核实了一下你的源码，你源码中含有暂不支持的排序函数sort。因此无法进行改写，相关功能我们会考虑在以后版本通过增加函数的方式实现。
打印本文
关闭窗口