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

说明：1.这是一个基于boll的交易系统；

         2.使用周期2分钟；
         3.程序中使用了加载策略；提前下单策略；和小震荡过滤；
         4.程序中使用了反幽灵交易法，即大赚一次休息一段时间。
本程序的缺点：主观的因素比较多。

1. //股指期货自动交易程序(2分钟BOLL日内趋势交易系统)
   
2. //编制：
   
3. //日期：2012年5月27日定稿。
   
4. 
   
5. 
   
6. {
   
7. //加密及期限
   
8. drawtextex(1,1,200,800,engincode());
   
9. rzb:=strcmp(engincode(),\'aaaaaaaaaa\');
   
10. if rzb<>0 then
    
11. begin
    
12. drawtextex(1,1,500,500,\'程序不能在此计算机上运行\');
    
13. exit;
    
14. end
    
15. 有效期:1121230,linethick0;
    
16. 账号:11111,linethick0;
    
17. zhh:=strtonum(taccount(1));
    
18. if zhh<>账号 then
    
19. begin
    
20. drawtextex(1,1,500,500,\'授权账号不正确，程序无法使用\');
    
21. exit;
    
22. end
    
23.                        
    
24. if date>有效期 then
    
25. begin
    
26. drawtextex(1,1,500,500,\'已过授权时间，程序无法使用\');
    
27. exit;
    
28. end
    
29. 
    
30. 
    
31. if datatype<>14 then
    
32. begin
    
33. drawtextex(1,1,50,950,\'本程序使用2分钟周期，请切换到Mn周期\');
    
34. exit;
    
35. end
    
36. }
    
37. //========================================================
    
38. //交易控制变量
    
39. variable:a1=1;
    
40. variable:a2=1;
    
41. 
    
42. 
    
43. //**********************************
    
44. //交易手数：
    
45. tn:=1;
    
46. 
    
47. 
    
48. //最大持仓量
    
49. cx:=6;
    
50. 
    
51. 
    
52. //提前下单量（秒）
    
53. xd:=3;
    
54. 
    
55. 
    
56. //交易时间区间
    
57. p1:=time>091500 and time<151000;
    
58. p2:=if(islastbar,dynainfo(207),time);
    
59. p3:=time0-timetot0(p2),linethick0;
    
60. 
    
61. 
    
62. //********************************
    
63. r1:=barslast(date<>ref(date,1));
    
64. r2:=ref(o,r1);
    
65. 
    
66. 
    
67. //********************************
    
68. hd:=if(islastbar,3,1.2);
    
69. hd1:=if(islastbar,3,0.1);
    
70. 
    
71. 
    
72. //********************************
    
73. cc:=(h+l+o+c)/4;
    
74. mid:=ma(cc,26);
    
75. upper:=mid+1.7*std(cc,26);
    
76. lower:=mid-1.7*std(cc,26);
    
77. 
    
78. 
    
79. //********************************
    
80. r12:=asset-ref(asset,135);
    
81. r13:=valuewhen(r1=134,r12);
    
82. 
    
83. 
    
84. if r13>6000*cx and a2>0 then
    
85. begin
    
86. a1:=barpos;
    
87. a2:=-1;
    
88. end
    
89. r16:=if(barpos-a1>810,1,-1);
    
90. if r16>0 and r1<2 then a2:=1;
    
91. 
    
92. 
    
93. if abs(r2-c)>34 or (abs(r2-c)>24 and r1<40) then c6:=1;
    
94. r17:=r16>0 or c6>0;
    
95. //********************************
    
96. q2:=valuewhen(r1=0,sum(h-l,270)/270);
    
97. r20:=upper-lower<6.5*q2;
    
98. 
    
99. 
    
100. //********************************
     
101. nn:=4*q2;
     
102. if holding>0 and o-l>=nn and enterbars>0 then
     
103. begin
     
104. sell(holding>0,holding,limitr,o-nn-hd);
     
105. end
     
106. if holding<0 and h-o>=nn and enterbars>0 then
     
107. begin
     
108. sellshort(holding<0,abs(holding),limitr,o+nn+hd);
     
109. end                               
     
110. 
     
111. 
     
112. //********************************
     
113. if c>upper and r20 and h-upper<3.5*q2 and p1 and p3<=xd and r17>0 then
     
114. begin
     
115. buy(holding<cx,tn,limitr,c+hd1);
     
116. end
     
117. if c<lower and r20 and lower-l<3.5*q2 and p1 and p3<=xd and r17>0 then
     
118. begin
     
119. buyshort(abs(holding)<cx,tn,limitr,c-hd1);
     
120. end
     
121. 
     
122. 
     
123. //---------------------------------
     
124. if holding>0 and l<mid then
     
125. begin
     
126. sell(1,0,limitr,c-hd1);
     
127. end
     
128. if holding<0 and h>mid then
     
129. begin
     
130. sellshort(1,0,limitr,c+hd1);
     
131. end
     
132.                        
     
133. //********************************                               
     
134. //收盘前清仓
     
135. if p2>=151300 then
     
136. begin
     
137. sellshort(holding<0,0,limitr,c+hd1);
     
138. sell(holding>0,0,limitr,c-hd1);
     
139. c6:=-1;
     
140. c1:=1;
     
141. end                               
     
142.                        
     
143. //*************************************
     
144. 交易总数:totaltrade,colorwhite,linethick0;
     
145. 盈亏:asset-1000000,colorred,linethick1,noaxis;
     
146. 日盈亏:asset-ref(asset,r1+1),noaxis,colorred,linethick0;
     
147. 持仓:holding,colorwhite,linethick0;
     
148. 
     
149. 
     
150. rr1:=barslast(month<>ref(month,1));
     
151. 月盈利:asset-ref(asset,rr1+1),linethick0;
     
152. 
     
153. 
     
154. variable:hc=0;
     
155. 回撤:hhv(盈亏,30000)-盈亏,linethick0,coloryellow;
     
156. if 回撤>hc then hc:=回撤；
     
157. 最大回撤:hc,linethick0,coloryellow;

复制代码