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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件交易策略发布专区 → [分享]2分钟boll日内交易系统(附源码)

   

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


  共有41803人关注过本帖树形打印复制链接

主题:[分享]2分钟boll日内交易系统(附源码)

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


加好友 发短信
等级:小飞侠 帖子:1966 积分:0 威望:0 精华:1 注册:2013/6/15 21:56:35
[分享]2分钟boll日内交易系统(附源码)  发帖心情 Post By:2013/9/12 10:17:08 [显示全部帖子]

说明:1.这是一个基于boll的交易系统;
         2.使用周期2分钟;
         3.程序中使用了加载策略;提前下单策略;和小震荡过滤;
         4.程序中使用了反幽灵交易法,即大赚一次休息一段时间。
本程序的缺点:主观的因素比较多。



//股指期货自动交易程序(2分钟BOLL日内趋势交易系统)
//编制:
//日期:2012年5月27日定稿。

{
//加密及期限
drawtextex(1,1,200,800,engincode());
rzb:=strcmp(engincode(),'aaaaaaaaaa');
if rzb<>0 then 
begin
drawtextex(1,1,500,500,'程序不能在此计算机上运行');
exit;
end
有效期:1121230,linethick0;
账号:11111,linethick0;
zhh:=strtonum(taccount(1));
if zhh<>账号 then 
begin
drawtextex(1,1,500,500,'授权账号不正确,程序无法使用');
exit;
end
if date>有效期 then
begin
drawtextex(1,1,500,500,'已过授权时间,程序无法使用');
exit;
end

if datatype<>14 then 
begin
drawtextex(1,1,50,950,'本程序使用2分钟周期,请切换到Mn周期');
exit;
end
}
//========================================================
//交易控制变量
variable:a1=1;
variable:a2=1;

//**********************************
//交易手数:
tn:=1;

//最大持仓量
cx:=6;

//提前下单量(秒)
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);

//********************************
hd:=if(islastbar,3,1.2);
hd1:=if(islastbar,3,0.1);

//********************************
cc:=(h+l+o+c)/4;
mid:=ma(cc,26);
upper:=mid+1.7*std(cc,26);
lower:=mid-1.7*std(cc,26);

//********************************
r12:=asset-ref(asset,135);
r13:=valuewhen(r1=134,r12);

if r13>6000*cx and a2>0 then 
begin
a1:=barpos;
a2:=-1;
end
r16:=if(barpos-a1>810,1,-1);
if r16>0 and r1<2 then a2:=1;

if abs(r2-c)>34 or (abs(r2-c)>24 and r1<40) then c6:=1;
r17:=r16>0 or c6>0;
//********************************
q2:=valuewhen(r1=0,sum(h-l,270)/270);
r20:=upper-lower<6.5*q2;

//********************************
nn:=4*q2;
if holding>0 and o-l>=nn and enterbars>0 then
begin
sell(holding>0,holding,limitr,o-nn-hd);
end
if holding<0 and h-o>=nn and enterbars>0 then
begin
sellshort(holding<0,abs(holding),limitr,o+nn+hd);
end

//********************************
if c>upper and r20 and h-upper<3.5*q2 and p1 and p3<=xd and r17>0 then
begin
buy(holding<cx,tn,limitr,c+hd1);
end
if c<lower and r20 and lower-l<3.5*q2 and p1 and p3<=xd and r17>0 then
begin
buyshort(abs(holding)<cx,tn,limitr,c-hd1);
end

//---------------------------------
if holding>0 and l<mid then
begin
sell(1,0,limitr,c-hd1);
end
if holding<0 and h>mid then
begin
sellshort(1,0,limitr,c+hd1);
end
//********************************
//收盘前清仓
if p2>=151300 then
begin
sellshort(holding<0,0,limitr,c+hd1);
sell(holding>0,0,limitr,c-hd1);
c6:=-1;
c1:=1;
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),linethick0;

variable:hc=0;
回撤:hhv(盈亏,30000)-盈亏,linethick0,coloryellow;
if 回撤>hc then hc:=回撤;
最大回撤:hc,linethick0,coloryellow;


版主评定:好评,获得40个金币奖励好评,获得40个金币奖励
(理由:好文章)
 回到顶部
帅哥哟,离线,有人找我吗?
qwer123
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小飞侠 帖子:1966 积分:0 威望:0 精华:1 注册:2013/6/15 21:56:35
  发帖心情 Post By:2013/9/12 10:28:38 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20130912102731.png
图片点击可在新窗口打开查看
收益曲线,其他有兴趣的自己去测试

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


加好友 发短信
等级:小飞侠 帖子:1966 积分:0 威望:0 精华:1 注册:2013/6/15 21:56:35
  发帖心情 Post By:2013/9/12 13:36:21 [显示全部帖子]

此源码允许金字塔放入“实例库”中,但请注明作者。

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


加好友 发短信
等级:小飞侠 帖子:1966 积分:0 威望:0 精华:1 注册:2013/6/15 21:56:35
  发帖心情 Post By:2013/9/12 15:31:36 [显示全部帖子]

以下是引用自下而上在2013/9/12 14:07:29的发言:

赞一下,测试了一下,收益为正,应还有很大优化空间



不要再加滑点了,测试时把你交易费率加上就行,按我给的滑点和下单方式,实盘绝对可以跑出来,并且应该比测试结果好。


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


加好友 发短信
等级:小飞侠 帖子:1966 积分:0 威望:0 精华:1 注册:2013/6/15 21:56:35
  发帖心情 Post By:2013/9/13 9:16:45 [显示全部帖子]

你用的是什么周期?要用2分钟周期。把你的测试报告给全一点,我的测试没有问题的。这个是用再股指期货上的。
[此贴子已经被作者于2013/9/13 9:18:18编辑过]

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


加好友 发短信
等级:小飞侠 帖子:1966 积分:0 威望:0 精华:1 注册:2013/6/15 21:56:35
  发帖心情 Post By:2013/9/15 8:01:16 [显示全部帖子]

工具---选项---多分钟线数---2

或 输入2min 回车

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


加好友 发短信
等级:小飞侠 帖子:1966 积分:0 威望:0 精华:1 注册:2013/6/15 21:56:35
  发帖心情 Post By:2013/11/12 12:37:13 [显示全部帖子]

以下是引用期种武器在2013/11/12 10:13:26的发言:
感谢qwer123大神,不过测试时好像没有进行任何交易..

不会,源码就在那里,不会有问题,是使用2分钟周期。程序里使用了datatype进行了限制。


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


加好友 发短信
等级:小飞侠 帖子:1966 积分:0 威望:0 精华:1 注册:2013/6/15 21:56:35
  发帖心情 Post By:2014/4/13 16:19:22 [显示全部帖子]

以下是引用xsm008858在2014/3/30 21:12:25的发言:
当心木马

计算机水平有限,这样的明码还能带“木马”吗?能解释一下吗,诚心学习一下!


 回到顶部