Parabolic SAR

[david.jukl]

Hello, what do you think about Parabolic SAR? I recieve good results with EU/USD 4H
http://www.profijet.cz/user/StrategyTester%20SAR_2.htm

and best results with short sales only

http://www.profijet.cz/user/SAR%20Sample_2.mq4 (right click and Save as...)

David

[PipCop]

I have not tried that, but I will submit it for testing.

//+------------------------------------------------------------------+
//|                                                 SAR Sample_2.mq4 |
//|                                                 makler6@seznam.cz
//|                                                                  |
//+------------------------------------------------------------------+

extern double TakeProfit = 80;
extern double Lots = 0.1;
extern double TrailingStop = 40;
extern double SAR_Step = 0.02;
extern double SAR_Maximum = 0.2;
extern double Shift=0;

//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int start()
  {
   int cnt, ticket, total;
// initial data checks
// it is important to make sure that the expert works with a normal
// chart and the user did not make any mistakes setting external 
// variables (Lots, StopLoss, TakeProfit, 
// TrailingStop) in our case, we check TakeProfit
// on a chart of less than 100 bars
   if(Bars<100)
     {
      Print("bars less than 100");
      return(0);  
     }
   if(TakeProfit<10)
     {
      Print("TakeProfit less than 10");
      return(0);  // check TakeProfit
     }
// to simplify the coding and speed up access
// data are put into internal variables
   double SARCurrent=iSAR(NULL,0,SAR_Step,SAR_Maximum,Shift);
   double SARPrevious=iSAR(NULL,0,SAR_Step,SAR_Maximum,Shift+1);

   total=OrdersTotal();
   if(total<1) 
     {
      // no opened orders identified
      if(AccountFreeMargin()<(1000*Lots))
        {
         Print("We have no money. Free Margin  = ", AccountFreeMargin());
         return(0);  
        }
      // check for long position  (BUY) possibility
      if(SARCurrent<Bid && SARPrevious>Bid)
        {
         ticket=OrderSend(Symbol(),OP_BUY,Lots,Ask,3,0,Ask+TakeProfit*Point,"macd sample",16384,0,Green);
         if(ticket>0)
           {
            if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("BUY order opened : ",OrderOpenPrice());
           }
         else Print("Error opening BUY order : ",GetLastError()); 
         return(0); 
        }
      // check for short position  (SELL) possibility
      if(SARCurrent>Ask && SARPrevious<Ask)
        {
         ticket=OrderSend(Symbol(),OP_SELL,Lots,Bid,3,0,Bid-TakeProfit*Point,"macd sample",16384,0,Red);
         if(ticket>0)
           {
            if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) Print("SELL order opened : ",OrderOpenPrice());
           }
         else Print("Error opening SELL order : ",GetLastError()); 
         return(0); 
        }
      return(0);
     }
   // it is important to enter the market correctly, 
   // but it is more important to exit it correctly...   
   for(cnt=0;cnt<total;cnt++)
     {
      OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
      if(OrderType()<=OP_SELL &&   // check for opened position 
         OrderSymbol()==Symbol())  // check for symbol
        {
         if(OrderType()==OP_BUY)   // long position  is opened
           {
            // should it be closed?
            if(SARCurrent>Ask && SARPrevious<Ask)
                {
                 OrderClose(OrderTicket(),OrderLots(),Bid,3,Violet); // close position
                 return(0); // exit
                }
            // check for trailing stop
            if(TrailingStop>0)  
              {                 
               if(Bid-OrderOpenPrice()>Point*TrailingStop)
                 {
                  if(OrderStopLoss()<Bid-Point *TrailingStop)
                    {
                     OrderModify(OrderTicket(),OrderOpenPrice(),Bid-Point *TrailingStop,OrderTakeProfit(),0,Green);
                     return(0);
                    }
                 }
              }
           }
         else // go to short position 
           {
            // should it be closed?
            if(SARCurrent<Bid && SARPrevious>Bid)
              {
               OrderClose(OrderTicket(),OrderLots(),Ask,3,Violet); // close position
               return(0); // exit
              }
            // check for trailing stop
            if(TrailingStop>0)  
              {                 
               if((OrderOpenPrice()-Ask)>(Point*TrailingStop))
                 {
                  if((OrderStopLoss()>(Ask+Point*TrailingStop)) || (OrderStopLoss()==0))
                    {
                     OrderModify(OrderTicket(),OrderOpenPrice(),Ask+Point*TrailingStop,OrderTakeProfit(),0,Red);
                     return(0);
                    }
                 }
              }
           }
        }
     }
   return(0);
  }
// the end.

[david.jukl]

Last results with EUR/USD 30min short only
http://www.profijet.cz/user/EUR_USD%2030min.htm

Send me comments. Thank you

[PipCop]

If you can publish the results to a website, every 5 minutes, and want me to list them here on the site please read this:

Submit your EA

[ElectricSavant]

An EA that works in one direction only? confused....What happens to it when the bias changes?

ES

[david.jukl]

Originally Posted by ElectricSavant

An EA that works in one direction only? confused....What happens to it when the bias changes?

ES

Parabolic SAR works in both directions, but this EA works best with short sales only

[ElectricSavant]

How long has it worked best with short sales only? I know a priice falls faster than it rises...but I am curious about the period of time that the symbol reverses in the other direction and is on a long term fall....

ES

Originally Posted by david.jukl

Parabolic SAR works in both directions, but this EA works best with short sales only