/*-----------------------------+
| |
| Shared by www.Aptrafx.com |
| |
+------------------------------*/
//+------------------------------------------------------------------+
//| EMA_CROSS.mq4 |
//| Coders Guru |
//| http://www.forex-tsd.com |
//| |
//| Modified by Robert Hill as follows |
//| 6/4/2006 Fixed bugs and added exit on fresh cross option |
//| Added use of TakeProfit of 0 |
//| Modified for trade on open of closed candle |
//| Added Trades in this symbol and MagicNumber check |
//| to allow trades on different currencies at same time |
//|
//| 3/11/2006 Humphrey - Added Askcci100level function to exit shorts on
//| cci50 crossing up thru -100 or on longs - going below
//| 100 level
//|
//|
//| 3/11/2006 Humphrey - Added AskcciZero function to exit shorts on
//| cci50 crossing up thru -100 or on longs - going below
//| 100 level
//+------------------------------------------------------------------+
//| TODO: Add Money Management routine |
//+------------------------------------------------------------------+
#property copyright "Coders Guru"
#property link "http://www.forex-tsd.com"
//---- input parameters
extern double TakeProfit=25;
extern double StopLoss = 15;
extern double Lots=0.2;
extern double TrailingStop=20;
extern int ShortEma = 5;
extern int LongEma = 8;
extern bool ExitOnCross = false;
extern int SignalCandle = 0;
extern int MagicNumber = 12345;
bool Closeshorts = false;
bool Closelongs = false;
bool Entershorts = false;
bool Enterlongs = false;
//+------------------------------------------------------------------+
//| expert initialization function |
//+------------------------------------------------------------------+
int init()
{
//----
//----
return(0);
}
//+------------------------------------------------------------------+
//| expert deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
//----
//----
return(0);
}
//+-------------------------------------------------------------------------+
//| AskCCI100level |
//| We check for cci50 to cross back thru -100 level on shorts and |
//| for cci50 to cross down below 100 on longs, so that we exit positions |
//| the Closeshorts and Closelongs is set to true |
//+-------------------------------------------------------------------------+
int AskCCI100level ()
{
if (iCCI( NULL, 0, 50, PRICE_TYPICAL, 0) > -100)
Closeshorts = true;
if (iCCI( NULL, 0, 50, PRICE_TYPICAL, 0) < 100)
Closelongs = true;
return (0);
}
//+-------------------------------------------------------------------------+
//| AskCCIZEROlevel |
//| We check for cci50 to cross down thru 0 level on shorts and |
//| for cci50 to cross up above 0 for longs, so that we entry positions |
//| are open when Entershorts and Enterlongs is set to true |
//+-------------------------------------------------------------------------+
int AskCCIZEROlevel ()
{
if (iCCI( NULL, 0, 50, PRICE_TYPICAL, 0) < 0)
Entershorts = true;
if (iCCI( NULL, 0, 50, PRICE_TYPICAL, 0) < 100)
Enterlongs = true;
return (0);
}
int FreshCross ()
{
double SEma, LEma,SEmaP, LEmaP;
SEma = iMA(NULL,0,ShortEma,0,MODE_EMA,PRICE_CLOSE,SignalCandle);
LEma = iMA(NULL,0,LongEma,0,MODE_EMA,PRICE_CLOSE,SignalCandle);
SEmaP = iMA(NULL,0,ShortEma,0,MODE_EMA,PRICE_CLOSE,SignalCandle+1);
LEmaP = iMA(NULL,0,LongEma,0,MODE_EMA,PRICE_CLOSE,SignalCandle+1);
//Don't work in the first load, wait for the first cross!
if(SEma>LEma && SEmaP < LEmaP ) return(1); //up
if(SEma<LEma && SEmaP > LEmaP ) return(2); //down
return (0); //not changed
}
//+------------------------------------------------------------------+
//| Check Open Position Controls |
//+------------------------------------------------------------------+
int CheckOpenTrades()
{
int cnt;
int NumTrades; // Number of buy and sell trades in this symbol
NumTrades = 0;
for(cnt=OrdersTotal()-1;cnt>=0;cnt--)
{
OrderSelect (cnt, SELECT_BY_POS, MODE_TRADES);
if ( OrderSymbol() != Symbol()) continue;
if ( OrderMagicNumber() != MagicNumber) continue;
if(OrderType() == OP_BUY ) NumTrades++;
if(OrderType() == OP_SELL ) NumTrades++;
}
return (NumTrades);
}
//+------------------------------------------------------------------+
//| expert start function |
//+------------------------------------------------------------------+
int start()
{
//----
int cnt, ticket, total;
double TP;
if(Bars<100)
{
Print("bars less than 100");
return(0);
}
/* if(TakeProfit<10)
{
Print("TakeProfit less than 10");
return(0); // check TakeProfit
}
*/
static int isCrossed = 0;
isCrossed = FreshCross ();
total = CheckOpenTrades();
if(total < 1)
{
if(isCrossed == 1)
{
TP = 0;
if (TakeProfit > 0) TP = Ask + TakeProfit * Point;
ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,3,Ask-StopLoss*Point,TP,"EMA_CROSS",MagicNumber,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);
}
if(isCrossed == 2)
{
TP = 0;
if (TakeProfit > 0) TP = Bid - TakeProfit * Point;
ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,Bid+StopLoss*Point,TP,"EMA_CROSS",MagicNumber,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);
}
for(cnt=0;cnt<total;cnt++)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
//OrderPrint();
if(OrderType()<=OP_SELL && OrderSymbol()==Symbol() && OrderMagicNumber() == MagicNumber)
{
if(OrderType()==OP_BUY) // long position is opened
{
// should it be closed?
/* REMOVED - Trailling stop only close */
if(ExitOnCross && 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?
/* REMOVED - Trailling stop only close */
if(ExitOnCross && 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);
}
//+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Indicator Curves created:
Indicators Used:
Commodity channel index
Moving average indicator
Custom Indicators Used:
Order Management characteristics:
Checks for the total of open orders
It automatically opens orders when conditions are reached
It Closes Orders by itself
It can change open orders parameters, due to possible stepping strategy
Other Features:
