老師能否幫我把這個代碼轉化成文華能用的代碼~
作者：文華財經 來源：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。因此無法進行改寫，相關功能我們會考慮在以后版本通過增加函數的方式實現。
打印本文
關閉窗口