- 精华
- 2
- 在线时间
- 167 小时
- UID
- 99
- 积分
- 662
- 帖子
- 159
- 阅读权限
- 60
- 注册时间
- 2007-8-12
- 最后登录
- 2015-6-9
- 精华
- 2
- UID
- 99
- 积分
- 662
- 帖子
- 159
- 主题
- 42
- 阅读权限
- 60
- 注册时间
- 2007-8-12
- 最后登录
- 2015-6-9
|
我来写一个吧,当是练手,请老师帮我指出错误,谢谢
Vars
Bool bk; //开多条件
Bool sk; //开空条件
Bool bp; //平空条件
Bool sp; //平多条件
NumericSeries ma5;
NumericSeries ma10;
Numeric zzj; //总资金
Numeric ss; //交易手数
Begin
ma5 = Average(close,5);
ma10 = Average(close,10);
zzj = CurrentCapital()+ Abs(CurrentContracts()*Close[1]*ContractUnit*MarginRatio());
ss = IntPart( zzj* 0.2)/(Close*ContractUnit*MarginRatio);
bk = close>ma5 && close>ma10; //开多条件
sk = close<ma5 && close<ma10; //开空条件
bp = close>ma5; // 平空条件
sp = close<ma5; //平多条件
if(MarketPosition == 0 )
{
if(bk)
buy(ss,close);
else if(sk)
sellshort(ss,close);
}
if(MarketPosition == 1)
{
if(sp)
sell(0,close);
}
if(MarketPosition == -1)
{
if(bp)
BuyToCover(0,close);
}
End
[ 本帖最后由 ddbq 于 2007-8-18 01:55 编辑 ] |
|