Escreverei um conselheiro sem custos - página 18

 

Precisa de ajuda.

http://forum.mql4.com/ru/67309#1011467

Помогите добавить к текущему советник пирамидинг. - MQL4 форум
  • www.mql5.com
Помогите добавить к текущему советник пирамидинг. - MQL4 форум
 

Por favor, avisar: as encomendas não são abertas todos os dias o arrasto não funciona e as encomendas abertas não são fechadas de acordo com TP. O que estou a fazer mal ?


input int    StartHour    = 23;    // Время ачало торговли
input int    TakeProfit   = 40;    // TakeProfit
input int    StopLoss     = 40;    // StopLoss
input int    Lots         = 0.1;   // Лот для торговли
input int    Magic        = 22;    // Магическое число
input int    Trals        = 20;    // Дистанция тралинга в пунктах
input int    _Step        = 1;     // Шаг
input bool   _StepUse     = true;  // Использовать шаг или нет

void OnTick()
{
   static bool IsFirstTick = false;
   static int ticket = 0;
  
   double lot=Lot_Normalize(Symbol(),Lots,1);
   double sl= Dist_Normalize(Symbol(),Trals);
   double step= Dist_Normalize(Symbol(),_Step);
  
   int h= TimeHour(TimeCurrent());
   if(h == StartHour)
   {
    Alert("TimeHor: ", h);
    if (IsFirstTick == true)
      IsFirstTick = false;
     
      bool res;
      res= OrderSelect(ticket, SELECT_BY_TICKET);
      if(res == true)
      {
         if(OrderCloseTime() == 0)
         {
            bool res2;
            res2 = OrderClose(ticket, Lots, OrderClosePrice(), 10);
           
            if(res2 == false)
            {
               Alert("Error Closing Order #", ticket);
               } Alert("Closing Order #", ticket);
         }  
      }
       if(Open[0] < Open[StartHour])
      {
         ticket = OrderSend(Symbol(), OP_BUYLIMIT, Lots, High[1],10, Low[1]-StopLoss*Point, High[1]+TakeProfit*Point,"Set bu ForexRobot");
         Tralling_Stop(OrderSymbol(),Magic,sl,step,_StepUse);
         if(ticket < 0)
         {
           Alert("Error Sending Order!");
         } Alert("Sending Order! BUY_LIMIT");
       }
       else
       {
         ticket = OrderSend(Symbol(), OP_SELLLIMIT, Lots, Low[1],10, High[1]+StopLoss*Point, Low[1]+TakeProfit*Point,"Set bu ForexRobot");
         Tralling_Stop(OrderSymbol(),Magic,sl,step,_StepUse);
         if(ticket < 0)
         {
           Alert("Error Sending Order!");
         } Alert("Sending Order! SEL_LLIMIT");
    }  
}
 
}  

double Dist_Normalize(string Smv, int _Distancia)
{
 int Dig= int(MarketInfo(Smv,MODE_DIGITS));
 double Pip=MarketInfo(Smv,MODE_POINT);
 if(Dig==3 || Dig==5)
   return NormalizeDouble(_Distancia*10*Pip,Dig);
 else return NormalizeDouble(_Distancia*Pip,Dig);
 } 


double Lot_Normalize(string Smv, double _lot, double _mult)
{
 double minlot=MarketInfo(Smv,MODE_MINLOT);
 double maxlot=MarketInfo(Smv,MODE_MAXLOT);
 double steplot=MarketInfo(Smv,MODE_LOTSTEP);
 double lot= _lot*_mult;
 if(lot<=minlot) lot+minlot;
 else if(lot>=maxlot) lot=minlot;
 else if(lot>minlot && lot<maxlot)
  {
    int k=int((lot-minlot)/steplot);
    lot=NormalizeDouble(minlot+k*steplot,2);
  }
  return(lot);




void Tralling_Stop(string Smv, int _Magic, double _Tral, double _Step, bool _Step_Use)
{
  int Dig=int(MarketInfo(_Symbol,MODE_DIGITS));
  for(int pos=OrdersTotal()-1; pos>=0;pos--)
    {
      if(OrderSelect(pos,SELECT_BY_POS,MODE_TRADES) && OrderSymbol()==Smv &&
      OrderMagicNumber()==_Magic && OrderType()<2)
        {
          double SLPrice;
          if(OrderType()==OP_BUY)
            {
              if(_Step_Use)
              {
                RefreshRates();
                if(NormalizeDouble(Ask-OrderStopLoss(),Dig)>NormalizeDouble(_Tral+_Step,Dig))
                {
                  SLPrice=NormalizeDouble(Ask-_Tral,Dig);
                  if(!OrderModify(OrderTicket(),0,SLPrice,OrderTakeProfit(),OrderExpiration(),clrRed))
                   Alert("Error modifi Order!: ",GetLastError());
                  }
                 }
               else
                 {
                  RefreshRates();
                  if(NormalizeDouble(Ask-OrderStopLoss(),Dig)>NormalizeDouble(_Tral,Dig))
                    {
                     SLPrice=NormalizeDouble(Bid+_Tral,Dig);
                     if(!OrderModify(OrderTicket(),0,SLPrice,OrderTakeProfit(),OrderExpiration(),clrRed))
                     Alert("Error modifi Order!: ",GetLastError());
                 }
             }
          }
       }
    }
 }            

 
MIR_KAZAN:

Por favor, avisar: as encomendas não são abertas todos os dias o arrasto não funciona e as encomendas abertas não são fechadas de acordo com TP. O que estou a fazer mal ?


input int    StartHour    = 23;    // Время ачало торговли
input int    TakeProfit   = 40;    // TakeProfit
input int    StopLoss     = 40;    // StopLoss
input int    Lots         = 0.1;   // Лот для торговли
input int    Magic        = 22;    // Магическое число
input int    Trals        = 20;    // Дистанция тралинга в пунктах
input int    _Step        = 1;     // Шаг
input bool   _StepUse     = true;  // Использовать шаг или нет

void OnTick()
{
 ......
 

se (IsFirstTick == verdadeiro)

IsFirstTick = falso;

Eu substituiria esta peça por

if (TM!=Time[0])
{
   TM = Time[0];
......
}

Onde a variável TM é declarada como DateTime fora da função OnTick(), ou seja, é global para este módulo.

Não compreendo este código: if(Open[0] < Open[StartHour])

O StartHour é igual a 23 e sugere que o preço aberto da barra zero será comparado com o preço aberto da 23ª barra antes dela. Bem, ok, talvez seja um truque do Conselheiro Especialista.

Mas este desenho não é de todo apropriado.

      res= OrderSelect(ticket, SELECT_BY_TICKET);
      if(res == true)
      { 
         if(OrderCloseTime() == 0)
         {
            bool res2;
            res2 = OrderClose(ticket, Lots, OrderClosePrice(), 10);
            
            if(res2 == false)
            {
               Alert("Error Closing Order #", ticket);
               } Alert("Closing Order #", ticket);
         }   
      }

E se a variável do bilhete for igual a zero, ou se a EA tiver sido reinicializada e esta variável tiver sido reinicializada por defeito?

 
StartHour é o momento em que a EA deve funcionar. Deve ser uma hora da manhã. Porque é que a pesca de arrasto não funciona?
 
MIR_KAZAN:
O StartHour é o momento em que a EA deve funcionar. Deve ser 1:00 da manhã. Porque é que a pesca de arrasto não funciona?

É necessário analisar o código para compreender porque é que não funciona.

Tentar inserira função Print("Tralling_Stop") na funçãoTralling_Stop(), e ver se esta mensagem (Tralling_Stop) aparece no registo, se não, então esta função não é chamada. Se o tiver, analise a função Tralling_Stop() em si, talvez ela contenha alguns erros lógicos.

Em geral, sempre que existam condições lógicas se, inserir Print(" condição 1" ), Print(" condição 2" ), etc. Execute o Expert Advisor no testador de estratégia e no diário pode traçar a lógica da sua EA.

 
vitales:

É necessário analisar o código para compreender porque é que não funciona.

Tentar inserira função Print("Tralling_Stop") na funçãoTralling_Stop(), e ver se esta mensagem (Tralling_Stop) aparece no registo, se não, então esta função não é chamada. Se sim, analisar a própria função Tralling_Stop() - talvez haja alguns erros lógicos nela.

Em geral, sempre que existam condições lógicas se, inserir Print(" condição 1" ), Print(" condição 2" ), etc. Execute o Expert Advisor no Strategy Tester e no log pode traçar a lógica da sua EA.


Tentei reescrevê-lo, mas ainda não funciona como eu preciso. As ordens não são abertas quando eu quero que sejam, então não estão a trilhar. De acordo com a ideia, o Conselheiro Especialista deve trabalhar desta forma: ao fechar a última vela num dia (às 00:00) deve abrir duas ordens pendentes: Alta (para comprar) e Baixa (para vender) e depois apenas triplicá-las.

input int     StartHour    = 1;     // Начало торговли
input int     TakeProfit   = 40;    // TakeProfit
input int     StopLoss     = 10;    // StopLoss
extern double Lots         = 0.1;   // Лот для торговли
input int     Magic        = 22;    // Магическое число
input int     Trals        = 5;     // Дистанция тралинга в пунктах
input int     _Step        = 1;     // Шаг
input bool    _StepUse     = false; // Использовать шаг или неT

void OnTick()
{
   static bool IsFirstTick = false;
  
   Trailing();
  
   if (StartHour != Hour()) { return;}
   if (OrdersTotal()>0)
   {
    OrderSend(Symbol(), OP_BUYLIMIT, Lots, High[1],10, Low[1]-StopLoss*Point, High[1]+TakeProfit*Point,"Set bu ForexRobot",Magic);
    OrderSend(Symbol(), OP_SELLLIMIT, Lots, Low[1],10, High[1]+StopLoss*Point, Low[1]+TakeProfit*Point,"Set bu ForexRobot",Magic);                    
   }
}           

//+------------------------------------------------------------------+ 
void Trailing()
{
  if (_StepUse)
{
  for (int trall=0; trall<OrdersTotal(); trall++) {
    if (!(OrderSelect(trall, SELECT_BY_POS, MODE_TRADES))) continue;
    if (OrderSymbol() != Symbol()) continue;      
 
    if (OrderType() == OP_BUY ) {
      if (Bid-OrderOpenPrice() > StopLoss*Point || OrderMagicNumber()==Magic) {
        if (OrderStopLoss() < Bid-(StopLoss+_Step-1)*Point || OrderStopLoss() == 0) {
          OrderModify(OrderTicket(), OrderOpenPrice(), Bid-StopLoss*Point, OrderTakeProfit(), 0, Blue);
       }
      }
    }
 
    if (OrderType() == OP_SELL) {
     if (OrderOpenPrice()-Ask > StopLoss*Point || OrderMagicNumber()==Magic) {
        if (OrderStopLoss() > Ask+(StopLoss+_Step-1)*Point || OrderStopLoss() == 0) {
          OrderModify(OrderTicket(), OrderOpenPrice(), Ask+StopLoss*Point, OrderTakeProfit(), 0, Blue);
        }
     }
    }
  }
 }
}
//+------------------------------------------------------------------+

 
MIR_KAZAN:

Experimente

if (StartHour != Hour()) { return;} 

Substituir por:

if (StartHour != TimeHour(Time[0])) { return;}//Если час текущей свечи не равен StartHour то выход из функции и тогда ниже написанный код выполнятся не будет, в том числе и трейлинг стоп. 
 if (OrdersTotal()>0)
{
....
}

Substituir por:

if (OrdersTotal()==0) 
{
    bool rezult = false;
    rezult=OrderSend(Symbol(), OP_BUYLIMIT, Lots, High[1],10, Low[1]-StopLoss*Point, High[1]+TakeProfit*Point,"Set bu ForexRobot",Magic);
    if (!rezult) Print("Ошибка открытия ордера BUY LIMIT");
    rezult = OrderSend(Symbol(), OP_SELLLIMIT, Lots, Low[1],10, High[1]+StopLoss*Point, Low[1]+TakeProfit*Point,"Set bu ForexRobot",Magic);
    if (!rezult) Print("Ошибка открытия ордера SELL LIMIT"); 
//для работы в реале надо сделать более детальную проверку ошибок 

} else Trailing();

Além disso, os preços devem ser normalizados utilizando o NormalizeDouble(). Ou seja, em vez deLow[1]-StopLoss*Point deve escrever NormalizeDouble(Low[1]-StopLoss*Point,Digits()).

Também, de acordo com o seu código, se a variável _StepUse for igual a falsa, a sua paragem não funcionará. Olhe atentamente para o código da função Trailing()

void Trailing()
{
  if (_StepUse)//если false то код внутри скобок выполнятся не будет.
  {
   ......

  }
}// Скорее всего вы этот код просто бездумно скопировали от куда нибудь, даже не понимая как он работает.
 
vitales:

Experimente

Substituir por:

Substituir por:

Além disso, os preços devem ser normalizados utilizando o NormalizeDouble(). Ou seja, em vez deLow[1]-StopLoss*Point deve escrever NormalizeDouble(Low[1]-StopLoss*Point,Digits()).

Também, de acordo com o seu código, se a variável _StepUse for igual a falsa, a sua paragem não funcionará. Veja com atenção o código da função Trailing().

Está em contacto? Enviem-me uma mensagem para http://vk.com/computerwizard116. Já não sei como resolver o problema da EA. Na minha conta de demonstração tenho estado a trabalhar nesta estratégia há uma semana

E funciona. E nos testes, este malandro nem sequer fecha a encomenda ao takeout point(((((( Na foto, pode ver que o preço foi além do takeout point e voltou, mas fechou com prejuízo, caramba!(((

Porque é que ele está a fazer isso?

Arquivos anexados:
 
MIR_KAZAN:

Está em contacto? Enviem-me um e-mail para http://vk.com/computerwizard116. Já não sei como resolver o problema da EA. Há uma semana que utilizo esta estratégia numa conta de demonstração

e funciona. Mas ao testar, este malandro nem sequer fecha a encomenda de takeaway. (((((( Na foto, pode-se ver que o preço foi além do takeaway e voltou, mas fechou com prejuízo.

Porque é que está a fazer isso?

Não estou em contacto.

Aexecução das ordens Take Profit e Stop Loss não depende do conselheiro, elas são executadas no servidor do corretor. A EA apenas fixa o lucro e pára as perdas, não as executa. Verificar se o lucro do take já estava definido depois de o preço ter atingido este valor. Por outras palavras, a ordem foi aberta primeiro, depois o preço estava a andar para trás e para a frente, e depois foi estabelecido o take profit.

 
vitales:

Não estou em contacto.

A execução de ordens de take profit e stop loss não depende da EA, elas são executadas no servidor do corretor. A EA apenas define as ordens de tomada e paragem, não as executa. Verificar se o lucro do take já estava definido depois de o preço ter atingido este valor. Por outras palavras, a ordem foi aberta primeiro, depois o preço andou para trás e para a frente, e depois o take profit foi estabelecido.

Como se cola TP, Sl in OrderSend, de modo a que SL seja Alto da vela anterior e TP seja Baixo da anterior + TakeProfit?