iCompass_v1.2

//===================================================================================================================================================//
#property copyright   "Copyright 2014-2019, Nikolaos Pantzos"
#property link        "https://www.mql5.com/en/users/pannik"
#property version     "1.2"
#property description "iCompass"
#property strict
//===================================================================================================================================================//
#property  indicator_chart_window
#property  indicator_buffers 2
#property  indicator_color1 clrMidnightBlue
#property  indicator_color2 clrDarkViolet
#property  indicator_width1 2
#property  indicator_width2 2
//===================================================================================================================================================//
input int  BarsCount = 10000;
input int  MAperiods = 30;
input int  ShiftBars = 0;
input bool AlertON   = TRUE;
//===================================================================================================================================================//
double ExtBuffer0[];
double ExtBuffer1[];
double ExtBuffer2[];
double ExtBuffer3[];
double ExtBufferh1[];
double ExtBufferh2[];
double MovingAverage[];
bool AlertBuy=TRUE;
bool AlertSell=TRUE;
int AlertSignal=0;
//===================================================================================================================================================//
int OnInit(void)
  {
   IndicatorShortName(WindowExpertName());
   IndicatorDigits(Digits);
   IndicatorBuffers(7);
//---
   SetIndexBuffer(0,ExtBufferh1);
   SetIndexStyle(0,DRAW_LINE);
   SetIndexLabel(0,"UpTrend");
//---
   SetIndexBuffer(1,ExtBufferh2);
   SetIndexStyle(1,DRAW_LINE);
   SetIndexLabel(1,"DownTrend");
//---
   SetIndexBuffer(2,ExtBuffer3);
   SetIndexBuffer(3,ExtBuffer0);
   SetIndexBuffer(4,ExtBuffer1);
   SetIndexBuffer(5,ExtBuffer2);
   SetIndexBuffer(6,MovingAverage);
   return(INIT_SUCCEEDED);
  }
//===================================================================================================================================================//
int OnCalculate(const int rates_total,
                const int prev_calculated,
                const datetime &time[],
                const double &open[],
                const double &high[],
                const double &low[],
                const double &close[],
                const long &tick_volume[],
                const long &volume[],
                const int &spread[])
  {
//-----------------------------------------------------------------------------------
   int i;
   int k;
   int Limit=0;
   double Value=0;
   double LastValue=0;
   double GetBuffer=0;
   double MedianPrice;
   double MinLow=0;
   double MaxHigh=0;
   double sum=0;
   double sumw=0;
   double weight;
   double SmoothBars=NormalizeDouble(MAperiods/3,0);
   int CountedBars=BarsCount;//IndicatorCounted();
   if(CountedBars>Bars-1-SmoothBars)
      CountedBars=Bars-1-(MAperiods/3);
   if(CountedBars<0)
      return(-1);
   if(CountedBars>0)
      CountedBars--;
   Limit=CountedBars;
//-----------------------------------------------------------------------------------
   for(i=0; i<Limit; i++)
     {
      MovingAverage[i]=iMA(NULL,0,MAperiods,0,0,0,i+ShiftBars);
      MaxHigh=high[Highest(NULL,0,MODE_HIGH,MAperiods,i+ShiftBars)];
      MinLow=low[Lowest(NULL,0,MODE_LOW,MAperiods,i+ShiftBars)];
      MedianPrice=(high[i+ShiftBars]+low[i+ShiftBars])/2;
      Value=0.33*2*((MedianPrice-MinLow)/(MaxHigh-MinLow)-0.5)+0.67*LastValue;
      ExtBuffer0[i]=0.5*MathLog((1+Value)/(1-Value))+0.5*GetBuffer;
      LastValue=Value;
      GetBuffer=ExtBuffer0[i];
      if(ExtBuffer0[i]>0)
         ExtBuffer1[i]=10;
      else
         ExtBuffer1[i]=-10;
     }
//-----------------------------------------------------------------------------------
   for(i=Limit; i>=0; i--)
     {
      sum=0;
      sumw=0;
      for(k=0; k<SmoothBars && (i+k)<BarsCount; k++)
        {
         weight=SmoothBars-k;
         sumw+=weight;
         sum+=weight*ExtBuffer1[i+k];
        }
      if(sumw!=0)
         ExtBuffer2[i]=sum/sumw;
      else
         ExtBuffer2[i]=0;
     }
//-----------------------------------------------------------------------------------
   for(i=0; i<=Limit; i++)
     {
      sum=0;
      sumw=0;
      for(k=0; k<SmoothBars && (i-k)>=0; k++)
        {
         weight=SmoothBars-k;
         sumw+=weight;
         sum+=weight*ExtBuffer2[i-k];
        }
      if(sumw!=0)
         ExtBuffer3[i]=sum/sumw;
      else
         ExtBuffer3[i]=0;
     }
//-----------------------------------------------------------------------------------
   for(i=Limit-1; i>=0; i--)
     {
      ExtBufferh1[i]=EMPTY_VALUE;
      ExtBufferh2[i]=EMPTY_VALUE;
      //---
      if(ExtBuffer3[i]>0)
        {
         ExtBufferh1[i]=MovingAverage[i];
         if(ExtBuffer3[i+1]<0)
            ExtBufferh1[i+1]=MovingAverage[i+1];
        }
      //---
      if(ExtBuffer3[i]<0)
        {
         ExtBufferh2[i]=MovingAverage[i];
         if(ExtBuffer3[i+1]>0)
            ExtBufferh2[i+1]=MovingAverage[i+1];
        }
      //---
     }
//-----------------------------------------------------------------------------------
//Pop up alerts
   if(AlertON==TRUE)
     {
      if((AlertBuy==true) && ((ExtBuffer3[1]>0)) && ((ExtBuffer3[2]<0)))
        {
         AlertSignal=1;
         AlertBuy=FALSE;
         AlertSell=TRUE;
        }
      //---
      if((AlertSell==true) && ((ExtBuffer3[1]<0)) && ((ExtBuffer3[2]>0)))
        {
         AlertSignal=-1;
         AlertBuy=TRUE;
         AlertSell=FALSE;
        }
      //-----------------------------------------------------------------------------------
      if(AlertSignal>0)
        {
         Alert(WindowExpertName()+" => Buy signal @ "+DoubleToStr(close[0],Digits)+" "+Symbol()+", Time: "+TimeToString(TimeCurrent())+", "+DoubleToStr(Period(),0)+" Minutes Chart");
         AlertSignal=0;
        }
      if(AlertSignal<0)
        {
         Alert(WindowExpertName()+" => Sell signal @ "+DoubleToStr(close[0],Digits)+" "+Symbol()+", Time: "+TimeToString(TimeCurrent())+", "+DoubleToStr(Period(),0)+" Minutes Chart");
         AlertSignal=0;
        }
     }
//-----------------------------------------------------------------------------------
   return(rates_total);
  }
//===================================================================================================================================================//