Escribiré un asesor gratuito de mql4 - página 13
Está perdiendo oportunidades comerciales:
- Aplicaciones de trading gratuitas
- 8 000+ señales para copiar
- Noticias económicas para analizar los mercados financieros
Registro
Entrada
Usted acepta la política del sitio web y las condiciones de uso
Si no tiene cuenta de usuario, regístrese
Líneas amarillas necesarias
Ahora dime cómo obtener un beneficio aquí... ¿O es para construir un juego?
¡Hola a todos, podéis ayudarme a encontrar un error en el código del EA, creo que lo he mirado todo, parece que todo está escrito correctamente en el código, pero el programa no opera correctamente por alguna razón! La idea es la siguiente: El asesor tiene que buscar dos velas largas de la misma dirección (la longitud entre las velas es ajustable en el asesor, es decir, entre las dos velas mínimas o máximas, dependiendo de la dirección), si el precio en la dirección opuesta rompe el mínimo o el máximo de la última vela, un acuerdo debe abrirse (Ejemplo situaciones de imagen en el gráfico adjunto al archivo). El asesor debería abrir operaciones en cada situación adecuada, pero por alguna razón sólo abre operaciones en las ventanas de negociación entre días. Esta es la situación, que no es difícil de los programadores, por favor, ayuda, arreglar el error. El código de EA se encuentra a continuación, así como en el archivo adjunto.
¡Hola a todos, podéis ayudarme a encontrar un error en el código del EA, creo que lo he mirado todo, parece que todo está escrito correctamente en el código, pero el programa no opera correctamente por alguna razón! La idea es la siguiente: El asesor tiene que buscar dos velas largas de la misma dirección (la longitud entre las velas es ajustable en el asesor, es decir, entre las dos velas mínimas o máximas, dependiendo de la dirección), si el precio en la dirección opuesta rompe el mínimo o el máximo de la última vela, un acuerdo debe abrirse (Ejemplo situaciones de imagen en el gráfico adjunto al archivo). El asesor debería abrir operaciones en cada situación adecuada, pero por alguna razón sólo abre operaciones en las ventanas de negociación entre días. Esta es la situación, que no es difícil de los programadores, por favor, ayuda, solucionar el error. Vea el código de EA a continuación, así como en el archivo adjunto.
Es mejor escribir primero la parte del EA que marcaría en el gráfico las velas encontradas, para que todo quede claro. Y las siguientes líneas son innecesarias en su caso:
Ahora dime cómo obtener un beneficio aquí... ¿O lo necesitas para construir un juego?
Todavía no hay forma de obtener beneficios. Existe un algoritmo para el cálculo de dos objetivos de precio probables, a lo largo de la tendencia, por cinco puntos principales, pero se calcula en un servidor especial con una suscripción de pago. Quiero calcular los objetivos yo mismo, el trabajo en el algoritmo aún no ha terminado.
¿Qué aspecto tendrá tu programa en MQL4?
Si tienes una buena estrategia y estás dispuesto a compartirla, puedo escribir un EA. Te invito a discutirlo públicamente o en mensaje privado.
Anton, ayúdame, he añadido la función trailing stop al EA, lo he compilado y me da dos errores. - Tengo la cabeza destrozada, no sé cómo arreglarlas para conseguir un búho. Sin embargo, las operaciones se cierran según la antigua estrategia después de que el precio haya tocado el límite superior del canal y el inferior, respectivamente. Supongo que aquí también hay que cambiar algo. - Vuelve a llamar a los chicos del ejército de DNR.
#property copyright "Copyright 2017, MetaQuotes Software Corp."
#enlace de propiedad "https://www.mql5.com"
#versión de la propiedad "1.00"
#propiedad estricta
//---------------------------------------------------------
extern double Lots = 0,01;
extern int TomaDeBeneficio = 600;
extern int StopLoss = 25;
extern int Magia = 0001;
extern int Deslizamiento = 3;
extern int TralType = 0; // 0-SAR, 1-ATR, 2-HMA.
extern double SAR_Step = 0.02;
extern double SAR_Max = 0.2;
extern int ATR_Period = 14;
extern double ATR_K = 2.0;
extern inttern HMA_Period = 16;
extern intern HMA_Method = 3;
extern inttern HMA_Shift = 0;
datetime LBT;
//---------------------------------------------------------
extern string TMA = "Parámetros del indicador TMA";
cadena externa TimeFrame = "marco temporal actual";
extern int MediaLongitud = 56;
extern int Precio = "PRICE_CLOSE;
extern double ATRMultiplier = 2.0;
extern inttern ATRPeriod = 100;
extern bool Interpolar = true;
//---------------------------------------------------------
doble PriceHigh, PriceLow, SL, TP;
int ticket;
//+------------------------------------------------------------------+
//| Función de inicialización de expertos |
//+------------------------------------------------------------------+
int OnInit()
{
si (Dígitos == 3 || Dígitos = 5)
{
TakeProfit *= 10;
StopLoss *= 10;
Deslizamiento *= 10;
}
return(INIT_SUCCEED);
}
//+------------------------------------------------------------------+
//| Función de desinicialización experta |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
}
//+------------------------------------------------------------------+
//| función de tic experto |
//+------------------------------------------------------------------+
void OnTick()
{
PriceHigh = iCustom(NULL, 0, "TMA_Fair", TimeFrame, HalfLength, Price, ATRMultiplier, ATRPeriod, Interpolate, 1, 0);
PriceLow = iCustom(NULL, 0, "TMA_Fair", TimeFrame, HalfLength, Price, ATRMultiplier, ATRPeriod, Interpolate, 2, 0);
if(CountSell() == 0 && Bid >= PriceHigh)
{
ticket = OrderSend(Symbol(), OP_SELL, Lots, Bid, Slippage, 0, 0, "TMA robot", Magic, 0, Red);
si (billete > 0)
{
SL = NormalizeDouble(Bid + StopLoss*Point, Digits);
TP = NormalizeDouble(Oferta - TakeProfit*Punto, Dígitos);
if (OrderSelect(ticket, SELECT_BY_TICKET))
if (!OrderModify(ticket, OrderOpenPrice(), SL, TP, 0))
Print("¡Error de modificación del pedido!)
}
}
if (CountBuy() == 0 && Ask <= PriceLow)
{
ticket = OrderSend(Symbol(), OP_BUY, Lots, Ask, Slippage, 0, 0, "TMA robot", Magic, 0, Blue);
si (billete > 0)
{
TP = NormalizeDouble(Ask + TakeProfit*Point, Digits);
SL = NormalizeDouble(Ask - StopLoss*Point, Digits);
if (OrderSelect(ticket, SELECT_BY_TICKET))
if(!OrderModify(ticket, OrderOpenPrice(), SL, TP, 0))
Print("¡Error al modificar la orden de compra!)
} else Print("Error al abrir la orden de compra");
}
//+------------------------------------------------------------------+
//| Función de inicialización de expertos |
//+------------------------------------------------------------------+
int init()
{
//--------
//--------
retorno (0);
}
//+------------------------------------------------------------------+
//| función de tic experto |
//+------------------------------------------------------------------+
void OnTick()
{
PriceHigh = iCustom(NULL, 0, "TMA_Fair", TimeFrame, HalfLength, Price, ATRMultiplier, ATRPeriod, Interpolate, 1, 0);
PriceLow = iCustom(NULL, 0, "TMA_Fair", TimeFrame, HalfLength, Price, ATRMultiplier, ATRPeriod, Interpolate, 2, 0);
if(CountSell() == 0 && Bid >= PriceHigh)
{
ticket = OrderSend(Symbol(), OP_SELL, Lots, Bid, Slippage, 0, 0, "TMA robot", Magic, 0, Red);
si (billete > 0)
{
SL = NormalizeDouble(Bid + StopLoss*Point, Digits);
TP = NormalizeDouble(Oferta - TakeProfit*Punto, Dígitos);
if (OrderSelect(ticket, SELECT_BY_TICKET))
if (!OrderModify(ticket, OrderOpenPrice(), SL, TP, 0))
Print("¡Error al modificar la orden de venta!)
} else Print("¡Error al abrir la orden de venta!)
}
if (CountBuy() == 0 && Ask <= PriceLow)
{
ticket = OrderSend(Symbol(), OP_BUY, Lots, Ask, Slippage, 0, 0, "TMA robot", Magic, 0, Blue);
si (billete > 0)
{
TP = NormalizeDouble(Ask + TakeProfit*Point, Digits);
SL = NormalizeDouble(Ask - StopLoss*Point, Digits);
if (OrderSelect(ticket, SELECT_BY_TICKET))
if(!OrderModify(ticket, OrderOpenPrice(), SL, TP, 0))
Print("¡Error al modificar la orden de compra!)
} else Print("Error al abrir la orden de compra");
}
if (Ask <= PriceLow && CountSell() > 0)
{
for (int i = OrdersTotal() -1; i>0; i--)
{
if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
{
if (OrderMagicNumber() == Magic && OrderType() == OP_SELL)
if (!OrderClose(OrderTicket(), OrderLots(), Ask, Slippage, Black))
Print("¡Error de orden de venta de OrderClose!)
}
}
}
if (Bid >= PriceHigh && CountBuy() > 0)
{
for (int i = OrdersTotal() -1; i>0; i--)
{
if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
{
if (OrderMagicNumber() == Magic && OrderType() == OP_BUY)
if(!OrderClose(OrderTicket(), OrderLots(), Bid, Slippage, Black))
Print("¡Error de compra de OrderClose!)
}
}
}
}
//+------------------------------------------------------------------+
int CuentaVenta()
{
int cuenta = 0;
for (int trade = OrdersTotal()-1; trade>=0; trade--)
{
if(OrderSelect(trade, SELECT_BY_POS, MODE_TRADES))
{
if(OrderSymbol() == Symbol() && OrderMagicNumber() == Magic && OrderType() == OP_SELL)
cuenta++;
}
}
return(count);
}//+------------------------------------------------------------------+
int CuentaCompra()
{
int cuenta = 0;
for (int trade = OrdersTotal()-1; trade>=0; trade--)
{
if(OrderSelect(trade, SELECT_BY_POS, MODE_TRADES))
{
if(OrderSymbol() == Symbol() && OrderMagicNumber() == Magic && OrderType() == OP_BUY)
cuenta++;
}
}
return(count);
}
//+------------------------------------------------------------------+
//| Función de desinicialización experta |
//+------------------------------------------------------------------+
int deinit()
{
//+-------
//+-------
devolver (0)
}
//+------------------------------------------------------------------+
//| función de inicio experto |
//+------------------------------------------------------------------+
int Inicio()
{
//-----
bool error = fals;
if (LBT!=Time[0]) {
if (OrdersTotal()!=0) {
for (int i=0; i<OrdersTotal(); i++) {
if (OrderSelect(i,SELECT_BY_POS)&&OrderSymbol()==Symbol()&&OrderType()<2) {
double SL = OrderStopLoss();
si OrderType()==0) {
switch (TralType) {
caso 0: SL = iSAR(NULL,0,SAR_Step,SAR_Max,0);
romper;
caso 1: SL = High[1] - iATR(NULL,0,ATR,Period,1)*ATR_K;
romper;
caso 2: SL = iCustom(NULL,0, "VininI_HMAsound&",HMA_Period,HMA_Method,3,HMA_Shift, fals,fals,",1,0,0);
romper;
}
si (SL<OrderStopLoss())
SL = OrderStopLoss();
}
si (OrderType()==1) {
switch (TralType) {
caso 0: SL = iSAR(NULL,0,SAR_Step,SAR_Max,0);
romper;
caso 1: SL = Low[1] + iATR(NULL,0,ATR,Period,1)*ATR_K;
romper;
caso 2: SL = iCustom(NULL,0, "VininI_HMAsound&",HMA_Period,HMA_Method,3,HMA_Shift, fals,fals,",1,0,0);
romper;
}
si (SL>OrderStopLoss())
SL = OrderStopLoss();
}
si (SL!=OrderStopLoss()) {
if(!OrderModify(OrderTicket(),OrderOpenPrice(),SL,OrderTakeProfit(),0))
error = true;
}
}
}
}
si (!error)
LBT = Tiempo[0];
}
retorno (0);
}
//+------------------------------------------------------------------+
Para ganar experiencia en esta área, voy a escribir 25 EAs gratis para sus ideas y estrategias interesantes
Sólo quedan 19 EAs
Heañadido la función trailing stop al EA y la he comentado y produce dos errores. - Puede que tenga algunos errores, pero no sé cómo solucionarlos. Sin embargo, las operaciones se cierran según la antigua estrategia después de que el precio haya tocado el límite superior del canal y el inferior, respectivamente. Supongo que aquí también hay que cambiar algo. - Vuelve a llamar a los chicos del ejército de DNR.
#property copyright "Copyright 2017, MetaQuotes Software Corp."
#enlace de propiedad "https://www.mql5.com"
#versión de la propiedad "1.00"
#propiedad estricta
//---------------------------------------------------------
extern double Lots = 0,01;
extern int TomaDeBeneficio = 600;
extern int StopLoss = 25;
extern int Magia = 0001;
extern int Deslizamiento = 3;
extern int TralType = 0; // 0-SAR, 1-ATR, 2-HMA.
extern double SAR_Step = 0.02;
extern double SAR_Max = 0.2;
extern int ATR_Period = 14;
extern double ATR_K = 2.0;
extern inttern HMA_Period = 16;
extern intern HMA_Method = 3;
extern inttern HMA_Shift = 0;
datetime LBT;
//---------------------------------------------------------
extern string TMA = "Parámetros del indicador TMA";
cadena externa TimeFrame = "marco temporal actual";
extern int MediaLongitud = 56;
extern int Precio = "PRICE_CLOSE;
extern double ATRMultiplier = 2.0;
extern inttern ATRPeriod = 100;
extern bool Interpolar = true;
//---------------------------------------------------------
doble PriceHigh, PriceLow, SL, TP;
int ticket;
//+------------------------------------------------------------------+
//| Función de inicialización de expertos |
//+------------------------------------------------------------------+
int OnInit()
{
si (Dígitos == 3 || Dígitos = 5)
{
TakeProfit *= 10;
StopLoss *= 10;
Deslizamiento *= 10;
}
return(INIT_SUCCEED);
}
//+------------------------------------------------------------------+
//| Función de desinicialización experta |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
}
//+------------------------------------------------------------------+
//| función de tic experto |
//+------------------------------------------------------------------+
void OnTick()
{
PriceHigh = iCustom(NULL, 0, "TMA_Fair", TimeFrame, HalfLength, Price, ATRMultiplier, ATRPeriod, Interpolate, 1, 0);
PriceLow = iCustom(NULL, 0, "TMA_Fair", TimeFrame, HalfLength, Price, ATRMultiplier, ATRPeriod, Interpolate, 2, 0);
if(CountSell() == 0 && Bid >= PriceHigh)
{
ticket = OrderSend(Symbol(), OP_SELL, Lots, Bid, Slippage, 0, 0, "TMA robot", Magic, 0, Red);
si (billete > 0)
{
SL = NormalizeDouble(Bid + StopLoss*Point, Digits);
TP = NormalizeDouble(Oferta - TakeProfit*Punto, Dígitos);
if (OrderSelect(ticket, SELECT_BY_TICKET))
if (!OrderModify(ticket, OrderOpenPrice(), SL, TP, 0))
Print("¡Error de modificación del pedido!)
}
}
if (CountBuy() == 0 && Ask <= PriceLow)
{
ticket = OrderSend(Symbol(), OP_BUY, Lots, Ask, Slippage, 0, 0, "TMA robot", Magic, 0, Blue);
si (billete > 0)
{
TP = NormalizeDouble(Ask + TakeProfit*Point, Digits);
SL = NormalizeDouble(Ask - StopLoss*Point, Digits);
if (OrderSelect(ticket, SELECT_BY_TICKET))
if(!OrderModify(ticket, OrderOpenPrice(), SL, TP, 0))
Print("¡Error al modificar la orden de compra!)
} else Print("Error al abrir la orden de compra");
}
//+------------------------------------------------------------------+
//| Función de inicialización de expertos |
//+------------------------------------------------------------------+
int init()
{
//--------
//--------
retorno (0);
}
//+------------------------------------------------------------------+
//| función de tic experto |
//+------------------------------------------------------------------+
void OnTick()
{
PriceHigh = iCustom(NULL, 0, "TMA_Fair", TimeFrame, HalfLength, Price, ATRMultiplier, ATRPeriod, Interpolate, 1, 0);
PriceLow = iCustom(NULL, 0, "TMA_Fair", TimeFrame, HalfLength, Price, ATRMultiplier, ATRPeriod, Interpolate, 2, 0);
if(CountSell() == 0 && Bid >= PriceHigh)
{
ticket = OrderSend(Symbol(), OP_SELL, Lots, Bid, Slippage, 0, 0, "TMA robot", Magic, 0, Red);
si (billete > 0)
{
SL = NormalizeDouble(Bid + StopLoss*Point, Digits);
TP = NormalizeDouble(Oferta - TakeProfit*Punto, Dígitos);
if (OrderSelect(ticket, SELECT_BY_TICKET))
if (!OrderModify(ticket, OrderOpenPrice(), SL, TP, 0))
Print("¡Error al modificar la orden de venta!)
} else Print("¡Error al abrir la orden de venta!)
}
if (CountBuy() == 0 && Ask <= PriceLow)
{
ticket = OrderSend(Symbol(), OP_BUY, Lots, Ask, Slippage, 0, 0, "TMA robot", Magic, 0, Blue);
si (billete > 0)
{
TP = NormalizeDouble(Ask + TakeProfit*Point, Digits);
SL = NormalizeDouble(Ask - StopLoss*Point, Digits);
if (OrderSelect(ticket, SELECT_BY_TICKET))
if(!OrderModify(ticket, OrderOpenPrice(), SL, TP, 0))
Print("¡Error al modificar la orden de compra!)
} else Print("Error al abrir la orden de compra");
}
if (Ask <= PriceLow && CountSell() > 0)
{
for (int i = OrdersTotal() -1; i>0; i--)
{
if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
{
if (OrderMagicNumber() == Magic && OrderType() == OP_SELL)
if (!OrderClose(OrderTicket(), OrderLots(), Ask, Slippage, Black))
Print("¡Error de cierre de la orden de venta!)
}
}
}
if (Bid >= PriceHigh && CountBuy() > 0)
{
for (int i = OrdersTotal() -1; i>0; i--)
{
if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
{
if (OrderMagicNumber() == Magic && OrderType() == OP_BUY)
if(!OrderClose(OrderTicket(), OrderLots(), Bid, Slippage, Black))
Print("¡Error de compra de OrderClose!)
}
}
}
}
//+------------------------------------------------------------------+
int CuentaVenta()
{
int cuenta = 0;
for (int trade = OrdersTotal()-1; trade>=0; trade--)
{
if(OrderSelect(trade, SELECT_BY_POS, MODE_TRADES))
{
if(OrderSymbol() == Symbol() && OrderMagicNumber() == Magic && OrderType() == OP_SELL)
cuenta++;
}
}
return(count);
}//+------------------------------------------------------------------+
int CuentaCompra()
{
int cuenta = 0;
for (int trade = OrdersTotal()-1; trade>=0; trade--)
{
if(OrderSelect(trade, SELECT_BY_POS, MODE_TRADES))
{
if(OrderSymbol() == Symbol() && OrderMagicNumber() == Magic && OrderType() == OP_BUY)
cuenta++;
}
}
return(count);
}
//+------------------------------------------------------------------+
//| Función de desinicialización experta |
//+------------------------------------------------------------------+
int deinit()
{
//+-------
//+-------
devolver (0)
}
//+------------------------------------------------------------------+
//| función de inicio experto |
//+------------------------------------------------------------------+
int Inicio()
{
//-----
bool error = fals;
if (LBT!=Time[0]) {
if (OrdersTotal()!=0) {
for (int i=0; i<OrdersTotal(); i++) {
if (OrderSelect(i,SELECT_BY_POS)&&OrderSymbol()==Symbol()&&OrderType()<2) {
double SL = OrderStopLoss();
si OrderType()==0) {
switch (TralType) {
caso 0: SL = iSAR(NULL,0,SAR_Step,SAR_Max,0);
romper;
caso 1: SL = High[1] - iATR(NULL,0,ATR,Period,1)*ATR_K;
romper;
caso 2: SL = iCustom(NULL,0, "VininI_HMAsound&",HMA_Period,HMA_Method,3,HMA_Shift, fals,fals,",1,0,0);
romper;
}
si (SL<OrderStopLoss())
SL = OrderStopLoss();
}
si (OrderType()==1) {
switch (TralType) {
caso 0: SL = iSAR(NULL,0,SAR_Step,SAR_Max,0);
romper;
caso 1: SL = Low[1] + iATR(NULL,0,ATR,Period,1)*ATR_K;
romper;
caso 2: SL = iCustom(NULL,0, "VininI_HMAsound&",HMA_Period,HMA_Method,3,HMA_Shift, fals,fals,",1,0,0);
romper;
}
si (SL>OrderStopLoss())
SL = OrderStopLoss();
}
si (SL!=OrderStopLoss()) {
if(!OrderModify(OrderTicket(),OrderOpenPrice(),SL,OrderTakeProfit(),0))
error = true;
}
}
}
}
si (!error)
LBT = Tiempo[0];
}
retorno (0);
}
//+------------------------------------------------------------------+
Heañadido la función de trailing stop al Asesor Experto, y lo he compilado y tengo dos errores. - He perdido la cabeza, no consigo averiguar cómo arreglarlas para conseguir un búho. Sin embargo, las operaciones se cierran según la antigua estrategia después de que el precio haya tocado el límite superior del canal y el inferior, respectivamente. Supongo que aquí también hay que cambiar algo. - Devuélvelo a los chicos del ejército de la RPD.
No deberías hacer spam.
Pido disculpas si he hecho algo mal. Todavía no sé cómo he hecho spam... Creo que dirigí dos mensajes a dos camaradas. ¿O no está permitido? - Es culpa mía.