TSD_MT4_MR_Trade_0_5F25
Download scriptThis script is an automated trading system designed to manage a multi-currency portfolio by identifying market trends and placing entry orders based on specific technical conditions. It functions as an "Expert Advisor," meaning it monitors the markets independently to execute trades, manage pending orders, and protect profits.
Core Logic Overview
The script operates by cycling through a predefined list of currency pairs (such as EURUSD, GBPJPY, etc.). For each pair, it performs a series of checks to determine whether to enter a "Buy" or "Sell" position.
1. Trend Identification (Directional Analysis)
The system first determines the general momentum of the market using one of two primary indicators:
- MACD (Moving Average Convergence Divergence): Measures the speed and direction of price movement.
- OsMA (Oscillating Moving Average): A variation of the MACD that helps identify shifts in trend strength.
The script compares the current value of these indicators against their previous values. If the momentum is increasing, it looks for a potential "Buy" opportunity; if it is decreasing, it seeks a "Sell" opportunity.
2. Entry Filtering (Confirmation)
To avoid entering trades during "noisy" or unreliable market movements, the system applies a secondary filter to confirm the trend. Depending on the settings, it uses:
- Williams %R: A momentum indicator that identifies overbought or oversold conditions.
- Force Indicator: A custom calculation used to verify if the price action is strong enough to warrant a trade.
A trade is only initiated if both the Directional Analysis and the Filter Confirmation align with the desired movement.
3. Trade Execution & Order Management
Instead of entering the market instantly at current prices, the script utilizes Pending Orders (BuyStop and SellStop).
- Placement: It calculates specific entry levels based on the high and low prices of previous candles.
- Dynamic Adjustment: If the market conditions change before a pending order is filled, the script will automatically delete or move those orders to new price levels to stay aligned with the current trend.
- Stop Loss and Take Profit: Every trade is automatically assigned a "Stop Loss" (to limit risk) and a "Take Profit" (to secure gains). The Take Profit is dynamically calculated to ensure it provides a balanced reward relative to the distance of the Stop Loss.
4. Dynamic Risk Management
The script includes several professional-grade money management features:
- Automatic Lot Sizing: It can calculate the size of your trade (Lot size) automatically based on your account balance, leverage, and available margin. This helps in maintaining a consistent risk profile across different currency pairs.
- Trailing Stop: Once a trade is active and moving in a profitable direction, the system uses an ATR (Average True Range) calculation to "trail" the Stop Loss. This means as the price moves in your favor, the Stop Loss follows it upward (for buys) or downward (for sells), locking in profits while giving the trade room to breathe.
Summary of Workflow
- Scan: Cycle through the list of currency pairs.
- Analyze: Check momentum (Direction) and confirmation (Filter).
- Monitor: Place pending orders at calculated price levels.
- Execute: Once a pending order is triggered, manage the live trade with an ATR-based trailing stop to maximize profit while minimizing potential loss.
- Update: Continuously adjust pending orders and stop losses on every new price bar to ensure the strategy remains relevant to real-time market data.
Price Data Components
Orders Execution
Indicators Used
11
Views
0
Downloads
0
Favorites
TSD_MT4_MR_Trade_0_5F25
/*-----------------------------+
| |
| Shared by www.Aptrafx.com |
| |
+------------------------------*/
//+------------------------------------------------------------------+
//| TSD_MR_Trade_OsMA_WPR_0_24.mq4 |
//| Copyright ® 2005 Mindaugas |
//| TSD Trade version 0.24 |
//| |
//| o TSD idea and realization by Bob O'Brien / Barcode |
//| o TSD rewritten to MQL4 and enhanced by Mindaugas |
//| o Enhanced comments by Mike aka FxMt |
//| o Trailing Stop based on ATR by Loren Gordon |
//+------------------------------------------------------------------+
#property copyright "Copyright ® 2005 Mindaugas"
#include <stdlib.mqh>
#define DIRECTION_MACD 1
#define DIRECTION_OSMA 2
#define FILTER_WPR 1
#define FILTER_FORCE 2
// Whether to put new orders or only track old ones
extern bool NewTrades = true;
// Modify expert's behaviour for backtesting purposes
bool BackTesting = false;
// which indicators to use
int DirectionMode = DIRECTION_OSMA, FilterMode = FILTER_WPR;
// trading periods
int PeriodDirection = PERIOD_W1, PeriodTrade = PERIOD_D1, PeriodTrailing = PERIOD_H4, CandlesTrailing = 3;
// currency pairs to trade
string pairs[] = { "AUDUSD", "EURCHF", "EURGBP", "EURJPY", "EURUSD", "GBPCHF", "GBPJPY", "GBPUSD",
"USDCAD", "USDCHF", "USDJPY" };
// parameters for MACD and OsMA
int DirectionFastEMA = 12, DirectionSlowEMA = 26, DirectionSignal = 9;
// parameters for iWPR and iForce indicators
int WilliamsP = 24, WilliamsL = -75, WilliamsH = -25;
int ForceP = 2;
int MagicNumber = 2005072001;
bool TrailingStop = true;
int TakeProfit = 100, Slippage = 5, LotsMax = 50, MM = 0, Leverage = 1, MarginChoke = 200;
double Lots = 0.1;
string TradeSymbol, CommentHeader, CommentsPairs[];
int Pair = -1, SDigits;
datetime LastTrade = 0;
double Spread, SPoint, STS, StopLevel;
//+------------------------------------------------------------------+
int init() {
string DirInd, FilterInd;
if ( BackTesting ) { if ( ArrayResize(pairs,1) != 0 ) pairs[0] = Symbol(); }
else {
ArrayCopy (CommentsPairs, pairs);
if ( DirectionMode == DIRECTION_MACD ) DirInd = "MACD";
else if ( DirectionMode == DIRECTION_OSMA ) DirInd = "OsMA";
if ( FilterMode == FILTER_WPR ) FilterInd = "WPR("+WilliamsP+","+WilliamsL+","+WilliamsH+")";
else if ( FilterMode == FILTER_FORCE ) FilterInd = "Force("+ForceP+")";
CommentHeader = ("\nTSD Trade P("+PeriodDirection+","+PeriodTrade+","+PeriodTrailing+","+CandlesTrailing+")"+
" "+DirInd+"("+DirectionFastEMA+","+DirectionSlowEMA+","+DirectionSignal+")"+
" "+FilterInd+"\n");
}
return(0);
}
//+------------------------------------------------------------------+
int deinit() { return(0); }
//+------------------------------------------------------------------+
int start() {
int TradesThisSymbol, Direction;
int i, ticket;
bool okSell, okBuy;
double PriceOpen, Buy_Sl, Buy_Tp, LotMM;
string ValueComment;
Pair = (Pair+1) % ArraySize(pairs);
TradeSymbol = pairs[Pair];
TradesThisSymbol = TotalTradesThisSymbol (TradeSymbol);
SPoint = MarketInfo (TradeSymbol, MODE_POINT);
Spread = MarketInfo (TradeSymbol, MODE_SPREAD) * SPoint;
SDigits = MarketInfo (TradeSymbol, MODE_DIGITS);
StopLevel = MarketInfo (TradeSymbol, MODE_STOPLEVEL) * SPoint + 1*SPoint;
STS = iATR (TradeSymbol, PeriodTrailing, PeriodDirection*3/PeriodTrailing, 1) + Spread + 1*SPoint;
Direction = Direction (TradeSymbol, PeriodDirection, DirectionMode);
ValueComment = Filter(TradeSymbol, PeriodTrade, FilterMode, okBuy, okSell);
CommentAll (Direction, ValueComment);
if ( ! IsTradeAllowed() ) return(0);
///////////////////////////////////////////////////////////////////////////////
// Place new orders and modify pending ones only on the beginning of new bar
///////////////////////////////////////////////////////////////////////////////
if ( NewBar() ) {
/////////////////////////////////////////////////
// Place new order
/////////////////////////////////////////////////
if ( TradesThisSymbol < 1 && NewTrades ) {
LotMM = CalcMM(MM);
if ( LotMM < 0 ) return(0);
ticket = 0;
if ( Direction == 1 && okBuy ) {
MarkTrade();
Print ("TSD BuyStop: ", TradeSymbol, " ", LotMM, " ", CalcOpenBuy(), " ", CalcSlBuy(), " ", CalcTpBuy(),
", ", MarketInfo(TradeSymbol, MODE_ASK), " ", ValueComment);
ticket = OrderSend (TradeSymbol, OP_BUYSTOP, LotMM, CalcOpenBuy(), Slippage, CalcSlBuy(), CalcTpBuy(),
"TSD BuyStop", MagicNumber, 0);
}
if ( Direction == -1 && okSell ) {
MarkTrade();
Print ("TSD SellStop: ", TradeSymbol, " ", LotMM, " ", CalcOpenSell(), " ", CalcSlSell(), " ", CalcTpSell(),
", ", MarketInfo(TradeSymbol, MODE_BID), " ", ValueComment);
ticket = OrderSend (TradeSymbol, OP_SELLSTOP, LotMM, CalcOpenSell(), Slippage, CalcSlSell(), CalcTpSell(),
"TSD SellStop", MagicNumber, 0);
}
if ( ticket == -1 ) ReportError ();
if ( ticket != 0 ) return(0);
} // End of TradesThisSymbol < 1 && NewTrades
/////////////////////////////////////////////////
// Pending Order Management
/////////////////////////////////////////////////
for (i = 0; i < OrdersTotal(); i++) {
if ( OrderSelect (i, SELECT_BY_POS) == false ) continue;
if ( OrderSymbol() != TradeSymbol || OrderMagicNumber() != MagicNumber) continue;
if ( OrderType () == OP_BUYSTOP ) {
if ( Direction != 1 ) {
MarkTrade();
OrderDelete ( OrderTicket() );
return(0);
}
if ( ComparePrices (CalcOpenBuy(), OrderOpenPrice()) != 0 ||
ComparePrices (CalcSlBuy(), OrderStopLoss()) != 0 ) {
MarkTrade();
Print ("TSD modify BuyStop: ", TradeSymbol, " ", CalcOpenBuy(), " ", CalcSlBuy(), " ", CalcTpBuy(),
", ", MarketInfo(TradeSymbol, MODE_ASK));
OrderModify (OrderTicket(), CalcOpenBuy(), CalcSlBuy(), CalcTpBuy(), 0);
return(0);
}
}
if ( OrderType () == OP_SELLSTOP ) {
if ( Direction != -1 ) {
MarkTrade();
OrderDelete ( OrderTicket() );
return(0);
}
if ( ComparePrices (CalcOpenSell(), OrderOpenPrice()) != 0 ||
ComparePrices (CalcSlSell(), OrderStopLoss()) != 0 ) {
MarkTrade();
Print ("TSD modify SellStop: ", TradeSymbol, " ", CalcOpenSell(), " ", CalcSlSell(), " ", CalcTpSell(),
", ", MarketInfo(TradeSymbol, MODE_BID));
OrderModify (OrderTicket(), CalcOpenSell(), CalcSlSell(), CalcTpSell(), 0);
return(0);
}
}
} // End of Pending Order Management
} // End of NewBar()
/////////////////////////////////////////////////
// Stop Loss Management
/////////////////////////////////////////////////
if ( TrailingStop ) {
for (i = 0; i < OrdersTotal(); i++) {
if ( OrderSelect (i, SELECT_BY_POS) == false ) continue;
if ( OrderSymbol() != TradeSymbol || OrderMagicNumber() != MagicNumber) continue;
if ( TrailStop (i, STS) ) return(0);
}
}
return(0);
}
//+------------------------------------------------------------------+
double CalcOpenBuy () { return (MathMax (iHigh(TradeSymbol, PeriodTrade, 1) + 1*SPoint + Spread,
MarketInfo(TradeSymbol, MODE_ASK) + StopLevel)); }
double CalcOpenSell () { return (MathMin (iLow(TradeSymbol, PeriodTrade, 1) - 1*SPoint,
MarketInfo(TradeSymbol, MODE_BID) - StopLevel)); }
double CalcSlBuy () { return (iLow (TradeSymbol, PeriodTrade, 1) - 1*SPoint); }
double CalcSlSell () { return (iHigh(TradeSymbol, PeriodTrade, 1) + 1*SPoint + Spread); }
double CalcTpBuy () {
double PriceOpen = CalcOpenBuy(), SL = CalcSlBuy();
if ( TakeProfit == 0 ) return(0);
return (PriceOpen + MathMax(TakeProfit*SPoint, (PriceOpen - SL)*2));
}
double CalcTpSell () {
double PriceOpen = CalcOpenSell(), SL = CalcSlSell();
if ( TakeProfit == 0 ) return(0);
return (PriceOpen - MathMax(TakeProfit*SPoint, (SL - PriceOpen)*2));
}
//+------------------------------------------------------------------+
bool TrailStop (int i, double TrailingStop) {
double StopLoss;
if ( OrderType() == OP_BUY ) {
if ( MarketInfo (TradeSymbol, MODE_BID) < OrderOpenPrice()+TrailingStop ) return(false);
StopLoss = iLow(TradeSymbol, PeriodTrailing, Lowest (TradeSymbol, PeriodTrailing, MODE_LOW, CandlesTrailing+1, 0)) - 1*SPoint;
StopLoss = MathMin (MarketInfo (TradeSymbol, MODE_BID)-TrailingStop, StopLoss);
if ( ComparePrices (StopLoss, OrderStopLoss() + 4*SPoint) == 1 ) {
MarkTrade();
Print ("TSD trailstop Buy: ", TradeSymbol, " ", StopLoss, ", ", MarketInfo(TradeSymbol, MODE_ASK));
OrderModify (OrderTicket(), OrderOpenPrice(), StopLoss, OrderTakeProfit(), 0);
return(true);
}
}
if ( OrderType() == OP_SELL ) {
if ( MarketInfo (TradeSymbol, MODE_ASK) > OrderOpenPrice()-TrailingStop ) return(false);
StopLoss = iHigh(TradeSymbol, PeriodTrailing, Highest (TradeSymbol, PeriodTrailing, MODE_HIGH, CandlesTrailing+1, 0)) + 1*SPoint
+ Spread;
StopLoss = MathMax (MarketInfo (TradeSymbol, MODE_ASK)+TrailingStop, StopLoss);
if ( ComparePrices (StopLoss, OrderStopLoss() - 4*SPoint) == -1 ) {
MarkTrade();
Print ("TSD trailstop Sell: ", TradeSymbol, " ", StopLoss, ", ", MarketInfo(TradeSymbol, MODE_BID));
OrderModify (OrderTicket(), OrderOpenPrice(), StopLoss, OrderTakeProfit(), 0);
return(true);
}
}
return(false);
}
//+------------------------------------------------------------------+
int Direction (string TradeSymbol, int PeriodDirection, int Mode) {
double Previous, Previous2;
if (Mode == DIRECTION_MACD ) {
Previous = iMACD (TradeSymbol, PeriodDirection, DirectionFastEMA, DirectionSlowEMA, DirectionSignal,
PRICE_CLOSE, MODE_MAIN, 1);
Previous2 = iMACD (TradeSymbol, PeriodDirection, DirectionFastEMA, DirectionSlowEMA, DirectionSignal,
PRICE_CLOSE, MODE_MAIN, 2);
}
else if (Mode == DIRECTION_OSMA) {
Previous = iOsMA (TradeSymbol, PeriodDirection, DirectionFastEMA, DirectionSlowEMA, DirectionSignal,
PRICE_CLOSE, 1);
Previous2 = iOsMA (TradeSymbol, PeriodDirection, DirectionFastEMA, DirectionSlowEMA, DirectionSignal,
PRICE_CLOSE, 2);
}
if ( Previous > Previous2 )
return(1);
if ( Previous < Previous2 )
return(-1);
return(0);
}
//+------------------------------------------------------------------+
string Filter (string TradeSymbol, int PeriodTrade, int Mode, bool &okBuy, bool &okSell) {
double Value;
okBuy = false; okSell = false;
if (Mode == FILTER_WPR) {
Value = iWPR(TradeSymbol, PeriodTrade, WilliamsP, 1);
if (Value < WilliamsH) okBuy = true;
if (Value > WilliamsL) okSell = true;
return ("iWPR: " + DoubleToStr(Value, 2));
}
else if (Mode == FILTER_FORCE) {
Value = iForce (TradeSymbol, PeriodTrade, ForceP, MODE_EMA, PRICE_CLOSE, 1);
if (Value < 0) okBuy = true;
if (Value > 0) okSell = true;
return ("iForce: " + DoubleToStr(Value, 2));
}
}
//+------------------------------------------------------------------+
double CalcMM (int MM) {
double LotMM;
if ( MM < -1) {
if ( AccountFreeMargin () < 5 ) return(-1);
LotMM = MathFloor (AccountBalance()*Leverage/1000);
if ( LotMM < 1 ) LotMM = 1;
LotMM = LotMM/100;
}
if ( MM == -1 ) {
if ( AccountFreeMargin() < 50 ) return(-1);
LotMM = MathFloor(AccountBalance()*Leverage/10000);
if ( LotMM < 1 ) LotMM = 1;
LotMM = LotMM/10;
}
if ( MM == 0 ) {
if ( AccountFreeMargin() < MarginChoke ) return(-1);
LotMM = Lots;
}
if ( MM > 0 ) {
if ( AccountFreeMargin() < 500 ) return(-1);
LotMM = MathFloor(AccountBalance()*Leverage/100000);
if ( LotMM < 1 ) LotMM = 1;
}
if ( LotMM > LotsMax ) LotMM = LotsMax;
return(LotMM);
}
//+------------------------------------------------------------------+
int TotalTradesThisSymbol (string TradeSymbol) {
int i, TradesThisSymbol = 0;
for (i = 0; i < OrdersTotal(); i++)
if ( OrderSelect (i, SELECT_BY_POS) )
if ( OrderSymbol() == TradeSymbol && OrderMagicNumber() == MagicNumber )
TradesThisSymbol++;
return (TradesThisSymbol);
}
//+------------------------------------------------------------------+
void ReportError () {
int err = GetLastError();
Print("Error(",err,"): ", ErrorDescription(err));
}
//+------------------------------------------------------------------+
void MarkTrade () {
LastTrade = CurTime();
}
//+------------------------------------------------------------------+
int ComparePrices (double Price1, double Price2) {
double p1 = NormalizeDouble (Price1, SDigits), p2 = NormalizeDouble (Price2, SDigits);
if ( p1 > p2 ) return(1);
if ( p1 < p2 ) return(-1);
return(0);
}
//+------------------------------------------------------------------+
bool NewBar () {
static datetime BarTime = 0;
static int NewBarPairs = 999;
int i;
if ( NewBarPairs < ArraySize(pairs)*2 ) {
NewBarPairs++;
return (true);
}
if ( BarTime != iTime (pairs[i], PeriodTrade, 0 ) ) {
for (i = 0; i < ArraySize(pairs); i++)
if ( BarTime == iTime (pairs[i], PeriodTrade, 0 ) )
return (false);
BarTime = iTime (TradeSymbol, PeriodTrade, 0 );
NewBarPairs = 0;
}
return(false);
}
//+------------------------------------------------------------------+
void CommentAll (int Direction, string ValueComment) {
string Comments = "";
int i, next = (Pair+1) % ArraySize(pairs);
CommentsPairs[Pair] = TradeSymbol + ": " + " Dir("+Direction+") " + ValueComment +
" TS(" + DoubleToStr (STS/SPoint, 0) + ")";
CommentsPairs[next] = ">" + CommentsPairs[next];
for (i=0; i < ArraySize(CommentsPairs); i++)
Comments = Comments + "\n" + CommentsPairs[i];
Comment (CommentHeader + Comments);
}
Profitability Reports
PERFORMANCE BY SYMBOL
Expected payoff
Average expected payoff across the available backtests for each symbol.
Positive
Negative
GBP/USD
Jul 2025 - Sep 2025
3.15
Total Trades
9
Won Trades
6
Lost trades
3
Win Rate
66.67 %
Expected payoff
34.81
Gross Profit
459.00
Gross Loss
-145.70
Total Net Profit
313.30
-100%
-50%
0%
50%
100%
AUD/USD
Oct 2025 - Feb 2026
2.26
Total Trades
13
Won Trades
8
Lost trades
5
Win Rate
61.54 %
Expected payoff
14.89
Gross Profit
346.80
Gross Loss
-153.20
Total Net Profit
193.60
-100%
-50%
0%
50%
100%
USD/JPY
Jul 2025 - Sep 2025
1.82
Total Trades
13
Won Trades
6
Lost trades
7
Win Rate
46.15 %
Expected payoff
14.93
Gross Profit
430.25
Gross Loss
-236.13
Total Net Profit
194.12
-100%
-50%
0%
50%
100%
AUD/USD
Jul 2025 - Sep 2025
1.49
Total Trades
11
Won Trades
7
Lost trades
4
Win Rate
63.64 %
Expected payoff
6.01
Gross Profit
202.10
Gross Loss
-136.00
Total Net Profit
66.10
-100%
-50%
0%
50%
100%
EUR/USD
Jul 2025 - Sep 2025
0.97
Total Trades
12
Won Trades
6
Lost trades
6
Win Rate
50.00 %
Expected payoff
-0.92
Gross Profit
413.40
Gross Loss
-424.50
Total Net Profit
-11.10
-100%
-50%
0%
50%
100%
EUR/USD
Oct 2025 - Feb 2026
0.96
Total Trades
16
Won Trades
8
Lost trades
8
Win Rate
50.00 %
Expected payoff
-1.21
Gross Profit
474.40
Gross Loss
-493.80
Total Net Profit
-19.40
-100%
-50%
0%
50%
100%
GBP/USD
Oct 2024 - Jan 2025
0.89
Total Trades
9
Won Trades
5
Lost trades
4
Win Rate
55.56 %
Expected payoff
-2.30
Gross Profit
173.30
Gross Loss
-194.00
Total Net Profit
-20.70
-100%
-50%
0%
50%
100%
USD/CAD
Jul 2025 - Sep 2025
0.83
Total Trades
13
Won Trades
7
Lost trades
6
Win Rate
53.85 %
Expected payoff
-2.42
Gross Profit
156.78
Gross Loss
-188.21
Total Net Profit
-31.43
-100%
-50%
0%
50%
100%
USD/CHF
Jul 2025 - Sep 2025
0.50
Total Trades
12
Won Trades
3
Lost trades
9
Win Rate
25.00 %
Expected payoff
-18.18
Gross Profit
218.31
Gross Loss
-436.49
Total Net Profit
-218.18
-100%
-50%
0%
50%
100%
USD/CAD
Oct 2024 - Jan 2025
0.48
Total Trades
7
Won Trades
2
Lost trades
5
Win Rate
28.57 %
Expected payoff
-11.26
Gross Profit
73.87
Gross Loss
-152.69
Total Net Profit
-78.82
-100%
-50%
0%
50%
100%
NZD/USD
Oct 2024 - Jan 2025
0.00
Total Trades
0
Won Trades
0
Lost trades
0
Win Rate
0.0 %
Expected payoff
0.00
Gross Profit
0.00
Gross Loss
0.00
Total Net Profit
0.00
-100%
-50%
0%
50%
100%
NZD/USD
Jul 2025 - Sep 2025
0.00
Total Trades
0
Won Trades
0
Lost trades
0
Win Rate
0.0 %
Expected payoff
0.00
Gross Profit
0.00
Gross Loss
0.00
Total Net Profit
0.00
-100%
-50%
0%
50%
100%
GBP/AUD
Oct 2025 - Feb 2026
0.00
Total Trades
0
Won Trades
0
Lost trades
0
Win Rate
0.0 %
Expected payoff
0.00
Gross Profit
0.00
Gross Loss
0.00
Total Net Profit
0.00
-100%
-50%
0%
50%
100%
GBP/CAD
Oct 2025 - Feb 2026
0.00
Total Trades
0
Won Trades
0
Lost trades
0
Win Rate
0.0 %
Expected payoff
0.00
Gross Profit
0.00
Gross Loss
0.00
Total Net Profit
0.00
-100%
-50%
0%
50%
100%
Comments