ФорумРазделы

КАРАУЛ!!! ПОМОГИТЕ. осталось 4 часа 45 минут!!! - страница 4

Новый комментарий
//+------------------------------------------------------------------+
//| Cempionat2010.mq5 |
//| Victor Pavlyuk |
//| |
//+------------------------------------------------------------------+
#property copyright "Victor Pavljuk"
#property version "1.00"

input int StartHour = 10;
input int EndHour = 20;
input double Lots = 5;

//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void OnInit()
{

}
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
void OnTick()
{
MqlTradeRequest request;
MqlTradeResult result;
MqlDateTime dt;
bool bord=false, sord=false;
bool bords=false, sords=false;
int i;
ulong ticket;
datetime t[];
double h[], l[], ma[], atr_h[], atr_l[],
lev_h, lev_l,
Spread =NormalizeDouble(SymbolInfoDouble(Symbol(),SYMBOL_ASK) - SymbolInfoDouble(Symbol(),SYMBOL_BID),_Digits);
request.symbol =Symbol();
request.volume =Lots;
request.tp =0;
request.deviation =0;
request.type_filling=ORDER_FILLING_RETURN;

TimeCurrent(dt);
i=(dt.hour+1)*60;
if(CopyTime(Symbol(),0,0,i,t)<i || CopyHigh(Symbol(),0,0,i,h)<i || CopyLow(Symbol(),0,0,i,l)<i)
{
Print("Не удалось скопировать таймсерию!");
return;
}
ArraySetAsSeries(t,true);
ArraySetAsSeries(h,true);
ArraySetAsSeries(l,true);
lev_h=h[0];
lev_l=l[0];
for(i=1;i<ArraySize(t) && MathFloor(t[i]/86400)==MathFloor(t[0]/86400);i++)
{
if(h[i]>lev_h) lev_h=h[i];
if(l[i]<lev_l) lev_l=l[i];
}
lev_h+=Spread+_Point;
lev_l-=_Point;



for(i=0;i<OrdersTotal();i++)
{
ticket=OrderGetTicket(i);
if(OrderGetString(ORDER_SYMBOL)==Symbol())
{

if(OrderGetInteger(ORDER_TYPE)==ORDER_TYPE_BUY_STOP)
{
if(dt.hour>=StartHour && dt.hour<EndHour )
{
Print("Есть ордер byu2!");
return;
}
else
{
request.action=TRADE_ACTION_REMOVE;
request.order=ticket;
OrderSend(request,result);
return;
}
bords=true;
}
if(OrderGetInteger(ORDER_TYPE)==ORDER_TYPE_SELL_STOP)
{
if(dt.hour>=StartHour && dt.hour<EndHour )
{
Print("Есть ордер Sel2");
return;
}
else
{
request.action=TRADE_ACTION_REMOVE;
request.order=ticket;
OrderSend(request,result);
return;
}
sords=true;
}
}
}

request.action=TRADE_ACTION_PENDING;
if(dt.hour>=StartHour && dt.hour<EndHour)
{
if(bords==false )
{
request.price=NormalizeDouble(lev_h,_Digits);
request.sl=NormalizeDouble(lev_h-1000*_Point,_Digits);
request.tp=NormalizeDouble(lev_h+138*_Point,_Digits);
request.type=ORDER_TYPE_BUY_STOP;
OrderSend(request,result);
}
if(sords==false )
{
request.price=NormalizeDouble(lev_l,_Digits);
request.sl=NormalizeDouble(lev_l+1000*_Point,_Digits);
request.tp=NormalizeDouble(lev_l-138*_Point,_Digits);
request.type=ORDER_TYPE_SELL_STOP;
OrderSend(request,result);
}
}
}
//+------------------------------------------------------------------+

не проходит тест даже советник 2010 года

тогда работал 




fyords:

Вот у Вас пишется причина:

Так что там написано? А потом с этим в справку.

 

10013

TRADE_RETCODE_INVALID

Неправильный запрос

ERR_TRADE_SEND_FAILED

4756

Не удалось отправить торговый запрос

 
int OpenShort(double volume=5,
 int slippage=10000,
 string comment="",
 int magic=888)
 {
 MqlTradeRequest my_trade;
 MqlTradeResult my_trade_result;

 my_trade.action=TRADE_ACTION_DEAL;
 my_trade.symbol=Symbol();
 my_trade.volume=NormalizeDouble(volume,1);
 my_trade.price=NormalizeDouble(Bid,_Digits);
 my_trade.sl=NormalizeDouble(Bid + StopLoss*_Point,_Digits);
 my_trade.tp=NormalizeDouble(Bid - TakeProfit*_Point,_Digits);
 my_trade.deviation=slippage;
 my_trade.type=ORDER_TYPE_SELL;
 my_trade.type_filling=ORDER_FILLING_RETURN;
 my_trade.comment=comment;
 my_trade.magic=magic;

 ResetLastError();

 if(OrderSend(my_trade,my_trade_result))
 {
 Print("Код результата операции - ",my_trade_result.retcode);
 }
 else
 {
 Print("Код результата операции - ",my_trade_result.retcode);
 Print("Ошибка открытия ордера = ",GetLastError());
 }
 return(0);
 }

 Шортим по бидам, а не по аскам + стопы выше цены входа, а тейки ниже.

Было: 

my_trade.sl=NormalizeDouble(Ask-StopLoss*_Point,_Digits);
my_trade.tp=NormalizeDouble(Ask+TakeProfit*_Point,_Digits);

 Стало:

my_trade.sl=NormalizeDouble(Bid+StopLoss*_Point,_Digits);
my_trade.tp=NormalizeDouble(Bid-TakeProfit*_Point,_Digits);

Поменялись  также плюсы и минусы (хоть и выделил жирным, но это не заметно на экране).

Удачи 

кроме того

MqlTradeRequest my_trade={0};
MqlTradeResult my_trade_result={0};

для вас написали 5ый! mql. Объектно-ориентированный. Наследуйте Ctrade и будет вам счастье. Не изобретайте велосипед. 

IceBerg:

для вас написали 5ый! mql. Объектно-ориентированный. Наследуйте Ctrade и будет вам счастье. Не изобретайте велосипед. 

Бестолковый совет за два часа до окончания - разобраться в стандартной библиотеке сложнее, нежели разобраться с OrderSend. 

Уже ошибка исправлена. Осталось только заслать (если нет других ошибок)

IceBerg:

для вас написали 5ый! mql. Объектно-ориентированный. Наследуйте Ctrade и будет вам счастье. Не изобретайте велосипед. 

Сразу без ошибок писать скучно :)

Надо пару раз наступить на грабли, а потом поднять их.

Всем спасибо помогло

А еще как убрать

 2012.09.21 22:42:08 Core 1 2012.05.08 13:00:00 not enough money [instant buy 5.00 EURUSD at 1.30227 sl: 1.29227 tp: 1.30765]

а то не вытягивает тест за год 

pavivas:

Всем спасибо помогло

А еще как убрать

 2012.09.21 22:42:08 Core 1 2012.05.08 13:00:00 not enough money [instant buy 5.00 EURUSD at 1.30227 sl: 1.29227 tp: 1.30765]

а то не вытягивает тест за год 

Уменьшить лот меньше 5.00.
fyords:

Сразу без ошибок писать скучно :)

Надо пару раз наступить на грабли, а потом поднять их.

так и надо на ошибках учиться

12345678
Новый комментарий