EaCode小胖李 发表于 2022-12-26 21:27:30

CloseEarliestAndOppProfitOrderByFirstLosePointOrLoss()用反向盈利单带走亏损单

函数名称
void CloseEarliestAndOppProfitOrderByFirstLosePointOrLoss(string SymbolX,int OrderTypeX,int MagicX,double LossX,int FirstLosePoint,int LossNumX,double ExitProfitX)
函数介绍

CloseEarliestAndOppProfitOrderByFirstLosePointOrLoss()可以实时监控首单(开仓最早的那一单)的亏损点数和总体持仓浮亏,当首单亏损点数达到设定值或者总体浮亏达到设定值后。再用反向盈利单带走部分亏损单,反向盈利单带走亏损单的规则是:反向盈利单加上带走的亏损单盈利金额需要大于设定值。

//举例:当多单的浮亏大于3000usd或者多单首单的亏损点数大于2000点后,空单盈利单+最少3个开仓最早的多单亏损单盈利金额>10,则平掉该部分订单。
CloseEarliestAndOppProfitOrderByFirstLosePointOrLoss(Symbol(),OP_BUY,MAGIC,3000,,2000,3,10);

参数介绍

SymbolX:订单筛选的交易品种,一般设置当前品种即可,也就是Symbol();“-1”代表不筛选交易品种。
OrderTypeX:订单筛选的订单类型,0代表多单,1代表空单。OP_BUY是常量0,OP_SELL是常量1。-1代表不筛选订单类型。
MagicX:订单的魔术码,你的EA的魔术码是多少,这里填上即可。
LossX:订单浮亏金额达到此设定值后,启动该功能。
FirstLosePoint:首单(开仓最早的那一单)的亏损点数大于此值后,启动该功能。
LossNumX:最低带走的亏损订单数量,亏损订单以开仓时间为基准,优先带走开仓最早的订单。
ExitProfitX:平仓的盈利金额,反向盈利单加上需要带走的亏损单金额需要大于此值。

函数定义

注意:本人发布的函数均为实战开发所用,低价或免费发布并不赚钱,仅限懂编程的朋友使用,不提供指导,因为人工成本巨贵,感谢朋友们海涵。void CloseEarliestAndOppProfitOrderByFirstLosePointOrLoss(string SymbolX,int OrderTypeX,int MagicX,double LossX,int FirstLosePoint,int LossNumX,double ExitProfitX)
{
   int cnt=0;
   bool Flag=false;
   double ExitProfit=0;
   if((FNProfitPoint(SymbolX,OrderTypeX,MagicX,"F")<FirstLosePoint*-1 && FirstLosePoint!=0)||(OrderProfits(SymbolX,OrderTypeX,MagicX)<LossX*-1 && LossX!=0))
      for(int i=0; i<OrdersTotal(); i++)
         if(OrderSelect(i,SELECT_BY_POS))
            if((OrderSymbol()==SymbolX ||SymbolX=="-1")&& (OrderMagicNumber()==MagicX || MagicX==-1)&&(OrderType()==OrderTypeX || OrderTypeX==-1))
            {

               if(cnt<LossNumX)
                  ExitProfit=ExitProfit+OrderProfit()+OrderSwap()+OrderCommission();
               else
                  break;
               cnt++;
            }
   ExitProfit=ExitProfit+OrderProfits(SymbolX,!OrderTypeX,MagicX);

//Comment(OrderTypeX,":",ExitProfit,"cnt",cnt);
   if(ExitProfit>ExitProfitX && ExitProfitX!=0 && cnt>=LossNumX && OrderProfits(SymbolX,!OrderTypeX,MagicX)>0)
   {
      cnt=0;
      for(int i=0; i<OrdersTotal(); i++)
         if(OrderSelect(i,SELECT_BY_POS))
            if((OrderSymbol()==SymbolX ||SymbolX=="-1")&& (OrderMagicNumber()==MagicX || MagicX==-1)&&(OrderType()==OrderTypeX || OrderTypeX==-1))
            {
               if(cnt<LossNumX)
                  if(!OrderClose(OrderTicket(), OrderLots(), OrderClosePrice(), 0,Yellow))
                     Print(GetLastError());
                  else
                     break;
               cnt++;
            }
      CloseOrders(SymbolX,!OrderTypeX,MagicX);
      //ExpertRemove();
   }
}
int FNProfitPoint(string SymbolX,int OrderTypeX,int MagicX,string FN)
{
   datetime OpenTime=D'1970.01.01 00:00';
   double OpenPrice=0;
   int ProfitPoint=0;
   for(int i=OrdersTotal()-1; i>=0; i--)
   {
      if(OrderSelect(i,SELECT_BY_POS))
      
if((OrderSymbol()==SymbolX ||SymbolX=="-1")&&
(OrderMagicNumber()==MagicX ||
MagicX==-1)&&(OrderType()==OrderTypeX || OrderTypeX==-1))
            if(((OpenTime==D'1970.01.01 00:00'||OpenTime>OrderOpenTime()) && FN=="F")
               ||((OpenTime==D'1970.01.01 00:00'||OpenTime<OrderOpenTime()) && FN=="N"))
            {
               OpenTime=OrderOpenTime();
               OpenPrice=OrderOpenPrice();
            }
   }
   if(OpenPrice>0)
   {
      if(OrderTypeX==OP_BUY)
         ProfitPoint=(MarketInfo(SymbolX,MODE_BID)-OpenPrice)/MarketInfo(SymbolX,MODE_POINT);

      if(OrderTypeX==OP_SELL)
         ProfitPoint=(OpenPrice-MarketInfo(SymbolX,MODE_BID))/MarketInfo(SymbolX,MODE_POINT);
   }

   return(ProfitPoint);
}
double OrderProfits(string SymbolX,int OrderTypeX,int MagicX)
{
   double profit=0;
   for(int i=OrdersTotal()-1; i>=0; i--)
      if(OrderSelect(i,SELECT_BY_POS))
         if((OrderSymbol()==SymbolX ||SymbolX=="-1")&& (OrderMagicNumber()==MagicX || MagicX==-1)&&(OrderType()==OrderTypeX || OrderTypeX==-1))
            profit+=OrderProfit()+OrderSwap()+OrderCommission();
   return(profit);
}






daerwushen 发表于 2022-12-27 09:32:30

实时监控首单
页: [1]
查看完整版本: CloseEarliestAndOppProfitOrderByFirstLosePointOrLoss()用反向盈利单带走亏损单