Adaptive_IFish

//+------------------------------------------------------------------+
//|                                               Adaptive_IFish.mq4 |
//|                                                     Fabio Butto' |
//|                                            fabio.butto@gmail.com |
//+------------------------------------------------------------------+
#property copyright "Fabio Butto'"
#property link      "fabio.butto@gmail.com"
#property indicator_buffers 1
#property indicator_color1 DarkOrchid
 
#property indicator_level1 0.5
#property indicator_level2 -0.5
#property indicator_levelcolor Orange
#property indicator_maximum 1
#property indicator_minimum -1
double value1[];
double value2[];
double ifish[];
double red[];
double green[];
double period;
double Alpha = 0.07;

#property indicator_separate_window
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//---- indicators
   IndicatorBuffers(3);
   
   SetIndexBuffer(0,ifish);
   SetIndexStyle(0,DRAW_LINE,STYLE_SOLID,1);
  
   SetIndexBuffer(1,value1);
   SetIndexBuffer(2,value2);
   
   
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {
   int limit;
   int counted_bars=IndicatorCounted();
   if(counted_bars<0) counted_bars=0;
   if(counted_bars>0) counted_bars--;
   limit=Bars-counted_bars;
//---- 
   for(int i = 0 ;i <= limit ;i++)
     { 
      period=iCustom(0, PERIOD_D1, "CyclePeriod", Alpha, 0, i);
      int RSIPeriod = MathFloor(period/2);
      value1[i] = 0.1*(iRSI(Symbol(),0,RSIPeriod,PRICE_OPEN,i)-50);
     }  
   for(int j = 0 ;j <= limit ;j++) value2[j] = iMAOnArray(value1,0,RSIPeriod+1,0,MODE_LWMA,j);
   for(int f = 0 ;f <= limit ;f++) ifish[f] = (MathExp(2*value2[f])-1)/(MathExp(2*value2[f])+1);
   
  
//----
   return(0);
  }
//+------------------------------------------------------------------+