//+------------------------------------------------------------------+
//|                                         to_ind_CandlCode_ICS.mq4 |
//|                                                                * |
//|                                                                * |
//+------------------------------------------------------------------+
#property copyright "Integer"
#property link      "for-good-letters@yandex.ru"

#property indicator_separate_window
#property indicator_buffers 2
#property indicator_color1 Red
#property indicator_color2 Yellow
#property indicator_minimum 0
#property indicator_maximum 128
#property indicator_level1 35
#property indicator_level2 64
#property indicator_level3 93


//---- input parameters
extern int       BBPeriod=55;
extern double    BBDevs=0.5; 
extern int       smPeriod=3; 
extern int       smMethod=0; 
//---- buffers
double body[];
double ushd[];
double lshd[];

double Buf4[];
double Buf5[];
double Buf6[];
double Buf7[];

//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//---- indicators

   IndicatorBuffers(7);

   SetIndexStyle(0,DRAW_LINE);
   SetIndexBuffer(0,Buf4);
   
   SetIndexStyle(1,DRAW_LINE);
   SetIndexBuffer(1,Buf7);   

   SetIndexBuffer(2,body);
   SetIndexBuffer(3,lshd);
   SetIndexBuffer(4,ushd);
   SetIndexBuffer(5,Buf5);
   SetIndexBuffer(6,Buf6);   

   SetIndexLabel(0,"CandlCode II");
   SetIndexLabel(1,"CandlCode II Smoothed");   
   IndicatorDigits(0);
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {
   int    limit=Bars-IndicatorCounted()-1;
      for(int i=limit;i>=0;i--){
         body[i]=MathAbs(Open[i]-Close[i]);
         lshd[i]=Close[i]-Low[i];
         if(Close[i]>=Open[i])lshd[i]=Open[i]-Low[i];
         ushd[i]=High[i]-Open[i];
         if(Close[i]>=Open[i])ushd[i]=High[i]-Close[i];         
      }
      for(i=limit;i>=0;i--){
         double ThBot_b=iMAOnArray(body,0,BBPeriod,0,1,i)-BBDevs*(iMAOnArray(body,0,BBPeriod,0,1,i)-iBandsOnArray(body,0,BBPeriod,1,0,MODE_LOWER,i));
         double ThBot_l=iMAOnArray(lshd,0,BBPeriod,0,1,i)-BBDevs*(iMAOnArray(lshd,0,BBPeriod,0,1,i)-iBandsOnArray(lshd,0,BBPeriod,1,0,MODE_LOWER,i));
         double ThBot_u=iMAOnArray(ushd,0,BBPeriod,0,1,i)-BBDevs*(iMAOnArray(ushd,0,BBPeriod,0,1,i)-iBandsOnArray(ushd,0,BBPeriod,1,0,MODE_LOWER,i));
         double ThTop_b=iMAOnArray(body,0,BBPeriod,0,1,i)+BBDevs*(-iMAOnArray(body,0,BBPeriod,0,1,i)+iBandsOnArray(body,0,BBPeriod,1,0,MODE_UPPER,i));
         double ThTop_l=iMAOnArray(lshd,0,BBPeriod,0,1,i)+BBDevs*(-iMAOnArray(lshd,0,BBPeriod,0,1,i)+iBandsOnArray(lshd,0,BBPeriod,1,0,MODE_UPPER,i));
         double ThTop_u=iMAOnArray(ushd,0,BBPeriod,0,1,i)+BBDevs*(-iMAOnArray(ushd,0,BBPeriod,0,1,i)+iBandsOnArray(ushd,0,BBPeriod,1,0,MODE_UPPER,i));

         double k1=0;
         if(Close[i]==Open[i])k1=1;
         double k2=48;
         if(ushd[i]>=lshd[i])k2=64;
         double k3=1;
         if(Close[i]==Open[i])k3=0;
         double k4=0;
         if(Close[i]>Open[i])k4=1;
         double k5=0;
         if(body[i]<=ThBot_b)k5=80;
         double k6=0;
         if(body[i]>ThBot_b && body[i]<=ThTop_b)k6=96;
         double k7=0;
         if(body[i]>ThTop_b)k7=112;
         double k8=0;
         if(Close[i]<Open[i])k8=1;
         double k9=0;
         if(body[i]<=ThBot_b)k9=32;
         double k10=0;
         if(body[i]>ThBot_b && body[i]<=ThTop_b)k10=16;
         double k11=0;
         if(lshd[i]==0)k11=3;
         double k12=0;
         if(lshd[i]<ThBot_l && lshd[i]>0)k12=2;
         double k13=0;
         if(lshd[i]>ThBot_l && lshd[i]<=ThTop_l && lshd[i]>0)k13=1;
         double k14=0;
         if(ushd[i]>0 && ushd[i]<=ThBot_u)k14=4;
         double k15=0;
         if(ushd[i]>ThBot_u && ushd[i]<=ThTop_u)k15=8;
         double k16=0;
         if(ushd[i]>ThTop_u)k16=12;
     
         double CCode=k1*k2+k3*(k4*(k5+k6+k7)+k8*(k9+k10))+(k11+k12+k13)+(k14+k15+k16);
 
         Buf4[i]=CCode;

      }  

      for(i=limit;i>=0;i--){
         Buf5[i]=iMAOnArray(Buf4,0,smPeriod,0,smMethod,i);
      }      
      for(i=limit;i>=0;i--){
         Buf6[i]=iMAOnArray(Buf5,0,smPeriod,0,smMethod,i);
      }        
      for(i=limit;i>=0;i--){
         Buf7[i]=iMAOnArray(Buf6,0,smPeriod,0,smMethod,i);
      }        
      
          
//----
   
//----
   return(0);
  }
//+------------------------------------------------------------------+