老師能否幫我把這個代碼轉化成文華能用的代碼~

作者：文華財經來源：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。因此無法進行改寫，相關功能我們會考慮在以后版本通過增加函數的方式實現。