//+-------------------------------------------------------------------+
//| Pivot.mq4 |
//| Copyright © 2004, MetaQuotes Software Corp. |
//| http://www.metaquotes.net |
//| Modified by dwt5 and adoleh2000|
//| |
//+-------------------------------------------------------------------+
// LAST MODIFICATION 5:40 CST 7/4/05 |
// added true/false logic for displaying time frames |
//+-------------------------------------------------------------------+
#property copyright "Copyright © 2004, MetaQuotes Software Corp."
#property link "http://www.metaquotes.net"
#property indicator_chart_window
#property indicator_buffers 4
#property indicator_color1 EMPTY
//extern bool pivots = true;
extern bool midpivots = true;
extern bool Fhr = false;
extern bool daily = true;
extern bool weekly = false;
extern bool monthly = false;
extern int Period1 = PERIOD_D1;
/*+----------------------------------------------------+
MyPeriod = Period in minutes to consideration, could be:
1440 for D1
60 for H1
240 for H4
1 for M1
15 for M15
30 for M30
5 for M5
43200 for MN1
10080 for W1
+-------------------------------------------------------*/
//---------------------------------
double Fhr_day_high=0;
double Fhr_day_low=0;
double Fhr_yesterday_high=0;
double Fhr_yesterday_open=0;
double Fhr_yesterday_low=0;
double Fhr_yesterday_close=0;
double Fhr_today_open=0;
double Fhr_today_high=0;
double Fhr_today_low=0;
double Fhr_P=0;
double Fhr_Q=0;
double Fhr_R1,Fhr_R2,Fhr_R3;
double Fhr_M0,Fhr_M1,Fhr_M2,Fhr_M3,Fhr_M4,Fhr_M5;
double Fhr_S1,Fhr_S2,Fhr_S3;
double Fhr_nQ=0;
double Fhr_nD=0;
double Fhr_D=0;
double Fhr_rates_d1[2][6];
double Fhr_ExtMapBuffer[];
//---------------------------------
double D_day_high=0;
double D_day_low=0;
double D_yesterday_high=0;
double D_yesterday_open=0;
double D_yesterday_low=0;
double D_yesterday_close=0;
double D_today_open=0;
double D_today_high=0;
double D_today_low=0;
double D_P=0;
double D_Q=0;
double D_R1,D_R2,D_R3;
double D_M0,D_M1,D_M2,D_M3,D_M4,D_M5;
double D_S1,D_S2,D_S3;
double D_nQ=0;
double D_nD=0;
double D_D=0;
double D_rates_d1[2][6];
double D_ExtMapBuffer[];
//---------------------------------
double W_day_high=0;
double W_day_low=0;
double W_yesterday_high=0;
double W_yesterday_open=0;
double W_yesterday_low=0;
double W_yesterday_close=0;
double W_today_open=0;
double W_today_high=0;
double W_today_low=0;
double W_P=0;
double W_Q=0;
double W_R1,W_R2,W_R3;
double W_M0,W_M1,W_M2,W_M3,W_M4,W_M5;
double W_S1,W_S2,W_S3;
double W_nQ=0;
double W_nD=0;
double W_D=0;
double W_rates_d1[2][6];
double W_ExtMapBuffer[];
//---------------------------------
double M_day_high=0;
double M_day_low=0;
double M_yesterday_high=0;
double M_yesterday_open=0;
double M_yesterday_low=0;
double M_yesterday_close=0;
double M_today_open=0;
double M_today_high=0;
double M_today_low=0;
double M_P=0;
double M_Q=0;
double M_R1,M_R2,M_R3;
double M_M0,M_M1,M_M2,M_M3,M_M4,M_M5;
double M_S1,M_S2,M_S3;
double M_nQ=0;
double M_nD=0;
double M_D=0;
double M_rates_d1[2][6];
double M_ExtMapBuffer[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
IndicatorBuffers(4);
SetIndexStyle(0,DRAW_ARROW);
SetIndexArrow(0,159);
SetIndexBuffer(0, Fhr_ExtMapBuffer);
SetIndexStyle(0,DRAW_ARROW);
SetIndexArrow(0,159);
SetIndexBuffer(1, D_ExtMapBuffer);
SetIndexStyle(0,DRAW_ARROW);
SetIndexArrow(0,159);
SetIndexBuffer(2, W_ExtMapBuffer);
SetIndexStyle(0,DRAW_ARROW);
SetIndexArrow(0,159);
SetIndexBuffer(3, M_ExtMapBuffer);
//---- indicators
D_R1=0; D_R2=0; D_R3=0;
D_M0=0; D_M1=0; D_M2=0; D_M3=0; D_M4=0; D_M5=0;
D_S1=0; D_S2=0; D_S3=0;
W_R1=0; W_R2=0; W_R3=0;
W_M0=0; W_M1=0; W_M2=0; W_M3=0; W_M4=0; W_M5=0;
W_S1=0; W_S2=0; W_S3=0;
M_R1=0; M_R2=0; M_R3=0;
M_M0=0; M_M1=0; M_M2=0; M_M3=0; M_M4=0; M_M5=0;
M_S1=0; M_S2=0; M_S3=0;
Fhr_R1=0; Fhr_R2=0; Fhr_R3=0;
Fhr_M0=0; Fhr_M1=0; Fhr_M2=0; Fhr_M3=0; Fhr_M4=0; Fhr_M5=0;
Fhr_S1=0; Fhr_S2=0; Fhr_S3=0;
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custor indicator deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
//---- TODO: add your code here
// 4 hour--------------------------
ObjectDelete("Fhr_R1 Label");
ObjectDelete("Fhr_R1 Line");
ObjectDelete("Fhr_R2 Label");
ObjectDelete("Fhr_R2 Line");
ObjectDelete("Fhr_R3 Label");
ObjectDelete("Fhr_R3 Line");
ObjectDelete("Fhr_S1 Label");
ObjectDelete("Fhr_S1 Line");
ObjectDelete("Fhr_S2 Label");
ObjectDelete("Fhr_S2 Line");
ObjectDelete("Fhr_S3 Label");
ObjectDelete("Fhr_S3 Line");
ObjectDelete("Fhr_P Label");
ObjectDelete("Fhr_P Line");
ObjectDelete("Fhr_M5 Label");
ObjectDelete("Fhr_M5 Line");
ObjectDelete("Fhr_M4 Label");
ObjectDelete("Fhr_M4 Line");
ObjectDelete("Fhr_M3 Label");
ObjectDelete("Fhr_M3 Line");
ObjectDelete("Fhr_M2 Label");
ObjectDelete("Fhr_M2 Line");
ObjectDelete("Fhr_M1 Label");
ObjectDelete("Fhr_M1 Line");
ObjectDelete("Fhr_M0 Label");
ObjectDelete("Fhr_M0 Line");
//
ObjectDelete("D_R1 Label");
ObjectDelete("D_R1 Line");
ObjectDelete("D_R2 Label");
ObjectDelete("D_R2 Line");
ObjectDelete("D_R3 Label");
ObjectDelete("D_R3 Line");
ObjectDelete("D_S1 Label");
ObjectDelete("D_S1 Line");
ObjectDelete("D_S2 Label");
ObjectDelete("D_S2 Line");
ObjectDelete("D_S3 Label");
ObjectDelete("D_S3 Line");
ObjectDelete("D_P Label");
ObjectDelete("D_P Line");
ObjectDelete("D_M5 Label");
ObjectDelete("D_M5 Line");
ObjectDelete("D_M4 Label");
ObjectDelete("D_M4 Line");
ObjectDelete("D_M3 Label");
ObjectDelete("D_M3 Line");
ObjectDelete("D_M2 Label");
ObjectDelete("D_M2 Line");
ObjectDelete("D_M1 Label");
ObjectDelete("D_M1 Line");
ObjectDelete("D_M0 Label");
ObjectDelete("D_M0 Line");
//--------------------------------------
ObjectDelete("W_R1 Label");
ObjectDelete("W_R1 Line");
ObjectDelete("W_R2 Label");
ObjectDelete("W_R2 Line");
ObjectDelete("W_R3 Label");
ObjectDelete("W_R3 Line");
ObjectDelete("W_S1 Label");
ObjectDelete("W_S1 Line");
ObjectDelete("W_S2 Label");
ObjectDelete("W_S2 Line");
ObjectDelete("W_S3 Label");
ObjectDelete("W_S3 Line");
ObjectDelete("W_P Label");
ObjectDelete("W_P Line");
ObjectDelete("W_M5 Label");
ObjectDelete("W_M5 Line");
ObjectDelete("W_M4 Label");
ObjectDelete("W_M4 Line");
ObjectDelete("W_M3 Label");
ObjectDelete("W_M3 Line");
ObjectDelete("W_M2 Label");
ObjectDelete("W_M2 Line");
ObjectDelete("W_M1 Label");
ObjectDelete("W_M1 Line");
ObjectDelete("W_M0 Label");
ObjectDelete("W_M0 Line");
//--------------------------------------
ObjectDelete("M_R1 Label");
ObjectDelete("M_R1 Line");
ObjectDelete("M_R2 Label");
ObjectDelete("M_R2 Line");
ObjectDelete("M_R3 Label");
ObjectDelete("M_R3 Line");
ObjectDelete("M_S1 Label");
ObjectDelete("M_S1 Line");
ObjectDelete("M_S2 Label");
ObjectDelete("M_S2 Line");
ObjectDelete("M_S3 Label");
ObjectDelete("M_S3 Line");
ObjectDelete("M_P Label");
ObjectDelete("M_P Line");
ObjectDelete("M_M5 Label");
ObjectDelete("M_M5 Line");
ObjectDelete("M_M4 Label");
ObjectDelete("M_M4 Line");
ObjectDelete("M_M3 Label");
ObjectDelete("M_M3 Line");
ObjectDelete("M_M2 Label");
ObjectDelete("M_M2 Line");
ObjectDelete("M_M1 Label");
ObjectDelete("M_M1 Line");
ObjectDelete("M_M0 Label");
ObjectDelete("M_M0 Line");
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int start()
{
//---- TODO: add your code here
/*
//---- 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 4hr ---------------
ArrayCopyRates(Fhr_rates_d1, Symbol(), 240);
Fhr_yesterday_close = Fhr_rates_d1[1][4];
Fhr_yesterday_open = Fhr_rates_d1[1][1];
Fhr_today_open = Fhr_rates_d1[0][1];
Fhr_yesterday_high = Fhr_rates_d1[1][3];
Fhr_yesterday_low = Fhr_rates_d1[1][2];
Fhr_day_high = Fhr_rates_d1[0][3];
Fhr_day_low = Fhr_rates_d1[0][2];
//---- Calculate Pivots
Fhr_D = (Fhr_day_high - Fhr_day_low);
Fhr_Q = (Fhr_yesterday_high - Fhr_yesterday_low);
Fhr_P = (Fhr_yesterday_high + Fhr_yesterday_low + Fhr_yesterday_close) / 3;
Fhr_R1 = (2*Fhr_P)-Fhr_yesterday_low;
Fhr_S1 = (2*Fhr_P)-Fhr_yesterday_high;
Fhr_R2 = Fhr_P+(Fhr_yesterday_high - Fhr_yesterday_low);
Fhr_S2 = Fhr_P-(Fhr_yesterday_high - Fhr_yesterday_low);
Fhr_R3 = (2*Fhr_P)+(Fhr_yesterday_high-(2*Fhr_yesterday_low));
Fhr_M5 = (Fhr_R2+Fhr_R3)/2;
// Fhr_R2 = Fhr_P-Fhr_S1+Fhr_R1;
Fhr_M4 = (Fhr_R1+Fhr_R2)/2;
// Fhr_R1 = (2*Fhr_P)-Fhr_yesterday_low;
Fhr_M3 = (Fhr_P+Fhr_R1)/2;
// Fhr_P = (Fhr_yesterday_high + Fhr_yesterday_low + Fhr_yesterday_close)/3;
Fhr_M2 = (Fhr_P+Fhr_S1)/2;
// Fhr_S1 = (2*Fhr_P)-Fhr_yesterday_high;
Fhr_M1 = (Fhr_S1+Fhr_S2)/2;
// Fhr_S2 = Fhr_P-Fhr_R1+Fhr_S1;
Fhr_S3 = (2*Fhr_P)-((2* Fhr_yesterday_high)-Fhr_yesterday_low);
Fhr_M0 = (Fhr_S2+Fhr_S3)/2;
if (Fhr_Q > 5)
{
Fhr_nQ = Fhr_Q;
}
else
{
Fhr_nQ = Fhr_Q*10000;
}
if (Fhr_D > 5)
{
Fhr_nD = Fhr_D;
}
else
{
Fhr_nD = Fhr_D*10000;
}
//----------------------------------------------------------------------------- Get DAY ---------------
ArrayCopyRates(D_rates_d1, Symbol(), 1440);
D_yesterday_close = D_rates_d1[1][4];
D_yesterday_open = D_rates_d1[1][1];
D_today_open = D_rates_d1[0][1];
D_yesterday_high = D_rates_d1[1][3];
D_yesterday_low = D_rates_d1[1][2];
D_day_high = D_rates_d1[0][3];
D_day_low = D_rates_d1[0][2];
//---- Calculate Pivots
D_D = (D_day_high - D_day_low);
D_Q = (D_yesterday_high - D_yesterday_low);
D_P = (D_yesterday_high + D_yesterday_low + D_yesterday_close) / 3;
D_R1 = (2*D_P)-D_yesterday_low;
D_S1 = (2*D_P)-D_yesterday_high;
D_R2 = D_P+(D_yesterday_high - D_yesterday_low);
D_S2 = D_P-(D_yesterday_high - D_yesterday_low);
D_R3 = (2*D_P)+(D_yesterday_high-(2*D_yesterday_low));
D_M5 = (D_R2+D_R3)/2;
// D_R2 = D_P-D_S1+D_R1;
D_M4 = (D_R1+D_R2)/2;
// D_R1 = (2*D_P)-D_yesterday_low;
D_M3 = (D_P+D_R1)/2;
// D_P = (D_yesterday_high + D_yesterday_low + D_yesterday_close)/3;
D_M2 = (D_P+D_S1)/2;
// D_S1 = (2*D_P)-D_yesterday_high;
D_M1 = (D_S1+D_S2)/2;
// D_S2 = D_P-D_R1+D_S1;
D_S3 = (2*D_P)-((2* D_yesterday_high)-D_yesterday_low);
D_M0 = (D_S2+D_S3)/2;
if (D_Q > 5)
{
D_nQ = D_Q;
}
else
{
D_nQ = D_Q*10000;
}
if (D_D > 5)
{
D_nD = D_D;
}
else
{
D_nD = D_D*10000;
}
//----------------------------------------------------------------------------- Weekly ---------------
ArrayCopyRates(W_rates_d1, Symbol(), 10080);
W_yesterday_close = W_rates_d1[1][4];
W_yesterday_open = W_rates_d1[1][1];
W_today_open = W_rates_d1[0][1];
W_yesterday_high = W_rates_d1[1][3];
W_yesterday_low = W_rates_d1[1][2];
W_day_high = W_rates_d1[0][3];
W_day_low = W_rates_d1[0][2];
//---- Calculate Pivots
W_D = (W_day_high - W_day_low);
W_Q = (W_yesterday_high - W_yesterday_low);
W_P = (W_yesterday_high + W_yesterday_low + W_yesterday_close) / 3;
W_R1 = (2*W_P)-W_yesterday_low;
W_S1 = (2*W_P)-W_yesterday_high;
W_R2 = W_P+(W_yesterday_high - W_yesterday_low);
W_S2 = W_P-(W_yesterday_high - W_yesterday_low);
W_R3 = (2*W_P)+(W_yesterday_high-(2*W_yesterday_low));
W_M5 = (W_R2+W_R3)/2;
// W_R2 = W_P-W_S1+W_R1;
W_M4 = (W_R1+W_R2)/2;
// W_R1 = (2*W_P)-W_yesterday_low;
W_M3 = (W_P+W_R1)/2;
// W_P = (W_yesterday_high + W_yesterday_low + W_yesterday_close)/3;
W_M2 = (W_P+W_S1)/2;
// W_S1 = (2*W_P)-W_yesterday_high;
W_M1 = (W_S1+W_S2)/2;
// W_S2 = W_P-W_R1+W_S1;
W_S3 = (2*W_P)-((2* W_yesterday_high)-W_yesterday_low);
W_M0 = (W_S2+W_S3)/2;
if (W_Q > 5)
{
W_nQ = W_Q;
}
else
{
W_nQ = W_Q*10000;
}
if (W_D > 5)
{
W_nD = W_D;
}
else
{
W_nD = W_D*10000;
}
//-------------------------------------------------------------MONTHLY-------------------------------------------
ArrayCopyRates(M_rates_d1, Symbol(), 43200);
M_yesterday_close = M_rates_d1[1][4];
M_yesterday_open = M_rates_d1[1][1];
M_today_open = M_rates_d1[0][1];
M_yesterday_high = M_rates_d1[1][3];
M_yesterday_low = M_rates_d1[1][2];
M_day_high = M_rates_d1[0][3];
M_day_low = M_rates_d1[0][2];
//---- Calculate Pivots
M_D = (M_day_high - M_day_low);
M_Q = (M_yesterday_high - M_yesterday_low);
M_P = (M_yesterday_high + M_yesterday_low + M_yesterday_close) / 3;
M_R1 = (2*M_P)-M_yesterday_low;
M_S1 = (2*M_P)-M_yesterday_high;
M_R2 = M_P+(M_yesterday_high - M_yesterday_low);
M_S2 = M_P-(M_yesterday_high - M_yesterday_low);
M_R3 = (2*M_P)+(M_yesterday_high-(2*M_yesterday_low));
M_M5 = (M_R2+M_R3)/2;
// M_R2 = M_P-M_S1+M_R1;
M_M4 = (M_R1+M_R2)/2;
// M_R1 = (2*M_P)-M_yesterday_low;
M_M3 = (M_P+M_R1)/2;
// M_P = (M_yesterday_high + M_yesterday_low + M_yesterday_close)/3;
M_M2 = (M_P+M_S1)/2;
// M_S1 = (2*M_P)-M_yesterday_high;
M_M1 = (M_S1+M_S2)/2;
// M_S2 = M_P-M_R1+M_S1;
M_S3 = (2*M_P)-((2* M_yesterday_high)-M_yesterday_low);
M_M0 = (M_S2+M_S3)/2;
if (M_Q > 5)
{
M_nQ = M_Q;
}
else
{
M_nQ = M_Q*10000;
}
if (M_D > 5)
{
M_nD = M_D;
}
else
{
M_nD = M_D*10000;
}
//--------------------------------------------------------------------------------------------------------------
//Comment("High= ",yesterday_high," Previous DaysRange= ",nQ,"\nLow= ",yesterday_low," Current DaysRange= ",nD,"\nClose= ",yesterday_close," Time Frame ",Period1 );
//--------------------------------------------------------------------------------------------------------------
//---- Set line labels on chart window
//---------------------------------------------------------------------4hr Pivot Lines --------------------
if (Fhr==true)
{
if(ObjectFind("Fhr_R1 label") != 0)
{
ObjectCreate("Fhr_R1 label", OBJ_TEXT, 0, Time[0], Fhr_R1);
ObjectSetText("Fhr_R1 label", "Fhr_R1 " +DoubleToStr(Fhr_R1,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("Fhr_R1 label", 0, Time[0], Fhr_R1);
}
if(ObjectFind("Fhr_R2 label") != 0)
{
ObjectCreate("Fhr_R2 label", OBJ_TEXT, 0, Time[20], Fhr_R2);
ObjectSetText("Fhr_R2 label", "Fhr_R2 " +DoubleToStr(Fhr_R2,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("Fhr_R2 label", 0, Time[0], Fhr_R2);
}
if(ObjectFind("Fhr_R3 label") != 0)
{
ObjectCreate("Fhr_R3 label", OBJ_TEXT, 0, Time[20], Fhr_R3);
ObjectSetText("Fhr_R3 label", "Fhr_R3 " +DoubleToStr(Fhr_R3,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("Fhr_R3 label", 0, Time[0], Fhr_R3);
}
if(ObjectFind("Fhr_P label") != 0)
{
ObjectCreate("Fhr_P label", OBJ_TEXT, 0, Time[0], Fhr_P);
ObjectSetText("Fhr_P label", "Fhr_Pivot " +DoubleToStr(Fhr_P,4), 8, "Arial",EMPTY);
}
else
{
ObjectMove("Fhr_P label", 0, Time[0], Fhr_P);
}
if(ObjectFind("Fhr_S1 label") != 0)
{
ObjectCreate("Fhr_S1 label", OBJ_TEXT, 0, Time[0], Fhr_S1);
ObjectSetText("Fhr_S1 label", "Fhr_S1 " +DoubleToStr(Fhr_S1,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("Fhr_S1 label", 0, Time[0], Fhr_S1);
}
if(ObjectFind("Fhr_S2 label") != 0)
{
ObjectCreate("Fhr_S2 label", OBJ_TEXT, 0, Time[20], Fhr_S2);
ObjectSetText("Fhr_S2 label", "Fhr_S2 " +DoubleToStr(Fhr_S2,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("Fhr_S2 label", 0, Time[0], Fhr_S2);
}
if(ObjectFind("Fhr_S3 label") != 0)
{
ObjectCreate("Fhr_S3 label", OBJ_TEXT, 0, Time[20], Fhr_S3);
ObjectSetText("Fhr_S3 label", "Fhr_S3 " +DoubleToStr(Fhr_S3,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("Fhr_S3 label", 0, Time[0], Fhr_S3);
}
//--- Draw Pivot lines on chart
if(ObjectFind("Fhr_S1 line") != 0)
{
ObjectCreate("Fhr_S1 line", OBJ_HLINE, 0, Time[0], Fhr_S1);
ObjectSet("Fhr_S1 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("Fhr_S1 line", OBJPROP_WIDTH,4);
ObjectSet("Fhr_S1 line", OBJPROP_COLOR, Blue);
}
else
{
ObjectMove("Fhr_S1 line", 0, Time[40], Fhr_S1);
}
if(ObjectFind("Fhr_S2 line") != 0)
{
ObjectCreate("Fhr_S2 line", OBJ_HLINE, 0, Time[40], Fhr_S2, Time[0], Fhr_S2);
ObjectSet("Fhr_S2 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("Fhr_S2 line", OBJPROP_WIDTH,4);
ObjectSet("Fhr_S2 line", OBJPROP_COLOR, Blue);
}
else
{
ObjectMove("Fhr_S2 line", 0, Time[40], Fhr_S2);
}
if(ObjectFind("Fhr_S3 line") != 0)
{
ObjectCreate("Fhr_S3 line", OBJ_HLINE, 0, Time[40], Fhr_S3, Time[0], Fhr_S3);
ObjectSet("Fhr_S3 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("Fhr_S3 line", OBJPROP_WIDTH,4);
ObjectSet("Fhr_S3 line", OBJPROP_COLOR, Blue);
}
else
{
ObjectMove("Fhr_S3 line", 0, Time[40], Fhr_S3);
}
if(ObjectFind("Fhr_P line") != 0)
{
ObjectCreate("Fhr_P line", OBJ_HLINE, 0, Time[40], Fhr_P, Time[0], Fhr_P);
ObjectSet("Fhr_P line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("Fhr_P line", OBJPROP_WIDTH,4);
ObjectSet("Fhr_P line", OBJPROP_COLOR, LightBlue);
}
else
{
ObjectMove("Fhr_P line", 0, Time[40], Fhr_P);
}
if(ObjectFind("Fhr_R1 line") != 0)
{
ObjectCreate("Fhr_R1 line", OBJ_HLINE, 0, Time[40], Fhr_R1, Time[0], Fhr_R1);
ObjectSet("Fhr_R1 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("Fhr_R1 line", OBJPROP_WIDTH,4);
ObjectSet("Fhr_R1 line", OBJPROP_COLOR, Red);
}
else
{
ObjectMove("Fhr_R1 line", 0, Time[40], Fhr_R1);
}
if(ObjectFind("Fhr_R2 line") != 0)
{
ObjectCreate("Fhr_R2 line", OBJ_HLINE, 0, Time[0], Fhr_R2);//, Time[0], Fhr_R2);
ObjectSet("Fhr_R2 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("Fhr_R2 line", OBJPROP_WIDTH,4);
ObjectSet("Fhr_R2 line", OBJPROP_COLOR, Red);
}
else
{
ObjectMove("Fhr_R2 line", 0, Time[40], Fhr_R2);
}
if(ObjectFind("Fhr_R3 line") != 0)
{
ObjectCreate("Fhr_R3 line", OBJ_HLINE, 0, Time[40], Fhr_R3, Time[0], Fhr_R3);
ObjectSet("Fhr_R3 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("Fhr_R3 line", OBJPROP_WIDTH,4);
ObjectSet("Fhr_R3 line", OBJPROP_COLOR, Red);
}
else
{
ObjectMove("Fhr_R3 line", 0, Time[40], Fhr_R3);
}
}
//---- End of 4 Hour Pivot Line Draw
//------ Midpoints Pivots
if (Fhr == true && midpivots==true)
{
if(ObjectFind("Fhr_M5 label") != 0)
{
ObjectCreate("Fhr_M5 label", OBJ_TEXT, 0, Time[20], Fhr_M5);
ObjectSetText("Fhr_M5 label", " Fhr_M5 " +DoubleToStr(Fhr_M5,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("Fhr_M5 label", 0, Time[0], Fhr_M5);
}
if(ObjectFind("Fhr_M4 label") != 0)
{
ObjectCreate("Fhr_M4 label", OBJ_TEXT, 0, Time[20], Fhr_M4);
ObjectSetText("Fhr_M4 label", "Fhr_M4 " +DoubleToStr(Fhr_M4,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("Fhr_M4 label", 0, Time[0], Fhr_M4);
}
if(ObjectFind("Fhr_M3 label") != 0)
{
ObjectCreate("Fhr_M3 label", OBJ_TEXT, 0, Time[20], Fhr_M3);
ObjectSetText("Fhr_M3 label", "Fhr_M3 " +DoubleToStr(Fhr_M3,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("Fhr_M3 label", 0, Time[0], Fhr_M3);
}
if(ObjectFind("Fhr_M2 label") != 0)
{
ObjectCreate("Fhr_M2 label", OBJ_TEXT, 0, Time[20], Fhr_M2);
ObjectSetText("Fhr_M2 label", "Fhr_M2 " +DoubleToStr(Fhr_M2,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("Fhr_M2 label", 0, Time[0], Fhr_M2);
}
if(ObjectFind("Fhr_M1 label") != 0)
{
ObjectCreate("Fhr_M1 label", OBJ_TEXT, 0, Time[20], Fhr_M1);
ObjectSetText("Fhr_M1 label", "Fhr_M1 " +DoubleToStr(Fhr_M1,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("Fhr_M1 label", 0, Time[0], Fhr_M1);
}
if(ObjectFind("Fhr_M0 label") != 0)
{
ObjectCreate("Fhr_M0 label", OBJ_TEXT, 0, Time[20], Fhr_M0);
ObjectSetText("Fhr_M0 label", "Fhr_M0 " +DoubleToStr(Fhr_M0,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("Fhr_M0 label", 0, Time[0], Fhr_M0);
}
//---- Draw Midpoint Pivots on Chart
if(ObjectFind("Fhr_M5 line") != 0)
{
ObjectCreate("Fhr_M5 line", OBJ_HLINE, 0, Time[0], Fhr_M5, Time[0], Fhr_M5);
ObjectSet("Fhr_M5 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("Fhr_M5 line", OBJPROP_WIDTH,1);
ObjectSet("Fhr_M5 line", OBJPROP_COLOR, Red);
}
else
{
ObjectMove("Fhr_M5 line", 0, Time[40], Fhr_M5);
}
if(ObjectFind("Fhr_M4 line") != 0)
{
ObjectCreate("Fhr_M4 line", OBJ_HLINE, 0, Time[40], Fhr_M4, Time[0], Fhr_M4);
ObjectSet("Fhr_M4 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("Fhr_M4 line", OBJPROP_WIDTH,1);
ObjectSet("Fhr_M4 line", OBJPROP_COLOR, Red);
}
else
{
ObjectMove("Fhr_M4 line", 0, Time[40], Fhr_M4);
}
if(ObjectFind("Fhr_M3 line") != 0)
{
ObjectCreate("Fhr_M3 line", OBJ_HLINE, 0, Time[0], Fhr_M3, Time[0], Fhr_M3);
ObjectSet("Fhr_M3 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("Fhr_M3 line", OBJPROP_WIDTH,1);
ObjectSet("Fhr_M3 line", OBJPROP_COLOR, Red);
}
else
{
ObjectMove("Fhr_M3 line", 0, Time[40], Fhr_M3);
}
if(ObjectFind("Fhr_M2 line") != 0)
{
ObjectCreate("Fhr_M2 line", OBJ_HLINE, 0, Time[40], Fhr_M2);
ObjectSet("Fhr_M2 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("Fhr_M2 line", OBJPROP_WIDTH,1);
ObjectSet("Fhr_M2 line", OBJPROP_COLOR, Blue);
}
else
{
ObjectMove("Fhr_M2 line", 0, Time[40], Fhr_M2);
}
if(ObjectFind("Fhr_M1 line") != 0)
{
ObjectCreate("Fhr_M1 line", OBJ_HLINE, 0, Time[40], Fhr_M1);
ObjectSet("Fhr_M1 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("Fhr_M1 line", OBJPROP_WIDTH,1);
ObjectSet("Fhr_M1 line", OBJPROP_COLOR, Blue);
}
else
{
ObjectMove("Fhr_M1 line", 0, Time[40], Fhr_M1);
}
if(ObjectFind("Fhr_M0 line") != 0)
{
ObjectCreate("Fhr_M0 line", OBJ_HLINE, 0, Time[40], Fhr_M0);
ObjectSet("Fhr_M0 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("Fhr_M0 line", OBJPROP_WIDTH,1);
ObjectSet("Fhr_M0 line", OBJPROP_COLOR, Blue);
}
else
{
ObjectMove("Fhr_M0 line", 0, Time[40], Fhr_M0);
}
}
//--------------------------------------------------------End of 4 hour
//----------------------------------------------------------------------------DAILY Pivot Lines --------------------
if (daily==true)
{
if(ObjectFind("D_R1 label") != 0)
{
ObjectCreate("D_R1 label", OBJ_TEXT, 0, Time[0], D_R1);
ObjectSetText("D_R1 label", " D_R1 " +DoubleToStr(D_R1,4), 8, "Arial", EMPTY);
ObjectSet("D_R1 label", OBJPROP_COLOR, Red);
}
else
{
ObjectMove("D_R1 label", 0, Time[0], D_R1);
}
if(ObjectFind("D_R2 label") != 0)
{
ObjectCreate("D_R2 label", OBJ_TEXT, 0, Time[0], D_R2);
ObjectSetText("D_R2 label", " D_R2 " +DoubleToStr(D_R2,4), 8, "Arial", EMPTY);
ObjectSet("D_R2 label", OBJPROP_COLOR, Red);
}
else
{
ObjectMove("D_R2 label", 0, Time[0], D_R2);
}
if(ObjectFind("D_R3 label") != 0)
{
ObjectCreate("D_R3 label", OBJ_TEXT, 0, Time[0], D_R3);
ObjectSetText("D_R3 label", " D_R3 " +DoubleToStr(D_R3,4), 8, "Arial", EMPTY);
ObjectSet("D_R3 label", OBJPROP_COLOR, Red);
}
else
{
ObjectMove("D_R3 label", 0, Time[0], D_R3);
}
if(ObjectFind("D_P label") != 0)
{
ObjectCreate("D_P label", OBJ_TEXT, 0, Time[0], D_P);
ObjectSetText("D_P label", " D_Pivot " +DoubleToStr(D_P,4), 8, "Arial",EMPTY);
ObjectSet("D_P label", OBJPROP_COLOR, Magenta);
}
else
{
ObjectMove("D_P label", 0, Time[0], D_P);
}
if(ObjectFind("D_S1 label") != 0)
{
ObjectCreate("D_S1 label", OBJ_TEXT, 0, Time[0], D_S1);
ObjectSetText("D_S1 label", " D_S1 " +DoubleToStr(D_S1,4), 8, "Arial", EMPTY);
ObjectSet("D_S1 label", OBJPROP_COLOR, Blue);
}
else
{
ObjectMove("D_S1 label", 0, Time[0], D_S1);
}
if(ObjectFind("D_S2 label") != 0)
{
ObjectCreate("D_S2 label", OBJ_TEXT, 0, Time[0], D_S2);
ObjectSetText("D_S2 label", " D_S2 " +DoubleToStr(D_S2,4), 8, "Arial", EMPTY);
ObjectSet("D_S2 label", OBJPROP_COLOR, Blue);
}
else
{
ObjectMove("D_S2 label", 0, Time[0], D_S2);
}
if(ObjectFind("D_S3 label") != 0)
{
ObjectCreate("D_S3 label", OBJ_TEXT, 0, Time[0], D_S3);
ObjectSetText("D_S3 label", " D_S3 " +DoubleToStr(D_S3,4), 8, "Arial", EMPTY);
ObjectSet("D_S3 label", OBJPROP_COLOR, Blue);
}
else
{
ObjectMove("D_S3 label", 0, Time[0], D_S3);
}
//--- Draw Pivot lines on chart
if(ObjectFind("D_S1 line") != 0)
{
ObjectCreate("D_S1 line", OBJ_HLINE, 0, Time[0], D_S1, Time[0], D_S1);
ObjectSet("D_S1 line", OBJPROP_STYLE, STYLE_DASH);
ObjectSet("D_S1 line", OBJPROP_WIDTH,1);
ObjectSet("D_S1 line", OBJPROP_COLOR, Blue);
}
else
{
ObjectMove("D_S1 line", 0, Time[40], D_S1);
}
if(ObjectFind("D_S2 line") != 0)
{
ObjectCreate("D_S2 line", OBJ_HLINE, 0, Time[40], D_S2);
ObjectSet("D_S2 line", OBJPROP_STYLE, STYLE_DASH);
ObjectSet("D_S2 line", OBJPROP_WIDTH,1);
ObjectSet("D_S2 line", OBJPROP_COLOR, Blue);
}
else
{
ObjectMove("D_S2 line", 0, Time[40], D_S2);
}
if(ObjectFind("D_S3 line") != 0)
{
ObjectCreate("D_S3 line", OBJ_HLINE, 0, Time[40], D_S3);
ObjectSet("D_S3 line", OBJPROP_STYLE, STYLE_DASH);
ObjectSet("D_S3 line", OBJPROP_WIDTH,1);
ObjectSet("D_S3 line", OBJPROP_COLOR, Blue);
}
else
{
ObjectMove("D_S3 line", 0, Time[40], D_S3);
}
if(ObjectFind("D_P line") != 0)
{
ObjectCreate("D_P line", OBJ_HLINE, 0, Time[40], D_P);
ObjectSet("D_P line", OBJPROP_STYLE, STYLE_DASH);
ObjectSet("D_P line", OBJPROP_WIDTH,1);
ObjectSet("D_P line", OBJPROP_COLOR, Magenta);
}
else
{
ObjectMove("D_P line", 0, Time[40], D_P);
}
if(ObjectFind("D_R1 line") != 0)
{
ObjectCreate("D_R1 line", OBJ_HLINE, 0, Time[40], D_R1);
ObjectSet("D_R1 line", OBJPROP_STYLE, STYLE_DASH);
ObjectSet("D_R1 line", OBJPROP_WIDTH,1);
ObjectSet("D_R1 line", OBJPROP_COLOR, Red);
}
else
{
ObjectMove("D_R1 line", 0, Time[40], D_R1);
}
if(ObjectFind("D_R2 line") != 0)
{
ObjectCreate("D_R2 line", OBJ_HLINE, 0, Time[40], D_R2);
ObjectSet("D_R2 line", OBJPROP_STYLE, STYLE_DASH);
ObjectSet("D_R2 line", OBJPROP_WIDTH,1);
ObjectSet("D_R2 line", OBJPROP_COLOR, Red);
}
else
{
ObjectMove("D_R2 line", 0, Time[40], D_R2);
}
if(ObjectFind("D_R3 line") != 0)
{
ObjectCreate("D_R3 line", OBJ_HLINE, 0, Time[40], D_R3);
ObjectSet("D_R3 line", OBJPROP_STYLE, STYLE_DASH);
ObjectSet("D_R3 line", OBJPROP_WIDTH,1);
ObjectSet("D_R3 line", OBJPROP_COLOR, Red);
}
else
{
ObjectMove("D_R3 line", 0, Time[40], D_R3);
}
}
//---- End of Pivot Line Draw
//------ Midpoints Pivots
if (daily == true && midpivots==true)
{
if(ObjectFind("D_M5 label") != 0)
{
ObjectCreate("D_M5 label", OBJ_TEXT, 0, Time[0], D_M5);
ObjectSetText("D_M5 label", " D_M5 " +DoubleToStr(D_M5,4), 8, "Arial", EMPTY);
ObjectSet("D_M5 label", OBJPROP_COLOR, Salmon);
}
else
{
ObjectMove("D_M5 label", 0, Time[0], D_M5);
}
if(ObjectFind("D_M4 label") != 0)
{
ObjectCreate("D_M4 label", OBJ_TEXT, 0, Time[0], D_M4);
ObjectSetText("D_M4 label", " D_M4 " +DoubleToStr(D_M4,4), 8, "Arial", EMPTY);
ObjectSet("D_M4 label", OBJPROP_COLOR, Salmon);
}
else
{
ObjectMove("D_M4 label", 0, Time[0], D_M4);
}
if(ObjectFind("D_M3 label") != 0)
{
ObjectCreate("D_M3 label", OBJ_TEXT, 0, Time[0], D_M3);
ObjectSetText("D_M3 label", " D_M3 " +DoubleToStr(D_M3,4), 8, "Arial", EMPTY);
ObjectSet("D_M3 label", OBJPROP_COLOR, Salmon);
}
else
{
ObjectMove("D_M3 label", 0, Time[0], D_M3);
}
if(ObjectFind("D_M2 label") != 0)
{
ObjectCreate("D_M2 label", OBJ_TEXT, 0, Time[0], D_M2);
ObjectSetText("D_M2 label", " D_M2 " +DoubleToStr(D_M2,4), 8, "Arial", EMPTY);
ObjectSet("D_M2 label", OBJPROP_COLOR, DodgerBlue);
}
else
{
ObjectMove("D_M2 label", 0, Time[0], D_M2);
}
if(ObjectFind("D_M1 label") != 0)
{
ObjectCreate("D_M1 label", OBJ_TEXT, 0, Time[0], D_M1);
ObjectSetText("D_M1 label", " D_M1 " +DoubleToStr(D_M1,4), 8, "Arial", EMPTY);
ObjectSet("D_M1 label", OBJPROP_COLOR, DodgerBlue);
}
else
{
ObjectMove("D_M1 label", 0, Time[0], D_M1);
}
if(ObjectFind("D_M0 label") != 0)
{
ObjectCreate("D_M0 label", OBJ_TEXT, 0, Time[0], D_M0);
ObjectSetText("D_M0 label", " D_M0 " +DoubleToStr(D_M0,4), 8, "Arial", EMPTY);
ObjectSet("D_M0 label", OBJPROP_COLOR, DodgerBlue);
}
else
{
ObjectMove("D_M0 label", 0, Time[0], D_M0);
}
//---- Draw Midpoint Pivots on Chart
if(ObjectFind("D_M5 line") != 0)
{
ObjectCreate("D_M5 line", OBJ_HLINE, 0, Time[40], D_M5);
ObjectSet("D_M5 line", OBJPROP_STYLE, STYLE_DASHDOTDOT);
ObjectSet("D_M5 line", OBJPROP_WIDTH,1);
ObjectSet("D_M5 line", OBJPROP_COLOR, Salmon);
}
else
{
ObjectMove("D_M5 line", 0, Time[40], D_M5);
}
if(ObjectFind("D_M4 line") != 0)
{
ObjectCreate("D_M4 line", OBJ_HLINE, 0, Time[40], D_M4);
ObjectSet("D_M4 line", OBJPROP_STYLE, STYLE_DASHDOTDOT);
ObjectSet("D_M4 line", OBJPROP_WIDTH,1);
ObjectSet("D_M4 line", OBJPROP_COLOR, Salmon);
}
else
{
ObjectMove("D_M4 line", 0, Time[40], D_M4);
}
if(ObjectFind("D_M3 line") != 0)
{
ObjectCreate("D_M3 line", OBJ_HLINE, 0, Time[40], D_M3);
ObjectSet("D_M3 line", OBJPROP_STYLE, STYLE_DASHDOTDOT);
ObjectSet("D_M3 line", OBJPROP_WIDTH,1);
ObjectSet("D_M3 line", OBJPROP_COLOR, Salmon);
}
else
{
ObjectMove("D_M3 line", 0, Time[40], D_M3);
}
if(ObjectFind("D_M2 line") != 0)
{
ObjectCreate("D_M2 line", OBJ_HLINE, 0, Time[40], D_M2);
ObjectSet("D_M2 line", OBJPROP_STYLE, STYLE_DASHDOTDOT);
ObjectSet("D_M2 line", OBJPROP_WIDTH,1);
ObjectSet("D_M2 line", OBJPROP_COLOR, DodgerBlue);
}
else
{
ObjectMove("D_M2 line", 0, Time[40], D_M2);
}
if(ObjectFind("D_M1 line") != 0)
{
ObjectCreate("D_M1 line", OBJ_HLINE, 0, Time[40], D_M1);
ObjectSet("D_M1 line", OBJPROP_STYLE, STYLE_DASHDOTDOT);
ObjectSet("D_M1 line", OBJPROP_WIDTH,1);
ObjectSet("D_M1 line", OBJPROP_COLOR, DodgerBlue);
}
else
{
ObjectMove("D_M1 line", 0, Time[40], D_M1);
}
if(ObjectFind("D_M0 line") != 0)
{
ObjectCreate("D_M0 line", OBJ_HLINE, 0, Time[40], D_M0);
ObjectSet("D_M0 line", OBJPROP_STYLE, STYLE_DASHDOTDOT);
ObjectSet("D_M0 line", OBJPROP_WIDTH,1);
ObjectSet("D_M0 line", OBJPROP_COLOR, DodgerBlue);
}
else
{
ObjectMove("D_M0 line", 0, Time[40], D_M0);
}
}
//-------------=---------------------------------------------------------------------End of DAILY
//---------------------------------------------------------------------WEEKLY Pivot Lines --------------------
if (weekly==true)
{
if(ObjectFind("W_R1 label") != 0)
{
ObjectCreate("W_R1 label", OBJ_TEXT, 0, Time[0], W_R1);
ObjectSetText("W_R1 label", "W_R1 " +DoubleToStr(W_R1,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("W_R1 label", 0, Time[0], W_R1);
}
if(ObjectFind("W_R2 label") != 0)
{
ObjectCreate("W_R2 label", OBJ_TEXT, 0, Time[20], W_R2);
ObjectSetText("W_R2 label", "W_R2 " +DoubleToStr(W_R2,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("W_R2 label", 0, Time[0], W_R2);
}
if(ObjectFind("W_R3 label") != 0)
{
ObjectCreate("W_R3 label", OBJ_TEXT, 0, Time[20], W_R3);
ObjectSetText("W_R3 label", "W_R3 " +DoubleToStr(W_R3,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("W_R3 label", 0, Time[0], W_R3);
}
if(ObjectFind("W_P label") != 0)
{
ObjectCreate("W_P label", OBJ_TEXT, 0, Time[0], W_P);
ObjectSetText("W_P label", "W_Pivot " +DoubleToStr(W_P,4), 8, "Arial",EMPTY);
}
else
{
ObjectMove("W_P label", 0, Time[0], W_P);
}
if(ObjectFind("W_S1 label") != 0)
{
ObjectCreate("W_S1 label", OBJ_TEXT, 0, Time[0], W_S1);
ObjectSetText("W_S1 label", "W_S1 " +DoubleToStr(W_S1,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("W_S1 label", 0, Time[0], W_S1);
}
if(ObjectFind("W_S2 label") != 0)
{
ObjectCreate("W_S2 label", OBJ_TEXT, 0, Time[20], W_S2);
ObjectSetText("W_S2 label", "W_S2 " +DoubleToStr(W_S2,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("W_S2 label", 0, Time[0], W_S2);
}
if(ObjectFind("W_S3 label") != 0)
{
ObjectCreate("W_S3 label", OBJ_TEXT, 0, Time[20], W_S3);
ObjectSetText("W_S3 label", "W_S3 " +DoubleToStr(W_S3,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("W_S3 label", 0, Time[0], W_S3);
}
//--- Draw Pivot lines on chart
if(ObjectFind("W_S1 line") != 0)
{
ObjectCreate("W_S1 line", OBJ_HLINE, 0, Time[40], W_S1);
ObjectSet("W_S1 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("W_S1 line", OBJPROP_WIDTH,4);
ObjectSet("W_S1 line", OBJPROP_COLOR, Blue);
}
else
{
ObjectMove("W_S1 line", 0, Time[40], W_S1);
}
if(ObjectFind("W_S2 line") != 0)
{
ObjectCreate("W_S2 line", OBJ_HLINE, 0, Time[40], W_S2);
ObjectSet("W_S2 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("W_S2 line", OBJPROP_WIDTH,4);
ObjectSet("W_S2 line", OBJPROP_COLOR, Blue);
}
else
{
ObjectMove("W_S2 line", 0, Time[40], W_S2);
}
if(ObjectFind("W_S3 line") != 0)
{
ObjectCreate("W_S3 line", OBJ_HLINE, 0, Time[40], W_S3);
ObjectSet("W_S3 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("W_S3 line", OBJPROP_WIDTH,4);
ObjectSet("W_S3 line", OBJPROP_COLOR, Blue);
}
else
{
ObjectMove("W_S3 line", 0, Time[40], W_S3);
}
if(ObjectFind("W_P line") != 0)
{
ObjectCreate("W_P line", OBJ_HLINE, 0, Time[40], W_P);
ObjectSet("W_P line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("W_P line", OBJPROP_WIDTH,4);
ObjectSet("W_P line", OBJPROP_COLOR, LightBlue);
}
else
{
ObjectMove("W_P line", 0, Time[40], W_P);
}
if(ObjectFind("W_R1 line") != 0)
{
ObjectCreate("W_R1 line", OBJ_HLINE, 0, Time[40], W_R1);
ObjectSet("W_R1 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("W_R1 line", OBJPROP_WIDTH,4);
ObjectSet("W_R1 line", OBJPROP_COLOR, Red);
}
else
{
ObjectMove("W_R1 line", 0, Time[40], W_R1);
}
if(ObjectFind("W_R2 line") != 0)
{
ObjectCreate("W_R2 line", OBJ_HLINE, 0, Time[40], W_R2);
ObjectSet("W_R2 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("W_R2 line", OBJPROP_WIDTH,4);
ObjectSet("W_R2 line", OBJPROP_COLOR, Red);
}
else
{
ObjectMove("W_R2 line", 0, Time[40], W_R2);
}
if(ObjectFind("W_R3 line") != 0)
{
ObjectCreate("W_R3 line", OBJ_HLINE, 0, Time[40], W_R3);
ObjectSet("W_R3 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("W_R3 line", OBJPROP_WIDTH,4);
ObjectSet("W_R3 line", OBJPROP_COLOR, Red);
}
else
{
ObjectMove("W_R3 line", 0, Time[40], W_R3);
}
}
//---- End of Pivot Line Draw
//------ Midpoints Pivots
if (weekly == true && midpivots==true)
{
if(ObjectFind("W_M5 label") != 0)
{
ObjectCreate("W_M5 label", OBJ_TEXT, 0, Time[20], W_M5);
ObjectSetText("W_M5 label", "W_M5 " +DoubleToStr(W_M5,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("W_M5 label", 0, Time[0], W_M5);
}
if(ObjectFind("W_M4 label") != 0)
{
ObjectCreate("W_M4 label", OBJ_TEXT, 0, Time[20], W_M4);
ObjectSetText("W_M4 label", "W_M4 " +DoubleToStr(W_M4,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("W_M4 label", 0, Time[0], W_M4);
}
if(ObjectFind("W_M3 label") != 0)
{
ObjectCreate("W_M3 label", OBJ_TEXT, 0, Time[20], W_M3);
ObjectSetText("W_M3 label", "W_M3 " +DoubleToStr(W_M3,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("W_M3 label", 0, Time[0], W_M3);
}
if(ObjectFind("W_M2 label") != 0)
{
ObjectCreate("W_M2 label", OBJ_TEXT, 0, Time[20], W_M2);
ObjectSetText("W_M2 label", "W_M2 " +DoubleToStr(W_M2,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("W_M2 label", 0, Time[0], W_M2);
}
if(ObjectFind("W_M1 label") != 0)
{
ObjectCreate("W_M1 label", OBJ_TEXT, 0, Time[20], W_M1);
ObjectSetText("W_M1 label", "W_M1 " +DoubleToStr(W_M1,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("W_M1 label", 0, Time[0], W_M1);
}
if(ObjectFind("W_M0 label") != 0)
{
ObjectCreate("W_M0 label", OBJ_TEXT, 0, Time[20], W_M0);
ObjectSetText("W_M0 label", "W_M0 " +DoubleToStr(W_M0,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("W_M0 label", 0, Time[0], W_M0);
}
//---- Draw Midpoint Pivots on Chart
if(ObjectFind("W_M5 line") != 0)
{
ObjectCreate("W_M5 line", OBJ_HLINE, 0, Time[40], W_M5);
ObjectSet("W_M5 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("W_M5 line", OBJPROP_WIDTH,1);
ObjectSet("W_M5 line", OBJPROP_COLOR, Red);
}
else
{
ObjectMove("W_M5 line", 0, Time[40], W_M5);
}
if(ObjectFind("W_M4 line") != 0)
{
ObjectCreate("W_M4 line", OBJ_HLINE, 0, Time[40], W_M4);
ObjectSet("W_M4 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("W_M4 line", OBJPROP_WIDTH,1);
ObjectSet("W_M4 line", OBJPROP_COLOR, Red);
}
else
{
ObjectMove("W_M4 line", 0, Time[40], W_M4);
}
if(ObjectFind("W_M3 line") != 0)
{
ObjectCreate("W_M3 line", OBJ_HLINE, 0, Time[40], W_M3);
ObjectSet("W_M3 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("W_M3 line", OBJPROP_WIDTH,1);
ObjectSet("W_M3 line", OBJPROP_COLOR, Red);
}
else
{
ObjectMove("W_M3 line", 0, Time[40], W_M3);
}
if(ObjectFind("W_M2 line") != 0)
{
ObjectCreate("W_M2 line", OBJ_HLINE, 0, Time[40], W_M2);
ObjectSet("W_M2 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("W_M2 line", OBJPROP_WIDTH,1);
ObjectSet("W_M2 line", OBJPROP_COLOR, Blue);
}
else
{
ObjectMove("W_M2 line", 0, Time[40], W_M2);
}
if(ObjectFind("W_M1 line") != 0)
{
ObjectCreate("W_M1 line", OBJ_HLINE, 0, Time[40], W_M1);
ObjectSet("W_M1 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("W_M1 line", OBJPROP_WIDTH,1);
ObjectSet("W_M1 line", OBJPROP_COLOR, Blue);
}
else
{
ObjectMove("W_M1 line", 0, Time[40], W_M1);
}
if(ObjectFind("W_M0 line") != 0)
{
ObjectCreate("W_M0 line", OBJ_HLINE, 0, Time[40], W_M0);
ObjectSet("W_M0 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("W_M0 line", OBJPROP_WIDTH,1);
ObjectSet("W_M0 line", OBJPROP_COLOR, Blue);
}
else
{
ObjectMove("W_M0 line", 0, Time[40], W_M0);
}
}
//-------------=-------------------------------------------End WEEKLY
//--------------------------------------------------------------------Monthly Pivot Lines --------------------
if (monthly == true)
{
if(ObjectFind("M_R1 label") != 0)
{
ObjectCreate("M_R1 label", OBJ_TEXT, 0, Time[0], M_R1);
ObjectSetText("M_R1 label", " M_R1 " +DoubleToStr(M_R1,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("M_R1 label", 0, Time[0], M_R1);
}
if(ObjectFind("M_R2 label") != 0)
{
ObjectCreate("M_R2 label", OBJ_TEXT, 0, Time[20], M_R2);
ObjectSetText("M_R2 label", " M_R2 " +DoubleToStr(M_R2,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("M_R2 label", 0, Time[0], M_R2);
}
if(ObjectFind("M_R3 label") != 0)
{
ObjectCreate("M_R3 label", OBJ_TEXT, 0, Time[20], M_R3);
ObjectSetText("M_R3 label", " M_R3 " +DoubleToStr(M_R3,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("M_R3 label", 0, Time[0], M_R3);
}
if(ObjectFind("M_P label") != 0)
{
ObjectCreate("M_P label", OBJ_TEXT, 0, Time[0], M_P);
ObjectSetText("M_P label", "M_Pivot " +DoubleToStr(M_P,4), 8, "Arial",EMPTY);
}
else
{
ObjectMove("M_P label", 0, Time[0], M_P);
}
if(ObjectFind("M_S1 label") != 0)
{
ObjectCreate("M_S1 label", OBJ_TEXT, 0, Time[0], M_S1);
ObjectSetText("M_S1 label", "M_S1 " +DoubleToStr(M_S1,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("M_S1 label", 0, Time[0], M_S1);
}
if(ObjectFind("M_S2 label") != 0)
{
ObjectCreate("M_S2 label", OBJ_TEXT, 0, Time[20], M_S2);
ObjectSetText("M_S2 label", "S2 " +DoubleToStr(M_S2,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("M_S2 label", 0, Time[0], M_S2);
}
if(ObjectFind("M_S3 label") != 0)
{
ObjectCreate("M_S3 label", OBJ_TEXT, 0, Time[20], M_S3);
ObjectSetText("M_S3 label", "M_S3 " +DoubleToStr(M_S3,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("M_S3 label", 0, Time[0], M_S3);
}
//--- Draw Pivot lines on chart
if(ObjectFind("M_S1 line") != 0)
{
ObjectCreate("M_S1 line", OBJ_HLINE, 0, Time[40], M_S1);
ObjectSet("M_S1 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("M_S1 line", OBJPROP_WIDTH,4);
ObjectSet("M_S1 line", OBJPROP_COLOR, Blue);
}
else
{
ObjectMove("M_S1 line", 0, Time[40], M_S1);
}
if(ObjectFind("M_S2 line") != 0)
{
ObjectCreate("M_S2 line", OBJ_HLINE, 0, Time[40], M_S2);
ObjectSet("M_S2 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("M_S2 line", OBJPROP_WIDTH,4);
ObjectSet("M_S2 line", OBJPROP_COLOR, Blue);
}
else
{
ObjectMove("M_S2 line", 0, Time[40], M_S2);
}
if(ObjectFind("M_S3 line") != 0)
{
ObjectCreate("M_S3 line", OBJ_HLINE, 0, Time[40], M_S3);
ObjectSet("M_S3 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("M_S3 line", OBJPROP_WIDTH,4);
ObjectSet("M_S3 line", OBJPROP_COLOR, Blue);
}
else
{
ObjectMove("M_S3 line", 0, Time[40], M_S3);
}
if(ObjectFind("M_P line") != 0)
{
ObjectCreate("M_P line", OBJ_HLINE, 0, Time[40], M_P);
ObjectSet("M_P line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("M_P line", OBJPROP_WIDTH,4);
ObjectSet("M_P line", OBJPROP_COLOR, LightBlue);
}
else
{
ObjectMove("M_P line", 0, Time[40], M_P);
}
if(ObjectFind("M_R1 line") != 0)
{
ObjectCreate("M_R1 line", OBJ_HLINE, 0, Time[40], M_R1);
ObjectSet("M_R1 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("M_R1 line", OBJPROP_WIDTH,4);
ObjectSet("M_R1 line", OBJPROP_COLOR, Red);
}
else
{
ObjectMove("M_R1 line", 0, Time[40], M_R1);
}
if(ObjectFind("M_R2 line") != 0)
{
ObjectCreate("M_R2 line", OBJ_HLINE, 0, Time[40], M_R2);
ObjectSet("M_R2 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("M_R2 line", OBJPROP_WIDTH,4);
ObjectSet("M_R2 line", OBJPROP_COLOR, Red);
}
else
{
ObjectMove("M_R2 line", 0, Time[40], M_R2);
}
if(ObjectFind("M_R3 line") != 0)
{
ObjectCreate("M_R3 line", OBJ_HLINE, 0, Time[40], M_R3);
ObjectSet("M_R3 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("M_R3 line", OBJPROP_WIDTH,4);
ObjectSet("M_R3 line", OBJPROP_COLOR, Red);
}
else
{
ObjectMove("M_R3 line", 0, Time[40], M_R3);
}
}
//---- End of Pivot Line Draw
//------ Midpoints Pivots
if (monthly == true && midpivots==true)
{
if(ObjectFind("M_M5 label") != 0)
{
ObjectCreate("M_M5 label", OBJ_TEXT, 0, Time[20], M_M5);
ObjectSetText("M_M5 label", " M_M5 " +DoubleToStr(M_M5,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("M_M5 label", 0, Time[0], M_M5);
}
if(ObjectFind("M_M4 label") != 0)
{
ObjectCreate("M_M4 label", OBJ_TEXT, 0, Time[20], M_M4);
ObjectSetText("M_M4 label", " M_M4 " +DoubleToStr(M_M4,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("M_M4 label", 0, Time[0], M_M4);
}
if(ObjectFind("M_M3 label") != 0)
{
ObjectCreate("M_M3 label", OBJ_TEXT, 0, Time[20], M_M3);
ObjectSetText("M_M3 label", " M_M3 " +DoubleToStr(M_M3,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("M_M3 label", 0, Time[0], M_M3);
}
if(ObjectFind("M_M2 label") != 0)
{
ObjectCreate("M_M2 label", OBJ_TEXT, 0, Time[20], M_M2);
ObjectSetText("M_M2 label", " M_M2 " +DoubleToStr(M_M2,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("M_M2 label", 0, Time[0], M_M2);
}
if(ObjectFind("M_M1 label") != 0)
{
ObjectCreate("M_M1 label", OBJ_TEXT, 0, Time[20], M_M1);
ObjectSetText("M_M1 label", " M_M1 " +DoubleToStr(M_M1,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("M_M1 label", 0, Time[0], M_M1);
}
if(ObjectFind("M_M0 label") != 0)
{
ObjectCreate("M_M0 label", OBJ_TEXT, 0, Time[20], M_M0);
ObjectSetText("M_M0 label", " M_M0 " +DoubleToStr(M_M0,4), 8, "Arial", EMPTY);
}
else
{
ObjectMove("M_M0 label", 0, Time[0], M_M0);
}
//---- Draw Midpoint Pivots on Chart
if(ObjectFind("M_M5 line") != 0)
{
ObjectCreate("M_M5 line", OBJ_HLINE, 0, Time[40], M_M5, Time[20], M_M5);
ObjectSet("M_M5 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("M_M5 line", OBJPROP_WIDTH,1);
ObjectSet("M_M5 line", OBJPROP_COLOR, Red);
}
else
{
ObjectMove("M_M5 line", 0, Time[40], M_M5);
}
if(ObjectFind("M_M4 line") != 0)
{
ObjectCreate("M_M4 line", OBJ_HLINE, 0, Time[40], M_M4);
ObjectSet("M_M4 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("M_M4 line", OBJPROP_WIDTH,1);
ObjectSet("M_M4 line", OBJPROP_COLOR, Red);
}
else
{
ObjectMove("M_M4 line", 0, Time[40], M_M4);
}
if(ObjectFind("M_M3 line") != 0)
{
ObjectCreate("M_M3 line", OBJ_HLINE, 0, Time[40], M_M3);
ObjectSet("M_M3 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("M_M3 line", OBJPROP_WIDTH,1);
ObjectSet("M_M3 line", OBJPROP_COLOR, Red);
}
else
{
ObjectMove("M_M3 line", 0, Time[40], M_M3);
}
if(ObjectFind("M_M2 line") != 0)
{
ObjectCreate("M_M2 line", OBJ_HLINE, 0, Time[40], M_M2);
ObjectSet("M_M2 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("M_M2 line", OBJPROP_WIDTH,1);
ObjectSet("M_M2 line", OBJPROP_COLOR, Blue);
}
else
{
ObjectMove("M_M2 line", 0, Time[40], M_M2);
}
if(ObjectFind("M_M1 line") != 0)
{
ObjectCreate("M_M1 line", OBJ_HLINE, 0, Time[40], M_M1);
ObjectSet("M_M1 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("M_M1 line", OBJPROP_WIDTH,1);
ObjectSet("M_M1 line", OBJPROP_COLOR, Blue);
}
else
{
ObjectMove("M_M1 line", 0, Time[40], M_M1);
}
if(ObjectFind("M_M0 line") != 0)
{
ObjectCreate("M_M0 line", OBJ_HLINE, 0, Time[40], M_M0);
ObjectSet("M_M0 line", OBJPROP_STYLE, STYLE_SOLID);
ObjectSet("M_M0 line", OBJPROP_WIDTH,1);
ObjectSet("M_M0 line", OBJPROP_COLOR, Blue);
}
else
{
ObjectMove("M_M0 line", 0, Time[40], M_M0);
}
}
//-------------=--------------------------------------END of MONTHLY
//-----------------------------------------------------------------------------------------------------------------------
//---- End Of Program
return(0);
}
//+------------------------------------------------------------------+
Sample
Analysis
Market Information Used:
Series array that contains open time of each bar
Indicator Curves created:
Implements a curve of type DRAW_ARROW
Indicators Used:
Custom Indicators Used:
Order Management characteristics:
Other Features: