MT4 EA 制作速成班-战场策略篇2－十面埋伏

2011-09-22 · 12056 阅读

李易鸿原创
  MT4 EA 智能交易制作速成班
  版权所有请勿翻版
  　

  MT4 EA 制作速成班-战场策略篇2
  版权所有请勿转翻
  作者：李沂鸿（马来西亚）
  网站：mt4ea.com
  疫苗：jh7x51@hotmail.com
  第二章：十面埋伏源码

  以下是不完整的源码
  少了三个子程式
  关闭买上();关闭卖下();关闭全部();
  我还在等速成班学员交功课
  哈哈和。。。

  或者有哪一位高手要帮他们补上去？

  //+------------------------------------------------------------------+
  //| MT4_EA_制作速成班模板.mq4 |
  //| Copyright 2008, MT4_EA_制作速成班模板. |
  //| http://www.MT4_EA_制作速成班模板.net |
  //+------------------------------------------------------------------+
  #property copyright \"2008年5月31日\"
  #property link \"http://www.MT4_EA_制作速成班模板.net\"
  //#define MagicNumber 20080400; //int MagicNumber = 200601182020; // allows multiple experts to trade on same account

  int MagicNumber = 20080531; // MAGICMA allows multiple experts to trade on same account


  ////////////////////////
  extern string _资金管理_ =\"任选一个\";
  extern bool zijiguanli1= true;//false true、、
  extern bool zijiguanli2= false;//false true、、
  extern bool zijiguanli3= false;//false true、、
  ///////////////////////////////////
  string EAname =\"五线谱\";
  extern double cheng=1;
  double aa=0;
  int s=0,b=0,i=0,panduan=0;
  double CurrentBasket=0;
  double LotMM=0;
  double lotstart=0;
  double LotsMax=100;
  double LotsMin=0.1;
  extern double lotab=0.1;
  extern double Stoploss=0,no60=60;
  double lots=0;
  double TP=0,TPP=0,SL=0,SLL=0,SLauto;
  int slip=6;
  //////////////////////////////////
  double mode=0;
  double LastOrderType;
  double LastPricesell;
  double LastPricebuy;
  double LastPrice;
  double OpenSells;
  double OpenSellStops;
  double OpenBuys;
  double OpenBuyStops;
  ///////////////////////////////
  int cnt;
  extern int TrailingStop=0;
  ///////////////////////////////
  string text=\"\";
  ////////////////////////
  extern double macd12_1=12, macd12_2=26, macd12_3=9;
  double macd12now;
  extern double ma1=1,ma2=2,ma3=3,ma4=4,ma5=5;
  extern double ma6=6,ma7=7,ma8=8,ma9=9,ma10=10;
  double ma1now,ma2now,ma3now,ma4now,ma5now;
  double ma6now,ma7now,ma8now,ma9now,ma10now;
  extern double adx14=14;
  double adx14now,kxian,no2=2;
  ////////////////////////////
  double BaoZhenJing;
  //////////////////////////////
  int 判断=0,buy1=1,buy2=1,buy3=1,buy4=1,sell1=1,sell2=1,sell3=1,sell4=1;

  //+------------------------------------------------------------------+
  //| expert initialization function |
  //+------------------------------------------------------------------+
  int init()
  {
  //----

  //----
  return(0);
  }
  //+------------------------------------------------------------------+
  //| expert deinitialization function |
  //+------------------------------------------------------------------+
  int deinit()
  {
  //----

  //----
  return(0);
  }

  //+------------------------------------------------------------------+
  //| expert start function |
  //+------------------------------------------------------------------+
  int start()
  {
  //保护EA
  if(IsDemo()){
  text=\"==DEMO版，关闭MT4，关闭网络连接，从开MT4就可以测试了== \";
  string name_18 = \"xianshi2\";
  ObjectDelete(name_18);
  ObjectCreate(name_18, OBJ_LABEL, 0, 0, 0);
  ObjectSetText(name_18, \"\"+text+\"\", 15, \"Arial\", Red);
  ObjectSet(name_18, OBJPROP_CORNER, 1);
  ObjectSet(name_18, OBJPROP_XDISTANCE, 15);
  ObjectSet(name_18, OBJPROP_YDISTANCE, 5);
  return(0);}
  //----

  //保护EA
  if(!IsTesting()){
  text=\"==测试版，不是正式使用版！== \";
  name_18 = \"xianshi2\";
  ObjectDelete(name_18);
  ObjectCreate(name_18, OBJ_LABEL, 0, 0, 0);
  ObjectSetText(name_18, \"\"+text+\"\", 15, \"Arial\", Red);
  ObjectSet(name_18, OBJPROP_CORNER, 1);
  ObjectSet(name_18, OBJPROP_XDISTANCE, 15);
  ObjectSet(name_18, OBJPROP_YDISTANCE, 5);
  return(0);}
  //----
  //保护EA
  if(!IsConnected()){
  text=\"==测试版，关闭MT4，关闭网络连接，从开MT4就可以测试了== \";
  name_18 = \"xianshi2\";
  ObjectDelete(name_18);
  ObjectCreate(name_18, OBJ_LABEL, 0, 0, 0);
  ObjectSetText(name_18, \"\"+text+\"\", 15, \"Arial\", Red);
  ObjectSet(name_18, OBJPROP_CORNER, 1);
  ObjectSet(name_18, OBJPROP_XDISTANCE, 15);
  ObjectSet(name_18, OBJPROP_YDISTANCE, 5);
  return(0);}
  ///----
  //主程式
  检查判断();
  资金管理();
  macd指标管理();
  ma指标管理();
  adx指标管理();
  战场管理();
  显示管理();
  移动止赢();

  //----
  return(0);
  }
  //+------------------------------------------------------------------+
  void 检查判断()
  {

  b=0;s=0;
  for (int cnt=0; cnt= 1 ) { return(0); }
  //---------------------------------------------------------------------

  //这个（if(s+b==111)。。。）下面的在编写策略后要用//去掉。
  if(s+b==1111){卖下();买上();关闭买上();关闭卖下();关闭全部();}
  //这边编写策略
  //第一步买上()策略
  if(b==0
  && (ma1now-ma2now)/Point > no2
  && (ma3now-ma4now)/Point > no2
  && (ma5now-ma6now)/Point > no2
  && (ma7now-ma8now)/Point > no2
  && (ma9now-ma10now)/Point > no2
  ){判断=1;买上();}

  //第2步卖下() 策略
  if(s==0
  && (ma2now-ma1now)/Point > no2
  && (ma4now-ma3now)/Point > no2
  && (ma6now-ma5now)/Point > no2
  && (ma8now-ma7now)/Point > no2
  && (ma10now-ma9now)/Point > no2
  ){判断=2;卖下();}

  //第3步关闭买上()策略
  if(判断==2
  && b==1
  ){关闭买上();}

  //第4步关闭卖下()策略
  if(判断==1
  && s==1
  ){关闭卖下();}

  }//end 战场管理

  //+------------------------------------------------------------------+
  void 买上(){
  if (TP==0) { TPP=0; } if(TP>0) { TPP=Ask+TP*Point; }
  if (SL==0) { SLL=0; } if(SL>0) { SLL=Ask-SL*Point; }
  OrderSend(Symbol(),OP_BUY,LotMM,Ask,slip,SLL,TPP,\"M\"+Period()+\"\"+EAname+\"\",MagicNumber,0,Violet);
  //Alert(\"Order MagicNumber==\",MagicNumber,\"\");
  return(0); }
  //+------------------------------------------------------------------+
  void 卖下(){
  if (TP==0) { TPP=0; } if(TP>0) { TPP=Bid-(TP*Point); }
  if (SL==0) { SLL=0; } if(SL>0) { SLL=Bid+(SL*Point); }
  //Alert(\"Order MagicNumber==\",MagicNumber,\" sell1=\",sell1,\" sell2=\",sell2,\" sell3=\",sell3,\" sell4=\",sell4,\"\");
  OrderSend(Symbol(),OP_SELL,LotMM,Bid,slip,SLL,TPP,\"M\"+Period()+\"\"+EAname+\"\",MagicNumber,0,GreenYellow);
  return(0); }
  //+------------------------------------------------------------------+
  //+------------------------------------------------------------------+


  //+------------------------------------------------------------------+
  void 显示管理()
  {
  string name_8 = \"xianshi1\";
  ObjectDelete(name_8);
  ObjectCreate(name_8, OBJ_LABEL, 0, 0, 0);
  ObjectSetText(name_8, \"伺服器时间::\"+TimeToStr(CurTime( ))+\"\", 13, \"Arial\", White);
  ObjectSet(name_8, OBJPROP_CORNER, 0);
  ObjectSet(name_8, OBJPROP_XDISTANCE, 200);
  ObjectSet(name_8, OBJPROP_YDISTANCE, 5);

  text=\"MT4 EA 制作策略编写_十面埋伏－编写：柒侠伍义 \";
  name_8 = \"xianshi2\";
  ObjectDelete(name_8);
  ObjectCreate(name_8, OBJ_LABEL, 0, 0, 0);
  ObjectSetText(name_8, \"\"+text+\"\", 14, \"Arial\", Yellow);
  ObjectSet(name_8, OBJPROP_CORNER, 1);
  ObjectSet(name_8, OBJPROP_XDISTANCE, 15);
  ObjectSet(name_8, OBJPROP_YDISTANCE, 5);

  name_8 = \"Lableyeddrice1\";
  ObjectDelete(name_8);
  ObjectCreate(name_8, OBJ_LABEL, 0, 0, 0);
  ObjectSetText(name_8, \"M\"+Period()+\" 货币 \"+Symbol()+\"\", 10, \"Arial\", Silver);
  ObjectSet(name_8, OBJPROP_CORNER, 1);
  ObjectSet(name_8, OBJPROP_XDISTANCE, 130);
  ObjectSet(name_8, OBJPROP_YDISTANCE, 32);

  //////这个显示上方
  name_8 = \"LableCurPrice2\";
  ObjectDelete(name_8);
  ObjectCreate(name_8, OBJ_LABEL, 0, 0, 0);
  ObjectSetText(name_8,\"\"+DoubleToStr(Ask, Digits)+\"::买上\", 15, \"Arial\", Lime);
  ObjectSet(name_8, OBJPROP_CORNER, 1);
  ObjectSet(name_8, OBJPROP_XDISTANCE, 15);
  ObjectSet(name_8, OBJPROP_YDISTANCE, 30);

  //////这个显示下方
  name_8 = \"Lab345rPrice3\";
  ObjectDelete(name_8);
  ObjectCreate(name_8, OBJ_LABEL, 0, 0, 0);
  ObjectSetText(name_8,\"\"+DoubleToStr(Bid, Digits)+\"::卖下\", 15, \"Arial\", Lime);
  ObjectSet(name_8, OBJPROP_CORNER, 1);
  ObjectSet(name_8, OBJPROP_XDISTANCE, 15);
  ObjectSet(name_8, OBJPROP_YDISTANCE, 50);

  name_8 = \"Acc87lance\";
  ObjectDelete(name_8);
  ObjectCreate(name_8, OBJ_LABEL, 0, 0, 0);
  ObjectSetText(name_8,\"\"+DoubleToStr( AccountBalance(), 2)+\"::账面资金\", 13, \"Arial\", Lime);
  ObjectSet(name_8, OBJPROP_CORNER, 1);
  ObjectSet(name_8, OBJPROP_XDISTANCE, 15);
  ObjectSet(name_8, OBJPROP_YDISTANCE, 70);

  name_8 = \"LableC5rice6\";
  ObjectDelete(name_8);
  ObjectCreate(name_8, OBJ_LABEL, 0, 0, 0);
  ObjectSetText(name_8,\"\"+DoubleToStr( AccountEquity(), 2)+\"::净值资金\", 13, \"Arial\", Lime);
  ObjectSet(name_8, OBJPROP_CORNER, 1);
  ObjectSet(name_8, OBJPROP_XDISTANCE, 15);
  ObjectSet(name_8, OBJPROP_YDISTANCE, 90);

  name_8 = \"Labl456rice6\";
  ObjectDelete(name_8);
  ObjectCreate(name_8, OBJ_LABEL, 0, 0, 0);
  ObjectSetText(name_8,\"\"+DoubleToStr( AccountMargin(), 2)+\"::保证资金\", 13, \"Arial\", Lime);
  ObjectSet(name_8, OBJPROP_CORNER, 1);
  ObjectSet(name_8, OBJPROP_XDISTANCE, 15);
  ObjectSet(name_8, OBJPROP_YDISTANCE, 110);

  name_8 = \"Labl4hcjce6\";
  ObjectDelete(name_8);
  ObjectCreate(name_8, OBJ_LABEL, 0, 0, 0);
  ObjectSetText(name_8,\"\"+DoubleToStr( AccountFreeMargin(), 2)+\"::可用资金\", 13, \"Arial\", Lime);
  ObjectSet(name_8, OBJPROP_CORNER, 1);
  ObjectSet(name_8, OBJPROP_XDISTANCE, 15);
  ObjectSet(name_8, OBJPROP_YDISTANCE, 130);

  name_8 = \"Accvf7lance\";
  ObjectDelete(name_8);
  ObjectCreate(name_8, OBJ_LABEL, 0, 0, 0);
  ObjectSetText(name_8,\"\"+DoubleToStr( AccountProfit(), 2)+\"::账面盈亏\", 13, \"Arial\", Lime);
  ObjectSet(name_8, OBJPROP_CORNER, 1);
  ObjectSet(name_8, OBJPROP_XDISTANCE, 15);
  ObjectSet(name_8, OBJPROP_YDISTANCE, 150);
  aa=s+b;
  name_8 = \"Accvfee7lance\";
  ObjectDelete(name_8);
  ObjectCreate(name_8, OBJ_LABEL, 0, 0, 0);
  ObjectSetText(name_8,\"\"+DoubleToStr( aa, 0)+\"::s+b\", 13, \"Arial\", Lime);
  ObjectSet(name_8, OBJPROP_CORNER, 1);
  ObjectSet(name_8, OBJPROP_XDISTANCE, 15);
  ObjectSet(name_8, OBJPROP_YDISTANCE, 170);
  aa=adx14now;
  name_8 = \"Acccvfee7lance\";
  ObjectDelete(name_8);
  ObjectCreate(name_8, OBJ_LABEL, 0, 0, 0);
  ObjectSetText(name_8,\"\"+b+\"::buy\", 13, \"Arial\", Lime);
  ObjectSet(name_8, OBJPROP_CORNER, 1);
  ObjectSet(name_8, OBJPROP_XDISTANCE, 15);
  ObjectSet(name_8, OBJPROP_YDISTANCE, 190);
  name_8 = \"Acccwvfee7lance\";
  ObjectDelete(name_8);
  ObjectCreate(name_8, OBJ_LABEL, 0, 0, 0);
  ObjectSetText(name_8,\"\"+s+\"::sell\", 13, \"Arial\", Lime);
  ObjectSet(name_8, OBJPROP_CORNER, 1);
  ObjectSet(name_8, OBJPROP_XDISTANCE, 15);
  ObjectSet(name_8, OBJPROP_YDISTANCE, 210);
  aa=判断;
  name_8 = \"Accc我vfee7lance\";
  ObjectDelete(name_8);
  ObjectCreate(name_8, OBJ_LABEL, 0, 0, 0);
  ObjectSetText(name_8,\"\"+DoubleToStr( aa, 0)+\"::判断\", 13, \"Arial\", Lime);
  ObjectSet(name_8, OBJPROP_CORNER, 1);
  ObjectSet(name_8, OBJPROP_XDISTANCE, 15);
  ObjectSet(name_8, OBJPROP_YDISTANCE, 230);
  if(ma10now>ma9now){aa=(ma10now-ma9now)/Point;}
  if(ma9now>ma10now){aa=(ma9now-ma10now)/Point;}
  name_8 = \"Accc我vfeffe7lance\";
  ObjectDelete(name_8);
  ObjectCreate(name_8, OBJ_LABEL, 0, 0, 0);
  ObjectSetText(name_8,\"\"+DoubleToStr( aa, 2)+\"::ma10ma9\", 13, \"Arial\", Lime);
  ObjectSet(name_8, OBJPROP_CORNER, 1);
  ObjectSet(name_8, OBJPROP_XDISTANCE, 15);
  ObjectSet(name_8, OBJPROP_YDISTANCE, 250);

  //我们可以无限的加
  }//end 显示管理()
  //+------------------------------------------------------------------+
  ///////////////////////
  void 移动止赢()
  {
  for(cnt=OrdersTotal();cnt>=0;cnt--)
  {
  OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
  if (OrderSymbol() == Symbol() ) //&& OrderMagicNumber()==MAGICMA)
  {
  if (OrderType()==OP_SELL)
  {
  if(TrailingStop>0)
  {
  if((OrderOpenPrice()-Ask)>(Point*TrailingStop))
  {
  if((OrderStopLoss()>(Ask+Point*TrailingStop)) || (OrderStopLoss()==0))
  {
  OrderModify(OrderTicket(),OrderOpenPrice(),Ask+Point*TrailingStop,OrderTakeProfit(),0,Red);

  return(0);
  }
  }
  }
  }

  if (OrderType()==OP_BUY)
  {
  if(TrailingStop>0)
  {
  if(Bid-OrderOpenPrice()>oint*TrailingStop)
  {
  if(OrderStopLoss()

EA发布区

打赏

还没有人打赏，支持一下

楼主热帖