Спасибо за подсказку - MQL4 и MetaTrader 4

BBC 2013.03.01 07:13 #1911

artmedia70:
К Игоря Кима есть советник, который через заданный интервал времени делает

Спасибо!

Garynych 2013.03.01 08:08 #1912

Здравствуйте.

Проблема с отложенными ордерами, конкретно с датой истечения.

   ticket=OrderSend(symb, OP_SELLLIMIT, Lots, price, Slippage, 0, 0, lsComm, mn, TimeCurrent() + 60*60, op_color);

Вот таким образом открывается новый ордер, т.е если он не сработал за час, сервер должен его закрыть.

Далее делаю проверку какая все таки получилась дата экспирации:

   if (ticket>0)
   {
    OrderSelect(ticket, SELECT_BY_TICKET);
    Alert("OrderExpiration = ", TimeToStr(OrderExpiration(), TIME_DATE),":",TimeToStr(OrderExpiration(), TIME_MINUTES)); 
.......
   }

Что получаю при работе советника в тестере:

2013.03.01 12:45:58    2012.01.11 11:00 #советник# EURUSD,H1: open #1 sell limit 2.00 EURUSD at 1.27972 ok
2013.03.01 12:45:58    2012.01.11 11:00 #советник# EURUSD,H1: Alert: OrderExpiration = 2012.01.11:12:00
2013.03.01 12:45:58    2012.01.12 16:29 Tester: order #1, sell 2.00 EURUSD is opened at 1.27972

То есть дата и время истечения выставлены правильно, как я хочу, но закрытия по времени истечения не происходит - происходит открытие позиции более, чем через сутки.

Я перерыл уже несколько форумов, проблема встречается. Обычный ответ - "у меня работает" или "отслеживай отложенники сам". Оба ответа не подходят, сам отслеживать не хочу и У МЕНЯ то не работает.

Помогите разобраться с параметром Ошибки, баги, вопросы Почему тестер не закрывает

BBC 2013.03.01 08:20 #1913

artmedia70:
К Игоря Кима есть советник, который через заданный интервал времени делает

Классно работает.

Спасибо за подсказку!

Artyom Trishkin 2013.03.01 08:32 #1914

DhP:

Классно работает.

Спасибо за подсказку!

Эт не я, эт - гугл.

Думаю, сами выдерните от-туда функцию сохранения экрана и зададите свои параметры её вызова - мне лень было...

Boris 2013.03.01 08:55 #1915

borilunad:
Сергей! Пока вопрос о функции оставляю открытым, т.к. завтра вставлю в Ваш тестовый советник ещё несколько функций, чтобы провести чистый эксперимент. Смотрел в визуальном режиме, и почти всё время двойное закрытие происходит последним, раньше закрываются по СЛ и ТП, т.е. не из чего выбирать. Убрал Стопы и Тэйки, чтобы было из чего выбирать. Завтра покажу Ваш советник со всеми добавочными функциями и комментами! Сами сможете увидеть, как работает функция. Очень хочу, чтобы показало, что я ошибся! Если окажусь прав, постараюсь добиться желаемого! До завтра!

Сергей, Dubakin, доброе утро (у меня) и добрый день (у Вас)! Сделал визуальную проверку и убедился, что эта функция выбирает максимумы, что мне и нужно было! Я рад, что уже не имею сомнений, и приношу Вам мои извинения! Но в нашем деле "лучше семь раз отмерить..." Показываю Ваш тестерный советник для проверки функции, с добавленными функциями и комментариями для более ясной визуальной проверки! Спасибо!

extern int EA_Magic=135; // внешняя переменная

int TimeNow, TimePrev, PrevType; // глобальные переменные

int start()
{
  double Price,SL,TP;
     int Ticket;

  TimeNow=iTime(NULL,240,0);
  if(TimePrev==TimeNow) return(0);

  if(PrevType!=1) {
   Price=NormalizeDouble(Ask,Digits);    
//   SL=NormalizeDouble(Price-300*Point,Digits);    
//   TP=NormalizeDouble(Price+300*Point,Digits);
   Ticket=OrderSend(Symbol(),OP_BUY,0.1,Price,3,0,0,"",EA_Magic);
   if(Ticket!=-1) { TimePrev=TimeNow; PrevType=1; } }

  else if(PrevType!=-1) {
   Price=NormalizeDouble(Bid,Digits);    
//   SL=NormalizeDouble(Price+300*Point,Digits);    
//   TP=NormalizeDouble(Price-300*Point,Digits);
   Ticket=OrderSend(Symbol(),OP_SELL,0.1,Price,3,0,0,"",EA_Magic);
   if(Ticket!=-1) { TimePrev=TimeNow; PrevType=-1; } }

  Comment("BuyPos: ",NumberOfBuyPositions(),"; SellPos: ",NumberOfSellPositions(),
  "; LotPos: ",GetAmountLotFromOpenPos(),
  "\nMaxLoss: ",DoubleToStr(GetMinProfit(),2),"; MaxProf: ",DoubleToStr(GetMaxProfit(),2),
  "\nLossDiff: ",DoubleToStr(GetMinProfit()+GetMaxProfit(),2));

  if(Hour()==0 && TimePrev==TimeNow) LockOFF(EA_Magic);

  return(0);
}

bool LockOFF(int EA_Magic) {
  double Result, PrevLoss, PrevProfit;
     int pos, orders_total, order_type, MaxProfitTicket, MaxLossTicket;
    bool Ans;

  MaxProfitTicket=-1; MaxLossTicket=-1;

  orders_total=OrdersTotal();
  for(pos=orders_total-1; pos>=0; pos--) {
    if(!OrderSelect(pos, SELECT_BY_POS, MODE_TRADES)) continue;
    if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=EA_Magic) continue; // не наш ордер
    if(OrderType()>1) continue;
    Result=OrderProfit()+OrderSwap()+OrderCommission();
    if(Result<0.0 && (PrevLoss==0.0 || Result<PrevLoss)) {
      PrevLoss=Result; MaxLossTicket=OrderTicket(); order_type=OrderType();  // end of for
  } }
  if(MaxLossTicket==-1) return(false); // нет убыточной позиции
  if(order_type==OP_BUY) order_type=OP_SELL; else order_type=OP_BUY; 

  orders_total=OrdersTotal();
  for(pos=orders_total-1; pos>=0; pos--) {
    if(!OrderSelect(pos, SELECT_BY_POS, MODE_TRADES)) continue;
    if(OrderSymbol()!=Symbol() || OrderMagicNumber()!=EA_Magic) continue; // не наш ордер
    if(order_type!=OrderType()) continue;
    Result=OrderProfit()+OrderSwap()+OrderCommission();
    if(Result>0.0 && (PrevProfit==0.0 || Result>PrevProfit)) {
      PrevProfit=Result; MaxProfitTicket=OrderTicket();  // end of for
  } }
  if(MaxProfitTicket==-1) return(false); // нет противоположной прибыльной позиции

  Ans=OrderCloseBy(MaxLossTicket, MaxProfitTicket);
  if(!Ans) { 
    Print("Ошибка при встречном закрытие!"); return(false); 
  }
  return(true); 
}
//+----------------------------------------------------------------------------+
int NumberOfBuyPositions(string sy="", int op=-1, int mn=-1) {
  int i, k=OrdersTotal(), kp=0;
  for (i=0; i<k; i++) {
    if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) {
      if (OrderType()==OP_BUY) {
        if (op<0 || OrderType()==op) {
          kp++;
  } } } }
  return(kp);
}
//+----------------------------------------------------------------------------+
int NumberOfSellPositions(string sy="", int op=-1, int mn=-1) {
  int i, k=OrdersTotal(), kp=0;
  for (i=0; i<k; i++) {
    if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) {
      if (OrderType()==OP_SELL) {
        if (op<0 || OrderType()==op) {
          kp++;
  } } } }
  return(kp);
}
//+----------------------------------------------------------------------------+
double GetAmountLotFromOpenPos(string sy="", int op=-1, int mn=-1) {
  double l=0;
  int    i, k=OrdersTotal();
  for (i=0; i<k; i++) {
    if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) {
      if (OrderType()==OP_BUY || OrderType()==OP_SELL) {
        if (op<0 || OrderType()==op) {
          l+=OrderLots();
  } } } }
  return(l);
}
//+----------------------------------------------------------------------------+
double GetMinProfit(string sy="", int op=-1, int mn=-1) {
  double p;
  int    i, k=OrdersTotal();
  for (i=0; i<k; i++) {
    if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) {
      if (OrderType()==OP_BUY || OrderType()==OP_SELL) {
        if (op<0 || OrderType()==op) {
          if (p>OrderProfit()+OrderCommission()+OrderSwap())
          p=OrderProfit()+OrderCommission()+OrderSwap();
  } } } }
  return(p);
}
//+----------------------------------------------------------------------------+
double GetMaxProfit(string sy="", int op=-1, int mn=-1) {
  double p;
  int    i, k=OrdersTotal();
  for (i=0; i<k; i++) {
    if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) {
      if (OrderType()==OP_BUY || OrderType()==OP_SELL) {
        if (op<0 || OrderType()==op) {
          if (p<OrderProfit()+OrderCommission()+OrderSwap())
          p=OrderProfit()+OrderCommission()+OrderSwap();
  } } } }
  return(p);
}
//+----------------------------------------------------------------------------+

Распространенная ситуация при программинге, Элитные показатели :) Полезные функции от KimIV

Artyom Trishkin 2013.03.01 09:48 #1916

borilunad:

Сергей, Dubakin, доброе утро (у меня) и добрый день (у Вас)! Сделал визуальную проверку и убедился, что эта функция выбирает максимумы, что мне и нужно было! Я рад, что уже не имею сомнений, и приношу Вам мои извинения! Но в нашем деле "лучше семь раз отмерить..." Показываю Ваш тестерный советник для проверки функции, с добавленными функциями и комментариями для более ясной визуальной проверки! Спасибо!

Это как так... По мотивам Игоря Кима сделано нечто... Только одна из ваших функций... остальные - так же...

//+----------------------------------------------------------------------------+
int NumberOfBuyPositions(string sy="", int op=-1, int mn=-1) { // для чего присвоены значения по-умолчанию, если они нигде не используются? Кроме op (и то неверно)
  int i, k=OrdersTotal(), kp=0;
  for (i=0; i<k; i++) {
    if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) {
      if (OrderType()==OP_BUY) {                               // тут жесткая проверка на тип Buy
        if (op<0 || OrderType()==op) {                         // тут лишняя проверка на значение op, используемое по умолчанию и ещё одна лишняя проверка на ==op
          kp++;
  } } } }
  return(kp);
}
//+----------------------------------------------------------------------------+

как-то так, наверное:

//+----------------------------------------------------------------------------+
int NumberOfPositions(string sy, int op, int mn) {
  int i, k=OrdersTotal()-1, kp=0;
  for (i=k; i>=0; i--) {
   if (OrderSelect(i,SELECT_BY_POS)) {           // если ордер выбран
      if (OrderMagicNumber()!=mn)   continue;    // если не наш магик - смотрим следующий ордер
      if (OrderSymbol()!=sy)        continue;    // если не наш символ - смотрим следующий ордер
      if (OrderType()!=op)          continue;    // если не соответствует тип - смотрим следующий
      kp++;                                      // тут искомый ордер - увеличим счётчик
      }
   }
  return(kp);
}
//+----------------------------------------------------------------------------+

И вызываем её:

для подсчёта Buy и подсчёта Sell по текущему символу, с магиком Magic

//+----------------------------------------------------------------------------+
   int BuyPos= NumberOfPositions(Symbol(), OP_BUY,  Magic);
   int SellPos=NumberOfPositions(Symbol(), OP_SELL, Magic);
//+----------------------------------------------------------------------------+

Viktar Dzemikhau 2013.03.01 09:52 #1917

alsu:

pasha5282:
подскажите как выбрать самый меньший лот среди всех открытых сделок?

int i, ot = OrdersTotal();
double min=0;
int min_ticket=0;
for(i=0;i<ot;i++)
{
if(!OrderSelect(i,SELECT_BY_POS)) continue;
if(OrderType()!=OP_BUY && OrderType()!=OP_SELL) continue;
if(i==0||min>OrderLots()) {min = OrderLots(); min_ticket=OrderTicket();}
}

Просматривал я ветку. Странная у Вас логика. Меня интересует последняя строка кода:

if(i==0||min>OrderLots()) {min = OrderLots(); min_ticket=OrderTicket();

Переменная i имеет значение 0 только в начале цикла. Дальше будет с каждой итерацией на 1 прибавлять значение.

Дальше что бы продолжился цикл есть условие:

min>OrderLots()

НО min у нас объявлена нулём, и больше нигде по коду её значение не меняется. А это значит что никогда это значение истинным не будет! Где логика?

Вопрос возник при отладке Стохастический Любые вопросы новичков по

Sergey Diubakin 2013.03.01 10:23 #1918

hoz:

Просматривал я ветку. Странная у Вас логика. Меня интересует последняя строка кода:

Переменная i имеет значение 0 только в начале цикла. Дальше будет с каждой итерацией на 1 прибавлять значение.

Дальше что бы продолжился цикл есть условие:

НО min у нас объявлена нулём, и больше нигде по коду её значение не меняется. А это значит что никогда это значение истинным не будет! Где логика?

int i, ot = OrdersTotal();
double min=0.0;
int min_ticket=0;
for(i=0;i<ot;i++)
{
if(!OrderSelect(i,SELECT_BY_POS)) continue;
if(OrderType()!=OP_BUY && OrderType()!=OP_SELL) continue;
if(min==0.0||min>OrderLots()) {min = OrderLots(); min_ticket=OrderTicket();}
}

Если сделать так, то все странности должны исчезнуть.

Alekseu Fedotov 2013.03.01 10:37 #1919

hoz:

Просматривал я ветку. Странная у Вас логика. Меня интересует последняя строка кода:

Переменная i имеет значение 0 только в начале цикла. Дальше будет с каждой итерацией на 1 прибавлять значение.

Дальше что бы продолжился цикл есть условие:

НО min у нас объявлена нулём, и больше нигде по коду её значение не меняется. А это значит что никогда это значение истинным не будет! Где логика?

Обратите внимание

if(i==0||min>OrderLots()) {min = OrderLots(); min_ticket=OrderTicket();

Если min>OrderLots() то, min = OrderLots();

Sergey Diubakin 2013.03.01 10:43 #1920

r772ra:

Обратите внимание

Если min>OrderLots() то, min = OrderLots();

Если min равно нулю, то оно никогда не сможет стать больше OrderLots().

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