請選擇 進入手機版 | 繼續訪問電腦版

COCO研究院

 找回密碼
 註冊
搜索
查看: 10101|回復: 1

[範例程式碼] 台指期全時段交易回測篇 [2]

[複製鏈接]
發表於 23-2-16 15:44 | 顯示全部樓層 |閱讀模式

參考文章 台指期貨的潛規則(I) - 固定時間進場

// Public Variable
vars:MP(0),PF(0),PL(0),DayLast(1345),NightLast(0500),BuyPrice(0),ShortPrice(0),BasePF(150),BasePL(100) ;
vars:BarPass(5),HLRange(0),WinPoint(0),HBarPos(0),LBarPos(0),ExitH(0),ExitL(0),TimeOK(false) ;

vars:EntNum01(2.0),EntNum02(0.0),ExtNum01(0.0),ExtNum02(54.0),LenA1(20.0),LenB1(20.0),FracA(2.50),FracB(2.50),HBar(20.0),LBar(20.0),TradeProfit(0.020),TradeStopLoss(0.020),NBarL(20.0),NBarS(20.0),LenA2(20.0),LenB2(20.0),RatioL(2.50),RatioS(2.50),HighBand(20.0),LowBand(20.0),BuyMode(49.0),ShortMode(50.0),LE01(4.0),SE01(16.0) ;

//****************** Basic Setup ****************************************

MP = MarketPosition ;
if MP <> 0 then Begin
PF = EntryPrice*TradeProfit ;
PL = EntryPrice*TradeStopLoss ;
end else begin
PF = AvgPrice*TradeProfit ;
PL = AvgPrice*TradeStopLoss ;
end ;

// 依據目前指數來設定最大停利與停損點數
if Close > 10000 then begin
BasePF = BasePF+IntPortion((Close-10000)/1000)*30 ;
BasePF = MinList(BasePF,450) ;
BasePL = BasePL+IntPortion((Close-10000)/1000)*15 ;
BasePL = MinList(BasePL,225) ;
end ;

PF = MinList(PF,BasePF) ;
PL = MinList(PL,BasePL)*iff(CurrentContracts=1,1,0.67) ;

// ************ High/Low data *****************
BarPass = MaxList(HBar,LBar) ;

//***************** BuyPrice & ShortPrice Setup *****************
if BuyMode = 49 then BuyPrice = (OpenW(0)+CloseW(1))*0.5 ;
if ShortMode = 50 then ShortPrice = LowW(1) ;

// ********** Main Strategy *********
// ********** Entry Method

//符合條件的固定時間進場
if (time = 945 or time = 2200) and _IsSettlementDay = false then Begin
if AvgTrueRange(BarPass) < RatioL*12 and ADX(LenA1) < HighBand then
if MP <> 1 and Close > BuyPrice then Buy ("MQS02_L1T") next bar at Market ;
if AvgTrueRange(BarPass) > RatioS*12 and ADX(LenB1) > LowBand then
if MP <> 1 and Close < ShortPrice then SellShort ("MQS02_S1T") next bar at Market ;
end;

// ************* Base Exit *************
if MP <> 0 and BarsSinceEntry >= 1 then begin
if MP > 0 then Sell ("PL1_"+NumtoStr(PL,0)) next bar at EntryPrice-PL stop ;
if MP > 0 then Sell ("PF1_"+NumtoStr(PF,0)) next bar at EntryPrice+PF limit ;
if MP < 0 then BuytoCover ("PL2_"+NumtoStr(PL,0)) next bar at EntryPrice+PL stop ;
if MP < 0 then BuytoCover ("PF2_"+NumtoStr(PF,0)) next bar at EntryPrice-PF limit ;
end ;

//進場後部位損失大於預期則出場或做反手單
if SE01 = 16 then begin
if MP > 0 and (BarsSinceEntry <= 300/Barinterval and maxpositionloss/currentcontracts < -20000)
then sellshort ("WrongEntryL12") next bar at Close stop ;
if MP < 0 and (BarsSinceEntry <= 300/Barinterval and maxpositionloss/currentcontracts < -20000)
then buytocover ("WrongEntryS12") next bar at Close stop ;
end ;

// ************* Rev EntryPrice PullBack *************
if ExtNum01 = 54 or ExtNum02 = 54 then begin

//跌破進場價格一段距離後反手做空
if MP > 0 and BarsSinceEntry > NBarL then
SellShort ("rLX_EntPricePB") next bar at EntryPrice - MaxList(FracA*AvgTrueRange(BarPass),100) stop;

//突破進場價格一段距離後反手做多
if MP < 0 and BarsSinceEntry > NBarS then
Buy ("rSX_EntPricePB") next bar at EntryPrice + MaxList(FracB*AvgTrueRange(BarPass),100) stop;
end ;

//結算日出場
if _IsSettlementDay and time >= CalcTime(1300,-1*BarInterVal) and Time <= 1330 then begin
if MP > 0 then Sell ("LX_Bal") next bar at market ;
if MP < 0 then BuyToCover ("SX_Bal") next bar at market ;
end;
MagicTest02_4.png
MagicTest02_2.png
MagicTest02_3.png
MagicTest02_1.png

評分

參與人數 1金錢 +3 收起 理由
tinyding + 3 感謝分享

查看全部評分

發表於 23-10-13 15:36 | 顯示全部樓層
感謝分享,研究看看
您需要登錄後才可以回帖 登錄 | 註冊

本版積分規則

手機版|Archiver|站長信箱|廣告洽詢|COCO研究院

GMT+8, 24-4-24 07:23

Powered by Discuz! X3.4

Copyright © 2001-2023, Tencent Cloud.

快速回復 返回頂部 返回列表
理財討論網站 | AI繪圖AI超擬真美女AI beauty AI Stable DiffusionAI正妹AI Lookbook