FLOAT#Data_2

//+------------------------------------------------------------------+
//|                                                 FLOAT#Data_2.mq4 |
//|                      Copyright © 2006, MetaQuotes Software Corp. |
//|                                        http://www.metaquotes.net |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2006, MetaQuotes Software Corp."
#property link      "http://www.metaquotes.net"
#property link      "Data window added by cja"
//+--------------------------------------------------------------------------------+
//|                Float.mq4                                                       |
//|                Copyright © 2005  Barry Stander  Barry_Stander_4@yahoo.com      |
//|                http://www.4Africa.net/4meta/                                   |
//|                Float                                                           |
//+--------------------------------------------------------------------------------+

#property copyright "Float converted from MT3 to MT4"
#property link      "http://www.4Africa.net/4meta/"

#property indicator_separate_window
#property indicator_buffers 2
#property indicator_color1 MidnightBlue
#property indicator_color2 Red

extern int float=50,use_fibos=0,Backtesting=0,from = 0;
string short_name;

double f,c1,high_bar,Low_bar;
int bars_high,bars_low;
double cumulativeV,FLOATV,cumulativeV2,swing;
double newcv,CV,CV2;
double fib23,fib38,fib50,fib62,fib76;
double dinap0,dinap1,dinap2,dinap3,dinap4,dinap5;
double CVL,CVL1,CVL2,CVL3,CVL4;
double Buffer1[];
double Buffer2[];

int shift,swing_time;
int cvstart,cvend,bar;

void delete_objects(){
   string  buff_str = "";
   for(int i=ObjectsTotal()-1;i>=0;i--){
      buff_str = ObjectName(i);
      if(StringFind(buff_str,"float_",0)==0) ObjectDelete(buff_str);
      }
   Comment("");
}

int init()
{


   IndicatorBuffers(2);
   delete_objects();
      
   short_name=("Float01 DATA");
   IndicatorShortName(short_name);
   SetIndexLabel(0,short_name);
   
   SetIndexStyle(0,DRAW_HISTOGRAM,STYLE_SOLID,3 );
   SetIndexBuffer(0,Buffer1);
   SetIndexDrawBegin(0,Buffer1);
   
   SetIndexStyle(1,DRAW_LINE );
   SetIndexBuffer(1,Buffer2);
   SetIndexDrawBegin(1,Buffer2);

   return(0);
}
 
int deinit(){
   delete_objects();
   return(0);
}
  
void create_line(int from,double p1,int to,double p2,color c,int style,int w = 1){
   static int acc = 0;
   string name = "float_line_"+acc;acc++;
   datetime t0 = Time[from];
   if(from<0) t0 = Time[0]-from*Period()*60;
   datetime t1 = Time[to];
   if(to<0) t1 = Time[0]-to*Period()*60;
   
   ObjectCreate(name, OBJ_TREND  , 0, t0,p1,t1,p2);
   ObjectSet(name , OBJPROP_STYLE, style);
   ObjectSet(name , OBJPROP_COLOR , c );
   ObjectSet(name , OBJPROP_RAY , 0  );
   ObjectSet(name , OBJPROP_WIDTH , w );
}

void place_text(string text,int from,double p,color c){
   static int acc = 0;
   string name = "float_text_"+acc;acc++;
   ObjectCreate(name, OBJ_TEXT  , 0, Time[from],p );
   ObjectSetText(name , text, 8 , "Arial", c);
}

int start(){
   static int last = 0;
   if(last==Bars) return (0);
   last = Bars;
   int counted_bars=IndicatorCounted();
   if(counted_bars<0) return(-1); // Exit if na data
   
   delete_objects();
    
   cumulativeV=0;
   cumulativeV2=0;
      
      FLOATV=0;

         bars_high = Highest(NULL,0,MODE_HIGH,float,from+1);
         bars_low  = Lowest(NULL,0,MODE_LOW,float,from+1);
         high_bar = High[bars_high]; 
         Low_bar  =  Low[bars_low]; 
         swing = high_bar - Low_bar;
         swing_time = MathAbs(bars_low-bars_high);
         if( bars_high < bars_low ){
            cvstart=bars_low;
            cvend=bars_high;
            }
         else{
            cvstart=bars_high;
            cvend=bars_low;
            }

         for( shift=cvstart;shift>=cvend;shift--) FLOATV=FLOATV+Volume[shift];
         
         //find cumulative volume since last turnover
         for( shift=cvstart;shift>=from;shift--){
            cumulativeV=cumulativeV+Volume[shift];
            if( cumulativeV >= FLOATV ) cumulativeV=0;

            Buffer1[shift] = cumulativeV*0.001; //Blue
            Buffer2[shift] = FLOATV*0.001;      //Red
            }
            
            // Float DATA window code
  double FirstValue = high_bar;//High bar Price
  double SecondValue = Low_bar;//Low bar Price
  double ThirdValue = bars_high*0.0001;//# of bars ago
  double ForthValue = bars_low*0.0001;//# of bars ago
  double FifthValue = FLOATV*0.0001;                       //Float volume 
  double SixthValue = swing_time; // Float Time was
  double SeventhValue = FLOATV*0.0001 - cumulativeV*0.0001; //Float Vol left
  double EigthValue = float; //float period
  
   ObjectCreate("Flt", OBJ_LABEL, WindowFind("Float01 DATA"), 0, 0);
        ObjectSetText("Flt",DoubleToStr(FirstValue,Digits),18, "Arial", PaleTurquoise);
        ObjectSet("Flt", OBJPROP_CORNER, 0);
        ObjectSet("Flt", OBJPROP_XDISTANCE, 120);
        ObjectSet("Flt", OBJPROP_YDISTANCE, 10);
    ObjectCreate("Flt2", OBJ_LABEL, WindowFind("Float01 DATA"), 0, 0);
        ObjectSetText("Flt2",DoubleToStr(SecondValue,Digits),18, "Arial", PaleTurquoise);
        ObjectSet("Flt2", OBJPROP_CORNER, 0);
        ObjectSet("Flt2", OBJPROP_XDISTANCE, 120);
        ObjectSet("Flt2", OBJPROP_YDISTANCE, 35);
    ObjectCreate("Flt3", OBJ_LABEL, WindowFind("Float01 DATA"), 0, 0);
        ObjectSetText("Flt3","HIGH Bar   =",14, "tahoma", Yellow);
        ObjectSet("Flt3", OBJPROP_CORNER, 0);
        ObjectSet("Flt3", OBJPROP_XDISTANCE, 5);
        ObjectSet("Flt3", OBJPROP_YDISTANCE, 12);
    ObjectCreate("Flt4", OBJ_LABEL, WindowFind("Float01 DATA"), 0, 0);
        ObjectSetText("Flt4","LOW Bar    =",14, "tahoma", Yellow);
        ObjectSet("Flt4", OBJPROP_CORNER, 0);
        ObjectSet("Flt4", OBJPROP_XDISTANCE, 5);
        ObjectSet("Flt4", OBJPROP_YDISTANCE, 35);
        ObjectCreate("Flt5", OBJ_LABEL, WindowFind("Float01 DATA"), 0, 0);
    ObjectSetText("Flt5",DoubleToStr(ThirdValue,Digits),14, "Arial", Red);
        ObjectSet("Flt5", OBJPROP_CORNER, 0);
        ObjectSet("Flt5", OBJPROP_XDISTANCE, 220);
        ObjectSet("Flt5", OBJPROP_YDISTANCE, 15);
        ObjectCreate("Flt6", OBJ_LABEL, WindowFind("Float01 DATA"), 0, 0);
    ObjectSetText("Flt6",DoubleToStr(ForthValue,Digits),14, "Arial", Red);
        ObjectSet("Flt6", OBJPROP_CORNER, 0);
        ObjectSet("Flt6", OBJPROP_XDISTANCE, 220);
        ObjectSet("Flt6", OBJPROP_YDISTANCE, 35);
    ObjectCreate("Flt7", OBJ_LABEL, WindowFind("Float01 DATA"), 0, 0);
        ObjectSetText("Flt7","+",14, "Arial", CadetBlue);
        ObjectSet("Flt7", OBJPROP_CORNER, 0);
        ObjectSet("Flt7", OBJPROP_XDISTANCE, 200);
        ObjectSet("Flt7", OBJPROP_YDISTANCE, 13);
    ObjectCreate("Flt8", OBJ_LABEL, WindowFind("Float01 DATA"), 0, 0);
        ObjectSetText("Flt8","+",14, "Arial", CadetBlue);
        ObjectSet("Flt8", OBJPROP_CORNER, 0);
        ObjectSet("Flt8", OBJPROP_XDISTANCE, 200);
        ObjectSet("Flt8", OBJPROP_YDISTANCE, 33);
    ObjectCreate("Flt9", OBJ_LABEL, WindowFind("Float01 DATA"), 0, 0);
        ObjectSetText("Flt9",DoubleToStr(FifthValue,Digits),14, "Arial", Coral);
        ObjectSet("Flt9", OBJPROP_CORNER, 0);
        ObjectSet("Flt9", OBJPROP_XDISTANCE, 410);
        ObjectSet("Flt9", OBJPROP_YDISTANCE, 40);
    ObjectCreate("Flt10", OBJ_LABEL, WindowFind("Float01 DATA"), 0, 0);
        ObjectSetText("Flt10","Float Volume   =",9, "tahoma", Turquoise);
        ObjectSet("Flt10", OBJPROP_CORNER, 0);
        ObjectSet("Flt10", OBJPROP_XDISTANCE, 300);
        ObjectSet("Flt10", OBJPROP_YDISTANCE, 45);
    ObjectCreate("Flt11", OBJ_LABEL, WindowFind("Float01 DATA"), 0, 0);
        ObjectSetText("Flt11",DoubleToStr(SixthValue,Digits-4),14, "Arial",MediumPurple);
        ObjectSet("Flt11", OBJPROP_CORNER, 0);
        ObjectSet("Flt11", OBJPROP_XDISTANCE, 410);
        ObjectSet("Flt11", OBJPROP_YDISTANCE, 10);
    ObjectCreate("Flt12", OBJ_LABEL, WindowFind("Float01 DATA"), 0, 0);
        ObjectSetText("Flt12","Bars",9, "tahoma", CadetBlue);
        ObjectSet("Flt12", OBJPROP_CORNER, 0);
        ObjectSet("Flt12", OBJPROP_XDISTANCE,445);
        ObjectSet("Flt12", OBJPROP_YDISTANCE, 15);
    ObjectCreate("Flt13", OBJ_LABEL, WindowFind("Float01 DATA"), 0, 0);
        ObjectSetText("Flt13","Float Time       =",9, "tahoma", Turquoise);
        ObjectSet("Flt13", OBJPROP_CORNER, 0);
        ObjectSet("Flt13", OBJPROP_XDISTANCE,300);
        ObjectSet("Flt13", OBJPROP_YDISTANCE, 15);
    ObjectCreate("Flt14", OBJ_LABEL, WindowFind("Float01 DATA"), 0, 0);
        ObjectSetText("Flt14",DoubleToStr(SeventhValue,Digits),14, "Arial",Coral);
        ObjectSet("Flt14", OBJPROP_CORNER, 0);
        ObjectSet("Flt14", OBJPROP_XDISTANCE, 410);
        ObjectSet("Flt14", OBJPROP_YDISTANCE, 25);
    ObjectCreate("Flt15", OBJ_LABEL, WindowFind("Float01 DATA"), 0, 0);
        ObjectSetText("Flt15","Float Vol left    =",9, "tahoma", Turquoise);
        ObjectSet("Flt15", OBJPROP_CORNER, 0);
        ObjectSet("Flt15", OBJPROP_XDISTANCE,300);
        ObjectSet("Flt15", OBJPROP_YDISTANCE, 30);
    ObjectCreate("Flt16", OBJ_LABEL, WindowFind("Float01 DATA"), 0, 0);
        ObjectSetText("Flt16","Float Period",9, "tahoma", Turquoise);
        ObjectSet("Flt16", OBJPROP_CORNER, 0);
        ObjectSet("Flt16", OBJPROP_XDISTANCE,790);
        ObjectSet("Flt16", OBJPROP_YDISTANCE, 10);
    ObjectCreate("Flt17", OBJ_LABEL, WindowFind("Float01 DATA"), 0, 0);
        ObjectSetText("Flt17",DoubleToStr(EigthValue,Digits-4),14, "Arial",Coral);
        ObjectSet("Flt17", OBJPROP_CORNER, 0);
        ObjectSet("Flt17", OBJPROP_XDISTANCE, 866);
        ObjectSet("Flt17", OBJPROP_YDISTANCE, 8);
        //End Float DATA window code
 
        create_line(cvstart,high_bar,from+1,high_bar,Blue,STYLE_SOLID);
         //place_text("100.0",from+1,high_bar,Green); //100 fib level           
        create_line(cvstart,Low_bar,from+1,Low_bar,Blue,STYLE_SOLID); 
         //place_text("00.0",from+1,Low_bar,Green);  //0.00 fib level         

       //  fib23=((high_bar-Low_bar)*0.236)+Low_bar;
       //  fib38=((high_bar-Low_bar)*0.382)+Low_bar;
       //  fib50=((high_bar-Low_bar)/2)+Low_bar;
       //  fib62=((high_bar-Low_bar)*0.618)+Low_bar;
      //   fib76=((high_bar-Low_bar)*0.764)+Low_bar;
      //   dinap0=(Low_bar+fib23)/2;
      //   dinap1=(fib23+fib38)/2;
      //   dinap2=(fib38+fib50)/2;
       //  dinap3=(fib50+fib62)/2;
       //  dinap4=(fib62+fib76)/2;
       //  dinap5=(high_bar+fib76)/2;

         create_line(cvstart,fib23,from+1,fib23,Green,STYLE_DASHDOTDOT);
         place_text("23.6",from+1,fib23,Green);

         create_line(cvstart,fib38,from+1,fib38,Green,STYLE_DASHDOTDOT);
         place_text("38.2",from+1,fib38,Green);
 
         create_line(cvstart,fib50,from+1,fib50,Red,STYLE_DASHDOTDOT,1);
         place_text("50.0",from+1,fib50,Red);
 
         create_line(cvstart,fib62,from+1,fib62,Green,STYLE_DASHDOTDOT);
         place_text("61.8",from+1,fib62,Green);
 
         create_line(cvstart,fib76,from+1,fib76,Green,STYLE_DASHDOTDOT);
         place_text("76.4",from+1,fib76,Green);

         create_line(cvstart,dinap0,from+1,dinap0,MidnightBlue,STYLE_DOT);
         create_line(cvstart,dinap1,from+1,dinap1,MidnightBlue,STYLE_DOT);
         create_line(cvstart,dinap2,from+1,dinap2,MidnightBlue,STYLE_DOT);
         create_line(cvstart,dinap3,from+1,dinap3,MidnightBlue,STYLE_DOT);
         create_line(cvstart,dinap4,from+1,dinap4,MidnightBlue,STYLE_DOT);
         create_line(cvstart,dinap5,from+1,dinap5,MidnightBlue,STYLE_DOT);
 
         create_line(cvstart,high_bar,cvstart,Low_bar*Point,Blue,STYLE_SOLID);
         create_line(cvend,high_bar,cvend,Low_bar*Point,Red,STYLE_SOLID);
         

   
   //vert float predictions. These are only time based.
   //see blue histogram for real float values.
   //if you change "trendline" to "Vline" it will draw through oscillators too.might be fun
   for(int i=1;i<10;i++){
      int x = cvend-(swing_time*i);
      create_line(x+5,high_bar,x+5,Low_bar,DarkSlateGray,STYLE_DOT);
      }
  // Comment(
   //   "\n","high was   ",bars_high,"  bars ago",
   //  "\n","Low was    ",bars_low," bars ago","\n",
   //  "\n","Float time was  =      ", swing_time," bars",
   //   "\n","Float Vol. left    =     ",FLOATV-cumulativeV,
   //   "\n","Float Volume    =     ",FLOATV,
   //  );
 
   return(0);
}