MA-R-S-EUR-USD-h4-5

Author: ������� �. Leus79@yandex.ru
Profit factor:
0.98
Orders Execution
Checks for the total of open ordersIt can change open orders parameters, due to possible stepping strategyIt Closes Orders by itself
Indicators Used
Moving average indicatorRelative strength indexStochastic oscillatorParabolic Stop and Reverse system
10 Views
0 Downloads
0 Favorites
MA-R-S-EUR-USD-h4-5

#property copyright "Åâãåíèé Ë. Leus79@yandex.ru"

extern int tp=1450;
extern int sl=650;
extern double Lot=0.1;
extern int perma1=5;
extern int perma2=8;
 int Us1=70;
 int Us2=30;
 int Ur1=70;
 int Ur2=30;
extern int perst=5;
extern int slowst=3;
extern int perrsi=5;
extern bool Tral=true;
 double SARstep=0.02;
 double SARmax=0.2;
extern int TrailingStep=950;
 int Ust=70;






//---------------------------------------------------------------------
//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int init()
  {    
   return(0);
  }
  
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit()
  {
   return(0);
  }
  
  
bool New_Bar;
int tick,tick2;
//------------------------------------------------------------------------------------------------------

int start()
{


New_Bar=false ;
Fun_New_Bar();


if ( New_Bar==true){
tick=0; tick2=0;}
HideTestIndicators(true);

double slb,sls,tpb,tps;
double m1=iMA(NULL,0,perma1,0,1,0,0);
double m2=iMA(NULL,0,perma2,0,1,0,0);

//---------------------------------
double m11=iMA(NULL,0,perma1,0,1,0,1);
double m22=iMA(NULL,0,perma2,0,1,0,1);

//---------------------------------     

double r=iRSI(NULL,0,perrsi,0,0);    
double s=iStochastic(NULL,0,perst,3,slowst,0,0,0,0); 
double s1=iStochastic(NULL,0,perst,3,slowst,0,0,0,1);




        
  
if (OrderSelect(tick,SELECT_BY_TICKET)==false ){


if (m1>=m2 && m11<m22  && s>s1 && s<Us1 && r>50 && r<Ur1 && High[1]<Close[0] && High[2]<Close[0]) {         
                                     
slb=Ask-sl*Point ; tpb=Ask+tp*Point;
   while(tick<=0){   
   tick=OrderSend ( Symbol(),OP_BUY,Lot, Ask, 5,slb,tpb,"buy",5903442);
   }
   }
   }
   
if (OrderSelect(tick2,SELECT_BY_TICKET)==false ){        

//--------------------


if (m1<=m2 && m11>m22  && s<s1 && s>Us2 && r<50 && r>Ur2 && Low[1]>Close[0] && Low[2]>Close[0]) {



  sls=Bid+sl*Point; tps=Bid-tp*Point; 
   while(tick2<=0){  
   tick2=OrderSend ( Symbol(),OP_SELL,Lot, Bid, 5,sls,tps,"sel",5903442);
   }
   }
   }
                
   

 SarTrailingStop();
 close();

//-----------------------------------------------------------------------------------------------

   return(0);
  }

void Fun_New_Bar()
{

 static datetime New_Time=0;
 New_Bar=false;
 if(New_Time!=Time[0])
       {
        New_Time=Time[0];
        New_Bar=true; 
       }
}

//Òðåéäèíã ñòîï ================================================================================


int  SarTrailingStop()
{
double sar=iSAR(NULL,0,SARstep,SARmax,1);

        for(int  i=0; i<OrdersTotal(); i++)        
       {
        if(OrderSelect(i,SELECT_BY_POS)==true)
       {  
        if(Tral==true && OrderType()==OP_BUY && OrderSymbol()==Symbol() && OrderMagicNumber()==5903442)  
       {                
        if(sar>OrderStopLoss())
       {
        if((sar-OrderStopLoss())>=TrailingStep*Point && (Bid-sar)>MarketInfo(Symbol(),MODE_STOPLEVEL)*Point)
       {
        OrderModify(OrderTicket(),OrderOpenPrice(),sar,OrderTakeProfit(),0);
       }
       }
       }
       }    
        if(OrderSelect(i-1,SELECT_BY_POS)==true)
       {
        if(Tral==true && OrderType()==OP_SELL && OrderSymbol()==Symbol() && OrderMagicNumber()==5903442)  
       {        
        if(OrderStopLoss()>sar)
       {
        if((OrderStopLoss()-sar)>TrailingStep*Point  && (sar-Ask)>MarketInfo(Symbol(),MODE_STOPLEVEL)*Point)
       {   
        OrderModify(OrderTicket(),OrderOpenPrice(),sar,OrderTakeProfit(),0);
       }
       }
       } 
       }
       }
return(0);
}
//çàêðûòèå===========================================================================
 int close()
 {
 double M1=iMA(NULL,0,5,0,1,0,0);
 double M2=iMA(NULL,0,5,0,1,1,0);
 double M11=iMA(NULL,0,5,0,1,0,1);
 double M21=iMA(NULL,0,5,0,1,1,1);
 
      for(int  y=0; y<OrdersTotal(); y++)        
       {
        if(OrderSelect(y,SELECT_BY_POS,MODE_TRADES)==true && OrderMagicNumber()==5903442){
        if (OrderType()==OP_BUY && M1<M2-(Ust*Point) && M11>M2 && Bid<Low[1] && OrderProfit()>0){
        OrderClose(OrderTicket(),OrderLots(),Bid,5);}
        if (OrderType()==OP_SELL && M1>M2+(Ust*Point) && M11<M2 && Ask>High[1] && OrderProfit()>0){
        OrderClose(OrderTicket(),OrderLots(),Ask,5);}
       }
       }
  }      

Profitability Reports

USD/CHF Jul 2025 - Sep 2025
1.15
Total Trades 197
Won Trades 127
Lost trades 70
Win Rate 64.47 %
Expected payoff 4.27
Gross Profit 6524.86
Gross Loss -5683.55
Total Net Profit 841.31
-100%
-50%
0%
50%
100%
USD/CAD Jul 2025 - Sep 2025
0.85
Total Trades 246
Won Trades 139
Lost trades 107
Win Rate 56.50 %
Expected payoff -2.94
Gross Profit 4177.90
Gross Loss -4902.18
Total Net Profit -724.28
-100%
-50%
0%
50%
100%
NZD/USD Jul 2025 - Sep 2025
1.04
Total Trades 231
Won Trades 140
Lost trades 91
Win Rate 60.61 %
Expected payoff 1.10
Gross Profit 6168.40
Gross Loss -5915.00
Total Net Profit 253.40
-100%
-50%
0%
50%
100%
GBP/CAD Jul 2025 - Sep 2025
0.61
Total Trades 250
Won Trades 116
Lost trades 134
Win Rate 46.40 %
Expected payoff -9.60
Gross Profit 3819.78
Gross Loss -6220.29
Total Net Profit -2400.51
-100%
-50%
0%
50%
100%
GBP/AUD Jul 2025 - Sep 2025
0.97
Total Trades 237
Won Trades 121
Lost trades 116
Win Rate 51.05 %
Expected payoff -0.62
Gross Profit 4760.22
Gross Loss -4907.65
Total Net Profit -147.43
-100%
-50%
0%
50%
100%
EUR/USD Jul 2025 - Sep 2025
1.39
Total Trades 183
Won Trades 116
Lost trades 67
Win Rate 63.39 %
Expected payoff 9.37
Gross Profit 6069.50
Gross Loss -4355.00
Total Net Profit 1714.50
-100%
-50%
0%
50%
100%
USD/JPY Jul 2025 - Sep 2025
1.10
Total Trades 91
Won Trades 41
Lost trades 50
Win Rate 45.05 %
Expected payoff 2.31
Gross Profit 2415.63
Gross Loss -2205.34
Total Net Profit 210.29
-100%
-50%
0%
50%
100%
USD/CHF Jul 2025 - Sep 2025
0.98
Total Trades 94
Won Trades 57
Lost trades 37
Win Rate 60.64 %
Expected payoff -0.63
Gross Profit 2943.81
Gross Loss -3002.87
Total Net Profit -59.06
-100%
-50%
0%
50%
100%
USD/CAD Jul 2025 - Sep 2025
1.28
Total Trades 112
Won Trades 70
Lost trades 42
Win Rate 62.50 %
Expected payoff 4.85
Gross Profit 2514.54
Gross Loss -1971.18
Total Net Profit 543.36
-100%
-50%
0%
50%
100%
NZD/USD Jul 2025 - Sep 2025
1.15
Total Trades 83
Won Trades 53
Lost trades 30
Win Rate 63.86 %
Expected payoff 3.63
Gross Profit 2251.70
Gross Loss -1950.00
Total Net Profit 301.70
-100%
-50%
0%
50%
100%

Comments