Мне нужно написать в советнике, чтобы при достижении сделки не превысит Sum Loss - MQL4 и MetaTrader 4

max79 2012.09.20 07:25 #3911

Здравствуйте! Профи, подскажите пожалуйста! Как нужно написать в советнике, чтобы при отключении ставки советник брал новую ставку в противоположном направлении на этом же баре (типа "перевертыш"). Я тестирую по модели "при открытии нового бара". Для примера советник:

//+------------------------------------------------------------------+
//|                                                      CrossMa.mq4 |
//|                      Copyright © 2005, George-on-Don             |
//|                                       http://www.forex.aaanet.ru |
//+------------------------------------------------------------------+
#include <stdlib.mqh>
#include <stderror.mqh>
 
#define MAGICMA  20050610
 
extern double Lots               = 0.1;
extern double MaximumRisk        = 0.02;
extern double DecreaseFactor     = 3;
extern double MovingPeriod       = 12;
extern double MovingShift        = 0;
extern double MovingPeriod1      = 4;
extern double AtrPer             = 6;
extern bool   SndMl              = True ;
//+------------------------------------------------------------------+
//| Расчет открытия позиции                                          |
//+------------------------------------------------------------------+
int CalculateCurrentOrders(string symbol)
  {
   int buys=0,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++;
        }
     }
//---- return orders volume
   if(buys>0) return(buys);
   else       return(-sells);
  }
//+------------------------------------------------------------------+
//| Расчет оптимальной величины лота                                 |
//+------------------------------------------------------------------+
double LotsOptimized()
  {
   double lot=Lots;
   int    orders=HistoryTotal();     // history orders total
   int    losses=0;                  // number of losses orders without a break
//---- select lot size
   lot=NormalizeDouble(AccountFreeMargin()*MaximumRisk/1000.0,1);
//---- calcuulate number of losses orders without a break
   if(DecreaseFactor>0)
     {
      for(int i=orders-1;i>=0;i--)
        {
         if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY)==false) { Print("Error in 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/DecreaseFactor,1);
     }
//---- return lot size
   if(lot<0.1) lot=0.1;
   return(lot);
  }
//+------------------------------------------------------------------+
//| Проверка для открытия позиции с первым тиком нового бара.        |
//+------------------------------------------------------------------+
void CheckForOpen()
  {
   double mas;
   double maf;
   double mas_p;
   double maf_p;
   double Atr;
   int    res;
   string sHeaderLetter;
   string sBodyLetter;
//---- go trading only for first tiks of new bar
   if(Volume[0]>1) return;
//---- get Moving Average 
   mas=iMA(NULL,0,MovingPeriod,MovingShift,MODE_SMA,PRICE_CLOSE,1); // динный мувинг 12
   maf=iMA(NULL,0,MovingPeriod1,MovingShift,MODE_SMA,PRICE_CLOSE,1);// короткий мувинг 4
   mas_p=iMA(NULL,0,MovingPeriod,MovingShift,MODE_SMA,PRICE_CLOSE,2); // динный мувинг 12
   maf_p=iMA(NULL,0,MovingPeriod1,MovingShift,MODE_SMA,PRICE_CLOSE,2);// короткий мувинг 4
   Atr = iATR(NULL,0,AtrPer,0);
 //---- Условие продажи
   if(maf<mas && maf_p>=mas_p)  
     {
      res=OrderSend(Symbol(),OP_SELL,LotsOptimized(),Bid,3,0,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(Ask+Atr,4)+"";
         sndMessage(sHeaderLetter, sBodyLetter);
         }
      return;
     }
//---- Условие покупки
   if(maf>mas && maf_p<=mas_p)  
     {
      res=OrderSend(Symbol(),OP_BUY,LotsOptimized(),Ask,3,0,0,"",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(Bid-Atr,4)+"";
      sndMessage(sHeaderLetter, sBodyLetter);
      }
      return;
     }
//----
  }
//+------------------------------------------------------------------+
//| ПРоверка для закрытия открытой позиции                           |
//+------------------------------------------------------------------+
void CheckForClose()
  {
   double mas;
   double maf;
   double mas_p;
   double maf_p;
   string sHeaderLetter;
   string sBodyLetter;
   bool rtvl;
//---- 
   if(Volume[0]>1) return;
//----  
   mas=iMA(NULL,0,MovingPeriod,MovingShift,MODE_SMA,PRICE_CLOSE,1); // динный мувинг 12
   maf=iMA(NULL,0,MovingPeriod1,MovingShift,MODE_SMA,PRICE_CLOSE,1);// короткий мувинг 4
   mas_p=iMA(NULL,0,MovingPeriod,MovingShift,MODE_SMA,PRICE_CLOSE,2); // динный мувинг 12
   maf_p=iMA(NULL,0,MovingPeriod1,MovingShift,MODE_SMA,PRICE_CLOSE,2);// короткий мувинг 4
//----
   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(maf<mas && maf_p>=mas_p) rtvl=OrderClose(OrderTicket(),OrderLots(),Bid,3,Lime);
            if ( SndMl == True && rtvl != False )
            {
            sHeaderLetter = "Operation CLOSE BUY at" + Symbol()+"";
            sBodyLetter = "Close order Buy at"+ Symbol() + " for " + DoubleToStr(Bid,4)+ ", and finish this Trade";
            sndMessage(sHeaderLetter, sBodyLetter);
            }
         break;
        }
      if(OrderType()==OP_SELL)
        {
         if(maf>mas && maf_p<=mas_p) rtvl=OrderClose(OrderTicket(),OrderLots(),Ask,3,Lime);
         if ( SndMl == True && rtvl != False ) 
         {
         sHeaderLetter = "Operation CLOSE SELL at" + Symbol()+"";
         sBodyLetter = "Close order Sell at"+ Symbol() + " for " + DoubleToStr(Ask,4)+ ", and finish this Trade";
         sndMessage(sHeaderLetter, sBodyLetter);
         }
         break;
        }
     }
//----
  }
  
//--------------------------------------------------------------------
// функция отправки ссобщения об отрытии или закрытии позиции
//--------------------------------------------------------------------
void sndMessage(string HeaderLetter, string BodyLetter)
{
   int RetVal;
   SendMail( HeaderLetter, BodyLetter );
   RetVal = GetLastError();
   if (RetVal!= ERR_NO_MQLERROR) Print ("Ошибка, сообщение не отправлено: ", ErrorDescription(RetVal));
}
//+------------------------------------------------------------------+
//| Майн функция                                                     |
//+------------------------------------------------------------------+
void start()
  {
//---- check for history and trading
   if(Bars<25 || IsTradeAllowed()==false) return;
//---- calculate open orders by current symbol
   if(CalculateCurrentOrders(Symbol())==0) CheckForOpen();
   else                                    CheckForClose();
//----
  }
//+------------------------------------------------------------------+

Спасибо!

Основные вопросы ... Открытие сделки по сигналу Сделать, чтобы советник сам

[Удален] 2012.09.20 10:30 #3912

Доброго времени суток. Вопрос по стандартной функции SendMail… Для того, чтобы понять, как работает функция написал такой скрипт:

//+------------------------------------------------------------------+
//|                                             функция_SendMail.mq4 |
//|                      Copyright © 2012, MetaQuotes Software Corp. |
//|                                        http://www.metaquotes.net |
//+------------------------------------------------------------------+
//+------------------------------------------------------------------+
//| script program start function                                    |
//+------------------------------------------------------------------+
int start()
  {
//+------------------------------------------------------------------+

SendMail("Скрипт Функция_SendMail","Webmoney - идите в жопу!!!!");
Alert(GetLastError());
   
//+------------------------------------------------------------------+   
   return(0);
  }
//+------------------------------------------------------------------+

При запуске в окне клиентского терминала, в журнале появляется ошибка:

При этом в настройках (меню клиентского терминала Сервис -> Настройки -> закладка Почта) установлены такие параметры:

рис.2

Где вместо трех точек в полях SMTP логин и От кого стоит имя того ящика, с к-о я хочу отправить сообщение, а в поле Кому – имя почтового ящика, на к-й я хочу отправить сообщение.

При этом номер порта, к-й указан в поле Сервер SMTP действительно 25:

Примечание: скриншот сделан в разделе Помощь на почтовом сервере Mail.Ru.

Вопрос: что это за ошибка и как от нее избавиться? Компилятор ошибок не выявляет, а функция GetLastError() возвращает значение 0.

P.S. Чтобы не захламлять форум, заранее благодарю за ответ

надо скрип - активности Настройки e-mail в Сервисе Email из МТ4

Vadim Zhunko 2012.09.20 12:50 #3913

7777877:

Доброго времени суток. Вопрос по стандартной функции SendMail… Для того, чтобы понять, как работает функция написал такой скрипт:

При запуске в окне клиентского терминала, в журнале появляется ошибка:

При этом в настройках (меню клиентского терминала Сервис -> Настройки -> закладка Почта) установлены такие параметры:

Где вместо трех точек в полях SMTP логин и От кого стоит имя того ящика, с к-о я хочу отправить сообщение, а в поле Кому – имя почтового ящика, на к-й я хочу отправить сообщение.

При этом номер порта, к-й указан в поле Сервер SMTP действительно 25:

Примечание: скриншот сделан в разделе Помощь на почтовом сервере Mail.Ru.

Вопрос: что это за ошибка и как от нее избавиться? Компилятор ошибок не выявляет, а функция GetLastError() возвращает значение 0.

P.S. Чтобы не захламлять форум, заранее благодарю за ответ

Порт и шифрование посмотрите. Может 2525 надо поставить?

[Удален] 2012.09.20 13:21 #3914

помогите плиииз.

вот код

//-----------------Закрытие по истории в безубыток--------------------
   //---------------------расчет по истории ордеров номера очередной итерации----------------------------------------------- 
  Iteration = 0; // зануляем инерации перед их учетом в цикле по истории
  Sum_Loss = 0;  // суммарный убыток по этим итерациям

datetime 
Time_at_History_Current = 0,
Time_at_History_Previos = 0;     
 
 if(OrdersHistoryTotal() != 0)
   {
    for(int counter = OrdersHistoryTotal()-1; counter >= 0; counter--)
      {
       OrderSelect(counter, SELECT_BY_POS, MODE_HISTORY);
       if(OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber)
         {
          if(OrderType() == OP_BUY || OrderType() == OP_SELL)
            {
             if(OrderProfit() < 0) // если убыток по выбранному ордеру, то считаем суммарный и записываем время закрытия ордера
                                   // для последующего его анализа при подсчете количества итераций
                {
                 double lastLoss = OrderProfit();
                 Sum_Loss=Sum_Loss+lastLoss;  // считаем общий убыток по закрытым подряд убыточным ордерам
                 Time_at_History_Current = OrderCloseTime();
                } 
             
             //Print(" Time_at_History_Current_в цикле = ", TimeToStr(Time_at_History_Current, TIME_DATE|TIME_SECONDS));
             //Print(" Time_at_History_Previos_в цикле = ", TimeToStr(Time_at_History_Previos, TIME_DATE|TIME_SECONDS));
             
             if(Time_at_History_Current != Time_at_History_Previos) // если они не равны, то считаем итерации и делаем их равными
               {
                Time_at_History_Previos = Time_at_History_Current ;
                Iteration++;
                //Print("Iteration at History в условии сравнения  = ",  Iteration);
               }   
             else // они равны, то проверяем, дополнительно, наличие профита по выбранному следующему ордеру и выходим из цикла
               {
                if(OrderProfit() >= 0)
                  break;
               }
            }
         }
      }
   }

if (Sum_Loss < 0.0) { // Имеем убыток по закрытым позам
double money = Lots;
   BuyLots = GetBuyLotsSum();
        SellLots = GetSellLotsSum();
        if(BuyLots  > SellLots)money = BuyLots * 10;
        if(BuyLots  < SellLots)money = SellLots * 10;
  if (((AccountEquity() + Sum_Loss + (Sum_Loss / money)) >= AccountBalance()) && (((totalSell > 0) && (totalBuy < 1)) || ((totalSell < 1) && (totalBuy > 0)))) { // Достигли безубытка
    // Здесь какой-то код, который необходимо выполнить при достижении безубытка
        CloseAllBuy();
           CloseAllSell();
           Sum_Loss = 0.0;

ни как не получается у меня сделать, что бы когда была закрыта сделка в минус, то открывался цикл, и если следующий ордер закрылся больше нуля, тоесть положительный баланс, но меньше отрицательного, то мы к отрицательному прибавляем плюс, и получаем новое отрицательное значение, которое уже меньше.

if(OrderProfit() >= 0 && Sum_Loss < 0.0)
                  double lastLoss_two = OrderProfit();
                 Sum_Loss=Sum_Loss+lastLoss_two;  // считаем общий убыток по закрытым подряд убыточным ордерам
                 Time_at_History_Current = OrderCloseTime();
               }

а если больше отрицательного, по сигналу, то закрываем ордер и начинаем цикл с начала.

Ситуация в том, что когда данный код закрывает сделку в убыток, то он запоминает минусовой баланс, а когда закрывает сделку в плюс, и при этом плюс меньше баланса, то он обнуляет Sum_Loss, а мне надо, что бы он не обнулял, а скосил.

то есть, сейчас он вот как работает:

проверяет закрытый ордер, если у закрытого ордера профит меньше нуля, то этот профит приплюсовывается к Sum_Loss, и так до тех пор, пока профит открытой сделки не превысит (будет больше) Sum_Loss, при достижении сделка закрывается, и Sum_Loss обнуляется и начинает работать цикл сначала.

а мне нужно:

ордер закрылся в минус, его профит минусовой прибавился к Sum_Loss, после если следующая сделка закрылась с профитом положительным то уменьшаем сумму Sum_Loss на сумму полученную от прибыльного профита, а значит следующему открытому ордеру Sum_Loss достается уже с меньшей суммой, и так до тепх пор, пока прибыль от ордеров станет больше Sum_Loss, и тогда Sum_Loss обнуляем и начинаем новый цикл.

Sum_Loss = 0;

1-й закрытый ордер: профит (-50) < 0

Sum_Loss + профит (Sum_Loss + (-50))

Sum_Loss = -50;

2-й закрытый ордер: профит(+40) > 0 и Sum_Loss < 0

Sum_Loss + профит (Sum_Loss + 40)

Sum_Loss = -10

учитесь зарабатывать селяне [Эпизод Помогите новичку. ( Закрытие Написание советников БЕСПЛАТНО!!!

[Удален] 2012.09.20 13:34 #3915

7777877:

Доброго времени суток. Вопрос по стандартной функции SendMail… Для того, чтобы понять, как работает функция написал такой скрипт:

При запуске в окне клиентского терминала, в журнале появляется ошибка:

При этом в настройках (меню клиентского терминала Сервис -> Настройки -> закладка Почта) установлены такие параметры:

Где вместо трех точек в полях SMTP логин и От кого стоит имя того ящика, с к-о я хочу отправить сообщение, а в поле Кому – имя почтового ящика, на к-й я хочу отправить сообщение.

При этом номер порта, к-й указан в поле Сервер SMTP действительно 25:

Примечание: скриншот сделан в разделе Помощь на почтовом сервере Mail.Ru.

Вопрос: что это за ошибка и как от нее избавиться? Компилятор ошибок не выявляет, а функция GetLastError() возвращает значение 0.

P.S. Чтобы не захламлять форум, заранее благодарю за ответ

помогу

сервер smtp.mail.ru:25 реально работает

[Удален] 2012.09.20 13:41 #3916

YOUNGA:

помогу

сервер smtp.mail.ru:25 реально работает

У меня для теста логин, от кого, кому, совпадает

Может брэндмауэры мешают?

О блин совет на миллион - терминал перегрузи!

[Удален] 2012.09.20 13:46 #3917

Поможите люди добрые

Выставляю отложенный ордер по цене х. Ордер преобразуется в рыночный по цене Y. можно ли где то узнать по какой цене был выставлен отложенный ордер (в журнале ...там или ) или свой массив придется писать

Alexey Burnakov 2012.09.20 16:04 #3918

Добрый вечер!

Прошу подсказать возможный источник ошибки. Я только разбираюсь в языке, поэтому малость застопорился.

Задача в коде эксперта: прочитать данные из файла .scv (два значения в строке, 400 строк) и записать их в массив.

double signals_array[400][2];

int init()
  {

   int Handle;
      Handle=FileOpen("Signals.csv",FILE_CSV|FILE_READ,";");// Открытие файла
   if(Handle<0)                        // Неудача при открытии файла
      {
      if(GetLastError()==4103)         // Если файла не существует,..
         Alert("Нет файла");//.. извещаем трейдера 
      else                             // При любой другой ошибке..
         Alert("Ошибка при открытии файла");//..такое сообщ
         PlaySound("Bzrrr.wav");          // Звуковое сопровождение
         return;                          // Выход из start()      
      }

   for (int i = 0; i < 400; i++)
      {
      for (int j = 0; j < 2; j++)
         signals_array[i][j] = StrToDouble(FileReadString(Handle));
      }

Alert (signals_array[120][0],"; ",signals_array[0][1]," OK!");
//----
   return(0);
  }

Проблема такова: если кинуть эксперт на график, он выводит алерт с верными значениями из массива, однако, если попробовать протестировать эксперт, то он в журнале выводит алерт "Нет файла". То есть вроде к файлу не может доступ получить (хотя это невероятно), а в массив записывает значения (что подтверждается другим алертом), но застревает на нахождении файла, судя по журналу. Запутался. Ниже скрин.

Помогите! Необходимо записать значения Проблема считывания массива с Значения из скрипта в

Yury Reshetov 2012.09.20 16:09 #3919

alexeymosc:

Проблема такова: если кинуть эксперт на график, он выводит алерт с верными значениями из массива, однако, если попробовать протестировать эксперт, то он в журнале выводит алерт "Нет файла". То есть вроде к файлу не может доступ получить (хотя это невероятно), и в массив записывает значения (что подтверждается другим алертом), но застревает на нахождении файла по журналу. Запутался.

В тестере и на чарте файлы пишутся и читаются в разных каталогах:

MetaTrader 4\tester\experts\files
MetaTrader 4\experts\files

Vadim Zhunko 2012.09.20 17:16 #3920

alexeymosc:

Добрый вечер!

Прошу подсказать возможный источник ошибки. Я только разбираюсь в языке, поэтому малость застопорился.

Задача в коде эксперта: прочитать данные из файла .scv (два значения в строке, 400 строк) и записать их в массив.

Проблема такова: если кинуть эксперт на график, он выводит алерт с верными значениями из массива, однако, если попробовать протестировать эксперт, то он в журнале выводит алерт "Нет файла". То есть вроде к файлу не может доступ получить (хотя это невероятно), а в массив записывает значения (что подтверждается другим алертом), но застревает на нахождении файла, судя по журналу. Запутался. Ниже скрин.

Если файл открыт, то его надо закрыть, даже, если получена ошибка в работе с ним. Пока больше ошибок не вижу.

Это можно так читать:

signals_array[i][j] = FileReadDouble(Handle);

[АРХИВ!] Любой вопрос новичка, чтоб не захламлять форум. Профи, не проходите мимо. Без вас никуда - 4. - страница 392