EA per gestione dell equity

[luca64]

Buongiorno a tutti . Chiedo se qualcuno può indicarmi un EA gratuito per la gestione dell equity. Molto semplicemente dovrebbe chiudere tutte le operazioni al raggiungimento di un equity impostabile. Grazie

[Semporasere]

Chiude tutti gli ordini se l'Equity dell'account é maggiore/uguale al Target impostato.

Codice: Seleziona tutto

//+------------------------------------------------------------------+
//|                                                       Equity.mq4 |
//|                                                                  |
//|                                                                  |
//+------------------------------------------------------------------+
#property strict

//--- input parameters
input double   Target= 10000;

//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---
   
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
//---
   
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick(){

   if(AccountEquity() >= Target) ChiudiTutto();
  
}
//+------------------------------------------------------------------+

void ChiudiTutto(){
   int total= OrdersTotal(); 
   double prezzo;  
   int tipOrd;
   
   for(int i= total-1; i >= 0; i--){
      if(!OrderSelect(i,SELECT_BY_POS)){ Alert(" ERRORE Selezione Ordine #"+IntegerToString(GetLastError())); return;}     
      tipOrd= OrderType();
      
      if(tipOrd > 1) continue; // tralascia gli ordini pendenti
      
      prezzo= OrderType()== OP_BUY ? MarketInfo(OrderSymbol(),MODE_BID) : MarketInfo(OrderSymbol(),MODE_ASK);      

      if(!OrderClose(OrderTicket(),OrderLots(),prezzo,100)) Alert(OrderSymbol()+" ERRORE Chiusura Ordine #"+IntegerToString(GetLastError()));
   }
}

Saluti,