//+-------------------------------------------------------------------+
//| Fibo Pivot Lines GMT.mq4 |
//| Copyright © 2004, MetaQuotes Software Corp. |
//| http://www.metaquotes.net |
//| Modified by Hossein Paydar |
//| You are free to use it |
//+-------------------------------------------------------------------+
#property copyright "Copyright © 2005, MetaQuotes Software Corp."
#property link "http://www.metaquotes.net"
#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);
}
//+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Series array that contains open time of each bar
Series array that contains close prices for each bar
Series array that contains open prices of each bar
Series array that contains the highest prices of each bar
Series array that contains the lowest prices of each bar
Indicator Curves created:
Indicators Used:
Custom Indicators Used:
Order Management characteristics:
Other Features: