自動交易進出場腳本

謝謝許教授回復! 許教授我試著根據您的建議，用AI來寫出來，雖然有編譯成功，可是回測卻跑不出東西。

SetTotalBar(500);

 

input: _min_(5, "自訂分鐘頻率");

input: x(3, "連續幾根k棒都是紅k");

input: _number_bar_(51, "開盤後第幾根k");

input: _v_bar(5, "成交量比過去幾根還多2倍");

input: _v_multuplier_(2, "估量量比門檻");

input: exceed_limit(70, "買進特大單金額佔全部的比例");

input: y(5, "比昨天收盤價上漲多少");

 

// 檢查頻率

if barfreq <> "Min" or Barinterval <> _min_ then

 RaiseRuntimeError("請設定頻率為_min_分鐘");

 

// 宣告變數

var: BarNumberOfToday(0);

var: hasPosition(false); // 持有部位標誌

var: i(0);

 

// 計算BarNumberOfToday

if Date <> Date[1] then

 BarNumberOfToday = 1

else

 BarNumberOfToday += 1;

 

// 當日內盤量與外盤量

value1 = q_InSize;

value2 = q_OutSize;

 

// 特大單買賣金額

value3 = GetField("買進特大單金額");

value4 = GetField("賣出特大單金額");

 

// 昨日參考價（日頻率）

value5 = GetField("RefPrice", "D");

 

// 預估量

value6 = GetQuote("估計量");

 

// 買進訊號判斷：當天第_number_bar_根k棒且符合條件

if BarNumberOfToday = _number_bar_ then

begin

 if trueall(close > close[1], x) and

 close >= value5 * (1 + y / 100) and

 trueall(close > open, x) and

 trueall(volume > average(volume[1], _v_bar) * 2, x) and

 close = highd(0) and

 value6 > volume[1] * _v_multuplier_ and

 value2 > value1 and

 value3 * (exceed_limit / 100) >= (value3 + value4) and

 Position = 0 // 未持有部位才能買入

 then

 begin

 // 以昨天收盤價下市價買進一張

 SetPosition(1, market);

 end;

end;

 

// 出場判斷時間（09:00到09:15前）

if Position = 1 and Time >= 90000 and Time < 91500 then

begin

 

 // 停損：價格小於等於成本*0.98

 if close <= FilledAvgPrice * 0.98 then

 begin

 SetPosition(0, market); // 全部賣出停損

 end

 // 停利：價格大於等於成本*1.05

 else if close >= FilledAvgPrice * 1.05 then

 begin

 SetPosition(0, market); // 全部賣出停利

 end

 // 保本出場條件：

 // 價格位於成本*1.02～1.05之間且價格下跌至成本時賣出

 else if close < FilledAvgPrice * 1.05 and close >= FilledAvgPrice * 1.02 then

 begin

 if close < close[1] and close <= FilledAvgPrice then

 begin

 SetPosition(0, market); // 保本賣出

 end;

 end;

 

end;