An-2
12-05-2009, 13:53
Есть наипростейший советник на трех МА,-он меня устраивает,но к сожалению,там отсутствует магик,я пытался сам его поставить,но подготовка оставляет желать лучшего.Господа,не откажите в помощи,пожалуйста.
extern double TakeProfit = 1000;
extern double StopLoss = 1000;
extern double Lots = 0.1;
extern double TrailingStop = 0;
extern int FasterEMA = 14;
extern int SlowerEMA = 44;
extern int TimeFrame = 60;
extern int EMA3=14;
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int start()
{
int cnt, ticket, total;
if(Bars<100)
{
Print("bars less than 100");
return(0);
}
if(TakeProfit<10)
{
Print("TakeProfit less than 10");
return(0); // check TakeProfit
}
double EMA11 = iMA(NULL, 0, FasterEMA, 0, MODE_EMA, PRICE_CLOSE, 1);
double EMA12 = iMA(NULL, 0, FasterEMA, 0, MODE_EMA, PRICE_CLOSE, 2);
double EMA13 = iMA(NULL, 0, FasterEMA, 0, MODE_EMA, PRICE_CLOSE, 3);
double EMA21 = iMA(NULL, 0, SlowerEMA, 0, MODE_EMA, PRICE_CLOSE, 1);
double EMA22 = iMA(NULL, 0, SlowerEMA, 0, MODE_EMA, PRICE_CLOSE, 2);
double EMA23 = iMA(NULL, 0, SlowerEMA, 0, MODE_EMA, PRICE_CLOSE, 3);
double EMA31 = iMA(NULL, TimeFrame, EMA3, 0, MODE_EMA, PRICE_CLOSE, 1);
double EMA32 = iMA(NULL, TimeFrame, EMA3, 0, MODE_EMA, PRICE_CLOSE, 2);
total=OrdersTotal();
if(total<1)
{
// no opened orders identified
if(AccountFreeMargin()<(1000*Lots))
{
Print("We have no money. Free Margin = ", AccountFreeMargin());
return(0);
}
// check for long position (BUY) possibility
if((EMA11 > EMA12) && (EMA12 < EMA13) && (EMA21>EMA22) && (EMA31>EMA32) || (EMA11 > EMA12) && (EMA21>EMA22) && (EMA22 < EMA23) && (EMA31>EMA32))
{
ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,3,Ask-(StopLoss*Point),Ask+(TakeProfit*Point),"0",16384,0,Green);
if(ticket>0)
{
if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("BUY order opened : ",OrderOpenPrice());
}
else Print("Error opening BUY order : ",GetLastError());
return(0);
}
// check for short position (SELL) possibility
if((EMA11 < EMA12) && (EMA12 > EMA13) && (EMA21 < EMA22) && (EMA31<EMA32) || (EMA11 < EMA12) && (EMA21<EMA22) && (EMA22 > EMA23) && (EMA31<EMA32))
{
ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,Bid+(StopLoss*Point),Bid-(TakeProfit*Point),"0",16384,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);
}
return(0);
}
// it is important to enter the market correctly,
// but it is more important to exit it correctly...
for(cnt=0;cnt<total;cnt++)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if(OrderType()<=OP_SELL && // check for opened position
OrderSymbol()==Symbol()) // check for symbol
{
if(OrderType()==OP_BUY) // long position is opened
{
// should it be closed?
// if((fasterEMAnow < slowerEMAnow) && (fasterEMAprevious > slowerEMAprevious))//(Close[1]<fasterEMAnow)
// {
// 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((fasterEMAnow > slowerEMAnow) && (fasterEMAprevious < slowerEMAprevious))//(Close[1]>fasterEMAnow)
// {
// 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);
}
// the end.
extern double TakeProfit = 1000;
extern double StopLoss = 1000;
extern double Lots = 0.1;
extern double TrailingStop = 0;
extern int FasterEMA = 14;
extern int SlowerEMA = 44;
extern int TimeFrame = 60;
extern int EMA3=14;
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int start()
{
int cnt, ticket, total;
if(Bars<100)
{
Print("bars less than 100");
return(0);
}
if(TakeProfit<10)
{
Print("TakeProfit less than 10");
return(0); // check TakeProfit
}
double EMA11 = iMA(NULL, 0, FasterEMA, 0, MODE_EMA, PRICE_CLOSE, 1);
double EMA12 = iMA(NULL, 0, FasterEMA, 0, MODE_EMA, PRICE_CLOSE, 2);
double EMA13 = iMA(NULL, 0, FasterEMA, 0, MODE_EMA, PRICE_CLOSE, 3);
double EMA21 = iMA(NULL, 0, SlowerEMA, 0, MODE_EMA, PRICE_CLOSE, 1);
double EMA22 = iMA(NULL, 0, SlowerEMA, 0, MODE_EMA, PRICE_CLOSE, 2);
double EMA23 = iMA(NULL, 0, SlowerEMA, 0, MODE_EMA, PRICE_CLOSE, 3);
double EMA31 = iMA(NULL, TimeFrame, EMA3, 0, MODE_EMA, PRICE_CLOSE, 1);
double EMA32 = iMA(NULL, TimeFrame, EMA3, 0, MODE_EMA, PRICE_CLOSE, 2);
total=OrdersTotal();
if(total<1)
{
// no opened orders identified
if(AccountFreeMargin()<(1000*Lots))
{
Print("We have no money. Free Margin = ", AccountFreeMargin());
return(0);
}
// check for long position (BUY) possibility
if((EMA11 > EMA12) && (EMA12 < EMA13) && (EMA21>EMA22) && (EMA31>EMA32) || (EMA11 > EMA12) && (EMA21>EMA22) && (EMA22 < EMA23) && (EMA31>EMA32))
{
ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,3,Ask-(StopLoss*Point),Ask+(TakeProfit*Point),"0",16384,0,Green);
if(ticket>0)
{
if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("BUY order opened : ",OrderOpenPrice());
}
else Print("Error opening BUY order : ",GetLastError());
return(0);
}
// check for short position (SELL) possibility
if((EMA11 < EMA12) && (EMA12 > EMA13) && (EMA21 < EMA22) && (EMA31<EMA32) || (EMA11 < EMA12) && (EMA21<EMA22) && (EMA22 > EMA23) && (EMA31<EMA32))
{
ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,Bid+(StopLoss*Point),Bid-(TakeProfit*Point),"0",16384,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);
}
return(0);
}
// it is important to enter the market correctly,
// but it is more important to exit it correctly...
for(cnt=0;cnt<total;cnt++)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if(OrderType()<=OP_SELL && // check for opened position
OrderSymbol()==Symbol()) // check for symbol
{
if(OrderType()==OP_BUY) // long position is opened
{
// should it be closed?
// if((fasterEMAnow < slowerEMAnow) && (fasterEMAprevious > slowerEMAprevious))//(Close[1]<fasterEMAnow)
// {
// 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((fasterEMAnow > slowerEMAnow) && (fasterEMAprevious < slowerEMAprevious))//(Close[1]>fasterEMAnow)
// {
// 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);
}
// the end.