Попробуйте сделать рандом - MQL4 и MetaTrader 4

Константин Скворцов 2008.06.06 11:12 #11

Я тут нашел вариант кода.

как его можно вставить в мой советник????????????

//+----------------------------------------------------------------------------+
//|  Возвращает номер бара открытия последней позиции или -1.                  |
//|  Параметры:                                                                |
//|    sym - наименование инструмента  ("" - текущий символ)                   |
//|    tf  - таймфрейм                 ( 0 - текущий таймфрейм)                |
//|    op  - операция                  (-1 - любая позиция)                    |
//|    mn  - MagicNumber               (-1 - любой магик)                      |
//+----------------------------------------------------------------------------+
int NumberOfBarOpenLastPos(string sym="", int tf=0, int op=-1, int mn=-1) {
  datetime oot;
  int      i, k=OrdersTotal();
 
  if (sym=="") sym=Symbol();
  for (i=0; i<k; i++) {
    if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) {
      if (OrderSymbol()==sym) {
        if (OrderType()==OP_BUY || OrderType()==OP_SELL) {
          if (op<0 || OrderType()==op) {
            if (mn<0 || OrderMagicNumber()==mn) {
              if (oot<OrderOpenTime()) oot=OrderOpenTime();
            }
          }
        }
      }
    }
  }
  return(iBarShift(sym, tf, oot, True));
}

Александр 2008.06.06 11:19 #12

Kostay:

Странное творится теперь с советником. несрабатывает заложенное закрытие позиций. может быть открыто и действовать одновременно несколько позиций однотипных. И результат: все сливает по той же самой проблеме, правда в видоизмененном варианте!!??

Исправил, попробуйте.

extern double Lots = 0.1;

//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int start() {
   double P_up0,P_down0,P_up1,P_down1;
   double st_m1, st_s1, st_m2, st_s2,Pivot,ma_s1;
   int i, cnt, ticket, total;
   bool flag=true;

   if(Bars<100) {
      Print("bars less than 100");
      return(0); 
   }
// Проверяем стоит ли открываться
   
   cnt=OrdersHistoryTotal()-1;
   for(i=cnt;i>=0;i--) {
      if(!OrderSelect(i, SELECT_BY_POS, MODE_HISTORY )) continue;
      if(OrderOpenTime()>=Time[0]) { // Time[0] - если позиция открывается на нулевом баре текущего символа
         flag=false;
         break;
      }
   }
   cnt=OrdersTotal()-1;
   for(i=cnt;i>=0;i--) {
      if(!OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) continue;
      if(OrderOpenTime()>=Time[0]) { // Time[0] - если позиция открывается на нулевом баре текущего символа
         flag=false;
         break;
      }
   }
   
//-----------------------------------------------
   P_up0=iCustom(0,0,"Ценовой канал",11,0,0);
   P_down0=iCustom(0,0,"Ценовой канал",11,1,0);
   P_up1=iCustom(0,0,"Ценовой канал",11,0,1);
   P_down1=iCustom(0,0,"Ценовой канал",11,1,1);
   st_m1=iStochastic(0,0,10,3,3,MODE_SMA,0,MODE_MAIN,1);
   st_s1=iStochastic(0,0,10,3,3,MODE_SMA,0,MODE_SIGNAL,1);
   st_m2=iStochastic(0,0,10,3,3,MODE_SMA,0,MODE_MAIN,2);
   st_s2=iStochastic(0,0,10,3,3,MODE_SMA,0,MODE_SIGNAL,2);
   Pivot=iCustom(0,0,"Pivot",0,1);
   ma_s1=iMA(0,0,4,0,MODE_SMA,PRICE_CLOSE,1);
//задали все данные 

// Проверка свободной маржи
   if(AccountFreeMargin()<(1000*Lots)) {
      Print("We have no money. Free Margin = ", AccountFreeMargin());
      return(0); 
   }
   total=OrdersTotal();
// Условие открытие позиции BUY
   if(st_m2>st_s2&&st_m1>st_s1&&st_m2<25&&Pivot<ma_s1) {
      if((total>0) || (!flag)) return(0);
      ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,3,0,0,"",0,0,Green);
      if(ticket>0) {
         if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES))
            Alert("Покупка: ",OrderOpenPrice()); 
      }  else Alert("ошибка:по цене ",OrderOpenPrice()); 
      return(0); 
   }
      
// Условие открытие позиции SELL
   if(st_m2<st_s2&&st_m1<st_s1&&st_m2>75&&Pivot>ma_s1) {
      if((total>0) || (!flag)) return(0);
      ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,0,0,"",0,0,Red);
      if(ticket>0) {
         if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES))
            Alert("Покупка: ",OrderOpenPrice()); 
      }  else Alert("ошибка:по цене ",OrderOpenPrice()); 
      return(0); 
   }
  
   for(i=cnt;i>=0;i--) {
      OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
      if(OrderType()<=OP_SELL && OrderSymbol()==Symbol()) {
         if(OrderType()==OP_BUY) {// длинная позиция открыта
// условие закрытие длинной позиции
            if(P_down1>P_down0) {
               OrderClose(OrderTicket(),OrderLots(),Bid,3,Violet); 
               return(0); 
            }
         }  else {
// условие закрытия короткой позиции
               if(P_up1<P_up0) {
                  OrderClose(OrderTicket(),OrderLots(),Ask,3,Violet); 
                  return(0); 
               }
            }
      }
   }
   return(0);
}

Артём 2008.11.10 13:05 #13

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

При программирование нейронной сети столкнулся со следующей проблемой.

Имеется массив:

double X[3];
   X[0]=1;
   X[1]=2;
   X[2]=3;
   X[3]=4;

Comment(X[3]);

При тестирование заместо 4 я получаю 0, такая же штука и в двумерном массиве, что делать?

И пользуясь случаем задам второй вопрос: как я понял в mql4 нельзя задать конкретный диапазон присваиванию переменной случайных чисел ?

В Delphi это выглядит так

Randomize;

i:=Random(10); // тот самый диапозон от 0 до 10

Как правильно использовать глобальный Любые вопросы новичков по Вопросы по двумерным массивам

Виктор 2008.11.10 14:06 #14

Chris_Brown >>:

..Имеется массив:

При тестирование заместо 4 я получаю 0, такая же штука и в двумерном массиве, что делать?

С массивом все просто, Вы определили размерность [3], а вызываете четвертую, отсутствующую ячейку.

напишите double X[4]; и все заработает.

Артём 2008.11.10 14:52 #15

granit77 >>:

С массивом все просто, Вы определили размерность [3], а вызываете четвертую, отсутствующую ячейку.

напишите double X[4]; и все заработает.

Спасибо попробую, а как на счёт рандом ?

Артём 2008.11.10 15:01 #16

А если будет двумерный массив, матрица 4 на 9 и каждому элементу присвоить значение 0.1, это будет примерно так?

int i,j;

double W[4][9];
   for (i=0;i<=3;i++)
   for (j=0;j<=8;j++)
       W[i][j]=0.1;

Виктор 2008.11.10 18:32 #17

Chris_Brown >>:

А если будет двумерный массив, матрица 4 на 9 и каждому элементу присвоить значение 0.1, это будет примерно так?

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

Кстати, можно коммент сделать функцией и пользоваться для проверки содержания массива.

А насчет рандома - пас. Я вообще, просто мимо проходил и ошибку увидел. :))

Очистка массива от заданного Советник для анализа поведения Любой вопрос новичка, чтоб

rsi 2008.11.10 18:54 #18

Chris_Brown писал(а) >>

Спасибо попробую, а как на счёт рандом ?

double i=MathRand()/32767.0*10;

в справке есть.

Александр 2008.11.11 06:17 #19

Chris_Brown писал(а) >>

А если будет двумерный массив, матрица 4 на 9 и каждому элементу присвоить значение 0.1, это будет примерно так?

Можно использовать

int ArrayInitialize(

double &array[], double value)

Устанавливает все элементы числового массива в одну величину. Возвращает количество инициализированных элементов.

PapaYozh 2008.11.11 06:47 #20

Chris_Brown писал(а) >>

А если будет двумерный массив, матрица 4 на 9 и каждому элементу присвоить значение 0.1, это будет примерно так?

int i,j;

double W[4][9];
   for (i=0;i<=3;i++)
   for (j=0;j<=8;j++)
       W[i][j]=0.1;

Работать будет, но правильнее писать так:

int i,j;

double W[4][9];

   for (i=0;i<4;i++)
      for (j=0;j<9;j++)
         W[i][j]=0.1;

Вопрос к знатокам - страница 2