//+--------------------------------------------------------------------------------+ //| 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 link "Data window added by cja" //---- #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); } //+------------------------------------------------------------------+