/*-----------------------------+
| |
| Shared by www.Aptrafx.com |
| |
+------------------------------*/
//+------------------------------------------------------------------+
//| Your_Choice_MA_Cross_v1e.mq4 |
//| Copyright © 2006, transport.david |
//| transport.david@gmail.com |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2006, transport.david"
#property link "transport.david@gmail.com"
extern int UserAcceptsAllLiability = true;
extern int magic = 99;
extern double Lots = 0.1;
extern int StopLoss = 40;
extern int TakeProfit = 240;
extern int TrailingStop = 60;
extern int mafastperiod = 5;
extern int mafastshift = 0;
extern int mafastmethod = 1; // use 0 through 3 for backtesting/optimizing , default = 1 ( MODE_EMA )
extern int mafastprice = 0; // use 0 through 6 for backtesting/optimizing , default = 0 ( PRICE_CLOSE )
extern int maslowperiod = 8;
extern int maslowshift = 0;
extern int maslowmethod = 1; // use 0 through 3 for optimizing , default = 1 ( MODE_EMA )
extern int maslowprice = 1; // use 0 through 6 for optimizing , default = 1 ( PRICE_OPEN )
extern int EntryBar = 0; // This determines what bar the order is opened during . Default = 0
// 0 (zero) and the trade will open when the cross is first detected , current bar .
// 1 and the expert waits until the open of the bar After a cross .
extern int CloseBar = 1; // This determines what bar the order is Closed during . Default = 1 ( recommended )
// 0 (zero) and the trade will close when the cross is first detected , current bar .
// 1 and the expert waits until the open of the bar After a cross .
extern int ManualBuy = 0; // default = 0
extern int ManualSell = 0; // default = 0
double prevtime, OpenTrades, OrderTime, openperiod, ofast1, ofast2, oslow1, oslow2, cfast1, cfast2, cslow1, cslow2,
OpenCondition, CloseCondition, ManualSig;
//------------------------------------------------------------------------
int init()
{
return(0);
}
//------------------------------------------------------------------------
int deinit()
{
Comment("");
return(0);
}
//------------------------------------------------------------------------
int start()
{ // A
if (UserAcceptsAllLiability != true) return(0);
if (UserAcceptsAllLiability == true)
{ // B
int i;
if (prevtime!=Time[0]) // if New Bar
{
RefreshRates(); OrderTime = 0; prevtime=Time[0]; // RefreshRates , reset OrderTime , set prevtime to time 0 , 1 cycle at first tick of new bar .
if ( (ManualBuy != 0) || (ManualSell != 0) ) Alert("Reset Manual Condition To 0"); // Alert at opening of new bar if ManualBuy or ManualSell != 0 .
}
if ( (ManualBuy == 0) && (ManualSell == 0) ) { ManualSig = 0; } // Reset ManualSig if Both ManualBuy & ManualSell = 0 .
if ( (ManualBuy != 0) || (ManualSell != 0) ) { ManualSig = 100; } // Set ManualSig if Either ManualBuy or ManualSell != 0.
// Count Open Trades and record OrderOpenTime --------------------------
OpenTrades = 0; // reset OpenTrades for a fresh count .
for(i = 0; i < OrdersTotal(); i++)
{ // 1
OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
if ( (OrderSymbol() == Symbol()) && (OrderMagicNumber() == magic) && (OrderOpenTime() > 0) ) // check symbol , magic num and find latest trade time .
{ // 2
OpenTrades++;
OrderTime = OrderOpenTime();
} // 2
} // 1
//- Control for Opening 1 Trade per Bar --------------------------------
// If a trade has been placed during the current bar
// And it reaches TakeProfit
// And you remove then re-attach the expert
// the expert will Not have a record of the trade
// and Will place another trade During the current bar
// If a trade has been placed during the current bar
// And it reaches TakeProfit
// And you do nothing
// the expert Will have a record of the trade
// and will Not place another trade during the current bar
if (OrderTime >= Time[0]) // Open Order has occurred during this bar .
{ // 1
openperiod = -10; // No more opening of trades allowed during this bar .
} // 1
if (OrderTime < Time[0]) // Open Order has occurred prior to this bar .
{ // 1
openperiod = 10; // Opening of trades allowed during this bar .
} // 1
// Calculate Indicators -------------------------------------------------
ofast1 = iMA(Symbol(), 0, mafastperiod, mafastshift, mafastmethod, mafastprice, 0 + EntryBar);
ofast2 = iMA(Symbol(), 0, mafastperiod, mafastshift, mafastmethod, mafastprice, 1 + EntryBar);
oslow1 = iMA(Symbol(), 0, maslowperiod, maslowshift, maslowmethod, maslowprice, 0 + EntryBar);
oslow2 = iMA(Symbol(), 0, maslowperiod, maslowshift, maslowmethod, maslowprice, 1 + EntryBar);
cfast1 = iMA(Symbol(), 0, mafastperiod, mafastshift, mafastmethod, mafastprice, 0 + CloseBar);
cfast2 = iMA(Symbol(), 0, mafastperiod, mafastshift, mafastmethod, mafastprice, 1 + CloseBar);
cslow1 = iMA(Symbol(), 0, maslowperiod, maslowshift, maslowmethod, maslowprice, 0 + CloseBar);
cslow2 = iMA(Symbol(), 0, maslowperiod, maslowshift, maslowmethod, maslowprice, 1 + CloseBar);
//- Create condition for Opening a trade --------------------------------
if ((ofast1 > oslow1) && (ofast2 <= oslow2)) OpenCondition = 10; // Open Long
if ((ofast1 < oslow1) && (ofast2 >= oslow2)) OpenCondition = -10; // Open Short
if ((ofast1 > oslow1) && (ofast2 >= oslow2)) OpenCondition = 0; // Neutral
if ((ofast1 < oslow1) && (ofast2 <= oslow2)) OpenCondition = 0; // Neutral
//- Create condition for Closing a trade --------------------------------
if ((cfast1 > cslow1) && (cfast2 <= cslow2)) CloseCondition = 10; // Close Short
if ((cfast1 < cslow1) && (cfast2 >= cslow2)) CloseCondition = -10; // Close Long
if ((ofast1 > oslow1) && (ofast2 >= oslow2)) CloseCondition = 0; // Neutral
if ((ofast1 < oslow1) && (ofast2 <= oslow2)) CloseCondition = 0; // Neutral
//- Comments ------------------------------------------------------------
Comment(" OpenTrades: ",OpenTrades," , OrderTime: ",OrderTime,
"\n"," Time[0]: ",Time[0],//" , prevtime: ",prevtime,
"\n"," fast2: ",ofast2," , fast1: ",ofast1,
"\n"," slow2: ",oslow2," , slow1: ",oslow1,
"\n"," openperiod: ",openperiod," , OpenCondition: ",OpenCondition," , CloseCondition: ",CloseCondition,
"\n"," magic: ",magic," , Lots: ",Lots," , StopLoss: ",StopLoss," , TakeProfit: ",TakeProfit," , TrailingStop: ",TrailingStop,
"\n"," mafastperiod: ",mafastperiod," , mafastshift: ",mafastshift," , mafastmethod: ",mafastmethod," , mafastprice: ",mafastprice,
"\n"," maslowperiod: ",maslowperiod," , maslowshift: ",maslowshift," , maslowmethod: ",maslowmethod," , maslowprice: ",maslowprice,
"\n"," EntryBar: ",EntryBar," , CloseBar: ",CloseBar," , ManualBuy: ",ManualBuy," , ManualSell: ",ManualSell," , ManualSig: ",ManualSig);
// Open Trades ----------------------------------------------------------
// Expert Open Long / Buy if no trades and EntryBar = 0 or EntryBar = 1
if ( (OpenTrades <= 0) &&
(OpenCondition > 0) &&
(openperiod >= 0) )
{ // 1
OrderSend(Symbol(),
OP_BUY,
Lots,
Ask,
3,
Ask-StopLoss*Point,
Ask+TakeProfit*Point,
"Your_Choice_MA_Cross_v1e",
magic,
0,
Aqua);
} // 1
// Expert Open Long / Buy if trades already open and EntryBar = 0 and CloseBar = 1 .
if ( (OpenTrades != 0) &&
(OpenCondition > 0) &&
(openperiod >= 0) &&
(EntryBar == 0) &&
(CloseBar == 1) )
{ // 1
OrderSend(Symbol(),
OP_BUY,
Lots,
Ask,
3,
Ask-StopLoss*Point,
Ask+TakeProfit*Point,
"Your_Choice_MA_Cross_v1e",
magic,
0,
Aqua);
} // 1
// Manual Open Long / Buy if extern int ManualBuy != 0 .
if ( (ManualBuy != 0) &&
(ManualSig == 0) )
{ // 1
OrderSend(Symbol(),
OP_BUY,
Lots,
Ask,
3,
Ask-StopLoss*Point,
Ask+TakeProfit*Point,
"Your_Choice_MA_Cross_v1e",
magic,
0,
White);
ManualSig = 100;
} // 1
// Expert Open Short / Sell if no trades and EntryBar = 0 or EntryBar = 1
if ( (OpenTrades <= 0) &&
(OpenCondition < 0) &&
(openperiod >= 0) )
{ // 1
OrderSend(Symbol(),
OP_SELL,
Lots,
Bid,
3,
Bid+StopLoss*Point,
Bid-TakeProfit*Point,
"Your_Choice_MA_Cross_v1e",
magic,
0,
Tomato);
} // 1
// Expert Open Short / Sell if trades already open and EntryBar = 0 and CloseBar = 1 .
if ( (OpenTrades != 0) &&
(OpenCondition < 0) &&
(openperiod >= 0) &&
(EntryBar == 0) &&
(CloseBar == 1) )
{ // 1
OrderSend(Symbol(),
OP_SELL,
Lots,
Bid,
3,
Bid+StopLoss*Point,
Bid-TakeProfit*Point,
"Your_Choice_MA_Cross_v1e",
magic,
0,
Tomato);
} // 1
// Manual Open Short / Sell if extern int ManualSell != 0 .
if ( (ManualSell != 0) &&
(ManualSig == 0) )
{ // 1
OrderSend(Symbol(),
OP_SELL,
Lots,
Bid,
3,
Bid+StopLoss*Point,
Bid-TakeProfit*Point,
"Your_Choice_MA_Cross_v1e",
magic,
0,
White);
ManualSig = 100;
} // 1
// Close Trades ---------------------------------------------------------
for(i = 0; i < OrdersTotal(); i++)
{ // 1
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
// Close Long / Buy
if ( (OrderSymbol() == Symbol()) &&
(OrderType() == OP_BUY) &&
(OrderMagicNumber() == magic) &&
(OrderOpenTime() < Time[0]) &&
(CloseCondition < 0) )
{ // 2
OrderClose(OrderTicket(),
OrderLots(),
OrderClosePrice(),
0,
White);
OrderTime = 0;
openperiod = 10; // secondary reset of openperiod value , just in case .
} // 2
// Close Short / Sell
if ( (OrderSymbol() == Symbol()) &&
(OrderType() == OP_SELL) &&
(OrderMagicNumber() == magic) &&
(OrderOpenTime() < Time[0]) &&
(CloseCondition > 0) )
{ // 2
OrderClose(OrderTicket(),
OrderLots(),
OrderClosePrice(),
0,
White);
OrderTime = 0;
openperiod = 10; // secondary reset of openperiod value , just in case .
} // 2
} // 1
// Trailing Stop ---------------------------------------------------------
for(i = 0; i < OrdersTotal(); i++)
{ // 1
OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
// Trail Long / Buy
if ( (OrderType() == OP_BUY) && (OrderMagicNumber() == magic) )
{ // 2
if ( (OrderClosePrice() - OrderOpenPrice()) > (TrailingStop*Point) )
{ // 3
if ( OrderStopLoss() < (OrderClosePrice() - TrailingStop*Point) )
{ // 4
OrderModify(OrderTicket(),
OrderOpenPrice(),
OrderClosePrice() - TrailingStop*Point,
OrderTakeProfit(),
Orchid);
} // 4
} // 3
} // 2
// Trail Short / Sell
if ( (OrderType() == OP_SELL) && (OrderMagicNumber() == magic) )
{ // 2
if ( (OrderOpenPrice() - OrderClosePrice()) > (TrailingStop*Point) )
{ // 3
if ( (OrderStopLoss() > (OrderClosePrice() + TrailingStop*Point)) ||
(OrderStopLoss() == 0) )
{ // 4
OrderModify(OrderTicket(),
OrderOpenPrice(),
OrderClosePrice() + TrailingStop*Point,
OrderTakeProfit(),
Orchid);
} // 4
} // 3
} // 2
} // 1
//+- End of trading control -----------------------------------------------------------------+
} // B if (UserAcceptsAllLiability == true)
return(0);
} // A init start()
//+- More Pips To You , Good Luck , See You @ http://finance.groups.yahoo.com/group/MetaTrader_Experts_and_Indicators/ -+
Sample
Analysis
Market Information Used:
Series array that contains open time of each bar
Indicator Curves created:
Indicators Used:
Moving average indicator
Custom Indicators Used:
Order Management characteristics:
Checks for the total of open orders
It Closes Orders by itself
It can change open orders parameters, due to possible stepping strategy
Other Features:
It issuies visual alerts to the screen