我參照系統KD跟量能黃金交叉寫以下程式,但選股中心執行時,出現"傳入錯誤的參數給XSScript.dll的method(50014)
-----------------------------------------------------------------------
// KD指標, K值由下往上穿越D值
//
input: Length(9), RSVt(3), Kt(3);
variable: rsv(0), k(0), _d(0);
Vars:Volume_Array_Index(0);
Vars:volume_golden_cross(false),volume_death_cross(false);
Array: volume_MA_5[2](0), volume_MA_54[2](0), Volume_Array[55](0);
For Volume_Array_Index = 0 to 54
Begin
Volume_Array[Volume_Array_Index] = GetField("成交量", "5")[Volume_Array_Index];
End;
volume_MA_5[0] = round(Array_Sum(Volume_Array, 0, 4) / 5,0);
volume_MA_54[0] = round(Array_Sum(Volume_Array, 0, 53) / 54,0);
volume_MA_5[1] = round(Array_Sum(Volume_Array, 1, 5) / 5,0);
volume_MA_54[1] = round(Array_Sum(Volume_Array, 1, 54) / 54,0);
// 計算今日的KD值
SetTotalBar(maxlist(Length,6) * 3);
SetInputName(1, "天數");
SetInputName(2, "RSVt權數");
SetInputName(3, "Kt權數");
Stochastic(Length, RSVt, Kt, rsv, k, _d);
if volume_MA_5[0] > volume_MA_54[0] and volume_MA_5[1] <= volume_MA_54[1] and k crosses above _d then Ret = 1;
1 評論