公式网 股票指标公式源码分享 登录 注册
公式指标平网
未来函数检测
首页 金钻指标 通达信公式 大智慧公式 同花顺公式 文华财经公式 东财通公式 飞狐公式 操盘手公式 其他公式 公式解答 股票软件 股票池
当前位置:→ 公式网 > 其他公式 > 金字塔公式 > 正文 → 正文

金字塔模型[分享]2分钟boll日内交易系统源码

发布时间:2015/10/23 6:23:30  浏览次数:

相关标签:说明:1.这是一个基于boll的交易系统;

         2.使用周期2分钟;

         3.程序中使用了加载策略;提前下单策略;和小震荡过滤;

         4.程序中使用了反幽灵交易法,即大赚一次休息一段时间。

本程序的缺点:主观的因素比较多。(www.gszb.com)

金字塔公式 金字塔模型策略源码:

//股指期货自动交易程序(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
   
 //********************************   
 //收盘前清仓 www.gszb.com
 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;

 

资源下载链接   资源大小:unknow

手机移动版 - 关于我们 - 联系我们 - 广告合作 - 下载声明 - 网站帮助 - 友情链接 - 网站地图 - TOP
湘ICP备09016573号-3 增值电信业务经营ICP许可证:湘B2-20210269 湘公网安备43108102000039号
Copyright © GSZX.COM.CN ,All Rights Reserved.
股票公式,股票指标,股票软件,股票知识