fibonacci-pivot-lines.mq4
fibonacci-pivot-lines.mq4 FOREX MetaTrader4 Indicators Download
fibonacci-pivot-lines.mq4 download link will appear after 20 seconds.
fibonacci-pivot-lines.mq4 Programming source code.
#property indicator_chart_window
//---- input parameters
extern int GMTshift = 3;
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custor indicator deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int start()
{
int counted_bars = IndicatorCounted();
double day_high = 0;
double day_low = 0;
double yesterday_high = 0;
double yesterday_open = 0;
double yesterday_low = 0;
double yesterday_close = 0;
double today_open = 0;
double P = 0, S = 0, R = 0, S1 = 0, R1 = 0, S2 = 0, R2 = 0, S3 = 0, R3 = 0;
//double D1 = 0.083333;
//double D2 = 0.166666;
//double D3 = 0.25;
//double D4 = 0.5;
int cnt = 720;
double cur_day = 0;
double prev_day = 0;
double rates_d1[2][6];
//---- exit if period is greater than daily charts
if(Period() > 1440)
{
Print("Error - Chart period is greater than 1 day.");
return(-1); // then exit
}
//---- Get new daily prices & calculate pivots
while(cnt != 0)
{
cur_day = TimeDay(Time[cnt] - (GMTshift*3600));
if(prev_day != cur_day)
{
yesterday_close = Close[cnt+1];
today_open = Open[cnt];
yesterday_high = day_high;
yesterday_low = day_low;
day_high = High[cnt];
day_low = Low[cnt];
prev_day = cur_day;
Comment ( yesterday_high + " " + yesterday_low + " " + yesterday_close );
}
if(High[cnt] > day_high)
{
day_high = High[cnt];
}
if(Low[cnt] < day_low)
{
day_low = Low[cnt];
}
// SetIndexValue(cnt, 0);
cnt--;
}
//------ Pivot Points ------
R = (yesterday_high - yesterday_low);
P = (yesterday_high + yesterday_low + yesterday_close)/3; //Pivot
R1 = P + (R * 0.38);
R2 = P + (R * 0.62);
R3 = P + (R * 0.99);
S1 = P - (R * 0.38);
S2 = P - (R * 0.62);
S3 = P - (R * 0.99);
//---- Set line labels on chart window
if(ObjectFind("P label") != 0)
{
ObjectCreate("P label", OBJ_TEXT, 0, Time[20], P);
ObjectSetText("P label", " Pivot", 8, "Arial", Red);
}
else
{
ObjectMove("P label", 0, Time[20], P);
}
//----
if(ObjectFind("FR1 label") != 0)
{
ObjectCreate("FR1 label", OBJ_TEXT, 0, Time[20], R1);
ObjectSetText("FR1 label", " FR1", 8, "Arial", LimeGreen);
}
else
{
ObjectMove("FR1 label", 0, Time[20], R1);
}
//----
if(ObjectFind("FR2 label") != 0)
{
ObjectCreate("FR2 label", OBJ_TEXT, 0, Time[20], R2);
ObjectSetText("FR2 label", " FR2", 8, "Arial", LimeGreen);
}
else
{
ObjectMove("FR2 label", 0, Time[20], R2);
}
//----
if(ObjectFind("FR3 label") != 0)
{
ObjectCreate("FR3 label", OBJ_TEXT, 0, Time[20], R3);
ObjectSetText("FR3 label", " FR3", 8, "Arial", LimeGreen);
}
else
{
ObjectMove("FR3 label", 0, Time[20], R3);
}
//----
if(ObjectFind("FS1 label") != 0)
{
ObjectCreate("FS1 label", OBJ_TEXT, 0, Time[20], S1);
ObjectSetText("FS1 label", "FS1", 8, "Arial", Red);
}
else
{
ObjectMove("FS1 label", 0, Time[20], S1);
}
if(ObjectFind("FS2 label") != 0)
{
ObjectCreate("FS2 label", OBJ_TEXT, 0, Time[20], S2);
ObjectSetText("FS2 label", "FS2", 8, "Arial", Red);
}
else
{
ObjectMove("FS2 label", 0, Time[20], S2);
}
//----
if(ObjectFind("FS3 label") != 0)
{
ObjectCreate("FS3 label", OBJ_TEXT, 0, Time[20], S3);
ObjectSetText("FS3 label", "FS3", 8, "Arial", Red);
}
else
{
ObjectMove("FS3 label", 0, Time[20], S3);
}
//---- Set lines on chart window
//----- PIVOT --------
if(ObjectFind("P line") != 0)
{
ObjectCreate("P line", OBJ_HLINE, 0, Time[40], P);
ObjectSet("P line", OBJPROP_STYLE, STYLE_DOT);
ObjectSet("P line", OBJPROP_COLOR, Magenta);
}
else
{
ObjectMove("P line", 0, Time[40], P);
}
if(ObjectFind("FR1 line") != 0)
{
ObjectCreate("FR1 line", OBJ_HLINE, 0, Time[40], R1);
ObjectSet("FR1 line", OBJPROP_STYLE, STYLE_DASHDOTDOT);
ObjectSet("FR1 line", OBJPROP_COLOR, LimeGreen);
}
else
{
ObjectMove("FR1 line", 0, Time[40], R1);
}
//----
if(ObjectFind("FS1 line") != 0)
{
ObjectCreate("FS1 line", OBJ_HLINE, 0, Time[40], S1);
ObjectSet("FS1 line", OBJPROP_STYLE, STYLE_DASHDOTDOT);
ObjectSet("FS1 line", OBJPROP_COLOR, Red);
}
else
{
ObjectMove("FS1 line", 0, Time[40], S1);
}
//----
if(ObjectFind("FR2 line") != 0)
{
ObjectCreate("FR2 line", OBJ_HLINE, 0, Time[40], R2);
ObjectSet("FR2 line", OBJPROP_STYLE, STYLE_DASHDOTDOT);
ObjectSet("FR2 line", OBJPROP_COLOR, LimeGreen);
}
else
{
ObjectMove("FR2 line", 0, Time[40], R2);
}
if(ObjectFind("FS2 line") != 0)
{
ObjectCreate("FS2 line", OBJ_HLINE, 0, Time[40], S2);
ObjectSet("FS2 line", OBJPROP_STYLE, STYLE_DASHDOTDOT);
ObjectSet("FS2 line", OBJPROP_COLOR, Red);
}
else
{
ObjectMove("FS2 line", 0, Time[40], S2);
}
//----
if(ObjectFind("FR3 line") != 0)
{
ObjectCreate("FR3 line", OBJ_HLINE, 0, Time[40], R3);
ObjectSet("FR3 line", OBJPROP_STYLE, STYLE_DASHDOTDOT);
ObjectSet("FR3 line", OBJPROP_COLOR, LimeGreen);
}
else
{
ObjectMove("FR3 line", 0, Time[40], R3);
}
if(ObjectFind("FS3 line") != 0)
{
ObjectCreate("FS3 line", OBJ_HLINE, 0, Time[40], S3);
ObjectSet("FS3 line", OBJPROP_STYLE, STYLE_DASHDOTDOT);
ObjectSet("FS3 line", OBJPROP_COLOR, Red);
}
else
{
ObjectMove("FS3 line", 0, Time[40], S3);
}
//----
return(0);
}
//+------------------------------------------------------------------+