返回
外汇EA
整数网格EA源码
回复:0  浏览:337
  • 楼主admin 圈主
  • 2019-05-05 09:17
  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无限制"

  10. #define BLWGZMA1 20050710
  11. //宏定义命令#define用法，定义本EA操作的订单的唯一标识号码，
  12. #define  NL    "n"
  13.   

  15. extern double 基础单量 = 0.1;  //直接用交易量，

  17. extern double   止赢 = 100;  //直接出场点数，等于0此数无计算，无止赢
  18. extern double   止损 =1000;  //直接出场点数，等于0此数无计算，无止损

  20. extern int 小数位置 = 0; //小数位置即对应取值位置，如;黄金正数个位取0,EUR小数0.00X取3
  21. extern double   上阻力 = 0; //价格超过上阻力值不在开买单，超过下阻力不在开卖单，等于0无限制
  22. extern double   下阻力 = 0;

  24. //+------------------------------------------------------------------+
  25. //全局变量

  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. //+------------------------------------------------------------------+

  36. int init()
  37. {
  38. if(基础单量<MarketInfo(Symbol(), MODE_MINLOT))
  39. alert("亲，基础单量 < 最小允许标准手数!");
  40.   
  41.   return(0);
  42. }

  44. //+------------------------------------------------------------------+
  45. //| expert deinitialization function  
  46. //反初始化                               |
  47. //+------------------------------------------------------------------+
  48. int deinit()
  49. {
  50.   
  51.   return(0);
  52. }

  54. //+------------------------------------------------------------------+

  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根，或者如果允许智能交易交易=假时，返回

  67. //+------------------------------------------------------------------+

  69. //图表左上角显示相关信息
  70. string        str;
  71. str =  "当前订单数目=" + OrdersTotal() + NL +
  72.        "...................." + NL +
  73.        "区间市值上限" + 上阻力 + NL +
  74.        "区间设置下限" + 下阻力 + NL +
  75.        "...................." + NL ;
  76.       
  77.       
  78. Comment( str );

  80. //+------------------------------------------------------------------+

  82. //定义局部变
  83. double wg,jg1,jg2;

  85. jg1=NormalizeDouble(Bid/1000,3+小数位置-1);
  86. //计算 ，当前价格除以100，并将结果保留小数点1位  

  88. jg2=jg1*1000;


  91. if(小数位置==-2)
  92. wg=100;
  93. if(小数位置==-1)
  94. wg=10;
  95. if(小数位置==0)
  96. wg=1;
  97. if(小数位置==1)
  98. wg=0.1;
  99. if(小数位置==2)
  100. wg=0.01;
  101. if(小数位置==3)
  102. wg=0.001;
  103. if(小数位置==4)
  104. wg=0.0001;
  105. if(小数位置==5)
  106. wg=0.00001;
  107. if(小数位置==6)
  108. wg=0.00001;

  110.     wgd0 = jg2;
  111.     wgd1 = wg*1+jg2;
  112.     wgd2 = wg*2+jg2;
  113.     wgd3 = wg*3+jg2;
  114.     wgd4 = wg*4+jg2;
  115.     wgd4 = wg*5+jg2;
  116.     wgd6 = wg*6+jg2;
  117.     wgd7 = wg*7+jg2;
  118.     wgd8 = wg*8+jg2;
  119.     wgd9 = wg*9+jg2;
  120.       
  121. //+------------------------------------------------------------------+
  122.    
  123. //+------------------------------------------------------------------+
  124. CalculateCurrentOrders();
  125. //当前持仓单的数量

  127. CheckForOpen();
  128. //则进行开仓检查。

  130. //if(OrdersTotal()>0)
  131. //CheckForClose();
  132. //则进行平仓检查。

  134. //----
  135. }

  137. //+------------------------------------------------------------------+
  138. //+------------------------------------------------------------------+
  139. //| Check for open order conditions
  140. //自定义函数（无返回值） 开仓策略 |
  141. //+------------------------------------------------------------------+
  142. void CheckForOpen()//开仓检查（判断开仓条件及其处理）
  143. {
  144. int res; //定义局部变量res为整数型

  146. //+-----------
  147. //止损止赢计算，
  148. double  bzs,bzy,szs,szy;
  149. if(止损==0)
  150. {
  151. bzs=0;
  152. szs=0;
  153. }
  154. else
  155. {
  156. szs=Bid+止损*Point;
  157. bzs=Ask-止损*Point;
  158. }
  159. if(止赢==0)
  160. {
  161. bzy=0;
  162. szy=0;
  163. }
  164. else
  165. {
  166. szy=Bid-止赢*Point;
  167. bzy=Ask+止赢*Point;
  168. }
  169. //+-----------
  170. int sss=0,bbb=0;
  171. if(下阻力==0)
  172. sss=1;
  173. if(下阻力!=0)
  174. {
  175. if(Bid>下阻力)
  176. sss=1;
  177. else
  178. sss=0;
  179. }
  180. if(上阻力==0)
  181. bbb=1;
  182. if(上阻力!=0)
  183. {
  184. if(Ask<上阻力)
  185. bbb=1;
  186. else
  187. bbb=0;
  188. }


  191. //---- sell conditions-卖出条件
  192. if(OMp==1)
  193. {
  194. if(wgs1==0)
  195. {
  196. if( Bid==wgd1 )   
  197. {
  198. res=OrderSend(Symbol(),OP_SELL,基础单量,Bid,3,szs,szy,"wgs1",BLWGZMA1,0,Red);
  199. //发送仓单（当前货币对，卖出方向，开仓量计算（），买价，滑点=3，无止损，无止赢，订单编号，标上红色箭头）
  200. wgs1=1;
  201. }
  202. }

  204. if(wgs2==0)
  205. {
  206. if( Bid==wgd2 )   
  207. {
  208. res=OrderSend(Symbol(),OP_SELL,基础单量,Bid,3,szs,szy,"wgs2",BLWGZMA1,0,Red);
  209. //发送仓单（当前货币对，卖出方向，开仓量计算（），买价，滑点=3，无止损，无止赢，订单编号，标上红色箭头）
  210. wgs2=1;
  211. }
  212. }

  214. if(wgs3==0)
  215. {
  216. if( Bid==wgd3 )   
  217. {
  218. res=OrderSend(Symbol(),OP_SELL,基础单量,Bid,3,szs,szy,"wgs3",BLWGZMA1,0,Red);
  219. //发送仓单（当前货币对，卖出方向，开仓量计算（），买价，滑点=3，无止损，无止赢，订单编号，标上红色箭头）
  220. wgs3=1;
  221. }
  222. }

  224. if(wgs4==0)
  225. {
  226. if( Bid==wgd4  )   
  227. {
  228. res=OrderSend(Symbol(),OP_SELL,基础单量,Bid,3,szs,szy,"wgs4",BLWGZMA1,0,Red);
  229. //发送仓单（当前货币对，卖出方向，开仓量计算（），买价，滑点=3，无止损，无止赢，订单编号，标上红色箭头）
  230. wgs4=1;
  231. }
  232. }

  234. if(wgs5==0)
  235. {
  236. if( Bid==wgd5  )   
  237. {
  238. res=OrderSend(Symbol(),OP_SELL,基础单量,Bid,3,szs,szy,"wgs5",BLWGZMA1,0,Red);
  239. //发送仓单（当前货币对，卖出方向，开仓量计算（），买价，滑点=3，无止损，无止赢，订单编号，标上红色箭头）
  240. wgs5=1;
  241. }
  242. }

  244. if(wgs6==0)
  245. {
  246. if( Bid==wgd6  )   
  247. {
  248. res=OrderSend(Symbol(),OP_SELL,基础单量,Bid,3,szs,szy,"wgs6",BLWGZMA1,0,Red);
  249. //发送仓单（当前货币对，卖出方向，开仓量计算（），买价，滑点=3，无止损，无止赢，订单编号，标上红色箭头）
  250. wgs6=1;
  251. }
  252. }

  254. if(wgs7==0)
  255. {
  256. if( Bid==wgd7  )   
  257. {
  258. res=OrderSend(Symbol(),OP_SELL,基础单量,Bid,3,szs,szy,"wgs7",BLWGZMA1,0,Red);
  259. //发送仓单（当前货币对，卖出方向，开仓量计算（），买价，滑点=3，无止损，无止赢，订单编号，标上红色箭头）
  260. wgs7=1;
  261. }
  262. }

  264. if(wgs8==0)
  265. {
  266. if( Bid==wgd8  )   
  267. {
  268. res=OrderSend(Symbol(),OP_SELL,基础单量,Bid,3,szs,szy,"wgs8",BLWGZMA1,0,Red);
  269. //发送仓单（当前货币对，卖出方向，开仓量计算（），买价，滑点=3，无止损，无止赢，订单编号，标上红色箭头）
  270. wgs8=1;
  271. }
  272. }

  274. if(wgs9==0)
  275. {
  276. if( Bid==wgd9  )   
  277. {
  278. res=OrderSend(Symbol(),OP_SELL,基础单量,Bid,3,szs,szy,"wgs9",BLWGZMA1,0,Red);
  279. //发送仓单（当前货币对，卖出方向，开仓量计算（），买价，滑点=3，无止损，无止赢，订单编号，标上红色箭头）
  280. wgs9=1;
  281. }
  282. }

  284. if(wgs0==0)
  285. {
  286. if( Bid==wgd0  )   
  287. {
  288. res=OrderSend(Symbol(),OP_SELL,基础单量,Bid,3,szs,szy,"wgs0",BLWGZMA1,0,Red);
  289. //发送仓单（当前货币对，卖出方向，开仓量计算（），买价，滑点=3，无止损，无止赢，订单编号，标上红色箭头）
  290. wgs0=1;
  291. }
  292. }

  294. }

  296. //---- buy conditions-买入条件
  297. if(OMb==1)
  298. {
  299. if(wgb1==0)
  300. {
  301.   if ( Ask==wgd1 )     
  302. {
  303. res=OrderSend(Symbol(),OP_BUY,基础单量,Ask,3,bzs,bzy,"wgb1",BLWGZMA1,0,Blue);
  304. //发送仓单（当前货币对，买入方向，开仓量计算（），卖价，滑点=3，无止损，无止赢，订单编号，标上蓝色箭头）
  305. wgb1=1;
  306. }
  307. }

  309. if(wgb2==0)
  310. {
  311.   if (Ask==wgd2 )     
  312. {
  313. res=OrderSend(Symbol(),OP_BUY,基础单量,Ask,3,bzs,bzy,"wgb2",BLWGZMA1,0,Blue);
  314. //发送仓单（当前货币对，买入方向，开仓量计算（），卖价，滑点=3，无止损，无止赢，订单编号，标上蓝色箭头）
  315. wgb2=1;
  316. }
  317. }

  319. if(wgb3==0)
  320. {
  321.   if ( Ask==wgd3 )     
  322. {
  323. res=OrderSend(Symbol(),OP_BUY,基础单量,Ask,3,bzs,bzy,"wgb3",BLWGZMA1,0,Blue);
  324. //发送仓单（当前货币对，买入方向，开仓量计算（），卖价，滑点=3，无止损，无止赢，订单编号，标上蓝色箭头）
  325. wgb3=1;
  326. }
  327. }

  329. if(wgb4==0)
  330. {
  331.   if (Ask==wgd4 )     
  332. {
  333. res=OrderSend(Symbol(),OP_BUY,基础单量,Ask,3,bzs,bzy,"wgb4",BLWGZMA1,0,Blue);
  334. //发送仓单（当前货币对，买入方向，开仓量计算（），卖价，滑点=3，无止损，无止赢，订单编号，标上蓝色箭头）
  335. wgb4=1;
  336. }
  337. }

  339. if(wgb5==0)
  340. {
  341.   if (Ask==wgd5 )     
  342. {
  343. res=OrderSend(Symbol(),OP_BUY,基础单量,Ask,3,bzs,bzy,"wgb5",BLWGZMA1,0,Blue);
  344. //发送仓单（当前货币对，买入方向，开仓量计算（），卖价，滑点=3，无止损，无止赢，订单编号，标上蓝色箭头）
  345. wgb5=1;
  346. }
  347. }

  349. if(wgb6==0)
  350. {
  351.   if (Ask==wgd6 )     
  352. {
  353. res=OrderSend(Symbol(),OP_BUY,基础单量,Ask,3,bzs,bzy,"wgb6",BLWGZMA1,0,Blue);
  354. //发送仓单（当前货币对，买入方向，开仓量计算（），卖价，滑点=3，无止损，无止赢，订单编号，标上蓝色箭头）
  355. wgb6=1;
  356. }
  357. }

  359. if(wgb7==0)
  360. {
  361.   if (Ask==wgd7 )     
  362. {
  363. res=OrderSend(Symbol(),OP_BUY,基础单量,Ask,3,bzs,bzy,"wgb7",BLWGZMA1,0,Blue);
  364. //发送仓单（当前货币对，买入方向，开仓量计算（），卖价，滑点=3，无止损，无止赢，订单编号，标上蓝色箭头）
  365. wgb7=1;
  366. }
  367. }

  369. if(wgb8==0)
  370. {
  371.   if (Ask==wgd8 )     
  372. {
  373. res=OrderSend(Symbol(),OP_BUY,基础单量,Ask,3,bzs,bzy,"wgb8",BLWGZMA1,0,Blue);
  374. //发送仓单（当前货币对，买入方向，开仓量计算（），卖价，滑点=3，无止损，无止赢，订单编号，标上蓝色箭头）
  375. wgb8=1;
  376. }
  377. }

  379. if(wgb9==0)
  380. {
  381.   if (Ask==wgd9 )     
  382. {
  383. res=OrderSend(Symbol(),OP_BUY,基础单量,Ask,3,bzs,bzy,"wgb9",BLWGZMA1,0,Blue);
  384. //发送仓单（当前货币对，买入方向，开仓量计算（），卖价，滑点=3，无止损，无止赢，订单编号，标上蓝色箭头）
  385. wgb9=1;
  386. }
  387. }

  389. if(wgb0==0)
  390. {
  391.   if (Ask==wgd0 )     
  392. {
  393. res=OrderSend(Symbol(),OP_BUY,基础单量,Ask,3,bzs,bzy,"wgb0",BLWGZMA1,0,Blue);
  394. //发送仓单（当前货币对，买入方向，开仓量计算（），卖价，滑点=3，无止损，无止赢，订单编号，标上蓝色箭头）
  395. wgb0=1;
  396. }
  397. }

  399. }

  401. //----
  402. }
  403. //+------------------------------------------------------------------+
  404. //| Check for close order conditions
  405. //自定义函数（无返回值） 平仓策略 |
  406. //+------------------------------------------------------------------+


  409. //+------------------------------------------------------------------+
  410. //| Calculate open positions
  411. //自定义函数（返回-整数型数据） 仓单查询与统计 |
  412. //+------------------------------------------------------------------+
  413. int CalculateCurrentOrders()//函数作用，计算当前持仓单的数量
  414. {
  415. //----
  416. wgb1=0;wgb2=0;wgb3=0;wgb4=0;wgd5=0;wgb6=0;wgb7=0;wgb8=0;wgb9=0;wgb0=0;
  417. wgs1=0;wgs2=0;wgs3=0;wgs4=0;wgs5=0;wgs6=0;wgs7=0;wgs8=0;wgs9=0;wgs0=0;
  418. for(int i=0;i<OrdersTotal();i++)
  419. //计次循环（i=0至订单数目，i=i+1）-循环检测当前的订单队列
  420. {
  421. if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break;
  422. //如果 没有本系统交易的仓单类型，则跳出循环
  423. if(OrderSymbol()==Symbol() && OrderMagicNumber()==BLWGZMA1)
  424. //如果 仓单货币对是当前货币对 且 仓单编号是本系统编号 时
  425. //（判断这个订单是不是当前EA操作的，避免EA误操作其他程序控制的持仓单）
  426. {
  427. if(OrderType()==OP_BUY && OrderComment()=="wgb1")
  428. wgb1=1;
  429. if(OrderType()==OP_BUY && OrderComment()=="wgb2")
  430. wgb2=1;
  431. if(OrderType()==OP_BUY && OrderComment()=="wgb3")
  432. wgb3=1;
  433. if(OrderType()==OP_BUY && OrderComment()=="wgb4")
  434. wgb4=1;
  435. if(OrderType()==OP_BUY && OrderComment()=="wgb5")
  436. wgb5=1;
  437. if(OrderType()==OP_BUY && OrderComment()=="wgb6")
  438. wgb6=1;
  439. if(OrderType()==OP_BUY && OrderComment()=="wgb7")
  440. wgb7=1;
  441. if(OrderType()==OP_BUY && OrderComment()=="wgb8")
  442. wgb8=1;
  443. if(OrderType()==OP_BUY && OrderComment()=="wgb9")
  444. wgb9=1;
  445. if(OrderType()==OP_BUY && OrderComment()=="wgb0")
  446. wgb0=1;



  450. if(OrderType()==OP_SELL && OrderComment()=="wgs1")
  451. wgs1=1;
  452. if(OrderType()==OP_SELL && OrderComment()=="wgs2")
  453. wgs2=1;
  454. if(OrderType()==OP_SELL && OrderComment()=="wgs3")
  455. wgs3=1;
  456. if(OrderType()==OP_SELL && OrderComment()=="wgs4")
  457. wgs4=1;
  458. if(OrderType()==OP_SELL && OrderComment()=="wgs5")
  459. wgs5=1;
  460. if(OrderType()==OP_SELL && OrderComment()=="wgs6")
  461. wgs6=1;
  462. if(OrderType()==OP_SELL && OrderComment()=="wgs7")
  463. wgs7=1;
  464. if(OrderType()==OP_SELL && OrderComment()=="wgs8")
  465. wgs8=1;
  466. if(OrderType()==OP_SELL && OrderComment()=="wgs9")
  467. wgs9=1;
  468. if(OrderType()==OP_SELL && OrderComment()=="wgs0")
  469. wgs0=1;

  471. }
  472. }
  473. return(0);
  474. }
  475. //+------------------------------------------------------------------+
  476. //+------------------------------------------------------------------+
打赏