Author: Ron Thompson
Profit factor:
0.69

This script is designed to automatically trade in the Forex market using the MetaTrader platform. It's based on a strategy that uses a technical indicator called the Commodity Channel Index, or CCI, to identify potential buying and selling opportunities. Here?s a breakdown of how it works:

  1. Setup: The script starts by defining some user-adjustable settings. These include the amount of currency to trade per transaction ("Lots"), the profit target ("TakeProfit"), the acceptable loss level ("StopLoss"), and how frequently to add to a position ("Interval").

  2. Initialization: When the script starts, it sets the "Interval" variable based on user input.

  3. Trading Logic: The core of the script continuously checks for new trading opportunities with each new price movement.

    • Monitoring the CCI: The script watches the CCI, which is calculated based on the market's price. It specifically looks for instances when the CCI crosses the zero line. Crossing above zero is interpreted as a potential buy signal, and crossing below zero is seen as a potential sell signal.

    • Closing Existing Trades: When a CCI crossover occurs, the script first closes any existing trades for the currency pair it is monitoring. It closes all trades to start fresh.

    • Opening New Trades: After closing existing trades, the script opens a new trade based on the direction of the CCI crossover. If the CCI crossed above zero, it opens a buy order. If the CCI crossed below zero, it opens a sell order. These trades are automatically set with a target profit and a stop-loss level, based on the user-defined settings.

    • Adding to Winning Trades (Pyramiding): The script also has a feature to add to existing winning trades. If a trade is already open, it will wait for a specified number of price movements (defined by the "Interval" setting). If the price continues to move in a favorable direction, the script will open another trade in the same direction, thereby increasing the size of the position. It will reset the timer when it opens another trade.

  4. Risk Management: The script also includes some basic risk management features. It checks if there is enough money in the account to place a trade. If the account has insufficient funds, the script will stop trading and display a message.

Price Data Components
Orders Execution
Checks for the total of open ordersIt Closes Orders by itself It automatically opens orders when conditions are reached
Indicators Used
Commodity channel index
4 Views
0 Downloads
0 Favorites
zzz004b
/*-----------------------------+
|			       |
| Shared by www.Aptrafx.com    |
|			       |
+------------------------------*/

//+------------------------------------------------------------------+
//| 1MA Expert                               |
//+------------------------------------------------------------------+
#property copyright "Ron Thompson"
#property link      "http://www.lightpatch.com/forex"

// User Input
extern double Lots = 0.1;
extern int    TakeProfit=92;
extern int    StopLoss=0;
extern int    Interval=4;


// Global scope
double barmove0 = 0;
double barmove1 = 0;
int         itv = 0;


//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//|------------------------------------------------------------------|

int init()
  {
   itv=Interval;
   return(0);
  }


//+------------------------------------------------------------------+
//| Custor indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
   return(0);
  }


//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+

int start()
  {

   bool      found=false;
   bool     rising=false;
   bool    falling=false;
   bool      cross=false;

   double slA=0, slB=0, tpA=0, tpB=0;
   double p=Point();
   
   double cCI0;
   double cCI1;
   
   int      cnt=0;

   // Error checking
   if(AccountFreeMargin()<(1000*Lots))        {Print("-----NO MONEY"); return(0);}
   if(Bars<100)                               {Print("-----NO BARS "); return(0);}
   if(barmove0==Open[0] && barmove1==Open[1]) {                        return(0);}

   // bars moved, update current position
   barmove0=Open[0];
   barmove1=Open[1];

   // interval (bar) counter
   // used to pyramid orders during trend
   itv++;
   
   // since the bar just moved
   // calculate TP and SL for (B)id and (A)sk
   tpA=Ask+(p*TakeProfit);
   slA=Ask-(p*StopLoss);
   tpB=Bid-(p*TakeProfit);
   slB=Bid+(p*StopLoss);
   if (TakeProfit==0) {tpA=0; tpB=0;}           
   if (StopLoss==0)   {slA=0; slB=0;}           
   
   // get CCI based on OPEN
   cCI0=iCCI(Symbol(),0,30,PRICE_OPEN,0);
   cCI1=iCCI(Symbol(),0,30,PRICE_OPEN,1);

   // is it crossing zero up or down
   if (cCI1<0 && cCI0>0) { rising=true; cross=true; Print("Rising  Cross");}
   if (cCI1>0 && cCI0<0) {falling=true; cross=true; Print("Falling Cross");}
   
   // close then open orders based on cross
   // pyramid below based on itv
   if (cross)
     {
      // Close ALL the open orders 
      for(cnt=0;cnt<OrdersTotal();cnt++)
        {
         OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
         if(OrderSymbol()==Symbol())
           {
            if (OrderType()==0) {OrderClose(OrderTicket(),Lots,Bid,3,White);}
            if (OrderType()==1) {OrderClose(OrderTicket(),Lots,Ask,3,Red);}
            itv=0;
           }
        }
      // Open new order based on direction of cross
      if (rising)  OrderSend(Symbol(),OP_BUY,Lots,Ask,3,slA,tpA,"ZZZ100",11123,0,White);
      if (falling) OrderSend(Symbol(),OP_SELL,Lots,Bid,3,slB,tpB,"ZZZ100",11321,0,Red);
      
      // clear the interval counter
      itv=0;
     }
   
   // Only pyramid if order already open
   found=false;
   for(cnt=0;cnt<OrdersTotal();cnt++)
     {
      OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
      if(OrderSymbol()==Symbol())
        {
         if (OrderType()==0)  //BUY
           {
            if (itv >= Interval)
              {
               OrderSend(Symbol(),OP_BUY,Lots,Ask,3,slA,tpA,"ZZZ100",11123,0,White);
               itv=0;
              }
           }
         if (OrderType()==1)  //SELL
           {
            if (itv >= Interval)
              {
               OrderSend(Symbol(),OP_SELL,Lots,Bid,3,slB,tpB,"ZZZ100",11321,0,Red);
               itv=0;
              }
           }
         found=true;
         break;
        }
     }
   return(0);
  }

Profitability Reports

AUD/USD Jan 2025 - Jul 2025
0.43
Total Trades 579
Won Trades 277
Lost trades 302
Win Rate 47.84 %
Expected payoff -5.54
Gross Profit 2409.70
Gross Loss -5614.90
Total Net Profit -3205.20
-100%
-50%
0%
50%
100%
USD/CAD Oct 2024 - Jan 2025
1.18
Total Trades 176
Won Trades 111
Lost trades 65
Win Rate 63.07 %
Expected payoff 0.60
Gross Profit 697.28
Gross Loss -592.51
Total Net Profit 104.77
-100%
-50%
0%
50%
100%
GBP/USD Oct 2024 - Jan 2025
0.73
Total Trades 204
Won Trades 127
Lost trades 77
Win Rate 62.25 %
Expected payoff -2.05
Gross Profit 1117.40
Gross Loss -1534.80
Total Net Profit -417.40
-100%
-50%
0%
50%
100%
GBP/CAD Oct 2024 - Jan 2025
0.51
Total Trades 174
Won Trades 0
Lost trades 0
Win Rate 0.00 %
Expected payoff -3.64
Gross Profit 665.91
Gross Loss -1299.47
Total Net Profit -633.56
-100%
-50%
0%
50%
100%
AUD/USD Oct 2024 - Jan 2025
0.59
Total Trades 211
Won Trades 0
Lost trades 0
Win Rate 0.00 %
Expected payoff -3.24
Gross Profit 987.90
Gross Loss -1671.40
Total Net Profit -683.50
-100%
-50%
0%
50%
100%

Comments