Проблем с един код

[ogi_bogi]

Здравейте,
пиша един код и като го тествам пъвоначално ми отваря къса и дълга позиция. До тука ОК. Отварянето на следваща къса е добре, но дълги не ми отваря. Не мога да разбера каква е причината- не ми дава никаква грешка и никакво съобщение. Моля, за помощ.


//---- отварне на следващи поръчки ---------------------------------------------------------+
//================================================== ================================================== ===============
if(OrdersTotal()>=1)
{
if(MAS()<TotalProfit)
{
b=0;
s=0;
for(k=0; k<OrdersTotal() ; k++)
{
OrderSelect(k,SELECT_BY_POS,MODE_TRADES);
if(OrderType()==OP_BUY)
b=b+OrderLots();
if(OrderType()==OP_SELL)
s=s+OrderLots();
}
Print("s - ", s);
Print("b - ", b);
ssum=s/(s+b);
bsum=b/(s+b);

//---------------------------------------------------------------------------------------------------------------------------------------------

if(iStochastic(NULL,0,15,3,3,MODE_SMA,1,MODE_MAIN, 1)<iStochastic(NULL,0,15,3,3,MODE_SMA,1,MODE_SIGNA L,1) &&
iStochastic(NULL,0,15,3,3,MODE_SMA,1,MODE_MAIN,0)> iStochastic(NULL,0,15,3,3,MODE_SMA,1,MODE_SIGNAL,0 ))
{
for(k=OrdersTotal(); k>=0; k--)
{
OrderSelect(k,SELECT_BY_POS,MODE_TRADES);
if(OrderType()==OP_BUY)
{
if(Ask<OrderOpenPrice()-20*Point)
{
OrderSend(Symbol(),OP_BUY,OrderLots()+0.01,Ask,1,0 ,0,NULL,0,0,clrGreen);
Print("OrderSend failed with error #",GetLastError());
return(0);
}
else
return(0);
}
}
}

//-----------------------------------------------------------------------------------------------------------------

if(iStochastic(NULL,0,15,3,3,MODE_SMA,1,MODE_MAIN, 1)>iStochastic(NULL,0,15,3,3,MODE_SMA,1,MODE_SIGNA L,1) &&
iStochastic(NULL,0,15,3,3,MODE_SMA,1,MODE_MAIN,0)< iStochastic(NULL,0,15,3,3,MODE_SMA,1,MODE_SIGNAL,0 ))
{
for(k=OrdersTotal(); k>=0; k--)
{
OrderSelect(k,SELECT_BY_POS,MODE_TRADES);
if(OrderType()==OP_SELL)
{
if(Bid>OrderOpenPrice()+20*Point)
{
OrderSend(Symbol(),OP_SELL,OrderLots()+0.01,Bid,1, 0,0,NULL,0,0,clrRed);
return(0);
}
else
return(0);
}

}
}

}

}

Благодаря предварително за съветите!

[minkov]

Пусни целия код да го тестваме де, та да видим какво не прави и защо не го прави...

[kypa]

ОрдерСенд ако замениш с Принт изписва ли нещо когато трябва да отваря позиции?

[minkov]

ОрдерСенд ако замениш с Принт изписва ли нещо когато трябва да отваря позиции?

То "print" в тестера не работи, може да пробва с "Comment", ама е по-добре да разгледа в логера на тестера какво пише и каква грешка му извежда

[kypa]

Язе с тестерът реално никога не съм работил, нормално е да не ги знам тез работи.
Идеята е да се види на какъв етап точно е проблема - дали в нареждането на поръчката или алгоритмите преди нея. "Разделяй и владей" един вид.

[ogi_bogi]

Този Print , който е за грешката реално нищо не дава като грешка. След условието : if(Ask<OrderOpenPrice()-20*Point) имам чуство , че програмата не минава (прескача го).
Частта където се отварят къси работи и това ме озадачава.
На картинката съм го пуснал експерта но когато трябва да отвори следваща дълга не го прави (отбелязал съм със стрелка) а и няма никаква грешка от платформата.

[minkov]

Този Print , който е за грешката реално нищо не дава като грешка. След условието : if(Ask<OrderOpenPrice()-20*Point) имам чуство , че програмата не минава (прескача го).
Частта където се отварят къси работи и това ме озадачава.
На картинката съм го пуснал експерта но когато трябва да отвори следваща дълга не го прави (отбелязал съм със стрелка) а и няма никаква грешка от платформата.

Това Print в тестера нищо няма да ти изкара, щото то не работи в тестера.
Вместо print сложи Comment("Нещо си тука да пише") и го наслагай след всеки условен оператор за да видиш къде се чупи
А ако искаш наистина сложи тука целия код и ще го тествам и ще ти го върна работещ

[ogi_bogi]

//+------------------------------------------------------------------+
//| 24.05.2017.mq4 |
//| Copyright 2014, MetaQuotes Software Corp. |
//| http://www.mql5.com |
//+------------------------------------------------------------------+
#property copyright "Copyright 2014, MetaQuotes Software Corp."
#property link "http://www.mql5.com"
#property version "1.00"
#property strict
//---Parameters------------------------------------------------------+
double extern Lot=0.01;
double extern TrailingStop=30;
double extern TotalProfit=1;
double extern TimeSt=1;
int k,n;
double Lot1, Profit,BUYProfit,SELLProfit,ssum,bsum;
double MasOreder1[200][5];
double pips=0;
bool OSL;

//+------------------------------------------------------------------+
//| Expert initialization function |
//+------------------------------------------------------------------+
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int Init()
{
return(0);
}
//+------------------------------------------------------------------+
//| Expert deinitialization function |
//+------------------------------------------------------------------+
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int Deinit()
{
return(0);
}
//+------------------------------------------------------------------+
//| Expert tick function |
//+------------------------------------------------------------------+
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int start()
{
double s=0;
double b=0;
Print("Profit is ",MAS());
//================================================== ================================================== ===============
//----отваряне на първа поръчка -----------------------------------------------------------------------------+
//================================================== ================================================== ===============
if(OrdersTotal()<1)
{

if(iStochastic(NULL,1,15,3,3,MODE_SMA,1,MODE_MAIN, 1)<iStochastic(NULL,1,15,3,3,MODE_SMA,1,MODE_SIGNA L,1) &&
iStochastic(NULL,1,15,3,3,MODE_SMA,1,MODE_MAIN,0)> iStochastic(NULL,1,15,3,3,MODE_SMA,1,MODE_SIGNAL,0 ))
{
OrderSend(Symbol(),OP_BUY,0.01,Ask,1,0,0,NULL,0,0, clrGreen);
OrderSend(Symbol(),OP_SELL,0.01,Bid,1,0,0,NULL,0,0 ,clrRed);
return(0);
}

if(iStochastic(NULL,1,15,3,3,MODE_SMA,1,MODE_MAIN, 1)>iStochastic(NULL,1,15,3,3,MODE_SMA,1,MODE_SIGNA L,1) &&
iStochastic(NULL,1,15,3,3,MODE_SMA,1,MODE_MAIN,0)< iStochastic(NULL,1,15,3,3,MODE_SMA,1,MODE_SIGNAL,0 ))
{
OrderSend(Symbol(),OP_SELL,0.01,Bid,1,0,0,NULL,0,0 ,clrRed);
OrderSend(Symbol(),OP_BUY,0.01,Ask,1,0,0,NULL,0,0, clrGreen);
return(0);
}
}
//================================================== ================================================== ===============
//---- отварне на следващи поръчки ---------------------------------------------------------+
//================================================== ================================================== ===============
if(OrdersTotal()>=1)
{
if(MAS()<TotalProfit)
{
b=0;
s=0;
for(k=0; k<OrdersTotal() ; k++)
{
OrderSelect(k,SELECT_BY_POS,MODE_TRADES);
if(OrderType()==OP_BUY)
b=b+OrderLots();
if(OrderType()==OP_SELL)
s=s+OrderLots();
}
Print("s - ", s);
Print("b - ", b);
ssum=s/(s+b);
bsum=b/(s+b);

//---------------------------------------------------------------------------------------------------------------------------------------------

if(iStochastic(NULL,0,15,3,3,MODE_SMA,1,MODE_MAIN, 1)<iStochastic(NULL,0,15,3,3,MODE_SMA,1,MODE_SIGNA L,1) &&
iStochastic(NULL,0,15,3,3,MODE_SMA,1,MODE_MAIN,0)> iStochastic(NULL,0,15,3,3,MODE_SMA,1,MODE_SIGNAL,0 ))
{
for(k=OrdersTotal(); k>=0; k--)
{
OrderSelect(k,SELECT_BY_POS,MODE_TRADES);
if(OrderType()==OP_BUY)
{
if(Ask<=OrderOpenPrice()-20*Point)
{
OrderSend(Symbol(),OP_BUY,OrderLots()+0.01,Ask,1,0 ,0,NULL,0,0,clrGreen);
Print("OrderSend failed with error #",GetLastError());
return(0);
}
else
return(0);
}
}
}

//-----------------------------------------------------------------------------------------------------------------

if(iStochastic(NULL,0,15,3,3,MODE_SMA,1,MODE_MAIN, 1)>iStochastic(NULL,0,15,3,3,MODE_SMA,1,MODE_SIGNA L,1) &&
iStochastic(NULL,0,15,3,3,MODE_SMA,1,MODE_MAIN,0)< iStochastic(NULL,0,15,3,3,MODE_SMA,1,MODE_SIGNAL,0 ))
{
for(k=OrdersTotal(); k>=0; k--)
{
OrderSelect(k,SELECT_BY_POS,MODE_TRADES);
if(OrderType()==OP_SELL)
{
if(Bid>OrderOpenPrice()+20*Point)
{
OrderSend(Symbol(),OP_SELL,OrderLots()+0.01,Bid,1, 0,0,NULL,0,0,clrRed);
return(0);
}
else
return(0);
}

}
}

}

}

//================================================== ================================================== ===============
//---Затваряне на всички поръчки от двата вида---------------------------------------------------------
//================================================== ================================================== ===============
b=0;
s=0;
for(k=OrdersTotal(); k>=0 ; k--)
{
OrderSelect(k,SELECT_BY_POS,MODE_TRADES);
if(OrderType()==OP_BUY)
b=b+OrderLots();
if(OrderType()==OP_SELL)
s=s+OrderLots();
}

if(s>0 && b>0)
{
if(MAS()>TotalProfit)
{
for(k=OrdersTotal(); k>=0 ; k--)
{
OrderSelect(k,SELECT_BY_POS,MODE_TRADES);
if(OrderType()==OP_BUY)
OrderClose(OrderTicket(),OrderLots(),Bid,1,White);
if(OrderType()==OP_SELL)
OrderClose(OrderTicket(),OrderLots(),Ask,1,White);
}
}


}
//================================================== ================================================== ===============
//---модифиира последната поръчка и отваря следваща поръчка---------------------------------------------------------
//================================================== ================================================== ===============
else
{
for(k=OrdersTotal(); k>=0 ; k--)
OrderSelect(k,SELECT_BY_POS,MODE_TRADES);

if(OrderType()==OP_BUY && Ask>OrderOpenPrice())
{
//---модифициране на поръчките--
MODY();
for(k=0; k<OrdersTotal(); k++)
OrderSelect(k,SELECT_BY_POS,MODE_TRADES);
if(OrderStopLoss()>0 && iMA(NULL,1,100,8,MODE_EMA,PRICE_CLOSE,0)<Ask)
OrderSend(Symbol(),OP_BUY,OrderLots()-0.01,Ask,1,0,0,NULL,0,0,clrGreen);
return(0);
}
if(OrderType()==OP_SELL && Bid<OrderOpenPrice())
{
//---модифициране на поръчките--
MODY();
for(k=0; k<OrdersTotal(); k++)
OrderSelect(k,SELECT_BY_POS,MODE_TRADES);
if(OrderStopLoss()>0 && iMA(NULL,1,100,8,MODE_EMA,PRICE_CLOSE,0)>Bid)
OrderSend(Symbol(),OP_SELL,OrderLots()-0.01,Bid,1,0,0,NULL,0,0,clrRed);
return(0);
}
}

//================================================== ================================================== ===============
//----затварне на всички поръчки ако са от един вид ----------------------------------------+
//================================================== ================================================== ===============
b=0;
s=0;
for(k=0; k<OrdersTotal() ; k++)
{
OrderSelect(k,SELECT_BY_POS,MODE_TRADES);
if(OrderType()==OP_BUY)
b=b+OrderLots();
if(OrderType()==OP_SELL)
s=s+OrderLots();
}
if(b==0 || s==0)
{
if(OrdersTotal()>=1)
{
for(k=OrdersTotal(); k>=0; k--)
OrderSelect(k,SELECT_BY_POS,MODE_TRADES);
if(OrderStopLoss()>0)
OSL=true;
if(OrderStopLoss()==0)
OSL=false;
//--ако няма модифицирани поръчки--------
if(OSL==false)
{
for(k=0; k>OrdersTotal(); k++)
OrderSelect(k,SELECT_BY_POS,MODE_TRADES);
if(OrderType()==OP_BUY)
{
if(MAS()>TotalProfit)
for(k=OrdersTotal(); k>=0 ; k--)
{
OrderSelect(k,SELECT_BY_POS,MODE_TRADES);
OrderClose(OrderTicket(),OrderLots(),Bid,1,White);
}
}
if(OrderType()==OP_SELL)
{
if(MAS()>TotalProfit)
for(k=OrdersTotal(); k>=0 ; k--)
{
OrderSelect(k,SELECT_BY_POS,MODE_TRADES);
OrderClose(OrderTicket(),OrderLots(),Ask,1,White);
}
}
return(0);
}
}
}

return(0);
}
//----------------------------------------------------------------------------------------------------------
//------Процедури ползвани---------------------------------------------------------------------------------+
//----------------------------------------------------------------------------------------------------------
//--- вкарване на данни от поръчките в масив---------------------------------------------------------------
double MAS()
{
int k,n;
double MasOreder[200][5];
for(k=0; k<200; k++)
{
for(n=0; n<5; n++)
MasOreder[k,n]=0;
}
for(k=0; k<OrdersTotal(); k++)
{
OrderSelect(k,SELECT_BY_POS,MODE_TRADES);
MasOreder[k,1]=OrderOpenPrice();
MasOreder[k,2]=OrderLots();
MasOreder[k,3]=OrderProfit();
MasOreder[k,4]=OrderSwap();
}
double AllProfit=0;
for(k=0; k<OrdersTotal(); k++)
{
AllProfit=AllProfit+MasOreder[k,3]+MasOreder[k,4];
}
return(AllProfit);
}
//---модифициране на поръчките------------------------------------------------------------
int MODY()
{
int k;
for(k=0; k<OrdersTotal(); k++)
{
OrderSelect(k,SELECT_BY_POS,MODE_TRADES);
{
//--- long position is opened
if(OrderType()==OP_BUY)
{
if(OrderStopLoss()==0 && OrderProfit()>TotalProfit)
{
if(!OrderModify(OrderTicket(),OrderOpenPrice(),Bid-10*Point,OrderTakeProfit(),0,Green))
Print("OrderModify error ",GetLastError());
return(0);
}

if(OrderStopLoss()>0 && OrderProfit()>TotalProfit)
{
if(OrderStopLoss()<Bid-Point*TrailingStop)
{
//--- modify order and exit
if(!OrderModify(OrderTicket(),OrderOpenPrice(),Bid-Point*TrailingStop,OrderTakeProfit(),0,Green))
Print("OrderModify error ",GetLastError());
return(0);
}
}
}
else // go to short position
{
if(OrderStopLoss()==0 && OrderProfit()>TotalProfit)
{
if(!OrderModify(OrderTicket(),OrderOpenPrice(),Ask +10*Point,OrderTakeProfit(),0,Red))
Print("OrderModify error ",GetLastError());
return(0);
}

if(OrderStopLoss()>0 && OrderProfit()>TotalProfit)
{
if(OrderStopLoss()>Ask+Point*TrailingStop)
{
//--- modify order and exit
if(!OrderModify(OrderTicket(),OrderOpenPrice(),Ask +Point*TrailingStop,OrderTakeProfit(),0,Red))
Print("OrderModify error ",GetLastError());
return(0);
}

}
}
}
}
return(0);
}
//+------------------------------------------------------------------+


//+------------------------------------------------------------------+

[ogi_bogi]

Здравейте отново,
разбрах , че ми дава грешка 4051 - Invalid function parameter value, това е след OrderSelect. Не знам кой параметър е инвалид като там само k е променлива

[minkov]

Здравейте отново,
разбрах , че ми дава грешка 4051 - Invalid function parameter value, това е след OrderSelect. Не знам кой параметър е инвалид като там само k е променлива

Колега, кода ти е много объркан и въобще съм учуден че прави нещо.
Първо параметрите k и n дето ги предефинираш в локалните функции ги смени с нещо друго, да не се засичат с глобалните променливи k и n.
Второ, сложи един магик номер и по него селектирай ордерите, щото иначе няма да стане работата или поне ще стане голяма каша
Трето: това return(0) дето си го наслагал навсякъде на повечето места не му е там мястото.
Значи в края на действието в if() функция да имаш return(), значи да прекъснеш целия цикъл и да започне всичко отначало, а в края на for() цикъл вече е критично, защото още след първото изпълнение те изхвърля.
Въобще кода е с объркана логическа структураи няма как да тръгне да работи правилно.

Трябва да поработиш доста за да стане прилично.
Тази грешка ти я дава защото на повечето места имаш 2 параметъра k - един глобален и един локален и то се забърква кой да ползва, или по-точно ти го забъркваш

А извън кода и програмирането - тази идея дето се опитваш да я реализираш, определено е тествана от много народ и със сигурност не работи, та не знам дали си струва да си хабиш времето с кода, освен ако не го правиш с цел упражнение на умения за програмиране.