//+------------------------------------------------------------------+
//| TDSGlobal .mq4 |
//| Copyright © 2005 Bob O'Brien / Barcode |
//| http://mak.tradersmind.com |
//+------------------------------------------------------------------+
// Expert based on Alexander Elder's Triple Screen system.
// To be run only on a Daily chart.
//---- External Variables
extern int Lots = 1;
extern int TakeProfit = 999;
extern int Stoploss = 0;
extern int TrailingStop = 10;
extern int Slippage = 5; // Slippage
extern int StopYear = 2005;
extern int MM = 0, Leverage = 1, AcctSize = 10000;
extern int WilliamsP = 24, WilliamsL = -75, WilliamsH = -25;
//----
int BuyEntryOrderTicket = 0, SellEntryOrderTicket = 0, cnt = 0, total = 0;
double MacdCurrent = 0, MacdPrevious = 0, MacdPrevious2 = 0, Direction = 0,
OsMAPrevious = 0, OsMAPrevious2 = 0, OsMADirection = 0;
double newbar = 0, PrevDay = 0, PrevMonth = 0, PrevYear = 0, PrevCurtime = 0;
double PriceOpen = 0; // Price Open
bool First = True;
double TradesThisSymbol = 0;
double WilliamsSell = 0, WilliamsBuy = 0, Williams = 0,NewPrice = 0;
double StartMinute1 = 0, EndMinute1 = 0, StartMinute2 = 0, EndMinute2 = 0,
StartMinute3 = 0, EndMinute3 = 0;
double StartMinute4 = 0, EndMinute4 = 0, StartMinute5 = 0, EndMinute5 = 0,
StartMinute6 = 0, EndMinute6 = 0;
double StartMinute7 = 0, EndMinute7 = 0, DummyField = 0;
double Lotsf = 0;
//+------------------------------------------------------------------+
//| |
//+------------------------------------------------------------------+
int start()
{
Lotsf = MathRound(AccountBalance() / 10000);
/* Comment("TSD for MT4 ver beta 0.2 - DO NOT USE WITH REAL MONEY YET",
"\n",
"\n","Weekly MacdPrevious = ", MacdPrevious, " Weekly OsMAPrevious = ",
OsMAPrevious,
"\n","Weekly MacdPrevious2 = ", MacdPrevious2, " Weekly OsMAPrevious2 = ",
OsMAPrevious2,
"\n","Weekly Direction = ", Direction, " Weekly OsMADirection = ", OsMADirection,
"\n",
"\n","Lotsf = ", Lotsf,
"\n",
"\n","Daily Williams = ", Williams,
"\n","Is Daily Williams Bullish = ", WilliamsSell,
"\n","Is Daily Williams Bearish = ", WilliamsBuy,
"\n",
"\n","Total Orders = ", total,
"\n","Trades this Symbol(",Symbol(), ") = ", TradesThisSymbol,
"\n",
"\n","New Bar Time is ", TimeToStr(newbar),
"\n",
"\n","Daily High[1] = ",High[1],
"\n","Daily High[2] = ",High[2],
"\n","Daily Low[1] = ",Low[1],
"\n","Daily Low[2] = ",Low[2],
"\n",
"\n","Current Ask Price + 16 pips = ",Ask+(16*Point),
"\n","Current Bid Price - 16 pips = ",Bid-(16*Point));*/
total = OrdersTotal();
TradesThisSymbol = 0;
for(cnt = 0; cnt < total; cnt++)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if(OrderSymbol() == Symbol())
{
TradesThisSymbol++;
} // close for if(OrderSymbol()==Symbol())
} // close for for(cnt=0;cnt<total;cnt++)
MacdPrevious = iMACD(NULL, 1440, 12, 26, 9, PRICE_CLOSE, MODE_MAIN, 1);
MacdPrevious2 = iMACD(NULL, 1440, 12, 26, 9, PRICE_CLOSE, MODE_MAIN, 2);
OsMAPrevious = iOsMA(NULL, 1440, 12, 26, 9, PRICE_CLOSE, 1);
OsMAPrevious2 = iOsMA(NULL, 1440, 12, 26, 9, PRICE_CLOSE, 2);
Williams = iWPR(NULL, 1440, WilliamsP, 1);
WilliamsSell = iWPR(NULL, 1440, 24, 1) > WilliamsL;
WilliamsBuy = iWPR(NULL, 1440, 24, 1) < WilliamsH;
if(MacdPrevious > MacdPrevious2)
Direction = 1;
if(MacdPrevious < MacdPrevious2)
Direction = -1;
if(MacdPrevious == MacdPrevious2)
Direction = 0;
if(OsMAPrevious > OsMAPrevious2)
OsMADirection = 1;
if(OsMAPrevious < OsMAPrevious2)
OsMADirection = -1;
if(OsMAPrevious == OsMAPrevious2)
OsMADirection = 0;
// Select a range of minutes in the day to start trading based on the currency pair.
// This is to stop collisions occurring when 2 or more currencies set orders at the same time.
if(Symbol() == "USDCHF")
{
StartMinute1 = 0;
EndMinute1 = 1;
StartMinute2 = 8;
EndMinute2 = 9;
StartMinute3 = 16;
EndMinute3 = 17;
StartMinute4 = 24;
EndMinute4 = 25;
StartMinute5 = 32;
EndMinute5 = 33;
StartMinute6 = 40;
EndMinute6 = 41;
StartMinute7 = 48;
EndMinute7 = 49;
} // close for if(Symbol() == "USDCHF")
if(Symbol() == "GBPUSD")
{
StartMinute1 = 2;
EndMinute1 = 3;
StartMinute2 = 10;
EndMinute2 = 11;
StartMinute3 = 18;
EndMinute3 = 19;
StartMinute4 = 26;
EndMinute4 = 27;
StartMinute5 = 34;
EndMinute5 = 35;
StartMinute6 = 42;
EndMinute6 = 43;
StartMinute7 = 50;
EndMinute7 = 51;
} // close for if(Symbol() == "GBPUSD")
if(Symbol() == "USDJPY")
{
StartMinute1 = 4;
EndMinute1 = 5;
StartMinute2 = 12;
EndMinute2 = 13;
StartMinute3 = 20;
EndMinute3 = 21;
StartMinute4 = 28;
EndMinute4 = 29;
StartMinute5 = 36;
EndMinute5 = 37;
StartMinute6 = 44;
EndMinute6 = 45;
StartMinute7 = 52;
EndMinute7 = 53;
} //close for if(Symbol() == "USDJPY")
if(Symbol() == "EURUSD")
{
StartMinute1 = 6;
EndMinute1 = 7;
StartMinute2 = 14;
EndMinute2 = 15;
StartMinute3 = 22;
EndMinute3 = 23;
StartMinute4 = 30;
EndMinute4 = 31;
StartMinute5 = 38;
EndMinute5 = 39;
StartMinute6 = 46;
EndMinute6 = 47;
StartMinute7 = 54;
EndMinute7 = 59;
} // close for if(Symbol() == "EURUSD")
if((Minute() >= StartMinute1 && Minute() <= EndMinute1) ||
(Minute() >= StartMinute2 && Minute() <= EndMinute2) ||
(Minute() >= StartMinute3 && Minute() <= EndMinute3) ||
(Minute() >= StartMinute4 && Minute() <= EndMinute4) ||
(Minute() >= StartMinute5 && Minute() <= EndMinute5) ||
(Minute() >= StartMinute6 && Minute() <= EndMinute6) ||
(Minute() >= StartMinute7 && Minute() <= EndMinute7))
{
// dummy statement because MT will not allow me to use a continue statement
DummyField = 0;
} // close for LARGE if statement
else
return(0);
/////////////////////////////////////////////////
// Process the next bar details
/////////////////////////////////////////////////
if(newbar != Time[0])
{
newbar = Time[0];
if(TradesThisSymbol < 1)
{
if(Direction == 1 && WilliamsBuy)
{
// Buy 1 point above high of previous candle
PriceOpen = High[1] + 1 * Point;
// Check if buy price is a least 16 points > Ask
if(PriceOpen > (Ask + 16 * Point))
{
BuyEntryOrderTicket = OrderSend(Symbol(), OP_BUYSTOP, Lotsf, PriceOpen,
Slippage, Low[1] - 1 * Point,
PriceOpen + TakeProfit * Point,
"Buy Entry Order placed at " + CurTime(),
0, 0, Green);
return(0);
} // close for if(PriceOpen > (Ask + 16 * Point))
else
{
NewPrice = Ask + 16 * Point;
BuyEntryOrderTicket = OrderSend(Symbol(), OP_BUYSTOP, Lotsf, NewPrice,
Slippage, Low[1] - 1 * Point,
NewPrice + TakeProfit * Point,
"Buy Entry Order placed at " + CurTime(),
0, 0, Green);
return(0);
} // close for else statement
} // close for if(Direction == 1 && WilliamsBuy)
if(Direction == -1 && WilliamsSell)
{
PriceOpen = Low[1] - 1 * Point;
// Check if buy price is a least 16 points < Bid
if(PriceOpen < (Bid - 16 * Point))
{
SellEntryOrderTicket = OrderSend(Symbol(), OP_SELLSTOP, Lotsf, PriceOpen,
Slippage, High[1] + 1 * Point,
PriceOpen - TakeProfit * Point,
"Sell Entry Order placed at " + CurTime(),
0, 0, Green);
return(0);
} // close for if(PriceOpen < (Bid - 16 * Point))
else
{
NewPrice = Bid - 16 * Point;
SellEntryOrderTicket = OrderSend(Symbol(), OP_SELLSTOP, Lotsf, NewPrice,
Slippage, High[1] + 1 * Point,
NewPrice - TakeProfit * Point,
"Sell Entry Order placed at " + CurTime(),
0, 0, Green);
return(0);
} // close for else statement
} // close for if(Direction == -1 && WilliamsSell)
} //Close of if(TradesThisSymbol < 1)
/////////////////////////////////////////////////
// Pending Order Management
/////////////////////////////////////////////////
if(TradesThisSymbol > 0)
{
total = OrdersTotal();
for(cnt = 0; cnt < total; cnt++)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if(OrderSymbol() == Symbol() && OrderType() == OP_BUYSTOP)
{
if(Direction == -1)
{
OrderDelete(OrderTicket());
return(0);
} // close for if(Direction == -1)
} // close for if(OrderSymbol()==Symbol() && OrderType()==OP_BUYSTOP)
if(OrderSymbol() == Symbol() && OrderType() == OP_SELLSTOP)
{
if(Direction == 1)
{
OrderDelete(OrderTicket());
return(0);
} //close for if(Direction == 1)
} //close for if(OrderSymbol()==Symbol() && OrderType()==OP_SELLSTOP)
if(OrderSymbol() == Symbol() && OrderType() == OP_BUYSTOP)
{
if(High[1] < High[2])
{
if(High[1] > (Ask + 16 * Point))
{
OrderModify(OrderTicket(), High[1] + 1 * Point, Low[1] - 1 * Point,
OrderTakeProfit(), 0, Cyan);
return(0);
} //close for if(High[1] > (Ask + 16 * Point))
else
{
OrderModify(OrderTicket(), Ask + 16 * Point, Low[1] - 1 * Point,
OrderTakeProfit(), 0, Cyan);
return(0);
} //close for else statement
} //close for if(High[1] < High[2])
} //close for if(OrderSymbol()==Symbol() && OrderType()==OP_BUYSTOP)
if(OrderSymbol() == Symbol() && OrderType() == OP_SELLSTOP)
{
if(Low[1] > Low[2])
{
if(Low[1] < (Bid - 16 * Point))
{
OrderModify(OrderTicket(), Low[1] - 1 * Point, High[1] + 1 * Point,
OrderTakeProfit(), 0, Cyan);
return(0);
} // close for if(Low[1] < (Bid - 16 * Point))
else
{
OrderModify(OrderTicket(), Bid - 16 * Point, High[1] + 1 * Point,
OrderTakeProfit(), 0, Cyan);
return(0);
} //close for else statement
} //close for if(Low[1] > Low[2])
} //close for if(OrderSymbol()==Symbol() && OrderType()==OP_SELLSTOP)
} // close for for(cnt=0;cnt<total;cnt++)
} // close for if(TradesThisSymbol > 0)
} // close for if (newbar != Time[0])
/////////////////////////////////////////////////
// Stop Loss Management
/////////////////////////////////////////////////
if(TradesThisSymbol > 0)
{
total = OrdersTotal();
for(cnt = 0; cnt < total; cnt++)
{
OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
if(OrderSymbol() == Symbol() && OrderType() == OP_BUY)
{
if(Ask - OrderOpenPrice() > (TrailingStop * Point))
{
if(OrderStopLoss() < (Ask - TrailingStop * Point))
{
OrderModify(OrderTicket(), OrderOpenPrice(), Ask - TrailingStop * Point,
Ask + TakeProfit * Point, 0, Cyan);
return(0);
} // close for if(OrderStopLoss() < (Ask - TrailingStop * Point))
} // close for if(Ask-OrderOpenPrice() > (TrailingStop * Point))
} // close for if(OrderSymbol()==Symbol() && OrderType()==OP_BUY)
if(OrderSymbol() == Symbol() && OrderType() == OP_SELL)
{
if(OrderOpenPrice() - Bid > (TrailingStop * Point))
{
if(OrderStopLoss() > (Bid + TrailingStop * Point))
{
OrderModify(OrderTicket(), OrderOpenPrice(), Bid + TrailingStop * Point,
Bid - TakeProfit * Point, 0, Cyan);
return(0);
} // close for if(OrderStopLoss() > (Bid + TrailingStop * Point))
} // close for if(OrderOpenPrice() - Bid > (TrailingStop * Point))
} // close for if(OrderSymbol()==Symbol() && OrderType()==OP_SELL)
} // close for for(cnt=0;cnt<total;cnt++)
} // close for if(TradesThisSymbol > 0)
//----
return(0);
} // close for start
//+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Series array that contains the highest prices of each bar
Series array that contains the lowest prices of each bar
Series array that contains open time of each bar
Indicator Curves created:
Indicators Used:
MACD Histogram
Moving Average of Oscillator
Larry William percent range indicator
Custom Indicators Used:
Order Management characteristics:
Checks for the total of open orders
It can change open orders parameters, due to possible stepping strategy
Other Features: