//+----------------------------------------------------------------------------------+ //| | //| Prime Levels.mq4 | //| | //+----------------------------------------------------------------------------------+ #property copyright "Doblece, Domas4 & Traderathome, Copyright @ 2009" #property link "email: traderathome@msn.com" /*------------------------------------------------------------------------------------ Prime Levels: This indicator will place up to 6 lines, at prime levels of your choosing, in a successive pattern on the chart. You can have the pattern repeated as many times as you like. For example, you might select lines to be placed at the whole number, plus 20 pips, plus 33 pips, plus 50 pips, plus 66 pips, plus 80 pips and then the next whole number again. This range of lines can then be repeated both above and below this initial range. You can have as many levels of ranges above and below the initial range as you like. Or, you can select zero additional ranges and the initial range will automatically fill below or above the next whole number as the price moves there. The lines can individually be of any color and style, and of any thickness when using solid lines. You can turn on/off each line individually. When lines are full screen wide, you can turn on/off the right margin price labels. You can select to have the lines stop at the current candle. Lines can be subordinated. To specify a level for a line just enter the last two digits of the price level. The labels for the lines can be of any color, font size and font style. You can give the labels a name of your choice (example: Psych Level) and include the price. Labels can be positioned from right of the current candle (0), to far left (100), and they can be subordinated. Zooming in and out on the chart will displace the labels, but with the next data tic, their selected position is restored. The indicator has an ON/OFF switch so you can turn the indicator off when the display of the prime levels is not desired, yet preserve your settings for the chart. You can also enter a time frame, above which the indicator will automatically not display. This enables switching to larger time frames for analysis, and having a chart clear of this indicator's display. --------------------------------------------------------------------------------------- ACKNOWLEDGEMENTS: Doblece: For the code enabling the indicator to work with platforms with unconventional Point digits number (0.00001 and 0.001). Also for adding two more customizable line levels which default to 66 and 33, as these are places where price usually stops and bounces. Domas4: For the code enabling the indicator to be set to automatically not display above any time frame, as set by the user. Shimodax: For the idea and some core code to get started with (ref: SweetSpots.mq4). ---------------------------------------------------------------------------------------- Suggested Settings: White Chart Black Chart Line1_Color Red Red Line2_Color Blue Blue Line3_Color Olive Olive Line4_Color Olive Olive Line5_Color LimeGreen ForestGreen Line6_Color LimeGreen ForestGreen --------------------------------------------------------------------------------------*/ #property indicator_chart_window extern bool Indicator_On = true; extern int RangesAboveBelowBaseRange = 2; extern string Exit_Period_Choices = "M1, M5, M15, M30, H1, H4, D1"; extern string Exit_If_Period_Greater_Than = "H1"; extern string _ = ""; extern string Part_1 = "Line Settings:"; extern bool EndLines_At_Current_Candle = true; extern bool FScrLines_With_Margin_Prices = true; extern bool Subordinate_Lines = true; extern string __ = ""; extern string Part_2 = "Label Settings:"; extern color Color = DarkGray; extern bool ShowLabels = true; extern string FontStyle = "Arial"; extern int FontSize = 11; extern bool Line_Prices = true; extern string Text_For_Label = ""; extern int Shift_Labels_PerCent_Left = 100; extern bool Subordinate_Labels = true; extern string ___ = ""; extern string Part_3 = "Individual Line Configurations:"; extern color Line1_Color = Red; extern bool Line1_On = true; extern int Line1_Last_Two_Digits = 0; extern int Line1_Style_01234 = 2; extern int Line1_SolidThickness = 1; extern color Line2_Color = Blue; //C'193,193,0'; extern bool Line2_On = true; extern int Line2_Last_Two_Digits = 50; extern int Line2_Style_01234 = 2; extern int Line2_SolidThickness = 1; extern color Line3_Color = Olive; extern bool Line3_On = true; extern int Line3_Last_Two_Digits = 13; extern int Line3_Style_01234 = 2; extern int Line3_SolidThickness = 1; extern color Line4_Color = Olive; extern bool Line4_On = true; extern int Line4_Last_Two_Digits = 87; extern int Line4_Style_01234 = 2; extern int Line4_SolidThickness = 1; extern color Line5_Color = ForestGreen; extern bool Line5_On = true; extern int Line5_Last_Two_Digits = 67; extern int Line5_Style_01234 = 2; extern int Line5_SolidThickness = 1; extern color Line6_Color = ForestGreen; extern bool Line6_On = true; extern int Line6_Last_Two_Digits = 33; extern int Line6_Style_01234 = 2; extern int Line6_SolidThickness = 1; extern string ____ = ""; extern string Part_4 = "Data Box Settings:"; extern bool Show_Data_Box = true; extern color Box_Background_Color = C'47,0,47';// C'60,0,60';//C'173,222,252'; extern int Days_Used_For_Range_Data = 30; double Poin; //+-------------------------------------------------------------------------------------------+ //| Initialization | //+-------------------------------------------------------------------------------------------+ int init() { //Checking for unconventional Point digits number if (Point == 0.00001) Poin = 0.0001; //5 digits else if (Point == 0.001) Poin = 0.01; //3 digits else Poin = Point; //Normal return(0); } //+-------------------------------------------------------------------------------------------+ //| De-initialization | //+-------------------------------------------------------------------------------------------+ int deinit() { int obj_total= ObjectsTotal(); for (int j= obj_total; j>=0; j--) { string name= ObjectName(j); if (StringSubstr(name,0,19)=="[Prime Time Levels]"){ObjectDelete(name);} } //ObjectDelete("[Pivots History] Data Box"); Comment(""); return(0); } //+-------------------------------------------------------------------------------------------+ //| Start | //+-------------------------------------------------------------------------------------------+ int start() { if (Indicator_On == false) {return(0);} //Exit if period is greater than int E; if(Exit_If_Period_Greater_Than== "M1") {E= 1;} if(Exit_If_Period_Greater_Than== "M5") {E= 5;} if(Exit_If_Period_Greater_Than== "M15") {E= 15;} if(Exit_If_Period_Greater_Than== "M30") {E= 30;} if(Exit_If_Period_Greater_Than== "H1") {E= 60;} if(Exit_If_Period_Greater_Than== "H4") {E= 240;} if(Exit_If_Period_Greater_Than== "D1") {E= 1440;} if(Period() > E) {deinit(); return(-1);} //count the chars Objects, then for that count check and clear any entitled "[SweetSpot]" int obj_total= ObjectsTotal(); for (int j= obj_total; j>=0; j--) { string name= ObjectName(j); if (StringSubstr(name,0,12)=="[SweetSpot] "){ObjectDelete(name);} } //space out updates //static datetime timelastupdate= 0; static datetime lasttimeframe= 0; //if (CurTime()-timelastupdate < 5 && Period()==lasttimeframe) return (0); //initialize needed variables int i, ssp, ssp1; //choosing "int" instead of "double" drops decimal portion of value double linelevel, linestyle ,linewidth; color linecolor; double d1=Bid; //Comment(DoubleToStr(NormalizeDouble(d1,2),2)); ssp1= Bid; //bid w/o decimal, 117 instead of 117.66 ssp1= Bid / Poin; //Point restores bid integers w/o the decimal, 11766 int u1 = Line1_Last_Two_Digits; //initializing last two digits user entered int u2 = Line2_Last_Two_Digits; int u3 = Line3_Last_Two_Digits; int u4 = Line4_Last_Two_Digits; int u5 = Line5_Last_Two_Digits; int u6 = Line6_Last_Two_Digits; int c1=ssp1%100; double LA, LB, LN; LN=100-c1; LB=c1; LA=LN; //if (c1<50)LB=c1;LA=LN;//if (c1>+50)LB=c1;LA=LN;Comment(LB); //calculate line levels for user specified # of ranges ssp=ssp1; //start ssp at reference bid for (i= -((100*(RangesAboveBelowBaseRange))+LB); i<=((100*(RangesAboveBelowBaseRange))+LA); i++) { ssp=ssp1+i; //Comment(i+" "+ssp); c1=ssp%100; //Comment(c1); if (c1==u1 && Line1_On == true) { linestyle = Line1_Style_01234; linecolor = Line1_Color; linewidth = Line1_SolidThickness; linelevel = ssp*Poin; } if (c1==u2 && Line2_On == true) { linestyle = Line2_Style_01234; linecolor = Line2_Color; linewidth = Line2_SolidThickness; linelevel = ssp*Poin; } if (c1==u3 && Line3_On == true) { linestyle = Line3_Style_01234; linecolor = Line3_Color; linewidth = Line3_SolidThickness; linelevel = ssp*Poin; } if (c1==u4 && Line4_On == true) { linestyle = Line4_Style_01234; linecolor = Line4_Color; linewidth = Line4_SolidThickness; linelevel = ssp*Poin; } if (c1==u5 && Line5_On == true) { linestyle = Line5_Style_01234; linecolor = Line5_Color; linewidth = Line5_SolidThickness; linelevel = ssp*Poin; } if (c1==u6 && Line6_On == true) { linestyle = Line6_Style_01234; linecolor = Line6_Color; linewidth = Line6_SolidThickness; linelevel = ssp*Poin; } //branch to subroutine to draw lines SetLevel(DoubleToStr(linelevel,Digits), linelevel, linecolor, linestyle, linewidth, Time[10]); //branch to subroutine to draw labels if(ShowLabels == true){SetLabel(DoubleToStr(linelevel,Digits), linelevel, Color);} } //Code for TF Background colors, Day Candle and Data Box (items in-work) int digits = MarketInfo(Symbol(),MODE_DIGITS); double modifier = 1; if (digits==3 || digits==5) modifier = 10.0; //Define today's bar and it's data int TodayBar = iBarShift(NULL,PERIOD_D1,Time[0]); double HiToday = iHigh (NULL,PERIOD_D1,TodayBar); double LoToday = iLow (NULL,PERIOD_D1,TodayBar); double open = iOpen( NULL,PERIOD_D1,TodayBar); double current = iClose(NULL,PERIOD_D1,TodayBar); double change = (current-iOpen(NULL,PERIOD_D1,TodayBar))/(Point*modifier); double startToday = iTime(NULL,PERIOD_D1,TodayBar); double endToday = iTime(NULL,0,0); //Define yesterday's bar and it's data int YesterdayBar = iBarShift(NULL,PERIOD_D1,Time[(23*60)/Period()]); double HiYesterday = iHigh (NULL,PERIOD_D1,YesterdayBar); double LoYesterday = iLow (NULL,PERIOD_D1,YesterdayBar); double startYesterday = iTime(NULL,PERIOD_D1,YesterdayBar); double endYesterday = iTime(NULL,PERIOD_D1,TodayBar); //Data Box section if (Show_Data_Box){ string dComment = "[Prime Time Levels] Data Box"; ObjectCreate(dComment, OBJ_LABEL, 0, 0, 0, 0, 0); ObjectSetText(dComment, "g", 77, "Webdings");//82 ObjectSet(dComment, OBJPROP_CORNER, 0); ObjectSet(dComment, OBJPROP_XDISTANCE, 0); ObjectSet(dComment, OBJPROP_YDISTANCE, 15 ); //13 ObjectSet(dComment, OBJPROP_COLOR, Box_Background_Color); ObjectSet(dComment, OBJPROP_BACK, false); //Daily Average Range int Ra=0, RaP=Days_Used_For_Range_Data; for(i=0; i= 0; i--) string tab = tab + " "; if(ObjectFind(name) != 0) { ObjectCreate(name, OBJ_TEXT, 0, Time[ml], linelevel); ObjectSet(name, OBJPROP_BACK, G); ObjectSetText(name, tab+TEXT, FontSize, FontStyle, Color_Labels); } else { ObjectMove(name, 0, Time[ml], linelevel); } } //+-------------------------------------------------------------------------------------------+ //| End | //+-------------------------------------------------------------------------------------------+