/*-----------------------------+
| |
| Shared by www.Aptrafx.com |
| |
+------------------------------*/
//+------------------------------------------------------------------+
//| Your_Choice_MA_Cross_v1d.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 .
// 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 .
// 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 .
double OpenTrades, OrderTime, openperiod, ofast1, ofast2, oslow1, oslow2, cfast1, cfast2, cslow1, cslow2, OpenCondition, CloseCondition;
//------------------------------------------------------------------------
int init()
{
return(0);
}
//------------------------------------------------------------------------
int deinit()
{
return(0);
}
//------------------------------------------------------------------------
int start()
{ // A
if (UserAcceptsAllLiability != true) return(0);
if (UserAcceptsAllLiability == true)
{ // B
int i;
// Count Open Trades and record OrderOpenTime --------------------------
OpenTrades = 0;
for(i = 0; i < OrdersTotal(); i++)
{ // 1
OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
if ( (OrderSymbol() == Symbol()) && (OrderMagicNumber() == magic) )
{ // 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
//- Create condition for Closing a trade --------------------------------
if ((cfast1 > cslow1) && (cfast2 < cslow2)) CloseCondition = 10; // Close Short
if ((cfast1 < cslow1) && (cfast2 > cslow2)) CloseCondition = -10; // Close Long
//- Comments ------------------------------------------------------------
Comment(" OpenTrades, ",OpenTrades,
"\n"," OrderTime, ",OrderTime,
"\n"," openperiod, ",openperiod,
"\n"," fast1, ",ofast1,
"\n"," fast2, ",ofast2,
"\n"," slow1, ",oslow1,
"\n"," slow2, ",oslow2,
"\n"," OpenCondition, ",OpenCondition,
"\n"," CloseCondition, ",CloseCondition);
// Open Trades ----------------------------------------------------------
// Open Long / Buy
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_v1b",
magic,
0,
Blue);
} // 1
// Open Short / Sell
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_v1b",
magic,
0,
Red);
} // 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) &&
(CloseCondition < 0) )
{ // 2
openperiod = 10; // secondary reset of openperiod value , just in case .
OrderClose(OrderTicket(),
OrderLots(),
OrderClosePrice(),
0,
White);
} // 2
// Close Short / Sell
if ( (OrderSymbol() == Symbol()) &&
(OrderType() == OP_SELL) &&
(OrderMagicNumber() == magic) &&
(CloseCondition > 0) )
{ // 2
openperiod = 10; // secondary reset of openperiod value , just in case .
OrderClose(OrderTicket(),
OrderLots(),
OrderClosePrice(),
0,
White);
} // 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(),
Red);
} // 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(),
Red);
} // 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: