Trend Rider Dr. Gaines

Author: Dr Richard Gaines
Profit factor:
0.74
Orders Execution
Checks for the total of open ordersIt Closes Orders by itself It can change open orders parameters, due to possible stepping strategyIt automatically opens orders when conditions are reached
Indicators Used
Relative strength index
Miscellaneous
It sends emails
5 Views
0 Downloads
0 Favorites
Trend Rider Dr. Gaines
//+------------------------------------------------------------------+
//| Trend Rider Dr. Gaines                |
//|                dr_richard_gaines@yahoo.com |
//|                                                                  |
//|  In no event will author be liable for any damages whatsoever.   |
//|                      Use at your own risk.                       |
//| Try differnt time frames and let me know what happens                                                                 |
//+------------------- DO NOT REMOVE THIS HEADER --------------------+

#define SIGNAL_NONE 0
#define SIGNAL_BUY   1
#define SIGNAL_SELL  2
#define SIGNAL_CLOSEBUY 3
#define SIGNAL_CLOSESELL 4

#property copyright "Dr Richard Gaines"
#property link      "dr_richard_gaines@yahoo.com"

extern int MagicNumber = 0;
extern bool SignalMail = False;
extern bool EachTickMode = True;
extern double Lots = 1.0;
extern int Slippage = 3;
extern bool StopLossMode = True;
extern int StopLoss = 300;
extern bool TakeProfitMode = True;
extern int TakeProfit = 600;
extern bool TrailingStopMode = True;
extern int TrailingStop = 300;

int BarCount;
int Current;
bool TickCheck = False;
//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int init() {
   BarCount = Bars;

   if (EachTickMode) Current = 0; else Current = 1;

   return(0);
}
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit() {
   return(0);
}
//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start() {
   int Order = SIGNAL_NONE;
   int Total, Ticket;
   double StopLossLevel, TakeProfitLevel;



   if (EachTickMode && Bars != BarCount) TickCheck = False;
   Total = OrdersTotal();
   Order = SIGNAL_NONE;

   //+------------------------------------------------------------------+
   //| Variable Begin                                                   |
   //+------------------------------------------------------------------+

double Var1 = iRSI(NULL, 0, 4, PRICE_CLOSE, Current + 0);
double Var2 = iRSI(NULL, 0, 14, PRICE_CLOSE, Current + 0);

double Buy1_1 = iRSI(NULL, 0, 4, PRICE_CLOSE, Current + 0);
double Buy1_2 = iRSI(NULL, 0, 14, PRICE_CLOSE, Current + 0);

double Sell1_1 = iRSI(NULL, 0, 4, PRICE_CLOSE, Current + 0);
double Sell1_2 = iRSI(NULL, 0, 14, PRICE_CLOSE, Current + 0);

double CloseBuy1_1 = iRSI(NULL, 0, 14, PRICE_CLOSE, Current + 0);
double CloseBuy1_2 = iRSI(NULL, 0, 14, PRICE_CLOSE, Current + 0);

double CloseSell1_1 = iRSI(NULL, 0, 4, PRICE_CLOSE, Current + 0);
double CloseSell1_2 = iRSI(NULL, 0, 14, PRICE_CLOSE, Current + 0);

   
   //+------------------------------------------------------------------+
   //| Variable End                                                     |
   //+------------------------------------------------------------------+

   //Check position
   bool IsTrade = False;

   for (int i = 0; i < Total; i ++) {
      OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
      if(OrderType() <= OP_SELL &&  OrderSymbol() == Symbol()) {
         IsTrade = True;
         if(OrderType() == OP_BUY) {
            //Close

            //+------------------------------------------------------------------+
            //| Signal Begin(Exit Buy)                                           |
            //+------------------------------------------------------------------+

                     if (CloseBuy1_1 < CloseBuy1_2) Order = SIGNAL_CLOSEBUY;


            //+------------------------------------------------------------------+
            //| Signal End(Exit Buy)                                             |
            //+------------------------------------------------------------------+

            if (Order == SIGNAL_CLOSEBUY && ((EachTickMode && !TickCheck) || (!EachTickMode && (Bars != BarCount)))) {
               OrderClose(OrderTicket(), OrderLots(), Bid, Slippage, MediumSeaGreen);
               if (SignalMail) SendMail("[Signal Alert]", "[" + Symbol() + "] " + DoubleToStr(Bid, Digits) + " Close Buy");
               if (!EachTickMode) BarCount = Bars;
               IsTrade = False;
               continue;
            }
            //Trailing stop
            if(TrailingStopMode && TrailingStop > 0) {                 
               if(Bid - OrderOpenPrice() > Point * TrailingStop) {
                  if(OrderStopLoss() < Bid - Point * TrailingStop) {
                     OrderModify(OrderTicket(), OrderOpenPrice(), Bid - Point * TrailingStop, OrderTakeProfit(), 0, MediumSeaGreen);
                     if (!EachTickMode) BarCount = Bars;
                     continue;
                  }
               }
            }
         } else {
            //Close

            //+------------------------------------------------------------------+
            //| Signal Begin(Exit Sell)                                          |
            //+------------------------------------------------------------------+

                     if (CloseSell1_1 > CloseSell1_2) Order = SIGNAL_CLOSESELL;


            //+------------------------------------------------------------------+
            //| Signal End(Exit Sell)                                            |
            //+------------------------------------------------------------------+

            if (Order == SIGNAL_CLOSESELL && ((EachTickMode && !TickCheck) || (!EachTickMode && (Bars != BarCount)))) {
               OrderClose(OrderTicket(), OrderLots(), Ask, Slippage, DarkOrange);
               if (SignalMail) SendMail("[Signal Alert]", "[" + Symbol() + "] " + DoubleToStr(Ask, Digits) + " Close Sell");
               if (!EachTickMode) BarCount = Bars;
               IsTrade = False;
               continue;
            }
            //Trailing stop
            if(TrailingStopMode && TrailingStop > 0) {                 
               if((OrderOpenPrice() - Ask) > (Point * TrailingStop)) {
                  if((OrderStopLoss() > (Ask + Point * TrailingStop)) || (OrderStopLoss() == 0)) {
                     OrderModify(OrderTicket(), OrderOpenPrice(), Ask + Point * TrailingStop, OrderTakeProfit(), 0, DarkOrange);
                     if (!EachTickMode) BarCount = Bars;
                     continue;
                  }
               }
            }
         }
      }
   }

   //+------------------------------------------------------------------+
   //| Signal Begin(Entry)                                              |
   //+------------------------------------------------------------------+

   if (Buy1_1 > Buy1_2) Order = SIGNAL_BUY;

   if (Sell1_1 < Sell1_2) Order = SIGNAL_SELL;


   //+------------------------------------------------------------------+
   //| Signal End                                                       |
   //+------------------------------------------------------------------+

   //Buy
   if (Order == SIGNAL_BUY && ((EachTickMode && !TickCheck) || (!EachTickMode && (Bars != BarCount)))) {
      if(!IsTrade) {
         //Check free margin
         if (AccountFreeMargin() < (1000 * Lots)) {
            Print("We have no money. Free Margin = ", AccountFreeMargin());
            return(0);
         }

         if (StopLossMode) StopLossLevel = Ask - StopLoss * Point; else StopLossLevel = 0.0;
         if (TakeProfitMode) TakeProfitLevel = Ask + TakeProfit * Point; else TakeProfitLevel = 0.0;

         Ticket = OrderSend(Symbol(), OP_BUY, Lots, Ask, Slippage, StopLossLevel, TakeProfitLevel, "Buy(#" + MagicNumber + ")", MagicNumber, 0, DodgerBlue);
         if(Ticket > 0) {
            if (OrderSelect(Ticket, SELECT_BY_TICKET, MODE_TRADES)) {
				Print("BUY order opened : ", OrderOpenPrice());
                if (SignalMail) SendMail("[Signal Alert]", "[" + Symbol() + "] " + DoubleToStr(Ask, Digits) + " Open Buy");
			} else {
				Print("Error opening BUY order : ", GetLastError());
			}
         }
         if (EachTickMode) TickCheck = True;
         if (!EachTickMode) BarCount = Bars;
         return(0);
      }
   }

   //Sell
   if (Order == SIGNAL_SELL && ((EachTickMode && !TickCheck) || (!EachTickMode && (Bars != BarCount)))) {
      if(!IsTrade) {
         //Check free margin
         if (AccountFreeMargin() < (1000 * Lots)) {
            Print("We have no money. Free Margin = ", AccountFreeMargin());
            return(0);
         }

         if (StopLossMode) StopLossLevel = Bid + StopLoss * Point; else StopLossLevel = 0.0;
         if (TakeProfitMode) TakeProfitLevel = Bid - TakeProfit * Point; else TakeProfitLevel = 0.0;

         Ticket = OrderSend(Symbol(), OP_SELL, Lots, Bid, Slippage, StopLossLevel, TakeProfitLevel, "Sell(#" + MagicNumber + ")", MagicNumber, 0, DeepPink);
         if(Ticket > 0) {
            if (OrderSelect(Ticket, SELECT_BY_TICKET, MODE_TRADES)) {
				Print("SELL order opened : ", OrderOpenPrice());
                if (SignalMail) SendMail("[Signal Alert]", "[" + Symbol() + "] " + DoubleToStr(Bid, Digits) + " Open Sell");
			} else {
				Print("Error opening SELL order : ", GetLastError());
			}
         }
         if (EachTickMode) TickCheck = True;
         if (!EachTickMode) BarCount = Bars;
         return(0);
      }
   }

   if (!EachTickMode) BarCount = Bars;

   return(0);
}
//+------------------------------------------------------------------+

Profitability Reports

GBP/USD Jul 2025 - Sep 2025
1.00
Total Trades 210
Won Trades 90
Lost trades 120
Win Rate 42.86 %
Expected payoff -0.36
Gross Profit 24294.00
Gross Loss -24370.00
Total Net Profit -76.00
-100%
-50%
0%
50%
100%
GBP/CAD Jul 2025 - Sep 2025
0.77
Total Trades 265
Won Trades 97
Lost trades 168
Win Rate 36.60 %
Expected payoff -21.84
Gross Profit 19785.32
Gross Loss -25573.11
Total Net Profit -5787.79
-100%
-50%
0%
50%
100%
GBP/AUD Jul 2025 - Sep 2025
0.63
Total Trades 248
Won Trades 90
Lost trades 158
Win Rate 36.29 %
Expected payoff -36.37
Gross Profit 15163.60
Gross Loss -24182.85
Total Net Profit -9019.25
-100%
-50%
0%
50%
100%
EUR/USD Jul 2025 - Sep 2025
0.85
Total Trades 291
Won Trades 89
Lost trades 202
Win Rate 30.58 %
Expected payoff -31.90
Gross Profit 50774.00
Gross Loss -60058.00
Total Net Profit -9284.00
-100%
-50%
0%
50%
100%
AUD/USD Jul 2025 - Sep 2025
0.86
Total Trades 85
Won Trades 30
Lost trades 55
Win Rate 35.29 %
Expected payoff -17.33
Gross Profit 8847.00
Gross Loss -10320.00
Total Net Profit -1473.00
-100%
-50%
0%
50%
100%
USD/JPY Jan 2025 - Jul 2025
0.79
Total Trades 478
Won Trades 185
Lost trades 293
Win Rate 38.70 %
Expected payoff -18.85
Gross Profit 34016.85
Gross Loss -43029.08
Total Net Profit -9012.23
-100%
-50%
0%
50%
100%
USD/CHF Jan 2025 - Jul 2025
0.87
Total Trades 422
Won Trades 172
Lost trades 250
Win Rate 40.76 %
Expected payoff -18.75
Gross Profit 53697.04
Gross Loss -61609.30
Total Net Profit -7912.26
-100%
-50%
0%
50%
100%
USD/CAD Jan 2025 - Jul 2025
0.81
Total Trades 533
Won Trades 218
Lost trades 315
Win Rate 40.90 %
Expected payoff -17.17
Gross Profit 38841.33
Gross Loss -47992.53
Total Net Profit -9151.20
-100%
-50%
0%
50%
100%
NZD/USD Jan 2025 - Jul 2025
1.00
Total Trades 283
Won Trades 125
Lost trades 158
Win Rate 44.17 %
Expected payoff 0.08
Gross Profit 31308.00
Gross Loss -31286.00
Total Net Profit 22.00
-100%
-50%
0%
50%
100%
GBP/USD Jan 2025 - Jul 2025
0.72
Total Trades 241
Won Trades 89
Lost trades 152
Win Rate 36.93 %
Expected payoff -37.72
Gross Profit 23814.00
Gross Loss -32904.00
Total Net Profit -9090.00
-100%
-50%
0%
50%
100%

Comments