//+------------------------------------------------------------------+
//|                                              WPRSI signal V2.mq4 |
//|                                                           gumgum |
//|                                           1967policmen@gmail.com |
//+------------------------------------------------------------------+
#property copyright "gumgum"
#property link      "1967policmen@gmail.com"

#property  indicator_separate_window
#property indicator_buffers 5
#property indicator_color1 Gray
#property indicator_color2 Blue
#property indicator_color3 Red
#property indicator_color4 Blue
#property indicator_color5 Red
#property  indicator_width1  5
//---- input parameters
extern int WPRSIperiod  =27;
extern int Waytoway     =27;
extern int filterUP     =10;
extern int filterDN     =10;
//---- buffers
double ExtMapBuffer1[];
double ExtMapBuffer2[];
double ExtMapBuffer3[];
double ExtMapBuffer4[];
double ExtMapBuffer5[];
//----

//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//---- indicators
   SetIndexStyle(2,DRAW_HISTOGRAM,0,0);
   SetIndexBuffer(2,ExtMapBuffer3);
//----
   SetIndexStyle(0,DRAW_HISTOGRAM,0,0);
   SetIndexBuffer(0,ExtMapBuffer1);
//----
   SetIndexStyle(1,DRAW_HISTOGRAM,0,0);
   SetIndexBuffer(1,ExtMapBuffer2);
//----
   SetIndexStyle(3,DRAW_ARROW,0,0);
   SetIndexArrow(3,233);
   SetIndexBuffer(3,ExtMapBuffer4);
//----
   SetIndexStyle(4,DRAW_ARROW,0,0);
   SetIndexArrow(4,234);
   SetIndexBuffer(4,ExtMapBuffer5);

//---- name for DataWindow and indicator subwindow label
   IndicatorShortName("WPRSI sinal v.2("+WPRSIperiod+","+Waytoway+","+filterUP+","+filterDN+")");
//----

   return(0);
  }
//+------------------------------------------------------------------+
//| Custor indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {
   int limit;
   int counted_bars=IndicatorCounted();
//---- check for possible errors
   if(counted_bars<0)
      return(-1);
//---- last counted bar will be recounted
   limit=Bars-counted_bars;
   if(counted_bars==0)
      limit-=Waytoway+1;
//----

   for(int i=1; i<limit; i++)
     {
      //---                     
      double upsum=0;
      int up1;
      if(((iWPR(NULL,0,WPRSIperiod,i)>-50) && (iRSI(NULL,0,WPRSIperiod,PRICE_MEDIAN,i)<50)) || ((iWPR(NULL,0,WPRSIperiod,i)<-50) && (iRSI(NULL,0,WPRSIperiod,PRICE_MEDIAN,i)>50)))
        {
         upsum=0;
         for(up1=0;up1<=Waytoway;up1++)
           {
            if(High[i+up1]-Low[i+up1]!=0)
               upsum=(Close[i+up1]-Open[i+up1])/(High[i+up1]-Low[i+up1])+upsum;
           }
         ExtMapBuffer1[i]=logic(upsum);
        }
      //----
      if((iWPR(NULL,0,WPRSIperiod,i)>-50) && (iRSI(NULL,0,WPRSIperiod,PRICE_MEDIAN,i)>50))
        {
         upsum=0;
         for(up1=0;up1<=Waytoway;up1++)
           {
            if(High[i+up1]-Low[i+up1]!=0)
               upsum=(Close[i+up1]-Open[i+up1])/(High[i+up1]-Low[i+up1])+upsum;
           }
         ExtMapBuffer2[i]=logic(upsum);
        }
      //----
      if((iWPR(NULL,0,WPRSIperiod,i)>-20) && (iWPR(NULL,0,WPRSIperiod,i+1)<-20) && (iRSI(NULL,0,WPRSIperiod,PRICE_MEDIAN,i)>50))
        {
         double z=0;
         for(int k=2;k<=filterUP+2;k++)
           {

            if(iWPR(NULL,0,WPRSIperiod,k+i)>-20){z=1;  }

           }

         if(z==0)
           {
            upsum=0;
            for(up1=0;up1<=Waytoway;up1++)
              {
               if(High[i+up1]-Low[i+up1]!=0)
                  upsum=(Close[i+up1]-Open[i+up1])/(High[i+up1]-Low[i+up1])+upsum;
              }
            ExtMapBuffer4[i]=logic(upsum);
           }
        }
      //----
      if((iWPR(NULL,0,WPRSIperiod,i)<-50) && (iRSI(NULL,0,WPRSIperiod,PRICE_MEDIAN,i)<50))
        {
         upsum=0;
         for(up1=0;up1<=Waytoway;up1++)
           {
            if(High[i+up1]-Low[i+up1]!=0)
               upsum=(Close[i+up1]-Open[i+up1])/(High[i+up1]-Low[i+up1])+upsum;
           }
         ExtMapBuffer3[i]=logic(upsum);
        }
      //----
      if((iWPR(NULL,0,WPRSIperiod,i+1)>-80) && (iWPR(NULL,0,WPRSIperiod,i)<-80) && (iRSI(NULL,0,WPRSIperiod,PRICE_MEDIAN,i)<50))

        {
         double h=0;
         for(int c=2;c<=filterDN+2;c++)
           {

            if(iWPR(NULL,0,WPRSIperiod,c+i)<-80){h=1;  }

           }

         if(h==0)
           {
            upsum=0;
            for(up1=0;up1<=Waytoway;up1++)
              {
               if(High[i+up1]-Low[i+up1]!=0)
                  upsum=(Close[i+up1]-Open[i+up1])/(High[i+up1]-Low[i+up1])+upsum;
              }
            ExtMapBuffer5[i]=logic(upsum);
           }
        }

     }
//----
   return(0);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double logic(double cinyan)///функция активации нейронов
  {
//MathExp(cinyan)-MathExp(-cinyan))/(MathExp(cinyan)+MathExp(-cinyan);
   return((MathExp(cinyan)-MathExp(-cinyan))/(MathExp(cinyan)+MathExp(-cinyan)));
  }
//+------------------------------------------------------------------+