開拓者 日內開盤區高低點機械突破交易系統源碼
作者：開拓者 TB 來源：cxh99.com 發布時間：2012年12月11日
- 源碼內容：
//------------------------------------------------------------------------
// 簡稱: todayHLCross
// 名稱:
// 類別: 交易指令
// 類型: 其他
// 輸出:程序化交易
//------------------------------------------------------------------------
/*
日內開盤區高低點機械突破系統
*/
Params
Numeric maxLots(1);//單次開倉手數
Numeric maxTrad(4);//最大交易次數
Numeric minSpt(15);//最小開倉間隔bar數
Numeric splitRate(3); //交易滑點和傭金
Numeric tradBegin(930); //開倉時間
Numeric tradEnd(1430); //開倉截止時間
Numeric closeTime(1457); //bar的時間超過此值后平倉，一分鐘交易=1457
Vars
Numeric splitDot; //交易滑點
Bool bc(False);//開多條件
Bool sc(False);//開空條件
Numeric tradePrice(0);
NumericSeries hh;
NumericSeries ll;
Begin
splitDot=splitRate*MinMove();
If(BarStatus==0)
{
hh=High;
ll=Low;
Return;
}
if(Day !=Day[1])
{
hh=High;
ll=Low; }
Else
If(Time<0.0001*tradBegin)
{
if(High>hh[1]) hh=High; Else hh=hh[1];
if(Low<ll[1]) ll=Low; Else ll=ll[1];
}
Else
if(Time>=0.0001*tradBegin And Time<=0.1500)
{
hh=hh[1];
ll=ll[1];
//穿越模式
bc=CrossOver(Open,hh) Or CrossOver(High,hh) Or CrossOver(Low,hh) Or CrossOver(Close,hh) ;
sc=CrossUnder(Open,ll) Or CrossUnder(High,ll) Or CrossUnder(Low,ll) Or CrossUnder(Close,ll);
if(MarketPosition == 0)
{
// 當前無倉，開始建立多頭
if(bc)
{
if(BarStatus==2) tradePrice= Q_AskPrice +splitDot; Else tradePrice=hh+splitDot;
Buy(maxLots,tradePrice);
}
Else
// 當前無倉，開始建立空頭
If(sc )
{
if(BarStatus==2)tradePrice= Q_BidPrice -splitDot; Else tradePrice=ll-splitDot;
SellShort(maxLots,tradePrice);
}
}
//-----------------------------------------------------------------------------
Else
{
if(MarketPosition > 0 )
{
// 當前多倉，加倉多頭
if(bc And BarsSinceLastEntry>minSpt)
{
if(BarStatus==2) tradePrice= Q_AskPrice +splitDot; Else tradePrice=hh+splitDot;
Buy(maxLots,tradePrice);
}
// 當前多頭，要求反轉為空頭
if(sc)
{
if(BarStatus==2)tradePrice= Q_BidPrice -splitDot; Else tradePrice=ll-splitDot;
// 平多頭開空
SellShort(maxLots,tradePrice);
}
//持倉處理,止損止盈平倉
//........
}
//-----------------------------------------------------------------------------------------------
Else
if(MarketPosition < 0 )
{
// 當前空倉，加空頭
If(sc And BarsSinceLastEntry>minSpt)
{
if(BarStatus==2)tradePrice= Q_BidPrice -splitDot; Else tradePrice=ll-splitDot;
SellShort(maxLots,tradePrice);
}
// 當前空頭，要求反轉為多頭
if(bc)
{
if(BarStatus==2) tradePrice= Q_AskPrice +splitDot; Else tradePrice=hh+splitDot;
//平空頭，開多
Buy(maxLots,tradePrice);
}
//持倉處理,止損止盈平倉
//........
}
}
}
End
//------------------------------------------------------------------------
// 編譯版本 GS2004.06.12
// 用戶版本 2008/11/18 18:49
// 版權所有 fish0451程序化交易
// 更改聲明 TradeBlazer Software保留對TradeBlazer平臺
// 每一版本的TrabeBlazer公式修改和重寫的權利
//------------------------------------------------------------------------
打印本文
關閉窗口