谁帮我修改一下

2021-05-26 · 20438 阅读

#include <stdlib.mqh>
#include <stderror.mqh>

#define MAGICMA  20050610

extern double Lots=0.1; // Lot size
extern bool    SndMl=true; // 发送电子邮件的标志
extern bool    isFloatLots = true; // 计算批量大小的标志
extern double DcF = 3;// 优化因素
extern double MaxR = 0.02; // 最大风险
extern int    pATR=4; // 时期酪?
extern int    rChannel = 20; // 周期通道
extern double Trailing = 30; // 价值追踪

//--------- 全局变量
double Atr;
double Resist;
double ResistPrev;
double Support;
double SupportPrev;
double Pivot;
//------------------

int CalculateCurrentOrders(string symbol)
  {
int buys=0;
int sells=0;
//----
for(int i=0;i<OrdersTotal();i++)
   {
   if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false)
      break;
   if(OrderSymbol()==Symbol() && OrderMagicNumber()==MAGICMA)
      {
      if(OrderType()==OP_BUY)
         buys++;
      if(OrderType()==OP_SELL)
         sells++;
      }
   }
//---- 退货订单数量
   if(buys>0)
      return(buys);
   else
      return(-sells);
  }

//+------------------------------------------------------------------+
//| 计算价值交易地段                                     |
//+------------------------------------------------------------------+
double LotsOptimized()
  {
double lot=Lots;
if (isFloatLots == true) // 如果isFloatLots为真，则优化value lots else value lots=const
{
int orders=HistoryTotal();    // 历史订单合计
int losses=0;                // 无中断订单数量
//---- select lot size
   lot=NormalizeDouble(AccountFreeMargin()*MaxR/1000.0,1);
//---- 计算无中断订单的损失数量
   if(DcF>0)
     {
      for(int i=orders-1;i>=0;i--)
        {
         if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY)==false)
         {
         Print("Error on History!");
         break;
            }
         if(OrderSymbol()!=Symbol() || OrderType()>OP_SELL)
         continue;
         //----
         if(OrderProfit()>0) break;
         if(OrderProfit()<0) losses++;
        }
      if(losses>1) lot=NormalizeDouble(lot-lot*losses/DcF,1);
     }
}
//---- 退货批量
if(lot<0.1) lot=0.1;
return(lot);
}
// 计算通道周期
void defPcChannel()
{
   Resist=High[Highest(NULL,0,MODE_HIGH,rChannel,1)]; // 上行通道
   ResistPrev=High[Highest(NULL,0,MODE_HIGH,rChannel,2)];
   Support=Low[Lowest(NULL,0,MODE_LOW,rChannel,1)];
   SupportPrev=Low[Lowest(NULL,0,MODE_LOW,rChannel,2)];
   Pivot = (Resist+Support+Close[1])/3;
}
// 开盘交易是买吗？
bool isOpenBuy()
{

   defPcChannel() ;

   if ( High[1] >= Resist && Resist == ResistPrev)
      return (true);

   if ( Close [1] < Resist && Resist == ResistPrev && Close [1] > Pivot)
   return(true);

   return(false);

}
// 公开交易是卖东西吗？
bool isOpenSell()
{
   defPcChannel();

   if (Low[1] <= Support && Support==SupportPrev )
      return (true);

   if (Close [1] > Support && Support==SupportPrev && Close [1] < Pivot )
      return (true);

   return (false);
}
// 开放交易开始了吗？
void CheckForOpen()
{

int res;
string sHeaderLetter;
string sBodyLetter;
//---- 第一个值栏是什么？
if(Volume[0]>1)
return;
//----
Atr = iATR(NULL,0,pATR,1);
//---- 是卖吗？

   if (isOpenBuy() == True)
   {
   res=OrderSend(Symbol(),OP_SELL, LotsOptimized(),Bid,3, Resist+Atr,0,"",MAGICMA,0,Red);
   if (SndMl == True && res != -1)
      {
      sHeaderLetter = "Operation SELL by " + Symbol()+"";
      sBodyLetter = "Order Sell by "+ Symbol() + " at " + DoubleToStr(Bid,4)+ ", and set stop/loss at " + DoubleToStr(Resist+Atr,4)+"";
      sndMessage(sHeaderLetter, sBodyLetter);
      }

   return;
   }
//---- 是买吗？

   if (isOpenSell() == true)
   {
      res=OrderSend(Symbol(),OP_BUY, LotsOptimized() ,Ask,3,Support-Atr,0,"order",MAGICMA,0,Blue);
      if ( SndMl == True && res != -1)
         {
         sHeaderLetter = "Operation BUY at " + Symbol()+"";
         sBodyLetter = "Order Buy at "+ Symbol() + " for " + DoubleToStr(Ask,4)+ ", and set stop/loss at " + DoubleToStr(Support-Atr,4)+"";
         sndMessage(sHeaderLetter, sBodyLetter);
         }
   return;
   }
return;
}

// 密切贸易吗？
bool isCloseSell()
{
defPcChannel();
if (Low[1] <= Support && Support==SupportPrev )
      return (true);
return (false);
}

bool isCloseBuy()
{
defPcChannel();

   if ( High[1] >= Resist && Resist == ResistPrev)
      return (true);

return (false);
}

void CheckForClose()
{
string sHeaderLetter;
string sBodyLetter;
bool CloseOrd;
//----
if(Volume[0]>1) return;
//----

//----
for(int i=0;i<OrdersTotal();i++)
   {
   if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false)
      break;
   if(OrderMagicNumber()!=MAGICMA || OrderSymbol()!=Symbol())
      continue;

   //----
   if(OrderType()==OP_BUY)
      {
      if (isCloseBuy() == true )
      {
      CloseOrd=OrderClose(OrderTicket(),OrderLots(),Bid,3,Lime);
         if ( SndMl == True && CloseOrd == True)
         {
         sHeaderLetter = "Operation CLOSE BUY at" + Symbol()+"";
         sBodyLetter = "Close order Buy at "+ Symbol() + " for " + DoubleToStr(Bid,4)+ ", and finish this Trade";
         sndMessage(sHeaderLetter, sBodyLetter);
         }
      break;
      }
      else
      {
      // 火车停了吗？
      if(Trailing>0)
         {
         if(Bid-OrderOpenPrice()>Point*Trailing)
            {
            if(OrderStopLoss()<Bid-Point*Trailing)
               {
               OrderModify(OrderTicket(),OrderOpenPrice(),Bid-Point*Trailing,OrderTakeProfit(),0,Green);
               return ;
               }
            }
         }

      }

      }

   if(OrderType()==OP_SELL)
      {

      if (isCloseSell() == true)
      {
         CloseOrd=OrderClose(OrderTicket(),OrderLots(),Ask,3,Lime);
         if ( SndMl == True && CloseOrd == True)
         {
         sHeaderLetter = "Operation CLOSE SELL at" + Symbol()+"";
         sBodyLetter = "Close order Sell at "+ Symbol() + " for " + DoubleToStr(Ask,4)+ ", and finish this Trade";
         sndMessage(sHeaderLetter, sBodyLetter);
         }
      break;
      }
      else
      {
      // is trailing stop,?
      if(Trailing>0)
         {
         if((OrderOpenPrice()-Ask)>(Point*Trailing))
            {
            if((OrderStopLoss()>(Ask+Point*Trailing)) || (OrderStopLoss()==0))
               {
               OrderModify(OrderTicket(),OrderOpenPrice(),Ask+Point*Trailing,OrderTakeProfit(),0,Red);
               return;
               }
            }
         }

      }
      }
   }
//----
}
//--------------------------------------------------------------------
// 发邮件然后打开交易
//--------------------------------------------------------------------
void sndMessage(string HeaderLetter, string BodyLetter)
{
int RetVal;
   SendMail( HeaderLetter, BodyLetter );
   RetVal = GetLastError();
   if (RetVal!= ERR_NO_MQLERROR)
   Print ("Error, message not send: ", ErrorDescription(RetVal));
   return;
}

//+------------------------------------------------------------------+
//| 专家启动功能                                        |
//+------------------------------------------------------------------+
int start()
  {

//----
if(Bars<25 || IsTradeAllowed()==false)
return (0);
if (AccountFreeMargin()<(100*Point*Lots))
   {
   Print("Stop!Our account not enable for trade.Free margin is  = ", AccountFreeMargin());
   return(0);
   }

//---- 按当前符号计算未结订单
if(CalculateCurrentOrders(Symbol())==0) CheckForOpen();
else                                  CheckForClose();
//-
//----
return(0);
  }
//+------------------------------------------------------------------+

EA发布区

打赏

还没有人打赏，支持一下

楼主热帖