¿Podría ser posible alterar ese EA para operar con lotes parciales? Mi plataforma de operaciones permite .1, .2, .3 y así sucesivamente. Hay una parte cercana de la orden en X puntos dentro de esta EA, pero tiene que estar operando al menos dos lotes para que funcione.
¿Esto es algo que puedo modificar?
// ----------------------------------------------- -------------------
//| luktom editor de orden visual.mq4 |
//| luktom :: #ukasz Tomaszkiewicz |
//|
http://luktom.biz/|
// ----------------------------------------------- -------------------
#property copyright luktom :: #ukasz Tomaszkiewicz
#property link
http://luktom.biz/
#include lt; stderror.mqhgt;
#include lt; stdlib.mqhgt;
extern bool use_timer = true;
extern int default_sl_level = 10;
extern int default_tp_level = 500;
color externo sl_color = Rojo;
extern int sl_style = STYLE_DASH;
color externo tp_color = Aqua;
extern int tp_style = STYLE_DASH;
color externo be_color = Amarillo;
extern int be_style = STYLE_DASH;
extern int be_offset = 1;
color externo cl_color = Púrpura;
extern int cl_style = STYLE_DASH;
extern bool use_cp = false;
color externo cp_color = azul;
extern int cp_style = STYLE_DASH;
extern int cp_level = 0;
extern int cp_closedlevel = 0;
extern double cp_lots = 0;
color externo ol_sell_color = Naranja;
extern int ol_sell_style = STYLE_DASH;
color externo ol_buy_color = azul;
extern int ol_buy_style = STYLE_DASH;
extern bool use_be = false;
extern int default_be_level = 10;
extern bool use_cl = falso;
extern int default_cl_level = 0;
extern bool delete_on_deinit = true;
void init ()
if (use_timer)
minutero();
temporizador de vacío ()
mientras (verdadero)
Sueño (1000);
if (IsStopped ())
regreso;
comienzo();
void deinit ()
if (delete_on_deinit)
for (int I = 0; ilt; ObjectsTotal (); I )
string name = ObjectName (I);
if (String Substr (name, 0,4) == amor)
ObjectDelete (nombre);
void start () {
for (int I = 0; ilt; OrdersTotal (); I ) {
if (OrderSelect (I, SELECT_BY_POS)) {
if (OrderSymbol () == Símbolo ()) {
int dgts = MarketInfo (OrderSymbol (), MODE_DIGITS);
if (ObjectFind (lvoe_ol_ OrderTicket ()) == - 1) else
if (OrderStopLoss () gt; 0 || default_sl_levelgt; 0)
if (ObjectFind (lvoe_sl_ OrderTicket ()) == - 1)
if (OrderStopLoss () == 0)
ObjectCreate (lvoe_sl_ OrderTicket (), OBJ_HLINE, 0, Time [0], OrderOpenPrice () - orderDir (OrderType ()) * default_sl_level * Point);
más
ObjectCreate (lvoe_sl_ OrderTicket (), OBJ_HLINE, 0, Time [0], OrderStopLoss ());
ObjectSet (lvoe_sl_ OrderTicket (), OBJPROP_COLOR, sl_color);
ObjectSet (lvoe_sl_ OrderTicket (), OBJPROP_STYLE, sl_style);
ObjectSetText (lvoe_sl_ OrderTicket (), # OrderTicket () stop reduction, 11);
más
alinear (lvoe_sl_ OrderTicket ());
if (NormalizeDouble (OrderStopLoss (), dgts)!) = NormalizeDouble (ObjectGet (lvoe_sl_ OrderTicket (), OBJPROP_PRICE1), dgts))
if (! OrderModify (OrderTicket (), OrderOpenPrice (), ObjectGet (lvoe_sl_ OrderTicket (), OBJPROP_PRICE1), OrderTakeProfit (), OrderExpiration (), CLR_NONE))
//Alert (ErrorDescription (GetLastError ()));
persistir;
más
if (ObjectFind (lvoe_sl_ OrderTicket ())!) = -1)
ObjectDelete (lvoe_sl_ OrderTicket ());
if (OrderTakeProfit () gt; 0 || default_tp_level)
if (ObjectFind (lvoe_tp_ OrderTicket ()) == - 1)
if (OrderTakeProfit () == 0)
ObjectCreate (lvoe_tp_ OrderTicket (), OBJ_HLINE, 0, Time [0], OrderOpenPrice () orderDir (OrderType ()) * default_tp_level * Point);
más
ObjectCreate (lvoe_tp_ OrderTicket (), OBJ_HLINE, 0, Time [0], OrderTakeProfit ());
ObjectSet (lvoe_tp_ OrderTicket (), OBJPROP_COLOR, tp_color);
ObjectSet (lvoe_tp_ OrderTicket (), OBJPROP_STYLE, tp_style);
más
alinear (lvoe_tp_ OrderTicket ());
if (NormalizeDouble (OrderTakeProfit (), 4)! = NormalizeDouble (ObjectGet (lvoe_tp_ OrderTicket (), OBJPROP_PRICE1), 4))
if (! OrderModify (OrderTicket (), OrderOpenPrice (), OrderStopLoss (), ObjectGet (lvoe_tp_ OrderTicket (), OBJPROP_PRICE1), OrderExpiration (), CLR_NONE))
//Alert (ErrorDescription (GetLastError ()));
persistir;
más
if (ObjectFind (lvoe_tp_ OrderTicket ())!) = -1)
ObjectDelete (lvoe_tp_ OrderTicket ());
if (use_cp cp_levelgt; 0)
if (ObjectFind (lvoe_cp_ OrderTicket ()) == - 1)
if (OrderType () == OP_BUY else
if (OrderType () == OP_BUY)
if (MarketInfo (OrderSymbol (), MODE_BID) gt; ObjectGet (lvoe_cp_ OrderTicket (), OBJPROP_PRICE1))
if (OrderClose (OrderTicket (), cp_lots, MarketInfo (OrderSymbol (), MODE_BID), 0))
ObjectSet (lvoe_cp_ OrderTicket (), OBJPROP_PRICE1, MarketInfo (OrderSymbol (), MODE_BID) cp_closedlevel * MarketInfo (OrderSymbol (), MODE_POINT));
persistir;
if (OrderType () == OP_SELL)
if (MarketInfo (OrderSymbol (), MODE_ASK) lt; ObjectGet (lvoe_cp_ OrderTicket (), OBJPROP_PRICE1))
if (OrderClose (OrderTicket (), cp_lots, MarketInfo (OrderSymbol (), MODE_ASK), 0))
ObjectSet (lvoe_cp_ OrderTicket (), OBJPROP_PRICE1, MarketInfo (OrderSymbol (), MODE_ASK) -cp_closedlevel * MarketInfo (OrderSymbol (), MODE_POINT));
persistir;
if (use_be) {
if (ObjectFind (lvoe_be_ OrderTicket ()) == - 1) else {
if (OrderType () == OP_BUY) {
if (MarketInfo (OrderSymbol (), MODE_BID) gt; ObjectGet (lvoe_be_ OrderTicket (), OBJPROP_PRICE1)) {
ObjectSet (lvoe_sl_ OrderTicket (), OBJPROP_PRICE1, OrderOpenPrice () be_offset * MarketInfo (OrderSymbol (), MODE_POINT));
/*
if (! OrderModify (OrderTicket (), OrderOpenPrice (), OrderOpenPrice (), OrderTakeProfit (), OrderExpiration (), CLR_NONE))
//Alert (ErrorDescription (GetLastError ()));
*
persistir;
}
}
if (OrderType () == OP_SELL)
if (MarketInfo (OrderSymbol (), MODE_ASK) lt; ObjectGet (lvoe_be_ OrderTicket (), OBJPROP_PRICE1))
ObjectSet (lvoe_sl_ OrderTicket (), OBJPROP_PRICE1, OrderOpenPrice () - be_offset * MarketInfo (OrderSymbol (), MODE_POINT));
/*
if (! OrderModify (OrderTicket (), OrderOpenPrice (), OrderOpenPrice (), OrderTakeProfit (), OrderExpiration (), CLR_NONE))
//Alert (ErrorDescription (GetLastError ()));
*
persistir;
}
}
if (use_cl)
if (ObjectFind (lvoe_cl_ OrderTicket ()) == - 1)
if (OrderType ()!) = OP_BUY OrderType ()! = OP_SELL)
else OrderType () == OP_SELLSTOP)
if (MarketInfo (OrderSymbol (), MODE_ASK) gt; ObjectGet (lvoe_cl_ OrderTicket (), OBJPROP_PRICE1))
OrderDelete (OrderTicket ());
if (OrderType () == OP_BUY
}
}
}
para (I = 0; ilt; OrdersHistoryTotal (); I )
if (OrderSelect (I, SELECT_BY_POS, MODE_HISTORY))
if (ObjectFind (lvoe_ol_ OrderTicket ())!) = -1)
ObjectDelete (lvoe_ol_ OrderTicket ());
if (ObjectFind (lvoe_tp_ OrderTicket ())!) = -1)
ObjectDelete (lvoe_tp_ OrderTicket ());
if (ObjectFind (lvoe_sl_ OrderTicket ())!) = -1)
ObjectDelete (lvoe_sl_ OrderTicket ());
if (ObjectFind (lvoe_be_ OrderTicket ())!) = -1)
ObjectDelete (lvoe_be_ OrderTicket ());
if (ObjectFind (lvoe_cl_ OrderTicket ())!) = -1)
ObjectDelete (lvoe_cl_ OrderTicket ());
if (ObjectFind (lvoe_cp_ OrderTicket ())!) = -1)
ObjectDelete (lvoe_cp_ OrderTicket ());
}
void alinear (nombre de cadena)
ObjectSet (title, OBJPROP_PRICE1, NormalizeDouble (ObjectGet (title, OBJPROP_PRICE1), Digits));
int orderDir (int oType)