整数网格EA源码

1. //+------------------------------------------------------------------+
   
2. //|                                                           19.mq4 |
   
3. //| bz. |
   
4. //|                                      http://blog.163.com|
   
5. //+------------------------------------------------------------------+
   
6. #property copyright "下载更多外汇EA，外汇指标，交易系统，就到【外汇EA之家】"
   
7. #property link      "http://www.eazhijia.com"
   
8. #property description "①小数位置即对应整数网格取值位置，如;黄金正数个位取0,EUR小数0.00X取3  ②价格超过上阻力值不在开买单，超过下阻力不在开卖单，等于0无限制"
   
9. 
   
10. #define BLWGZMA1 20050710
    
11. //宏定义命令#define用法，定义本EA操作的订单的唯一标识号码，
    
12. #define  NL    "\n"
    
13.   
    
14. 
    
15. extern double 基础单量 = 0.1;  //直接用交易量，
    
16. 
    
17. extern double   止赢 = 100;  //直接出场点数，等于0此数无计算，无止赢
    
18. extern double   止损 =1000;  //直接出场点数，等于0此数无计算，无止损
    
19. 
    
20. extern int 小数位置 = 0; //小数位置即对应取值位置，如;黄金正数个位取0,EUR小数0.00X取3
    
21. extern double   上阻力 = 0; //价格超过上阻力值不在开买单，超过下阻力不在开卖单，等于0无限制
    
22. extern double   下阻力 = 0;
    
23. 
    
24. //+------------------------------------------------------------------+
    
25. //全局变量
    
26. 
    
27.        int   wgb1=0,wgb2=0,wgb3=0,wgb4=0,wgb5=0,wgb6=0,wgb7=0,wgb8=0,wgb9=0,wgb0=0;
    
28.        int   wgs1=0,wgs2=0,wgs3=0,wgs4=0,wgs5=0,wgs6=0,wgs7=0,wgs8=0,wgs9=0,wgs0=0;
    
29.        double wgd1,wgd2,wgd3,wgd4,wgd5,wgd6,wgd7,wgd8,wgd9,wgd0;
    
30.        int  OMb=0,OMp=0;
    
31. //+------------------------------------------------------------------+
    
32. //| expert initialization function  
    
33. //   初始化                              |
    
34. //+------------------------------------------------------------------+
    
35. 
    
36. int init()
    
37. {
    
38. if(基础单量<MarketInfo(Symbol(), MODE_MINLOT))
    
39. Alert("亲，基础单量 < 最小允许标准手数!");
    
40.   
    
41.   return(0);
    
42. }
    
43. 
    
44. //+------------------------------------------------------------------+
    
45. //| expert deinitialization function  
    
46. //反初始化                               |
    
47. //+------------------------------------------------------------------+
    
48. int deinit()
    
49. {
    
50.   
    
51.   return(0);
    
52. }
    
53. 
    
54. //+------------------------------------------------------------------+
    
55. 
    
56. //+------------------------------------------------------------------+
    
57. //| Start function |
    
58. //主程序
    
59. //+------------------------------------------------------------------+
    
60. void start()//主程序—-每次成交价所驱动的运算过程
    
61. {
    
62. //---- check for history and trading—对交易历史进行检查
    
63. if(Bars<200 || IsTradeAllowed()==false)
    
64. return;
    
65. //如果K线数少于200根，或者如果允许智能交易交易=假时，返回
    
66. 
    
67. //+------------------------------------------------------------------+
    
68. 
    
69. //图表左上角显示相关信息
    
70. string        str;
    
71. str =  "当前订单数目=" + OrdersTotal() + NL +
    
72.        "...................." + NL +
    
73.        "区间市值上限" + 上阻力 + NL +
    
74.        "区间设置下限" + 下阻力 + NL +
    
75.        "...................." + NL ;
    
76.       
    
77.       
    
78. Comment( str );
    
79. /*
    
80. ObjectCreate("label_object", OBJ_LABEL, 0, 0, 0);//物件建立(标签物件)
    
81. ObjectSetText("label_object",str,18,"Arial",Red);//设定标签物件文字,大小,字型,颜色
    
82.   ObjectSet("label_object", OBJPROP_XDISTANCE, 100);//设定X轴距
    
83.    ObjectSet("label_object", OBJPROP_YDISTANCE, 50);//设定Y轴距*/
    
84. //+------------------------------------------------------------------+
    
85. 
    
86. //定义局部变
    
87. double wg,jg1,jg2;
    
88. 
    
89. jg1=NormalizeDouble(Bid/1000,3+小数位置-1);
    
90. //计算 ，当前价格除以100，并将结果保留小数点1位  
    
91. 
    
92. jg2=jg1*1000;
    
93. 
    
94. 
    
95. if(小数位置==-2)
    
96. wg=100;
    
97. if(小数位置==-1)
    
98. wg=10;
    
99. if(小数位置==0)
    
100. wg=1;
     
101. if(小数位置==1)
     
102. wg=0.1;
     
103. if(小数位置==2)
     
104. wg=0.01;
     
105. if(小数位置==3)
     
106. wg=0.001;
     
107. if(小数位置==4)
     
108. wg=0.0001;
     
109. if(小数位置==5)
     
110. wg=0.00001;
     
111. if(小数位置==6)
     
112. wg=0.00001;
     
113. 
     
114.     wgd0 = jg2;
     
115.     wgd1 = wg*1+jg2;
     
116.     wgd2 = wg*2+jg2;
     
117.     wgd3 = wg*3+jg2;
     
118.     wgd4 = wg*4+jg2;
     
119.     wgd4 = wg*5+jg2;
     
120.     wgd6 = wg*6+jg2;
     
121.     wgd7 = wg*7+jg2;
     
122.     wgd8 = wg*8+jg2;
     
123.     wgd9 = wg*9+jg2;
     
124.       
     
125. //+------------------------------------------------------------------+
     
126.    
     
127. //+------------------------------------------------------------------+
     
128. CalculateCurrentOrders();
     
129. //当前持仓单的数量
     
130. 
     
131. CheckForOpen();
     
132. //则进行开仓检查。
     
133. 
     
134. //if(OrdersTotal()>0)
     
135. //CheckForClose();
     
136. //则进行平仓检查。
     
137. 
     
138. //----
     
139. }
     
140. 
     
141. //+------------------------------------------------------------------+
     
142. //+------------------------------------------------------------------+
     
143. //| Check for open order conditions
     
144. //自定义函数（无返回值） 开仓策略 |
     
145. //+------------------------------------------------------------------+
     
146. void CheckForOpen()//开仓检查（判断开仓条件及其处理）
     
147. {
     
148. int res; //定义局部变量res为整数型
     
149. 
     
150. //+-----------
     
151. //止损止赢计算，
     
152. double  bzs,bzy,szs,szy;
     
153. if(止损==0)
     
154. {
     
155. bzs=0;
     
156. szs=0;
     
157. }
     
158. else
     
159. {
     
160. szs=Bid+止损*Point;
     
161. bzs=Ask-止损*Point;
     
162. }
     
163. if(止赢==0)
     
164. {
     
165. bzy=0;
     
166. szy=0;
     
167. }
     
168. else
     
169. {
     
170. szy=Bid-止赢*Point;
     
171. bzy=Ask+止赢*Point;
     
172. }
     
173. //+-----------
     
174. int sss=0,bbb=0;
     
175. if(下阻力==0)
     
176. sss=1;
     
177. if(下阻力!=0)
     
178. {
     
179. if(Bid>下阻力)
     
180. sss=1;
     
181. else
     
182. sss=0;
     
183. }
     
184. if(上阻力==0)
     
185. bbb=1;
     
186. if(上阻力!=0)
     
187. {
     
188. if(Ask<上阻力)
     
189. bbb=1;
     
190. else
     
191. bbb=0;
     
192. }
     
193. 
     
194. 
     
195. //---- sell conditions-卖出条件
     
196. if(OMp==1)
     
197. {
     
198. if(wgs1==0)
     
199. {
     
200. if( Bid==wgd1 )   
     
201. {
     
202. res=OrderSend(Symbol(),OP_SELL,基础单量,Bid,3,szs,szy,"wgs1",BLWGZMA1,0,Red);
     
203. //发送仓单（当前货币对，卖出方向，开仓量计算（），买价，滑点=3，无止损，无止赢，订单编号，标上红色箭头）
     
204. wgs1=1;
     
205. }
     
206. }
     
207. 
     
208. if(wgs2==0)
     
209. {
     
210. if( Bid==wgd2 )   
     
211. {
     
212. res=OrderSend(Symbol(),OP_SELL,基础单量,Bid,3,szs,szy,"wgs2",BLWGZMA1,0,Red);
     
213. //发送仓单（当前货币对，卖出方向，开仓量计算（），买价，滑点=3，无止损，无止赢，订单编号，标上红色箭头）
     
214. wgs2=1;
     
215. }
     
216. }
     
217. 
     
218. if(wgs3==0)
     
219. {
     
220. if( Bid==wgd3 )   
     
221. {
     
222. res=OrderSend(Symbol(),OP_SELL,基础单量,Bid,3,szs,szy,"wgs3",BLWGZMA1,0,Red);
     
223. //发送仓单（当前货币对，卖出方向，开仓量计算（），买价，滑点=3，无止损，无止赢，订单编号，标上红色箭头）
     
224. wgs3=1;
     
225. }
     
226. }
     
227. 
     
228. if(wgs4==0)
     
229. {
     
230. if( Bid==wgd4  )   
     
231. {
     
232. res=OrderSend(Symbol(),OP_SELL,基础单量,Bid,3,szs,szy,"wgs4",BLWGZMA1,0,Red);
     
233. //发送仓单（当前货币对，卖出方向，开仓量计算（），买价，滑点=3，无止损，无止赢，订单编号，标上红色箭头）
     
234. wgs4=1;
     
235. }
     
236. }
     
237. 
     
238. if(wgs5==0)
     
239. {
     
240. if( Bid==wgd5  )   
     
241. {
     
242. res=OrderSend(Symbol(),OP_SELL,基础单量,Bid,3,szs,szy,"wgs5",BLWGZMA1,0,Red);
     
243. //发送仓单（当前货币对，卖出方向，开仓量计算（），买价，滑点=3，无止损，无止赢，订单编号，标上红色箭头）
     
244. wgs5=1;
     
245. }
     
246. }
     
247. 
     
248. if(wgs6==0)
     
249. {
     
250. if( Bid==wgd6  )   
     
251. {
     
252. res=OrderSend(Symbol(),OP_SELL,基础单量,Bid,3,szs,szy,"wgs6",BLWGZMA1,0,Red);
     
253. //发送仓单（当前货币对，卖出方向，开仓量计算（），买价，滑点=3，无止损，无止赢，订单编号，标上红色箭头）
     
254. wgs6=1;
     
255. }
     
256. }
     
257. 
     
258. if(wgs7==0)
     
259. {
     
260. if( Bid==wgd7  )   
     
261. {
     
262. res=OrderSend(Symbol(),OP_SELL,基础单量,Bid,3,szs,szy,"wgs7",BLWGZMA1,0,Red);
     
263. //发送仓单（当前货币对，卖出方向，开仓量计算（），买价，滑点=3，无止损，无止赢，订单编号，标上红色箭头）
     
264. wgs7=1;
     
265. }
     
266. }
     
267. 
     
268. if(wgs8==0)
     
269. {
     
270. if( Bid==wgd8  )   
     
271. {
     
272. res=OrderSend(Symbol(),OP_SELL,基础单量,Bid,3,szs,szy,"wgs8",BLWGZMA1,0,Red);
     
273. //发送仓单（当前货币对，卖出方向，开仓量计算（），买价，滑点=3，无止损，无止赢，订单编号，标上红色箭头）
     
274. wgs8=1;
     
275. }
     
276. }
     
277. 
     
278. if(wgs9==0)
     
279. {
     
280. if( Bid==wgd9  )   
     
281. {
     
282. res=OrderSend(Symbol(),OP_SELL,基础单量,Bid,3,szs,szy,"wgs9",BLWGZMA1,0,Red);
     
283. //发送仓单（当前货币对，卖出方向，开仓量计算（），买价，滑点=3，无止损，无止赢，订单编号，标上红色箭头）
     
284. wgs9=1;
     
285. }
     
286. }
     
287. 
     
288. if(wgs0==0)
     
289. {
     
290. if( Bid==wgd0  )   
     
291. {
     
292. res=OrderSend(Symbol(),OP_SELL,基础单量,Bid,3,szs,szy,"wgs0",BLWGZMA1,0,Red);
     
293. //发送仓单（当前货币对，卖出方向，开仓量计算（），买价，滑点=3，无止损，无止赢，订单编号，标上红色箭头）
     
294. wgs0=1;
     
295. }
     
296. }
     
297. 
     
298. }
     
299. 
     
300. //---- buy conditions-买入条件
     
301. if(OMb==1)
     
302. {
     
303. if(wgb1==0)
     
304. {
     
305.   if ( Ask==wgd1 )     
     
306. {
     
307. res=OrderSend(Symbol(),OP_BUY,基础单量,Ask,3,bzs,bzy,"wgb1",BLWGZMA1,0,Blue);
     
308. //发送仓单（当前货币对，买入方向，开仓量计算（），卖价，滑点=3，无止损，无止赢，订单编号，标上蓝色箭头）
     
309. wgb1=1;
     
310. }
     
311. }
     
312. 
     
313. if(wgb2==0)
     
314. {
     
315.   if (Ask==wgd2 )     
     
316. {
     
317. res=OrderSend(Symbol(),OP_BUY,基础单量,Ask,3,bzs,bzy,"wgb2",BLWGZMA1,0,Blue);
     
318. //发送仓单（当前货币对，买入方向，开仓量计算（），卖价，滑点=3，无止损，无止赢，订单编号，标上蓝色箭头）
     
319. wgb2=1;
     
320. }
     
321. }
     
322. 
     
323. if(wgb3==0)
     
324. {
     
325.   if ( Ask==wgd3 )     
     
326. {
     
327. res=OrderSend(Symbol(),OP_BUY,基础单量,Ask,3,bzs,bzy,"wgb3",BLWGZMA1,0,Blue);
     
328. //发送仓单（当前货币对，买入方向，开仓量计算（），卖价，滑点=3，无止损，无止赢，订单编号，标上蓝色箭头）
     
329. wgb3=1;
     
330. }
     
331. }
     
332. 
     
333. if(wgb4==0)
     
334. {
     
335.   if (Ask==wgd4 )     
     
336. {
     
337. res=OrderSend(Symbol(),OP_BUY,基础单量,Ask,3,bzs,bzy,"wgb4",BLWGZMA1,0,Blue);
     
338. //发送仓单（当前货币对，买入方向，开仓量计算（），卖价，滑点=3，无止损，无止赢，订单编号，标上蓝色箭头）
     
339. wgb4=1;
     
340. }
     
341. }
     
342. 
     
343. if(wgb5==0)
     
344. {
     
345.   if (Ask==wgd5 )     
     
346. {
     
347. res=OrderSend(Symbol(),OP_BUY,基础单量,Ask,3,bzs,bzy,"wgb5",BLWGZMA1,0,Blue);
     
348. //发送仓单（当前货币对，买入方向，开仓量计算（），卖价，滑点=3，无止损，无止赢，订单编号，标上蓝色箭头）
     
349. wgb5=1;
     
350. }
     
351. }
     
352. 
     
353. if(wgb6==0)
     
354. {
     
355.   if (Ask==wgd6 )     
     
356. {
     
357. res=OrderSend(Symbol(),OP_BUY,基础单量,Ask,3,bzs,bzy,"wgb6",BLWGZMA1,0,Blue);
     
358. //发送仓单（当前货币对，买入方向，开仓量计算（），卖价，滑点=3，无止损，无止赢，订单编号，标上蓝色箭头）
     
359. wgb6=1;
     
360. }
     
361. }
     
362. 
     
363. if(wgb7==0)
     
364. {
     
365.   if (Ask==wgd7 )     
     
366. {
     
367. res=OrderSend(Symbol(),OP_BUY,基础单量,Ask,3,bzs,bzy,"wgb7",BLWGZMA1,0,Blue);
     
368. //发送仓单（当前货币对，买入方向，开仓量计算（），卖价，滑点=3，无止损，无止赢，订单编号，标上蓝色箭头）
     
369. wgb7=1;
     
370. }
     
371. }
     
372. 
     
373. if(wgb8==0)
     
374. {
     
375.   if (Ask==wgd8 )     
     
376. {
     
377. res=OrderSend(Symbol(),OP_BUY,基础单量,Ask,3,bzs,bzy,"wgb8",BLWGZMA1,0,Blue);
     
378. //发送仓单（当前货币对，买入方向，开仓量计算（），卖价，滑点=3，无止损，无止赢，订单编号，标上蓝色箭头）
     
379. wgb8=1;
     
380. }
     
381. }
     
382. 
     
383. if(wgb9==0)
     
384. {
     
385.   if (Ask==wgd9 )     
     
386. {
     
387. res=OrderSend(Symbol(),OP_BUY,基础单量,Ask,3,bzs,bzy,"wgb9",BLWGZMA1,0,Blue);
     
388. //发送仓单（当前货币对，买入方向，开仓量计算（），卖价，滑点=3，无止损，无止赢，订单编号，标上蓝色箭头）
     
389. wgb9=1;
     
390. }
     
391. }
     
392. 
     
393. if(wgb0==0)
     
394. {
     
395.   if (Ask==wgd0 )     
     
396. {
     
397. res=OrderSend(Symbol(),OP_BUY,基础单量,Ask,3,bzs,bzy,"wgb0",BLWGZMA1,0,Blue);
     
398. //发送仓单（当前货币对，买入方向，开仓量计算（），卖价，滑点=3，无止损，无止赢，订单编号，标上蓝色箭头）
     
399. wgb0=1;
     
400. }
     
401. }
     
402. 
     
403. }
     
404. 
     
405. //----
     
406. }
     
407. //+------------------------------------------------------------------+
     
408. //| Check for close order conditions
     
409. //自定义函数（无返回值） 平仓策略 |
     
410. //+------------------------------------------------------------------+
     
411. /*
     
412. void CheckForClose()//平仓检查（判断平仓条件及其处理）
     
413. {  
     
414. 
     
415. //----
     
416. }
     
417. */
     
418. 
     
419. //+------------------------------------------------------------------+
     
420. //| Calculate open positions
     
421. //自定义函数（返回-整数型数据） 仓单查询与统计 |
     
422. //+------------------------------------------------------------------+
     
423. int CalculateCurrentOrders()//函数作用，计算当前持仓单的数量
     
424. {
     
425. //----
     
426. wgb1=0;wgb2=0;wgb3=0;wgb4=0;wgd5=0;wgb6=0;wgb7=0;wgb8=0;wgb9=0;wgb0=0;
     
427. wgs1=0;wgs2=0;wgs3=0;wgs4=0;wgs5=0;wgs6=0;wgs7=0;wgs8=0;wgs9=0;wgs0=0;
     
428. for(int i=0;i<OrdersTotal();i++)
     
429. //计次循环（i=0至订单数目，i=i+1）-循环检测当前的订单队列
     
430. {
     
431. if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break;
     
432. //如果 没有本系统交易的仓单类型，则跳出循环
     
433. if(OrderSymbol()==Symbol() && OrderMagicNumber()==BLWGZMA1)
     
434. //如果 仓单货币对是当前货币对 且 仓单编号是本系统编号 时
     
435. //（判断这个订单是不是当前EA操作的，避免EA误操作其他程序控制的持仓单）
     
436. {
     
437. if(OrderType()==OP_BUY && OrderComment()=="wgb1")
     
438. wgb1=1;
     
439. if(OrderType()==OP_BUY && OrderComment()=="wgb2")
     
440. wgb2=1;
     
441. if(OrderType()==OP_BUY && OrderComment()=="wgb3")
     
442. wgb3=1;
     
443. if(OrderType()==OP_BUY && OrderComment()=="wgb4")
     
444. wgb4=1;
     
445. if(OrderType()==OP_BUY && OrderComment()=="wgb5")
     
446. wgb5=1;
     
447. if(OrderType()==OP_BUY && OrderComment()=="wgb6")
     
448. wgb6=1;
     
449. if(OrderType()==OP_BUY && OrderComment()=="wgb7")
     
450. wgb7=1;
     
451. if(OrderType()==OP_BUY && OrderComment()=="wgb8")
     
452. wgb8=1;
     
453. if(OrderType()==OP_BUY && OrderComment()=="wgb9")
     
454. wgb9=1;
     
455. if(OrderType()==OP_BUY && OrderComment()=="wgb0")
     
456. wgb0=1;
     
457. 
     
458. 
     
459. 
     
460. if(OrderType()==OP_SELL && OrderComment()=="wgs1")
     
461. wgs1=1;
     
462. if(OrderType()==OP_SELL && OrderComment()=="wgs2")
     
463. wgs2=1;
     
464. if(OrderType()==OP_SELL && OrderComment()=="wgs3")
     
465. wgs3=1;
     
466. if(OrderType()==OP_SELL && OrderComment()=="wgs4")
     
467. wgs4=1;
     
468. if(OrderType()==OP_SELL && OrderComment()=="wgs5")
     
469. wgs5=1;
     
470. if(OrderType()==OP_SELL && OrderComment()=="wgs6")
     
471. wgs6=1;
     
472. if(OrderType()==OP_SELL && OrderComment()=="wgs7")
     
473. wgs7=1;
     
474. if(OrderType()==OP_SELL && OrderComment()=="wgs8")
     
475. wgs8=1;
     
476. if(OrderType()==OP_SELL && OrderComment()=="wgs9")
     
477. wgs9=1;
     
478. if(OrderType()==OP_SELL && OrderComment()=="wgs0")
     
479. wgs0=1;
     
480. 
     
481. }
     
482. }
     
483. return(0);
     
484. }
     
485. //+------------------------------------------------------------------+
     
486. //+------------------------------------------------------------------+

复制代码

谢谢 学习下

谢谢，多多学习！！

有竞争才有进步嘛

不错，支持下楼主

我是来刷分的，嘿嘿

谢谢楼主分享

学习了，不错

帮你顶下哈！！

谢谢楼主分享