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

 
costy_:

Вариантов куча, запись в файл времени открытия например, но проще листать открытые ордера и сравнивать время жизни.

А вообщем перефразируйте ... "Необходимо закрывать все открытые позиции через указанный промежуток времени" для каждой отдельной позиции (я так понял вопрос).

Спасибо! Слово "проще" в Вашем ответе ключевое, значит встроенной функции такой нет. А хотел просто закрывать каждую
отдельную позицию через 2 часа после ее открытия.
 
costy_:

Скрипт так просто не найдет время тестера (но индикатор найдет), можно в старт тест.советника прикрепить

быстро и надежно ...

Спасибо. Сделал в скрипте так:
    datetime time_start=GlobalVariableGet( "Time_test");
//    Alert(iBarShift(NULL,0,time_start)); 
    EndBar =  iBarShift(NULL,0,time_start);
Всё работает.
 

Пытаюсь написать иникатора. Не пойму почему перерисовывает. Кроме того рисует только на визуализации. Помогите пожалуйста. Я в програмировании новичек.

#property indicator_chart_window
#property indicator_buffers 2
#property indicator_color1 Magenta
#property indicator_color2 Red
//---- input parameters
extern int N;
datetime some_time=D'1971.01.11 00:00';
datetime some_time_1=D'1971.01.11 00:00';
//---- buffers
double RLB_Buffer[];
double RLB_Buffer_1[];
double Real_Line_Balanse=0,x=0,last_high,last_low,RLB,Real_Line_Balanse_1=0,x1=0,last_high_1,last_low_1,RLB_1;
bool dirlong,first;
int i,ii,bar_high,bar_low,first_t_bar,now_bar,first_t_bar_1,now_bar_1;
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
string short_name;
//---- indicator line
SetIndexStyle(0, DRAW_ARROW);
SetIndexArrow(0, 159);
SetIndexBuffer(0,RLB_Buffer);
//----;
SetIndexStyle(1, DRAW_ARROW);
SetIndexArrow(1, 159);
SetIndexBuffer(1,RLB_Buffer_1);
return(0);
}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int start()
{
int counted_bars=IndicatorCounted();
Comment(i," ",ii);
//----
if(Bars < 3)
return(0);
//----------
first_t_bar=iBarShift(NULL,0,some_time,false); //бар начала тренда наверх
now_bar=iBarShift(NULL,0,TimeCurrent(),false); //последний бар, самый правый
i=counted_bars-first_t_bar+1;
//------------
first_t_bar_1=iBarShift(NULL,0,some_time_1,false); //бар начала тренда вниз
now_bar_1=iBarShift(NULL,0,TimeCurrent(),false); //последний бар, самый правый
ii=counted_bars-first_t_bar_1+1;
// if(IsVisualMode()==TRUE) i=first_t_bar-counted_bars-1; //если визуализация, то бар начала тренда
if(counted_bars == 0)
{
first = false;
i=first_t_bar+1;
ii=first_t_bar_1+1;
}
//------------ //минус посчитанные бары
dirlong = false;
if(iMA(NULL,0,1,0,MODE_SMA,PRICE_MEDIAN,0)>iMA(NULL,0,2,0,MODE_SMA,PRICE_MEDIAN,0))dirlong = true;
if(dirlong == true) //если тренд наверх
{
while(i>=0)
{
x++; //счетчик баров от начала тренда
Real_Line_Balanse=Close[i+5]; //подсчет суммы клозов от тренда
RLB=Real_Line_Balanse;
if(RLB<Low[1]) RLB_Buffer[i]=Real_Line_Balanse; //показывать линию только если цена вверху
//-------
if(RLB>Close[i]&& x>50) //если цена пересекла RLB сверху вниз
{
bar_high=iHighest(NULL,0,MODE_HIGH,first_t_bar,now_bar);//то определяем ВЕРШИНУ между
//последним баром и началом тренда
some_time_1=Time[bar_high]; //новое начало тренда вниз
x=0; //обнуление счетчика баров от начала тренда
Real_Line_Balanse=0;
}
i--;
}//while
//-------
}//dirlong
//---------------------
//---------------------
if(dirlong == false) //если тренд вниз
{
while(ii>=0)
{
x1++; //счетчик баров от начала тренда
Real_Line_Balanse_1=Close[ii+10]; //подсчет суммы клозов от тренда
RLB_1=Real_Line_Balanse_1;
if(RLB_1>High[1]) RLB_Buffer_1[ii]=Real_Line_Balanse_1;
//-------
if(RLB_1<Close[ii]&& x1>50) //если цена пересекла RLB сверху вниз
{
bar_low=iLowest(NULL,0,MODE_LOW,first_t_bar_1,now_bar_1);//то определяем НИЗИНУ между
//последним баром и началом тренда
some_time=Time[bar_low]; //новое начало тренда вверх
x1=0; //обнуление счетчика баров от начала тренда
Real_Line_Balanse_1=0;
}
ii--;
}//while
//-------
}//dirlong
//---------------------
return(0);
}
//+------------------------------------------------------------------+

 

Какая то ерунда. Вместо

i=counted_bars-first_t_bar+1;

поставил конструкцию которая сама считает посчитанные бары. ВСЕ стало идти нормально. IndicatorCounted(); глючит или я не догоняю чего то...

 

как сообщить переменной о статусе закрытого ордера?


avatar
2
vitaluxa 29.10.2011 21:26
Здравствуйте!

Допустим советник открыл ордер, он закрылся по стоп лоссу или тэйк профиту как сообщить переменной что ордер закрылся именно по стоп лоссу или тэйк профиту?
Спасибо заранее!
 
001:

Какая то ерунда. Вместо

i=counted_bars-first_t_bar+1;

поставил конструкцию которая сама считает посчитанные бары. ВСЕ стало идти нормально. IndicatorCounted(); глючит или я не догоняю чего то...

Вы используете while(i>=0), значит при появлении новой свечи i=1 (ну чтоб наверняка данные предыдущей свечи рассчиталась по зафиксированным данным один раз).

Зачем вводить some_time=D'1971.01.11 00:00'; используйте Bars, IndicatorCounted не глучит у меня (ну и ошибка наверно из за этого first_t_bar).

Ваш алгоритм и вам его лечить.

"Я в програмировании новичек." с 2007года )).

 
sergeev:

как сообщить переменной о статусе закрытого ордера?


:)

+ ...

Для Виталюхи:

https://docs.mql4.com/ru/trading/OrderStopLoss

https://docs.mql4.com/ru/trading/OrderTakeProfit

 
Добрый день, подскажите пожалуйста, почему могут не загружатся котировки с 10 июня по 22 сентября текущего года? Сделал по двум - трем валютам загрузку истории и у всех один и тот же пробел в данных.
 
//жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж Закрвает открытые позиции через 2 суток
void DelOldPositions()                                    
{   
   for (int trade = OrdersTotal() - 1; trade >= 0; trade--)
    {
      OrderSelect(trade, SELECT_BY_POS, MODE_TRADES);
      if (OrderSymbol() != Symbol() || OrderMagicNumber() != MagicNumber) continue;
      if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber)
        {
         if (OrderOpenTime()+2*24*60*60  > TimeCurrent())  
          {
           OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Ask,4 ),3,Red);
          }
        }
   }
}
//жжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжжж
Помогите поправить 2 последние строки, т.к. в тестере почему-то  мгновенно  закрывает все открытые позы. С уважением.
 

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

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

extern double TakeProfit = 150;
extern double Sl = 150;
extern double Lots = 0.1;
extern int n = 9;     
        
//-----------------------------------------------------------

int start()
 {
  int cnt, ticket, total, i, Buy=0, Sell=0;
  double x1=iIchimoku(NULL,0,9,26,52,MODE_TENKANSEN,0);   //красная
  double x2=iIchimoku(NULL,0,9,26,52,MODE_KIJUNSEN,0);    //синяя
  double x3=iIchimoku(NULL,0,9,26,52,MODE_SENKOUSPANA,0); //фиол пунктир
  double x4=iIchimoku(NULL,0,9,26,52,MODE_SENKOUSPANB,0);  //кр пунктир
  double x5=iIchimoku(NULL,0,9,26,52,MODE_CHINKOUSPAN,0);  //зеленая
  double x6=Ask;
  double x61=Bid;
  double Lot=0;  
  total=OrdersTotal();
  
  for (i=total-1;i>=0;i--)   //счетчик выставленных ордеров
   { 
      if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) 
       {
         if(OrderType()==OP_BUY)
          { 
           Buy++;
            }  
          if (OrderType()==OP_SELL)
           { 
            Sell++;
             }  
        }
     }
  if(total<1)//проверка количества ордеров 
   {
    
         if(AccountFreeMargin()<(100*Lots))
              {
     Print("Недостаточно средств = ", AccountFreeMargin());
     return(0);  
               }

         if (x6>x3 && x6>x4 && x1>x2 && x6>x2 && x6<(x2+60) && Buy==0) //бай
               {
                   ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,3,Bid-Sl*Point,Ask+TakeProfit*Point,0,0,0,Green); Sell=0; // ордер и обнуление счетчика
                      if(ticket>0)
                      {
                         if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("открыта позиция BUY : ",OrderOpenPrice());
      
                         else Print("Ошибка при открытии BUY позиции : ",GetLastError()); 
                        }
              }
   
         if (x6<x3 && x6<x4 && x1<x2 && x6<x2 && x6>(x2-60) && Sell==0) //селл 
                {
                   ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,Ask+Sl*Point,Bid-TakeProfit*Point,0,0,0,Red); Buy=0; //сам по себе ордер и обнуление счетчика 
                     if(ticket>0)
                     {
                         if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("открыта позиция SELL : ",OrderOpenPrice());
    
                         else Print("Ошибка при открытии SELL позиции : ",GetLastError());
      
                      } 
    
                  }
  
  
  } 

   if((OrderType()==0 && x61<x3 && x61<x4 && x1>x2 && x1>x3 && x1>x4) || (OrderType()==1 && x61>x3 && x61>x4 && x1<x2 && x1<x3 && x1<x4)) //закрытиеи на развороте
      {
          bool   result;
          double price;
          int    cmd,error;
//----
          if(OrderSelect(0,SELECT_BY_POS,MODE_TRADES))
              {
                  cmd=OrderType();
                  if(cmd==OP_BUY || cmd==OP_SELL)
                    {
                      while(true)
                        {
                         if(cmd==OP_BUY) price=Bid;
                         else            price=Ask;
                         result=OrderClose(OrderTicket(),OrderLots(),price,3,CLR_NONE);
                         if(result!=TRUE) { error=GetLastError(); Print("LastError = ",error); }
                         else error=0;
                         if(error==135) RefreshRates();
                         else break;
                        }
                     }
               }
          else Print( "Error when order select ", GetLastError());
//----
          
      }
 
 }
 
 
Файлы: