共5 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]请求可以用于历史评测的指定价位交易写法，谢谢！
1楼
自渔自乐 发表于：2013/8/31 16:56:42开仓：当日价格触及昨日最低价，则以这个最低价的价位买入
平仓：当日价格触及上周最高价，则以这个最高价的价位卖出
要求能以上述指定的价位历史评测，谢谢帮助~
2楼
自渔自乐 发表于：2013/8/31 17:15:26是隔日交易，非日内交易
只想学一下可以历史评测的指定价位的正确写法，谢谢帮助！
3楼
qwer123 发表于：2013/9/1 14:17:46r1:=callstock('if00',vthigh,6,-1);
r2:=callstock('if00',vtlow,6,-1);
if c>=r1 then
begin
sellshort(holding<0,1,limitr,r1);
buy(holding=0,1,limitr,r1);
end
if c<=r2 then
begin
sell(holding>0,0,limitr,r2);
buyshort(holding=0,1,limitr,r2);
end
4楼
qwer123 发表于：2013/9/1 14:53:29不好意思写错了，为了补偿我的过失给你一个完整的。
//股指期货自动交易程序(2分钟日内趋势交易系统)(16号系统)
//编制:
//日期：2013。
//修改记录：
//========================================================
//交易控制变量
variable:cs1=1;
variable:cs2=1;
//**********************************
//交易手数：
tn:=1;
//最大持仓量
cx:=1;
//提前下单量（秒）
xd:=3;
//交易时间区间
p1:=time>=091500 and time<=151000;
p2:=if(islastbar,dynainfo(207),time);
p3:=time0-timetot0(p2),linethick0;
//********************************
r1:=barslast(date<>ref(date,1));
r2:=ref(o,r1);
partline(r1>0,r2);
//********************************
hd:=if(islastbar,3,1.2);
hd1:=if(islastbar,3,0.2);
//********************************
r11:callstock('if00',vthigh,6,-1);
r12:callstock('if00',vtlow,6,-1);
if h>=r11 and p1 then
begin
sellshort(holding<0,0,limitr,max(r11,o)+hd);
buy(holding=0,1,limitr,max(r11,o)+hd);
end
if l<=r12 and p1 then
begin
sell(holding>0,0,limitr,min(r12,o)-hd);
buyshort(holding=0,1,limitr,min(r12,o)-hd);
end
//********************************
//收盘前清仓
if p2>=151158 then
begin
//sellshort(holding<0,abs(holding),limitr,c+hd1);
//sell(holding>0,holding,limitr,c-hd1);
end
交易总数:totaltrade,colorwhite,linethick0;
盈亏:asset-1000000,colorred,linethick1,noaxis;
日盈亏:asset-ref(asset,r1+1),noaxis,colorred,linethick0;
持仓:holding,colorwhite,linethick0;
rr1:=barslast(month<>ref(month,1));
月盈利:asset-ref(asset,rr1+1),coloryellow,linethick0;
variable:hc=0;
回撤:hhv(盈亏,3000)-盈亏,linethick0,coloryellow;
if 回撤>hc then hc:=回撤；
最大回撤:hc,coloryellow,linethick0;
[此贴子已经被作者于2013/9/1 14:54:23编辑过]
5楼
自渔自乐 发表于：2013/9/1 15:50:09感谢qwer123老师
，我好好学习
，我好好学习sell(holding>0,0,limitr,r1);{r1为指定卖价}
buyshort(holding=0,1,limitr,r2);{r1为指定买价}
共5 条记录, 每页显示 10 条, 页签:
[1]