2分钟boll日内交易系统（金字塔软件 源码 贴图）

说明：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
//********************************
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;