- 精华
- 0
- 在线时间
- 357 小时
- UID
- 1138
- 积分
- 1217
- 帖子
- 161
- 阅读权限
- 60
- 注册时间
- 2008-1-30
- 最后登录
- 2009-10-5
- 精华
- 0
- UID
- 1138
- 积分
- 1217
- 帖子
- 161
- 主题
- 61
- 阅读权限
- 60
- 注册时间
- 2008-1-30
- 最后登录
- 2009-10-5
|
再完善一下:
Params
Numeric pnTime1(1458000);
Numeric pnTime2(1530000);
Numeric pnPrice1(1000000);
Numeric pnPrice2(0);
Numeric pnTimes(3);
Numeric nLots(1);
Numeric nLongOrShort(0);//开多仓还是开空仓,1开多,2开空,为了安全初始值设为0
Vars
Bool Con1(False);
Bool Con2(False);
Begin
Con1=(A_BuyPosition==0 && nLongOrShort==1) && (Time>=pnTime1/10000000 && Time<pnTime2/10000000) && (Q_BidPrice>pnPrice1 || Q_AskPrice<pnPrice2);
Con2=(A_SellPosition==0 && nLongOrShort==2) && (Time>=pnTime1/10000000 && Time<pnTime2/10000000) && (Q_BidPrice>pnPrice1 || Q_AskPrice<pnPrice2);
//初始化全局变量
If(BarStatus==0)
{
SetGlobalVar(0,0);
SetGlobalVar(1,0);
}
//开多仓
If(Con1)
{
If(GetGlobalVar(0)>pnTimes && A_GetOpenOrderCount==0)
{
A_SendOrder(Enum_Buy,Enum_Entry,nLots,Q_AskPrice);
SetGlobalVar(0,0);
}
else
{
SetGlobalVar(0,GetGlobalVar(0)+1);
}
}
//开空仓
If(Con2)
{
If(GetGlobalVar(1)>pnTimes && A_GetOpenOrderCount==0)
{
A_SendOrder(Enum_Sell,Enum_Entry,nLots,Q_BidPrice);
SetGlobalVar(1,0);
}
else
{
SetGlobalVar(1,GetGlobalVar(1)+1);
}
}
End |
|