//+-------------------------------------------------------------------+ //| 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 = false; extern bool weekly = true; extern bool monthly = true; 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); } else { ObjectMove(" D_R1 label", 0, Time[0], D_R1); } if(ObjectFind("D_R2 label") != 0) { ObjectCreate("D_R2 label", OBJ_TEXT, 0, Time[20], D_R2); ObjectSetText("D_R2 label", " D_R2 " +DoubleToStr(D_R2,4), 8, "Arial", EMPTY); } else { ObjectMove("D_R2 label", 0, Time[0], D_R2); } if(ObjectFind("D_R3 label") != 0) { ObjectCreate("D_R3 label", OBJ_TEXT, 0, Time[20], D_R3); ObjectSetText("D_R3 label", " D_R3 " +DoubleToStr(D_R3,4), 8, "Arial", EMPTY); } 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); } 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); } else { ObjectMove("D_S1 label", 0, Time[0], D_S1); } if(ObjectFind("D_S2 label") != 0) { ObjectCreate("D_S2 label", OBJ_TEXT, 0, Time[20], D_S2); ObjectSetText("D_S2 label", " D_S2 " +DoubleToStr(D_S2,4), 8, "Arial", EMPTY); } else { ObjectMove("D_S2 label", 0, Time[0], D_S2); } if(ObjectFind("D_S3 label") != 0) { ObjectCreate("D_S3 label", OBJ_TEXT, 0, Time[20], D_S3); ObjectSetText("D_S3 label", " D_S3 " +DoubleToStr(D_S3,4), 8, "Arial", EMPTY); } 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_SOLID); ObjectSet("D_S1 line", OBJPROP_WIDTH,4); 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_SOLID); ObjectSet("D_S2 line", OBJPROP_WIDTH,4); 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_SOLID); ObjectSet("D_S3 line", OBJPROP_WIDTH,4); 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_SOLID); ObjectSet("D_P line", OBJPROP_WIDTH,4); ObjectSet("D_P line", OBJPROP_COLOR, LightBlue); } 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_SOLID); ObjectSet("D_R1 line", OBJPROP_WIDTH,4); 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_SOLID); ObjectSet("D_R2 line", OBJPROP_WIDTH,4); 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_SOLID); ObjectSet("D_R3 line", OBJPROP_WIDTH,4); 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[20], D_M5); ObjectSetText("D_M5 label", " D_M5 " +DoubleToStr(D_M5,4), 8, "Arial", EMPTY); } else { ObjectMove("D_M5 label", 0, Time[0], D_M5); } if(ObjectFind("D_M4 label") != 0) { ObjectCreate("D_M4 label", OBJ_TEXT, 0, Time[20], D_M4); ObjectSetText("D_M4 label", " D_M4 " +DoubleToStr(D_M4,4), 8, "Arial", EMPTY); } else { ObjectMove("D_M4 label", 0, Time[0], D_M4); } if(ObjectFind("D_M3 label") != 0) { ObjectCreate("D_M3 label", OBJ_TEXT, 0, Time[20], D_M3); ObjectSetText("D_M3 label", " D_M3 " +DoubleToStr(D_M3,4), 8, "Arial", EMPTY); } else { ObjectMove("D_M3 label", 0, Time[0], D_M3); } if(ObjectFind("D_M2 label") != 0) { ObjectCreate("D_M2 label", OBJ_TEXT, 0, Time[20], D_M2); ObjectSetText("D_M2 label", " D_M2 " +DoubleToStr(D_M2,4), 8, "Arial", EMPTY); } else { ObjectMove("D_M2 label", 0, Time[0], D_M2); } if(ObjectFind("D_M1 label") != 0) { ObjectCreate("D_M1 label", OBJ_TEXT, 0, Time[20], D_M1); ObjectSetText("D_M1 label", " D_M1 " +DoubleToStr(D_M1,4), 8, "Arial", EMPTY); } else { ObjectMove("D_M1 label", 0, Time[0], D_M1); } if(ObjectFind("D_M0 label") != 0) { ObjectCreate("D_M0 label", OBJ_TEXT, 0, Time[20], D_M0); ObjectSetText("D_M0 label", " D_M0 " +DoubleToStr(D_M0,4), 8, "Arial", EMPTY); } 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_SOLID); ObjectSet("D_M5 line", OBJPROP_WIDTH,1); ObjectSet("D_M5 line", OBJPROP_COLOR, Red); } 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_SOLID); ObjectSet("D_M4 line", OBJPROP_WIDTH,1); ObjectSet("D_M4 line", OBJPROP_COLOR, Red); } 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_SOLID); ObjectSet("D_M3 line", OBJPROP_WIDTH,1); ObjectSet("D_M3 line", OBJPROP_COLOR, Red); } 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_SOLID); ObjectSet("D_M2 line", OBJPROP_WIDTH,1); ObjectSet("D_M2 line", OBJPROP_COLOR, Blue); } 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_SOLID); ObjectSet("D_M1 line", OBJPROP_WIDTH,1); ObjectSet("D_M1 line", OBJPROP_COLOR, Blue); } 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_SOLID); ObjectSet("D_M0 line", OBJPROP_WIDTH,1); ObjectSet("D_M0 line", OBJPROP_COLOR, Blue); } 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); } //+------------------------------------------------------------------+