///+------------------------------------------------------------------+
// #4X BuySell \¦/
// Knowledge of the ancients (ò ó)
//______________________o0o___(_)___o0o__
//___¦_____¦_____¦mladen¦_____¦_____¦_____¦
//¦_cja_¦_____¦_____¦_____¦_____¦_____¦__
//___¦_____¦_____¦_____¦_Xard¦777__¦_____¦
//¦____¦ihldiaf¦_____¦_____¦_____¦____¦__
//___¦_____¦_____¦_____¦Baba¦Master_¦____¦
//¦FxSniper___¦_____¦_igor_¦_____¦_____¦__ April 18th, 2009
//+------------------------------------------------------------------+
//////HIGH/LOW/////////////////////////////Xard777///2009//////
#property indicator_chart_window
extern bool show.timeleft=false;
extern bool show.symbol.price=true;
extern int win = 1;
extern int Adjust_Side_to_side = 10;
extern int Shift_UP_DN = 0;
extern string s01 = "240 4Hrs";
extern string s02 = "1440 Daily";
extern string s03 = "10080 Weekly";
extern string s04 = "43200 Monthly";
extern int TF = 1440;
//color scheme
extern color Color1 = Blue;
extern color Color2 = Yellow;
extern color Color3 = HotPink;
extern color Color4 = Lime;
extern color Color5 = White;
extern color Color6 = Orange;
double HiPrice, LoPrice, Range;
double v1 = 0, v2 = 0;
int bn_v1=0, bn_v2=0;
datetime StartTime;
//////HIGH/LOW/////////////////////////////Xard777///2009//////
int init()
{
bn_v1 = Lowest(NULL,0,MODE_LOW,64,0);
bn_v2 = Highest(NULL,0,MODE_HIGH,64,0);
v1 = Low[bn_v1];
v2 = High[bn_v2];
return(0);
}
//////HIGH/LOW/////////////////////////////Xard777///2009//////
int deinit()
{
ObjectDelete("zero.eight");
ObjectDelete("one.seven");
ObjectDelete("two.six");
ObjectDelete("three.five");
ObjectDelete("four.four");
ObjectDelete("plus.one");
return(0);
}
//////HIGH/LOW/////////////////////////////Xard777///2009//////
int DrawFibo()
{
if(ObjectFind("zero.eight") == -1)
ObjectCreate("zero.eight",OBJ_FIBO,0,StartTime,HiPrice+Range,StartTime,HiPrice);
else
{
ObjectSet("zero.eight",OBJPROP_TIME2, StartTime);
ObjectSet("zero.eight",OBJPROP_TIME1, StartTime);
ObjectSet("zero.eight",OBJPROP_PRICE1,HiPrice+Range);
ObjectSet("zero.eight",OBJPROP_PRICE2,HiPrice);
}
ObjectSet("zero.eight",OBJPROP_LEVELCOLOR,Color1);
ObjectSet("zero.eight",OBJPROP_FIBOLEVELS,2);
ObjectSet("zero.eight",OBJPROP_FIRSTLEVEL+0,0.0);
ObjectSet("zero.eight",OBJPROP_FIRSTLEVEL+1,-1.0);
ObjectSetFiboDescription("zero.eight",0,"High 8/8 - %$ ");
ObjectSetFiboDescription("zero.eight",+1,"Low 0/8 - %$ ");
ObjectSet("zero.eight",OBJPROP_LEVELWIDTH,3);
ObjectSet("zero.eight",OBJPROP_RAY,true);
ObjectSet("zero.eight",OBJPROP_BACK,true);
//////HIGH/LOW/////////////////////////////Xard777///2009//////
/*
if(ObjectFind("one.seven") == -1)
ObjectCreate("one.seven",OBJ_FIBO,0,StartTime,HiPrice+Range,StartTime,HiPrice);
else
{
ObjectSet("one.seven",OBJPROP_TIME2, StartTime);
ObjectSet("one.seven",OBJPROP_TIME1, StartTime);
ObjectSet("one.seven",OBJPROP_PRICE1,HiPrice+Range);
ObjectSet("one.seven",OBJPROP_PRICE2,HiPrice);
}
ObjectSet("one.seven",OBJPROP_LEVELCOLOR,Color2);
ObjectSet("one.seven",OBJPROP_FIBOLEVELS,2);
ObjectSet("one.seven",OBJPROP_FIRSTLEVEL+0,-0.875);
ObjectSet("one.seven",OBJPROP_FIRSTLEVEL+1,-0.125);
ObjectSetFiboDescription("one.seven",0,"1/8 - %$ ");
ObjectSetFiboDescription("one.seven",+1,"7/8 - %$ ");
ObjectSet("one.seven",OBJPROP_LEVELWIDTH,1);
ObjectSet("one.seven",OBJPROP_RAY,true);
ObjectSet("one.seven",OBJPROP_BACK,true);*/
//////HIGH/LOW/////////////////////////////Xard777///2009//////
/*
if(ObjectFind("two.six") == -1)
ObjectCreate("two.six",OBJ_FIBO,0,StartTime,HiPrice+Range,StartTime,HiPrice);
else
{
ObjectSet("two.six",OBJPROP_TIME2, StartTime);
ObjectSet("two.six",OBJPROP_TIME1, StartTime);
ObjectSet("two.six",OBJPROP_PRICE1,HiPrice+Range);
ObjectSet("two.six",OBJPROP_PRICE2,HiPrice);
}
ObjectSet("two.six",OBJPROP_LEVELCOLOR,Color3);
ObjectSet("two.six",OBJPROP_FIBOLEVELS,2);
ObjectSet("two.six",OBJPROP_FIRSTLEVEL+0,-0.75);
ObjectSet("two.six",OBJPROP_FIRSTLEVEL+1,-0.25);
ObjectSetFiboDescription("two.six",0,"2/8 - %$ ");
ObjectSetFiboDescription("two.six",+1,"6/8 - %$ ");
ObjectSet("two.six",OBJPROP_LEVELWIDTH,3);
ObjectSet("two.six",OBJPROP_RAY,true);
ObjectSet("two.six",OBJPROP_BACK,true);*/
//////HIGH/LOW/////////////////////////////Xard777///2009//////
if(ObjectFind("three.five") == -1)
ObjectCreate("three.five",OBJ_FIBO,0,StartTime,HiPrice+Range,StartTime,HiPrice);
else
{
ObjectSet("three.five",OBJPROP_TIME2, StartTime);
ObjectSet("three.five",OBJPROP_TIME1, StartTime);
ObjectSet("three.five",OBJPROP_PRICE1,HiPrice+Range);
ObjectSet("three.five",OBJPROP_PRICE2,HiPrice);
}
ObjectSet("three.five",OBJPROP_LEVELCOLOR,Color4);
ObjectSet("three.five",OBJPROP_FIBOLEVELS,2);
ObjectSet("three.five",OBJPROP_FIRSTLEVEL+0,-0.625);
ObjectSet("three.five",OBJPROP_FIRSTLEVEL+1,-0.375);
ObjectSetFiboDescription("three.five",0,"3/8 - %$ ");
ObjectSetFiboDescription("three.five",+1,"5/8 - %$ ");
ObjectSet("three.five",OBJPROP_LEVELWIDTH,1);
ObjectSet("three.five",OBJPROP_RAY,true);
ObjectSet("three.five",OBJPROP_BACK,true);
//////HIGH/LOW/////////////////////////////Xard777///2009//////
if(ObjectFind("four.four") == -1)
ObjectCreate("four.four",OBJ_FIBO,0,StartTime,HiPrice+Range,StartTime,HiPrice);
else
{
ObjectSet("four.four",OBJPROP_TIME2, StartTime);
ObjectSet("four.four",OBJPROP_TIME1, StartTime);
ObjectSet("four.four",OBJPROP_PRICE1,HiPrice+Range);
ObjectSet("four.four",OBJPROP_PRICE2,HiPrice);
}
ObjectSet("four.four",OBJPROP_LEVELCOLOR,Color5);
ObjectSet("four.four",OBJPROP_FIBOLEVELS,1);
ObjectSet("four.four",OBJPROP_FIRSTLEVEL+0,-0.5);
ObjectSetFiboDescription("four.four",0,"4/8 - %$ ");
ObjectSet("four.four",OBJPROP_LEVELWIDTH,3);
ObjectSet("four.four",OBJPROP_RAY,true);
ObjectSet("four.four",OBJPROP_BACK,true);
//////HIGH/LOW/////////////////////////////Xard777///2009//////
if(ObjectFind("plus.one") == -1)
ObjectCreate("plus.one",OBJ_FIBO,0,StartTime,HiPrice+Range,StartTime,HiPrice);
else
{
ObjectSet("plus.one",OBJPROP_TIME2, StartTime);
ObjectSet("plus.one",OBJPROP_TIME1, StartTime);
ObjectSet("plus.one",OBJPROP_PRICE1,HiPrice+Range);
ObjectSet("plus.one",OBJPROP_PRICE2,HiPrice);
}
ObjectSet("plus.one",OBJPROP_LEVELCOLOR,Color6);
ObjectSet("plus.one",OBJPROP_FIBOLEVELS,16);
ObjectSet("plus.one",OBJPROP_FIRSTLEVEL+0,0.125);
ObjectSet("plus.one",OBJPROP_FIRSTLEVEL+1,-1.125);
ObjectSet("plus.one",OBJPROP_FIRSTLEVEL+2,0.25);
ObjectSet("plus.one",OBJPROP_FIRSTLEVEL+3,-1.25);
ObjectSet("plus.one",OBJPROP_FIRSTLEVEL+4,0.375);
ObjectSet("plus.one",OBJPROP_FIRSTLEVEL+5,-1.375);
ObjectSet("plus.one",OBJPROP_FIRSTLEVEL+6,0.5);
ObjectSet("plus.one",OBJPROP_FIRSTLEVEL+7,-1.5);
ObjectSet("plus.one",OBJPROP_FIRSTLEVEL+8,0.625);
ObjectSet("plus.one",OBJPROP_FIRSTLEVEL+9,-1.625);
ObjectSet("plus.one",OBJPROP_FIRSTLEVEL+10,0.75);
ObjectSet("plus.one",OBJPROP_FIRSTLEVEL+11,-1.75);
ObjectSet("plus.one",OBJPROP_FIRSTLEVEL+12,0.875);
ObjectSet("plus.one",OBJPROP_FIRSTLEVEL+13,-1.875);
ObjectSet("plus.one",OBJPROP_FIRSTLEVEL+14,1.0);
ObjectSet("plus.one",OBJPROP_FIRSTLEVEL+15,-2.0);
ObjectSetFiboDescription("plus.one",0,"+1/8 - %$ ");
ObjectSetFiboDescription("plus.one",+1,"-1/8 - %$ ");
ObjectSetFiboDescription("plus.one",+2,"+2/8 - %$ ");
ObjectSetFiboDescription("plus.one",+3,"-2/8 - %$ ");
ObjectSetFiboDescription("plus.one",+4,"+3/8 - %$ ");
ObjectSetFiboDescription("plus.one",+5,"-3/8 - %$ ");
ObjectSetFiboDescription("plus.one",+6,"+4/8 - %$ ");
ObjectSetFiboDescription("plus.one",+7,"-4/8 - %$ ");
ObjectSetFiboDescription("plus.one",+8,"+5/8 - %$ ");
ObjectSetFiboDescription("plus.one",+9,"-5/8 - %$ ");
ObjectSetFiboDescription("plus.one",+10,"+6/8 - %$ ");
ObjectSetFiboDescription("plus.one",+11,"-6/8 - %$ ");
ObjectSetFiboDescription("plus.one",+12,"+7/8 - %$ ");
ObjectSetFiboDescription("plus.one",+13,"-7/8 - %$ ");
ObjectSetFiboDescription("plus.one",+14,"+8/8 - %$ ");
ObjectSetFiboDescription("plus.one",+15,"-8/8 - %$ ");
ObjectSet("plus.one",OBJPROP_LEVELWIDTH,1);
ObjectSet("plus.one",OBJPROP_RAY,true);
ObjectSet("plus.one",OBJPROP_BACK,true);
}
//////HIGH/LOW/////////////////////////////Xard777///2009//////
int start()
{
double r;
int m,s,k;
m=Time[0]+Period()*60-CurTime();
r=m/60.0;
s=m%60;
m=(m-m%60)/60;
if (show.timeleft) {
ObjectDelete("xard1");
ObjectCreate("xard1", OBJ_LABEL, win, 0, 0);
ObjectSetText("xard1",m+":"+s , 14, "MV Boli", Silver);
ObjectSet("xard1", OBJPROP_CORNER, 1);
ObjectSet("xard1", OBJPROP_XDISTANCE, Adjust_Side_to_side + 135);
ObjectSet("xard1", OBJPROP_YDISTANCE, Shift_UP_DN + 20);
}
if (show.symbol.price) {
/* ObjectCreate("Xdb", OBJ_LABEL, win, 0, 0);
ObjectSetText("Xdb",Symbol(),14, "MV Boli", Yellow);
ObjectSet("Xdb", OBJPROP_CORNER, 1);
ObjectSet("Xdb", OBJPROP_XDISTANCE, Adjust_Side_to_side + 130);
ObjectSet("Xdb", OBJPROP_YDISTANCE, Shift_UP_DN + 0);*/
ObjectDelete("v2");
ObjectCreate("v2", OBJ_LABEL, win, 0, 0);
ObjectSetText("v2",DoubleToStr(v2,Digits) , 14, "MV Boli", Blue);
ObjectSet("v2", OBJPROP_CORNER, 1);
ObjectSet("v2", OBJPROP_XDISTANCE, Adjust_Side_to_side + 130);
ObjectSet("v2", OBJPROP_YDISTANCE, Shift_UP_DN + 2);
ObjectDelete("v1");
ObjectCreate("v1", OBJ_LABEL, win, 0, 0);
ObjectSetText("v1",DoubleToStr(v1,Digits) , 14, "MV Boli", Crimson);
ObjectSet("v1", OBJPROP_CORNER, 1);
ObjectSet("v1", OBJPROP_XDISTANCE, Adjust_Side_to_side + 130);
ObjectSet("v1", OBJPROP_YDISTANCE, Shift_UP_DN + 20);
ObjectDelete("xard2");
ObjectCreate("xard2", OBJ_LABEL, win, 0, 0);
ObjectSetText("xard2",DoubleToStr(Bid,Digits) , 25, "MV Boli", Yellow);
ObjectSet("xard2", OBJPROP_CORNER, 1);
ObjectSet("xard2", OBJPROP_XDISTANCE, Adjust_Side_to_side + 0);
ObjectSet("xard2", OBJPROP_YDISTANCE, Shift_UP_DN + 0);
}
int shift = iBarShift(NULL,TF,Time[0]) + 1; // H4
HiPrice = iHigh(NULL,TF,shift);
LoPrice = iLow (NULL,TF,shift);
StartTime = iTime(NULL,TF,shift);
if(TimeDayOfWeek(StartTime)==0/*Sunday*/)
{//Add fridays high and low
HiPrice = MathMax(HiPrice,iHigh(NULL,TF,shift+1));
LoPrice = MathMin(LoPrice,iLow(NULL,TF,shift+1));
}
Range = HiPrice-LoPrice;
DrawFibo();
return(0);
}
//////HIGH/LOW/////////////////////////////Xard777///2009//////
Sample
Analysis
Market Information Used:
Series array that contains the lowest prices of each bar
Series array that contains the highest prices of each bar
Series array that contains open time of each bar
Indicator Curves created:
Indicators Used:
Custom Indicators Used:
Order Management characteristics:
Other Features: