欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → [求助]请求可以用于历史评测的指定价位交易写法,谢谢!

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有2295人关注过本帖平板打印复制链接

主题:[求助]请求可以用于历史评测的指定价位交易写法,谢谢!

帅哥哟,离线,有人找我吗?
qwer123
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小飞侠 帖子:1966 积分:0 威望:0 精华:1 注册:2013/6/15 21:56:35
  发帖心情 Post By:2013/9/1 14:53:29    Post IP:42.91.134.55[只看该作者]

不好意思写错了,为了补偿我的过失给你一个完整的。

//股指期货自动交易程序(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编辑过]

版主评定:好评,获得20个金币奖励好评,获得20个金币奖励
(理由:好文章)
 回到顶部