Dopiero zaczynam przygodę z MetaTrade i MQL-em więc o ile można z góry proszę o wyrozumiałość.
Chciałem napisać jaknajprostrzy program EA który by dokonywał otwarcia zlecenia przy przecięciu się dwóch linii. Do tego celu wykorzystałem poniższy kod:
Kod: Zaznacz cały
extern double Lots=0.1;
extern double TakeProfit=350.0;
int Crossed (double line1 , double line2)
{
//static means that variables hold values between repeated calls
static int last_direction = 0;
static int current_dirction = 0;
if (line1>line2) current_dirction = 1; //up
if (line1<line2) current_dirction = 2; //down
if(current_dirction != last_direction) //changed
{
last_direction = current_dirction;
return (last_direction);
}
else
{
return (0);
}
}
// --->>> Jak dla mnie to ta funkcja przy pierwszym uruchomieniu ZAWSZE otrzyma wartość 1 lub 2 (chyba że akurat obie linie zaczynają się od tego samego miejsca !!!
int start()
{
//----
int cnt,ticket,total;
double lineEMA2,lineEMA;
total = OrdersTotal();
lineEMA = iMA(NULL,0,8,0,MODE_EMA,PRICE_CLOSE,0);
lineEMA2 = iMA(NULL,0,12,0,MODE_EMA,PRICE_CLOSE,0);
int isCrossed = Crossed (lineEMA,lineEMA2);
if(total < 1)
{
if(isCrossed == 1)
{
ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,0,0,Ask+TakeProfit*Point,"My EA - KUPNO",12345,0,Green);
// the above should give us the ticket number but if fails it will be eg. -1
if(ticket>0)
{
if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)==true)
Print("BUY order opened : ",OrderOpenPrice());
}
else Print("Error opening BUY order : ",GetLastError());
return(0);
}
if(isCrossed == 2)
{
ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,0,Bid-TakeProfit*Point,"My EA - SELL",12345,0,Red);
if(ticket>0)
{
if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES))
Print("SELL order opened : ",OrderOpenPrice());
}
else Print("Error opening SELL order : ",GetLastError());
return(0);
}
// the following exit when the lines have not crossed yet!
return(0);
}
for(cnt=0;cnt<total;cnt++)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if(OrderType()<=OP_SELL && OrderSymbol()==Symbol())
{
if(OrderType()==OP_BUY) // long position is opened
{
// should it be closed?
if(isCrossed == 2)
{
OrderClose(OrderTicket(),OrderLots(),Bid,3,Violet);
// close position
return(0); // exit
}
// check for trailing stop
// if(TrailingStop>0)
// {
// if(Bid-OrderOpenPrice()>Point*TrailingStop)
// {
// if(OrderStopLoss()<Bid-Point*TrailingStop)
// {
// OrderModify(OrderTicket(),OrderOpenPrice(),Bid-Point*TrailingStop,OrderTakeProfit(),0,Green);
// return(0);
// }
// }
// }
}
else // go to short position
{
// should it be closed?
if(isCrossed == 1)
{
OrderClose(OrderTicket(),OrderLots(),Ask,3,Violet);
// close position
return(0); // exit
}
// check for trailing stop
// if(TrailingStop>0)
// {
// if((OrderOpenPrice()-Ask)>(Point*TrailingStop))
// {
// if((OrderStopLoss()>(Ask+Point*TrailingStop)) || (OrderStopLoss()==0))
// {
// OrderModify(OrderTicket(),OrderOpenPrice(),Ask+Point*TrailingStop,OrderTakeProfit(),0,Red);
// return(0);
// }
// }
// }
}
}
}
return(0);
}Po uruchomieniu, niby wszystko działa ale jak patrzę na wykres to miejsca w których otwierane są transakcje wcale nie pokrywają się z miejscem przecięcia dwóch linii (w tym wypadku EMA12 i EMA8).
Czy to ja źlę interpretuję wynik czy jakoś inaczej jest on rysowany w stosunku do kodu? A może są jeszcze jakieś inne warunki o które trzeba byłoby zadbać żeby wykres pokazywał to co program ma faktycznie robić?
Dodatkowo - funkcja Crossed() wydaje mi się być dziwna o tyle że przy pierwszym uruchomieniu zawsze będzie generowała 1 lub 2 a więc otwierana będzie pozycja... co nie jest prawidłowe!
Z góry dziękuję za wszelką pomoc!
Paweł.
[/img]
