/*-----------------------------+ | | | Shared by www.Aptrafx.com | | | +------------------------------*/ //============================================================================= // EMA_CROSS_Derk_v01.mq4 // Originally by: 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 // // // // Modified by Derk Wehler as follows: // ----------------------------------- // 7/19/2006 Reformatted code, added comments // // Added HandleTrailingStop() function and changed start() // function to use it. // // Added use of OrderReliable library // // Added extern TrailingStopType (which should always be // set to either 1 or 2), for use with new HandleTrailingStop() // // 7/23/2006 Added UsePrevClose parameter, and usage in FreshCross() // // // // TODO: Add Money Management routine // //============================================================================= #property copyright "Coders Guru" #property link "http://www.forex-tsd.com" #include <OrderReliable_V0_2_5.mqh> //---- input parameters extern double TakeProfit = 130; extern double StopLoss = 65; extern double Lots = 1; extern int TrailingStopType = 2; extern double TrailingStop = 30; extern int ShortEma = 10; // 17? extern int LongEma = 80; // 40? extern bool ExitOnCross = true; extern bool UsePrevClose = true; extern int SignalCandle = 0; extern int MagicNumber = 54145; //============================================================================= // expert initialization function //============================================================================= int init() { return(0); } //============================================================================= // expert deinitialization function //============================================================================= int deinit() { return(0); } //============================================================================= // // FreshCross() // // Function to tell whether or not there is a "fresh" cross. // // RETURN VALUE: // // 1: If the short MA line is above the long, and was below on the // previous candle // // 2: If the short MA line is below the long, and was above on the // previous candle // // 0: If the the EMA lines of the current and previous candle are // in the same position relative to each other // //============================================================================= 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 (UsePrevClose) // use cross plus previous candle's close { if (SEma>LEma && SEmaP < LEmaP && Close[SignalCandle+1] > SEmaP && Ask > SEmaP) return(1); //up if (SEma<LEma && SEmaP > LEmaP && Close[SignalCandle+1] < SEmaP && Bid < SEmaP) return(2); //down } else // Normal method --just use cross { if (SEma > LEma && SEmaP < LEmaP) // up return(1); if (SEma < LEma && SEmaP > LEmaP) // down return(2); } return (0); // has not changed } //============================================================================= // // CheckOpenTrades() // // RETURN VALUE: // // The number of trades this EA has currently open // //============================================================================= 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); } int isCrossed = FreshCross(); total = CheckOpenTrades(); if (total < 1) { if (isCrossed == 1) { TP = 0; if (TakeProfit > 0) TP = Ask + TakeProfit * Point; ticket = OrderSendReliable(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 = OrderSendReliable(Symbol(), OP_SELL, Lots, Bid, 3, Bid + StopLoss*Point, TP, "EMA_CROSS", MagicNumber, 0, Maroon); 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); } total = OrdersTotal(); for (cnt=0; cnt < total; cnt++) { OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES); if (OrderSymbol() != Symbol() || OrderMagicNumber() != MagicNumber) continue; // Should it be closed because of a cross reversal? bool result = false; if (ExitOnCross && isCrossed != 0) { // We have a long position open and MAs have switched if (OrderType() == OP_BUY && isCrossed == 2) { // Close position result = OrderCloseReliable(OrderTicket(), OrderLots(), Bid, 3, Black); if (!result) { Print("In OP_BUY, ExitOnCross=TRUE && isCrossed=2, but FAILED to exit."); Alert("In OP_BUY, ExitOnCross=TRUE && isCrossed=2, but FAILED to exit."); } } // We have a short position open and MAs have switched else if (OrderType() == OP_SELL && isCrossed == 1) { // Close position result = OrderCloseReliable(OrderTicket(), OrderLots(), Ask, 3, Black); if (!result) { Print("In OP_SELL, ExitOnCross=TRUE && isCrossed=1, but FAILED to exit."); Alert("In OP_SELL, ExitOnCross=TRUE && isCrossed=1, but FAILED to exit."); } } } if (!result) // Handle mods to trailing stop HandleTrailingStop(OrderType(), OrderTicket(), OrderOpenPrice(), OrderStopLoss(), OrderTakeProfit()); } return(0); } //============================================================================= // // HandleTrailingStop() // // Type 1 moves the stoploss without delay. // // Type 2 waits for price to move the amount of the trailStop // before moving stop loss then moves like type 1 // // Type 3 uses up to 3 levels for trailing stop // Level 1 Move stop to 1st level // Level 2 Move stop to 2nd level // Level 3 Trail like type 1 by fixed amount other than 1 // NOTE: Level3 Removed for now (see below) // // Possible future types // Type 4 uses 2 for 1, every 2 pip move moves stop 1 pip // Type 5 uses 3 for 1, every 3 pip move moves stop 1 pip // // PARAMETERS: // // type: OP_BUY or OP_SELL // ticket: the ticket number // open_price: the order's open price // cur_sl: the order's current StopLoss value // cur_tp: the order's current TakeProfit value // // RETURN VALUE: // zero for now // // Calling example // HandleTrailingStop("BUY",OrderTicket(),OrderOpenPrice(),OrderStopLoss(),OrderTakeProfit()); // //============================================================================= int HandleTrailingStop(int type, int ticket, double open_price, double cur_sl, double cur_tp) { double pt, TS = 0; if (type == OP_BUY) { switch (TrailingStopType) { case 1: pt = Point * StopLoss; if (Bid - cur_sl > pt) OrderModifyReliable(ticket, open_price, Bid - pt, cur_tp, 0, Blue); break; case 2: pt = Point * TrailingStop; if (Bid - open_price > pt && (cur_sl < Bid - pt || cur_sl == 0)) OrderModifyReliable(ticket, open_price, Bid - pt, cur_tp, 0, Blue); break; /* Removed until we decide if we really want this for this EA case 3: if (Bid - open_price > FirstMove * Point) { TS = open_price + FirstMove * Point - FirstStopLoss * Point; if (cur_sl < TS) OrderModifyReliable(ticket, open_price, TS, cur_tp, 0, Aqua); } if (Bid - open_price > SecondMove * Point) { TS = open_price + SecondMove * Point - SecondStopLoss * Point; if (cur_sl < TS) OrderModifyReliable(ticket, open_price, TS, cur_tp, 0, Aqua); } if (Bid - open_price > ThirdMove * Point) { TS = Bid - TrailingStop3 * Point; if (cur_sl < TS) OrderModifyReliable(ticket, open_price, TS, cur_tp, 0, Aqua); } break; */ } return(0); } else if (type == OP_SELL) { switch (TrailingStopType) { case 1: pt = Point * StopLoss; if (cur_sl - Ask > pt) OrderModifyReliable(ticket, open_price, Ask+pt, cur_tp, 0, Blue); break; case 2: pt = Point * TrailingStop; if (open_price - Ask > pt && (cur_sl > Ask + pt || cur_sl == 0)) OrderModifyReliable(ticket, open_price, Ask+pt, cur_tp, 0, Blue); break; /* Removed until we decide if we really want this for this EA case 3: if (open_price - Ask > FirstMove * Point) { TS = open_price - FirstMove * Point + FirstStopLoss * Point; if (cur_sl > TS) OrderModifyReliable(ticket, open_price, TS, cur_tp, 0, Aqua); } if (open_price - Ask > SecondMove * Point) { TS = open_price - SecondMove * Point + SecondStopLoss * Point; if (cur_sl > TS) OrderModifyReliable(ticket, open_price, TS, cur_tp, 0, Aqua); } if (open_price - Ask > ThirdMove * Point) { TS = Ask + TrailingStop3 * Point; if (cur_sl > TS) OrderModifyReliable(ticket, open_price, TS, cur_tp, 0, Aqua); } break; */ } } return(0); }
Sample
Analysis
Market Information Used:
Series array that contains close prices for each bar
Indicator Curves created:
Indicators Used:
Moving average indicator
Custom Indicators Used:
Order Management characteristics:
Checks for the total of open orders
Other Features:
It issuies visual alerts to the screen