- 精华
- 0
- 在线时间
- 78 小时
- UID
- 14998
- 积分
- 400
- 帖子
- 65
- 阅读权限
- 50
- 注册时间
- 2010-7-31
- 最后登录
- 2011-5-26
- 精华
- 0
- UID
- 14998
- 积分
- 400
- 帖子
- 65
- 主题
- 10
- 阅读权限
- 50
- 注册时间
- 2010-7-31
- 最后登录
- 2011-5-26
|
怎么把这个程序完善为每天只开仓一次进行测试
Params
Numeric ExitOnCloseMins(14.55);
Numeric lossper(0.08);//定义止损额度0.8%
Vars
NumericSeries DayOpen;
Numeric MyPrice;
Numeric Stoploss;
Numeric n;
Begin
DayOpen = OpenD(0);
Stoploss=DayOpen*lossper;
n= rand(0,3 );
if (MarketPosition==0)
{
if (n<=1){
buy(1,dayopen);
}
if (n>=2){
SellShort(1,dayopen);
}
}
If(MarketPosition == 1){
SetStopLoss(1,Stoploss, False);
}
If(MarketPosition == -1){
SetStopLoss(1,Stoploss, False);
}
If(Time >= ExitOnCloseMins / 100){
Sell(1, Open);
BuyToCover(1, Open);
}
SetExitOncLOSE;
End |
|