FIBO_ZONE_mod

#property indicator_separate_window
#property indicator_minimum 0
#property indicator_maximum 100

extern int NumOfBars = 0;

int iwindow = 0;
string iname = "Jackson Zones";

int init(){
   IndicatorShortName(iname);
   return(0);
}
  
void place_text(string text,int x,double price,color c,int hwnd){
   string  buff_str = "jack_"+text+x+price;
      //OBJ_LABEL
   if(ObjectFind(buff_str)==-1){
      ObjectCreate(buff_str, OBJ_TEXT, iwindow, Time[x], price);
      }
   //ObjectSet(buff_str,OBJPROP_COLOR,c);
   ObjectSet(buff_str,OBJPROP_TIME1,Time[x]);
   ObjectSet(buff_str,OBJPROP_PRICE1,price);
   //ObjectSet(buff_str,OBJPROP_FONTSIZE,10);
   ObjectSetText(buff_str,text,10,"Arial",c);
   
}

void create_rectangle(int id,int from,int to,color c,double p0,double p1,int long,int hwnd){
   string  buff_str = "jack_"+id;
   ObjectCreate(buff_str, OBJ_RECTANGLE, hwnd, Time[from], p0, Time[to], p1);
   ObjectSet(buff_str, OBJPROP_COLOR, c );
   ObjectSet(buff_str, OBJPROP_RAY, long );
   ObjectSet(buff_str, OBJPROP_STYLE,  STYLE_DOT );
   ObjectSet(buff_str, OBJPROP_BACK, true );
   ObjectSet(buff_str, OBJPROP_WIDTH, 1 );
   
}

void create_line(int line,int from,int to,color c,double p0,double p1,int long,int hwnd,int style){
   string  buff_str = "jack_"+line;
   ObjectCreate(buff_str, OBJ_TREND, hwnd, Time[from], p0, Time[to], p1);
   ObjectSet(buff_str,OBJPROP_RAY,long);
   ObjectSet(buff_str,OBJPROP_COLOR,c);
   ObjectSet(buff_str,OBJPROP_XDISTANCE,100);
   ObjectSet(buff_str,OBJPROP_YDISTANCE,100);
   ObjectSet(buff_str,OBJPROP_STYLE,style);
   ObjectSet(buff_str,OBJPROP_WIDTH,1);
}

void delete_obj(){
   string  buff_str = "";
   for(int i=ObjectsTotal()-1;i>=0;i--){
      buff_str = ObjectName(i);
      if(StringFind(buff_str,"jack_",0)==0) ObjectDelete(buff_str);
      }
}
   
int deinit(){
   delete_obj();
   return(0);
}
 
int last = 0,pbar = 0;
double C,D,B,A,E,SB1,SB2,RB1,RB2,R,o,c;
int fb_zone_stats[6][4];
int zone[6];

void update_table(int c){
   int col[6] = {27,22,17,12,7,2};
   int row[5] = {75,55,35,15,95};
   place_text("Zones"  ,35,row[4] ,Black      ,iwindow);
   place_text(">=RB2"  ,35,row[0] ,Red        ,iwindow);
   place_text(">=RB1"  ,35,row[1] ,Maroon     ,iwindow);
   place_text("<=SB1"  ,35,row[2] ,OliveDrab  ,iwindow);
   place_text("<=SB2"  ,35,row[3] ,Green      ,iwindow);
   
   
   for(int i=1;i<7;i++){
      color cl = Black;
      if(i==c) cl = Blue;
      place_text(i,col[i-1],row[4],cl,iwindow);
      for(int j=0;j<4;j++)
         if(zone[i-1]!=0)
            place_text((fb_zone_stats[i-1][j]*100)/zone[i-1],col[i-1],row[j],cl,iwindow);
         else
            place_text(fb_zone_stats[i-1][j],col[i-1],row[j],cl,iwindow);
      }
}

void draw_zones(int shift){
   static int acc = 0;
   create_rectangle(acc,pbar,shift,Black,RB2,E,0,0); acc++;
   create_line(acc,pbar,shift,Red,E,E,0,0,STYLE_SOLID); acc++;
   create_rectangle(acc,pbar,shift,Black,RB1,D,0,0); acc++;
   create_line(acc,pbar,shift,Yellow,D,D,0,0,STYLE_SOLID); acc++;
   create_line(acc,pbar,shift,Blue,C,C,0,0,STYLE_SOLID); acc++;
   create_line(acc,pbar,shift,Yellow,B,B,0,0,STYLE_SOLID); acc++;
   create_rectangle(acc,pbar,shift,Black,B,SB1,0,0); acc++;
   create_line(acc,pbar,shift,Red,A,A,0,0,STYLE_SOLID); acc++;
   create_rectangle(acc,pbar,shift,Black,A,SB2,0,0); acc++;
}

int start()  {
   iwindow = WindowFind(iname);
   if(last == Bars) return (0);
   last = Bars;
   delete_obj();
   int limit = NumOfBars;
   if(limit==0 || limit>Bars) limit=Bars;
   int b,l = 0;

   for(int i=0;i<6;i++){
      fb_zone_stats[i][0] = 0;
      fb_zone_stats[i][1] = 0;
      fb_zone_stats[i][2] = 0;
      fb_zone_stats[i][3] = 0;
      zone[i] = 0;
      }
   
   for(i = limit-1;i>=0;i--){
      b = iBarShift(NULL,PERIOD_D1,Time[i]);
      if(b!=l){
         // draw zones
         if(l!=0) draw_zones(i);
         pbar = i;
         
         l = b;
         int b_ = TimeDayOfWeek(Time[i]);
         if(b_==1) b +=2; else b +=1;
         double cl = iClose(NULL,PERIOD_D1,b);
         double hi = iHigh(NULL,PERIOD_D1,b);
         double lo = iLow(NULL,PERIOD_D1,b);
         R = (hi-lo);

         C = (cl+hi+lo) / 3;//PIVOT
         
         E = C + 0.011;//PIVOT+RANGE
         D = C + 0.004;//PIVOT+RANGE/2
         // C
         B = C - 0.004;
         A = C - 0.011;

         o = iOpen (NULL,PERIOD_D1,l);
         c = iClose(NULL,PERIOD_D1,l);
         
         int zo = 6;
         if(o<A) zo = 1;
         else if(o<E && o>=D) zo = 5;
         else if(o<D && o>=C) zo = 4;
         else if(o<C && o>=B) zo = 3;
         else if(o<B && o>=A) zo = 2;
         
         zone[zo]++;
         
         RB2 = C + R * 1.382;
         RB1 = C + R * 0.618;
         SB1 = C - R * 0.618;
         SB2 = C - R * 1.382;
         
         if(c<=SB2) fb_zone_stats[zo][3]++;
         if(c<=SB1) fb_zone_stats[zo][2]++;
         if(c>=RB1) fb_zone_stats[zo][1]++;
         if(c>=RB2) fb_zone_stats[zo][0]++;
         }
      }
   update_table(zo);
   // draw last zone levels
   draw_zones(0);
   
   return(0);
  }
//+------------------------------------------------------------------+