//+---------------------------------------------------------------------------------+
//|                                                                                 |
//|           RSI-R2.mq4 - Ver 1.2 @ 04/11/2007 by Bluto                            |
//|                                                                                 |
//| Rev 1.1 - Enhanced Money Mgmt & Optimized RSI Periods Per Pairs                 |
//|                                                                                 |
//| Rev 1.2 - Enhanced RSI_Period handler to allow usage of either pre-determined   |
//|           internal optimized RSI_Period values set in the int init() function   |
//|           or default RSI_Period value via the boolean UseDefaultRSI_Period      |
//|           extern variable.                                                      |
//|           Set UseDefaultRSI_Period = true to use default RSI_Period value when  |            |
//|           performing your own optimizations of RSI_Period via backtesting.      |
//|                                                                                 |
//+---------------------------------------------------------------------------------+


#property copyright "Bluto"
#property link      "None"

extern double LotSize=10;
extern int    Slippage=3;
extern double StopLoss=0;
extern double TakeProfit=700;
extern double RiskPercent=2.0;
extern bool   UseMoneyMgmt=false;
extern bool   BrokerPermitsFractionalLots = true;
extern bool   UseDefaultRSI_Period = false;
extern int    RSI_Period = 4;
extern double RSI_Overbought_Value = 75.0; 
extern double RSI_Oversold_Value = 25.0; 
int           MagicNumber = 0;
int           ticket;
int           OpenBuyOrders = 0;
int           OpenSellOrders = 0;
int           i;
bool          Buy_Mode = false, Sell_Mode = false;
double        RSI_Day_1 = 0, RSI_Day_2 = 0, RSI_Day_3 = 0, SMA200_Day3 = 0;
double        MM_MinLotSize = 0;
double        MM_MaxLotSize = 0;
double        MM_LotStep = 0;
double        MM_Decimals = 0;
double        MM_OrderLotSize = 0;
int           MM_AcctLeverage = 0;
int           MM_CurrencyLotSize = 0;


int init()
{
   if (Symbol()=="AUDCADm" || Symbol()=="AUDCAD") {MagicNumber=200001;if(UseDefaultRSI_Period==false){RSI_Period=5;}}
   if (Symbol()=="AUDJPYm" || Symbol()=="AUDJPY") {MagicNumber=200002;if(UseDefaultRSI_Period==false){RSI_Period=7;}}
   if (Symbol()=="AUDNZDm" || Symbol()=="AUDNZD") {MagicNumber=200003;if(UseDefaultRSI_Period==false){RSI_Period=6;}}
   if (Symbol()=="AUDUSDm" || Symbol()=="AUDUSD") {MagicNumber=200004;if(UseDefaultRSI_Period==false){RSI_Period=4;}}
   if (Symbol()=="CHFJPYm" || Symbol()=="CHFJPY") {MagicNumber=200005;if(UseDefaultRSI_Period==false){RSI_Period=4;}}
   if (Symbol()=="EURAUDm" || Symbol()=="EURAUD") {MagicNumber=200006;if(UseDefaultRSI_Period==false){RSI_Period=2;}}
   if (Symbol()=="EURCADm" || Symbol()=="EURCAD") {MagicNumber=200007;if(UseDefaultRSI_Period==false){RSI_Period=3;}}
   if (Symbol()=="EURCHFm" || Symbol()=="EURCHF") {MagicNumber=200008;if(UseDefaultRSI_Period==false){RSI_Period=3;}}
   if (Symbol()=="EURGBPm" || Symbol()=="EURGBP") {MagicNumber=200009;if(UseDefaultRSI_Period==false){RSI_Period=2;}}
   if (Symbol()=="EURJPYm" || Symbol()=="EURJPY") {MagicNumber=200010;if(UseDefaultRSI_Period==false){RSI_Period=4;}}
   if (Symbol()=="EURUSDm" || Symbol()=="EURUSD") {MagicNumber=200011;if(UseDefaultRSI_Period==false){RSI_Period=4;}}
   if (Symbol()=="GBPCHFm" || Symbol()=="GBPCHF") {MagicNumber=200012;if(UseDefaultRSI_Period==false){RSI_Period=6;}}  
   if (Symbol()=="GBPJPYm" || Symbol()=="GBPJPY") {MagicNumber=200013;if(UseDefaultRSI_Period==false){RSI_Period=4;}}
   if (Symbol()=="GBPUSDm" || Symbol()=="GBPUSD") {MagicNumber=200014;if(UseDefaultRSI_Period==false){RSI_Period=3;}}
   if (Symbol()=="NZDJPYm" || Symbol()=="NZDJPY") {MagicNumber=200015;if(UseDefaultRSI_Period==false){RSI_Period=6;}}
   if (Symbol()=="NZDUSDm" || Symbol()=="NZDUSD") {MagicNumber=200016;if(UseDefaultRSI_Period==false){RSI_Period=7;}}
   if (Symbol()=="USDCHFm" || Symbol()=="USDCHF") {MagicNumber=200017;if(UseDefaultRSI_Period==false){RSI_Period=4;}}
   if (Symbol()=="USDJPYm" || Symbol()=="USDJPY") {MagicNumber=200018;if(UseDefaultRSI_Period==false){RSI_Period=4;}}
   if (Symbol()=="USDCADm" || Symbol()=="USDCAD") {MagicNumber=200019;if(UseDefaultRSI_Period==false){RSI_Period=2;}}
   if (MagicNumber==0) {MagicNumber = 200999;}  
 
 return(0);
}

int deinit()
{
 return(0);
}

int start()
{ 

  Calc_Money_Management();
  
  SMA200_Day3 = iMA(NULL,PERIOD_D1,200, 0, MODE_SMA, PRICE_CLOSE, 1);

  RSI_Day_1 = iRSI(NULL, PERIOD_D1, RSI_Period, PRICE_CLOSE, 3);
  RSI_Day_2 = iRSI(NULL, PERIOD_D1, RSI_Period, PRICE_CLOSE, 2);
  RSI_Day_3 = iRSI(NULL, PERIOD_D1, RSI_Period, PRICE_CLOSE, 1);
  
  if (RSI_Day_1 < 65 && RSI_Day_2 < RSI_Day_1 && RSI_Day_3 < RSI_Day_2 && Close[1] > SMA200_Day3) 
   {
    Buy_Mode=true;
   } else {
    Buy_Mode=false;
   } 
   
   if (RSI_Day_1 > 35 && RSI_Day_2 > RSI_Day_1 && RSI_Day_3 > RSI_Day_2 && Close[1] < SMA200_Day3) 
   {
    Sell_Mode=true;
   } else {
    Sell_Mode=false;
   } 

  if (OpenBuyOrders == 1 && RSI_Day_3 > RSI_Overbought_Value)
   {
     CloseLongs(MagicNumber);
     OpenBuyOrders = 0;   
   }
   
   if (OpenSellOrders == 1 && RSI_Day_3 < RSI_Oversold_Value)
   {
     CloseShorts(MagicNumber);
     OpenSellOrders = 0;   
   }
     
     
//----- Count number of existing open buy & sell orders; update trailing stops.
  
  OpenBuyOrders=0;
  OpenSellOrders=0;
   
      
// Manage Paraolic SAR 

  for (i = 0; i <= OrdersTotal(); i++)
   {
    OrderSelect(i,SELECT_BY_POS,MODE_TRADES);
    if ((OrderSymbol() == Symbol()) && (OrderMagicNumber() == MagicNumber))
     {
      if (OrderType() == OP_BUY)
       {
        OpenBuyOrders++;
        if ((iSAR(NULL,0,0.02,0.2,1) > OrderStopLoss()) && (Bid > iSAR(NULL,0,0.02,0.2,1)) && (OrderOpenPrice() < iSAR(NULL,0,0.02,0.2,1)) && (iSAR(NULL,0,0.02,0.2,1) > iSAR(NULL,0,0.02,0.2,2)))
         {
          OrderModify(OrderTicket(),OrderOpenPrice(),iSAR(NULL,0,0.02,0.2,1),OrderTakeProfit(),0,Blue);
          Print("Order # ",OrderTicket()," updated at ",Hour(),":",Minute(),":",Seconds());
          return(0);
         }
       }
      if (OrderType() == OP_SELL)
       {
        OpenSellOrders++;
        if ((iSAR(NULL,0,0.02,0.2,1) < OrderStopLoss()) && (Ask < iSAR(NULL,0,0.02,0.2,1)) && (OrderOpenPrice() > iSAR(NULL,0,0.02,0.2,1)) && (iSAR(NULL,0,0.02,0.2,1) < iSAR(NULL,0,0.02,0.2,2)))
         {
          OrderModify(OrderTicket(),OrderOpenPrice(),iSAR(NULL,0,0.02,0.2,1),OrderTakeProfit(),0,Blue);
          Print("Order # ",OrderTicket()," updated at ",Hour(),":",Minute(),":",Seconds());
          return(0);
         }
       }
     }
   }


//----- Generic order handler.
//----- If we have a new buy signal, close existing sell orders; if we have a new sell signal, close existing buy orders; reset order counters.
//----- Next, create new buy or sell order.
         
  if (Buy_Mode==true && OpenBuyOrders==0) 
   {
    if(OpenSellOrders > 0)
     {
      CloseShorts(MagicNumber);
      OpenSellOrders = 0; 
     } 
    if(OpenBuyOrders == 0)
     {  
      ticket = OpenPendingOrder(OP_BUY,MM_OrderLotSize,Ask,Slippage,Bid,StopLoss,TakeProfit,"RSI-R2",MagicNumber,0,Lime);
      if(ticket<0)
       {
        Print("OrderSend failed with error #",GetLastError());
        return(0);
       }
      else
       {
        OpenBuyOrders++;
       }    
     }
   }
   
  if (Sell_Mode==true && OpenSellOrders==0) 
   {
    if(OpenBuyOrders > 0)
     {
      CloseLongs(MagicNumber);
      OpenBuyOrders = 0;
     }  
    if (OpenSellOrders == 0) 
     {
      ticket = OpenPendingOrder(OP_SELL,MM_OrderLotSize,Bid,Slippage,Ask,StopLoss,TakeProfit,"RSI-R2",MagicNumber,0,HotPink);
      if(ticket<0)
       {
        Print("OrderSend failed with error #",GetLastError());
        return(0);
       }
      else
       {
        OpenSellOrders++;
       }    
     }
   }
   
  return(0);
}

//----- Order Processing Functions

void CloseLongs(int MagicNumber)
{
 int trade;
 for(trade=OrdersTotal()-1;trade>=0;trade--)
 {
  if(OrderSelect(trade,SELECT_BY_POS,MODE_TRADES)==false)
   continue;

  if(OrderSymbol()!=Symbol()||OrderMagicNumber()!=MagicNumber)
   continue;
   
  if(OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber)
  if(OrderType()==OP_BUY)
   OrderClose(OrderTicket(),OrderLots(),Bid,Slippage,Blue);
 }//for
}

void CloseShorts(int MagicNumber)
{
 int trade;
 for(trade=OrdersTotal()-1;trade>=0;trade--)
 {
  if(OrderSelect(trade,SELECT_BY_POS,MODE_TRADES)==false)
   continue;

  if(OrderSymbol()!=Symbol()||OrderMagicNumber()!=MagicNumber)
   continue;
   
  if(OrderSymbol()==Symbol()&&OrderMagicNumber()==MagicNumber)
  if(OrderType()==OP_SELL)
   OrderClose(OrderTicket(),OrderLots(),Ask,Slippage,Red);
 }//for
}

int OpenPendingOrder(int pType,double pLots,double pLevel,int sp, double pr, int sl, int tp,string pComment,int pMagic,datetime pExpiration,color pColor)
{
  int ticket=0;
  int err=0;
  int c = 0;
  int NumberOfTries = 10;
  switch (pType)
  {
      case OP_BUY:
         for(c = 0 ; c < NumberOfTries ; c++)
         {  
            RefreshRates();
            ticket=OrderSend(Symbol(),OP_BUY,pLots,Ask,sp,StopLong(Bid,sl),TakeLong(Bid,tp),pComment,pMagic,pExpiration,pColor);
            if (ticket > 0) break;
            err=GetLastError();
            if(err==0)
            { 
               break;
            }
            else
            {
               if(err==4 || err==137 ||err==146 || err==136) //Busy errors
               {
                  Sleep(5000);
                  continue;
               }
               else //normal error
               {
                  Print("Error Code= ", err);
                  break;
               }  
            }
         } 
         break;
      case OP_SELL:
         for(c = 0 ; c < NumberOfTries ; c++)
         {
            RefreshRates();
            ticket=OrderSend(Symbol(),OP_SELL,pLots,Bid,sp,StopShort(Ask,sl),TakeShort(Ask,tp),pComment,pMagic,pExpiration,pColor);
            if (ticket > 0) break;
            err=GetLastError();
            if(err==0)
            { 
               break;
            }
            else
            {
               if(err==4 || err==137 ||err==146 || err==136) //Busy errors
               {
                  Sleep(5000);
                  continue;
               }
               else //normal error
               {
                  Print("Error Code= ", err);
                  break;
               }  
            }
         } 
         break;
  } 
  
  return(ticket);
}  

double StopLong(double price,int stop)
{
 if(stop==0)
  return(0);
 else
  return(price-(stop*Point));
}

double StopShort(double price,int stop)
{
 if(stop==0)
  return(0);
 else
  return(price+(stop*Point));
}

double TakeLong(double price,int take)
{
 if(take==0)
  return(0);
 else
  return(price+(take*Point));
}

double TakeShort(double price,int take)
{
 if(take==0)
  return(0);
 else
  return(price-(take*Point));
}


void Calc_Money_Management()
 {
  MM_AcctLeverage = AccountLeverage();
  MM_MinLotSize = MarketInfo(Symbol(),MODE_MINLOT);
  MM_MaxLotSize = MarketInfo(Symbol(),MODE_MAXLOT);
  MM_LotStep = MarketInfo(Symbol(),MODE_LOTSTEP);
  MM_CurrencyLotSize = MarketInfo(Symbol(),MODE_LOTSIZE);

  if(MM_LotStep == 0.01) {MM_Decimals = 2;}
  if(MM_LotStep == 0.1) {MM_Decimals = 1;}

  if(BrokerPermitsFractionalLots == true)
   {
    if (UseMoneyMgmt == true)
     {
      MM_OrderLotSize = AccountEquity() * (RiskPercent * 0.01) / (MM_CurrencyLotSize / MM_AcctLeverage);
      MM_OrderLotSize = StrToDouble(DoubleToStr(MM_OrderLotSize,MM_Decimals));
      if (MM_OrderLotSize < MM_MinLotSize) {MM_OrderLotSize = MM_MinLotSize;}
      if (MM_OrderLotSize > MM_MaxLotSize) {MM_OrderLotSize = MM_MaxLotSize;}
     }
    else
     {
      MM_OrderLotSize = LotSize;
      if (MM_OrderLotSize < MM_MinLotSize) {MM_OrderLotSize = MM_MinLotSize;}
      if (MM_OrderLotSize > MM_MaxLotSize) {MM_OrderLotSize = MM_MaxLotSize;}
     }
   }
  else
   {
    if (UseMoneyMgmt == true)
     {
      MM_OrderLotSize = AccountEquity() * (RiskPercent * 0.01) / (MM_CurrencyLotSize / MM_AcctLeverage);
      MM_OrderLotSize = MathRound(MM_OrderLotSize);
      if (MM_OrderLotSize < MM_MinLotSize) {MM_OrderLotSize = MM_MinLotSize;}
      if (MM_OrderLotSize > MM_MaxLotSize) {MM_OrderLotSize = MM_MaxLotSize;}
     }
    else
     {
      MM_OrderLotSize = LotSize;
      if (MM_OrderLotSize < MM_MinLotSize) {MM_OrderLotSize = MM_MinLotSize;}
      if (MM_OrderLotSize > MM_MaxLotSize) {MM_OrderLotSize = MM_MaxLotSize;}
     }
   }   
  return(0);   
 }

�t��,��%��%�rq���i"Z�⥽gʼn�	��!�^��?�4���2B��06�7����j��#y��7~���7O�tK�`��Ye|��z�K߼�����씖 :�=��:A�a�7+�T\)�=�n��N�b�x��� �֚�	O��Vr�}8���x@
u!�jdGY�ԁ=X>γs8*�H���Y��#GGT�#�v�D{�m�N��7\�JQ��nl�E��/�_�А*��	t/��(Tu�I���C̊PK�O�P�z�8D|��`��RW`p^{a��.,8�R9�����s_��]��y:h'�RG�_K���[��hNd��ߊ�'+͞B��?Vy:�x�O��Sab�sEMoX	�~����W.<����x�˞Z���ҩ6l�=��l�0	�qŪ$s��@L����Ƚ9�}1	d��sHq1,o��]���w��a�����o��(��sR�L>v�W��}���m�h�C�F=�R��ny�"%"��qw��ƥ�?:a��zTΜsx���/�p
Y�E)�1�6�5烍	VU��}�X���l�Z����w��%���|ٕN0_l�-'�J��I���ސ.ㆃL�.�@x�gtO���w���:��̈́S<�ˢu�^����Y+���^��4�b����w[cd~��UR�pV���X6�$ĸc0�&<��Y\;7=�Q�{r�!m��K`��fF{��N!�("/o��sC�/�J�I&���I���lG��[.���1:vC$�7\�T&;�!�m;w��E,[k�)���ع���]"��&��d�Ȳ�@QF�!y���u7M�u��al�����=��??�^���b/�}{�U#�Gd�CXC���ܪ�O_��"	2��*�
'�,jb F&'����0k����I>%��J��Un��Թ�r�#��4���
����#�h�U��?���ڝ�g�+���Wvf�z�
��6S�U�5/��:=)�/�ѻ�z�>t6����x�;UFNj�cY���|q�,9�
L6{��H��8�u/��MK��2��d���΄ي�.a$� ��sz<V�vP�c8�Bh�C{�
+��\��%�Z3�!�#�w�.�I��[�x��.Ž�2t������!�Da��
YW|j)M�%�A���������U�o��;�
l����u�>	�8m|����!�����f�#��/��V�5Y֝���ME�¶R���C��
�g׃'�:�@w)'��t�q-���K�����!{���}}�ok��pÔ�ݲ�)�NS�嵡$��x��q�_�U"�f=��;,(�c"��@	A*4��v����6U
b��2���4%�`HF&�A�np7C�'�6�����
��2,H?���_���ϭb'�O�������;�/���d�κ���������bPn�+��B�������.��_r�ό>��y�̦��H�+�k�ޯ�.�h���&ޞ}m�$�Gπ��Iz�:���+�*�z
�o�_6d����3ge���t�ԋ�|�$IQ��kX���_~��ŗ��:�c�ʬ�>��ݡ�˭.R�z�)�<���U�yC-��`��O�2�eM�)����W�&C£$��/��Nӫ}���{[b�-X&��+�-��O��l����_}c��#�߭�-��l�ʐް���E&��Y
|]���.ֲ���?gG��,�J�����@�)�����o�&�	�Kf����Ъtr革�Ë�֝�JE�&s���2�Yז)���N ^ilV�/���'�[e�����R/��}��V��5�yPLT�����k��|��@W�-���A�qǠ��ip�"vt��J9�jܹȔa��忧LxT����� ]�G�y̿W�G�Ôֹ������fD�����Ku�?���D_�'+
���:��5����.==��bu��όU^����,Of���z�]h��%P��������q��8�v	}��p����}s.$���<t��x�縨���!�J�~��qWJ�
$)��Nѫ�WNv��M�О��$��,�Z���g޿��kA��
�5կ����g��
q<����;玟�~���ח�?�1w{���A��5q�1�o�o�?������,��E�}�
o8vWf��������yU���vB��K7�Ɵe,�i��/;m��P:g�$��Ѿ����d΃V$1���Yx������6�_\���1'��x�K/�H�u�7���x�y^�&t)�k�/�=�;����{��s�����p8��������X0�"xw�� ���6?z��m��Pw=���Lӵ)�%*�H�7b��g�{A�$�a+��s�[�����V��4�i�߲�w���sLj�J��DU�}��'����m�I��i��Ge����i�ˁw��Z�y�����+���1%��e'��l�p�	��o�s:и��Oo�u�������n[^ 7	��� ��婢%����o�2��W���C�l��l��y�j�K�������>|y�5���|�x'&i(p,��L�x~�&?��	��h�f�y7s�0��w����.��"1�~���:O}��KW̷�n���'�:|Ұ�P�=�⦥Z;
���fY��4��#�#,���PaU�q�U�p(t�u@��uR����u'�|�4���}a���e �~���_"��̞�-���J��n�%���]V����V�����a�+���}=�H�
u��r�������+���Qs��;q
$��;�����yE�S�QE��ֽ$֖�nS�c�qS��u	R�p��F�J��O�v�	π<h���|��P������]���j���@Pk��J�#��ܺJgF��������Xr��&��uw�3���q=��j���G/�gP0a_��ռ�=tɜb������<ϖ@�q5�4%M�[����M%p���F�w��
�4ҾE���tǰs(�����\�t�v�N�vyP��[{�͇@x�蚐+��]�{�.�O����=�t������$P@��Ʌ�>��(�`����U<��}�y����׉ozf�
�y�B@�b����N��