AutoDayFibs V1.0





//+------------------------------------------------------------------+ 
//| AutoDayFibs V1.0 | 
//| | 
//| Copyright © 2005, Jason Robinson | 
//| (jasonrobinsonuk, jnrtrading) | 
//| http://www.jnrtrading.co.uk | 
//| | 
//| Created by jnrtrading | 
//| | 
//+------------------------------------------------------------------+ 
#property copyright "Copyright © 2005, Jason Robinson (jnrtrading)" 
#property link "http://www.jnrtrading.co.uk" 

#property indicator_chart_window 
extern int daysBackForHigh = 1; 
extern int daysBackForLow = 1; 

//---- buffers 

double Rates[][6]; 

double fib000, 
fib236, 
fib382, 
fib50, 
fib618, 
fib100, 
fib1618, 
fib2618, 
fib4236, 
range, 
prevRange, 
high, 
low; 

bool objectsExist, highFirst; 
prevRange = 0; 
objectsExist = false; 


//+------------------------------------------------------------------+ 
//| Custom indicator initialization function | 
//+------------------------------------------------------------------+ 
int init() 
{ 
//---- indicators 
//prevRange = 0; 
//objectsExist = false; 
//---- 
return(0); 
} 
//+------------------------------------------------------------------+ 
//| Custor indicator deinitialization function | 
//+------------------------------------------------------------------+ 
int deinit() 
{ 
//---- 
ObjectDelete("fib000"); 
ObjectDelete("fib000_label"); 
ObjectDelete("fib236"); 
ObjectDelete("fib236_label"); 
ObjectDelete("fib382"); 
ObjectDelete("fib382_label"); 
ObjectDelete("fib50"); 
ObjectDelete("fib50_label"); 
ObjectDelete("fib618"); 
ObjectDelete("fib618_label"); 
ObjectDelete("fib100"); 
ObjectDelete("fib100_label"); 
ObjectDelete("fib1618"); 
ObjectDelete("fib1618_label"); 
ObjectDelete("fib2618"); 
ObjectDelete("fib2618_label"); 
ObjectDelete("fib4236"); 
ObjectDelete("fib4236_label"); 
//---- 
return(0); 
} 
//+------------------------------------------------------------------+ 
//| Custom indicator iteration function | 
//+------------------------------------------------------------------+ 
int start() 
{ 
int i = 0; 
//---- 
//Print(prevRange); 
ArrayCopyRates(Rates, Symbol(), PERIOD_D1); 

high = Rates[daysBackForHigh][3]; 
low = Rates[daysBackForLow][2]; 
range = high - low; 

while(true) { 
if(High[i] == high) { 
highFirst = true; 
break; 
} 
else if(Low[i] == low) { 
highFirst = false; 
break; 
} 
i++; 
} 
//Print(highFirst); 

// Delete Objects if necessary 
if (prevRange != range) { 
ObjectDelete("fib000"); 
ObjectDelete("fib000_label"); 
ObjectDelete("fib236"); 
ObjectDelete("fib236_label"); 
ObjectDelete("fib382"); 
ObjectDelete("fib382_label"); 
ObjectDelete("fib50"); 
ObjectDelete("fib50_label"); 
ObjectDelete("fib618"); 
ObjectDelete("fib618_label"); 
ObjectDelete("fib100"); 
ObjectDelete("fib100_label"); 
ObjectDelete("fib1618"); 
ObjectDelete("fib1618_label"); 
ObjectDelete("fib2618"); 
ObjectDelete("fib2618_label"); 
ObjectDelete("fib4236"); 
ObjectDelete("fib4236_label"); 
objectsExist = false; 
prevRange = range; 
//Print("Objects do not exist"); 
} 

if (highFirst == true) { 
fib000 = low; 
fib236 = (range * 0.236) + low; 
fib382 = (range * 0.382) + low; 
fib50 = (high + low) / 2; 
fib618 = (range * 0.618) + low; 
fib100 = high; 
fib1618 = (range * 0.618) + high; 
fib2618 = (range * 0.618) + (high + range); 
fib4236 = (range * 0.236) + high + (range * 3); 
} 
else if (highFirst == false) { 
fib000 = high; 
fib236 = high - (range * 0.236); 
fib382 = high - (range * 0.382); 
fib50 = (high + low) / 2; 
fib618 = high - (range * 0.618); 
fib100 = low; 
fib1618 = low - (range * 0.618); 
fib2618 = (low - range) - (range * 0.618);// + (high + range); 
fib4236 = low - (range * 3) - (range * 0.236);// + high + (range * 3); 
} 

if (objectsExist == false) { 
ObjectCreate("fib000", OBJ_HLINE, 0, Time[40], fib000); 
ObjectSet("fib000", OBJPROP_STYLE, STYLE_DASHDOTDOT); 
ObjectSet("fib000", OBJPROP_COLOR, Orange); 
ObjectCreate("fib000_label", OBJ_TEXT, 0, Time[0], fib000); 
ObjectSetText("fib000_label"," 0.0", 8, "Times", Black); 

ObjectCreate("fib236", OBJ_HLINE, 0, Time[40], fib236); 
ObjectSet("fib236", OBJPROP_STYLE, STYLE_DASHDOTDOT); 
ObjectSet("fib236", OBJPROP_COLOR, Orange); 
ObjectCreate("fib236_label", OBJ_TEXT, 0, Time[0], fib236); 
ObjectSetText("fib236_label"," 23.6", 8, "Times", Black); 

ObjectCreate("fib382", OBJ_HLINE, 0, Time[40], fib382); 
ObjectSet("fib382", OBJPROP_STYLE, STYLE_DASHDOTDOT); 
ObjectSet("fib382", OBJPROP_COLOR, Orange); 
ObjectCreate("fib382_label", OBJ_TEXT, 0, Time[0], fib382); 
ObjectSetText("fib382_label"," 38.2", 8, "Times", Black); 

ObjectCreate("fib50", OBJ_HLINE, 0, Time[40], fib50); 
ObjectSet("fib50", OBJPROP_STYLE, STYLE_DASHDOTDOT); 
ObjectSet("fib50", OBJPROP_COLOR, Orange); 
ObjectCreate("fib50_label", OBJ_TEXT, 0, Time[0], fib50); 
ObjectSetText("fib50_label"," 50.0", 8, "Times", Black); 

ObjectCreate("fib618", OBJ_HLINE, 0, Time[40], fib618); 
ObjectSet("fib618", OBJPROP_STYLE, STYLE_DASHDOTDOT); 
ObjectSet("fib618", OBJPROP_COLOR, Orange); 
ObjectCreate("fib618_label", OBJ_TEXT, 0, Time[0], fib618); 
ObjectSetText("fib618_label"," 61.8", 8, "Times", Black); 

ObjectCreate("fib100", OBJ_HLINE, 0, Time[40], fib100); 
ObjectSet("fib100", OBJPROP_STYLE, STYLE_DASHDOTDOT); 
ObjectSet("fib100", OBJPROP_COLOR, Orange); 
ObjectCreate("fib100_label", OBJ_TEXT, 0, Time[0], fib100); 
ObjectSetText("fib100_label"," 100.0", 8, "Times", Black); 

ObjectCreate("fib1618", OBJ_HLINE, 0, Time[40], fib1618); 
ObjectSet("fib1618", OBJPROP_STYLE, STYLE_DASHDOTDOT); 
ObjectSet("fib1618", OBJPROP_COLOR, Orange); 
ObjectCreate("fib1618_label", OBJ_TEXT, 0, Time[0], fib1618); 
ObjectSetText("fib1618_label"," 161.8", 8, "Times", Black); 

ObjectCreate("fib2618", OBJ_HLINE, 0, Time[40], fib2618); 
ObjectSet("fib2618", OBJPROP_STYLE, STYLE_DASHDOTDOT); 
ObjectSet("fib2618", OBJPROP_COLOR, Orange); 
ObjectCreate("fib2618_label", OBJ_TEXT, 0, Time[0], fib2618); 
ObjectSetText("fib2618_label"," 261.8", 8, "Times", Black); 

ObjectCreate("fib4236", OBJ_HLINE, 0, Time[40], fib4236); 
ObjectSet("fib4236", OBJPROP_STYLE, STYLE_DASHDOTDOT); 
ObjectSet("fib4236", OBJPROP_COLOR, Orange); 
ObjectCreate("fib4236_label", OBJ_TEXT, 0, Time[0], fib4236); 
ObjectSetText("fib4236_label"," 423.6", 8, "Times", Black); 
//Print("Objects Exist"); 
} 

//---- 
return(0); 
} 
//+------------------------------------------------------------------+



Sample





Analysis



Market Information Used:

Series array that contains the highest prices of each bar
Series array that contains the lowest 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: