//+------------------------------------------------------------------+ //| MP-PZ.mq4 | //| MojoFX | //| http://fx.studiomojo.com | //| mojoFX@gmail.com | fx@studiomojo.com | //| v1.0 - March 27, 2004 | //+------------------------------------------------------------------+ #property copyright "2005 - MojoFX - Uman Madiprasojo" #property link "http://fx.studiomojo.com" #property indicator_chart_window #property indicator_buffers 2 #property indicator_color1 GreenYellow #property indicator_color2 Red //---- input parameters extern int dayChangeHour=22; extern int VolatilityRange=12; extern bool simpleSR=true; extern bool floatExit=true; extern bool ydayHL=true; //---- buffers double ExtMapBuffer1[]; double ExtMapBuffer2[]; //---- variables int limit, prev_day, barChangeDay; double y_c,t_o,y_h,y_l,y_hH,y_hL,y_lH,y_lL,P,PH,PL,R1,S1,R2,S2,R3,S3,cl3,ch3; double day_high, day_low, day_highH, day_highL, day_lowH, day_lowL, dayHprev, dayLprev; double last_week_close,last_week_open,last_week_high,last_week_low,this_week_open; double dpFloatPrice,WP,posRisk,floatRisk; bool expire = false; if ( CurTime()<StrToTime("2006.06.01") && CurTime()>StrToTime("2006.06.15") ) { expire=true; Comment("\n MojoPivot Package has expired!!!\n Please contact forexhusky@yahoo.com for subscription."); return(0); } if ( Period()>60 || Period()<15 ) { Comment("Incorrect timeframe. 15M preferred. 1H is max."); } //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int init() { //---- indicators SetIndexStyle(0,DRAW_HISTOGRAM,EMPTY,2); SetIndexBuffer(0,ExtMapBuffer1); SetIndexStyle(1,DRAW_HISTOGRAM,EMPTY,2); SetIndexBuffer(1,ExtMapBuffer2); SetIndexLabel(0,"MP - PivotZone"); SetIndexLabel(1,"MP - PivotZone"); IndicatorDigits(MarketInfo(Symbol(),MODE_DIGITS)); IndicatorShortName("MP - PivotZone"); //---- return(0); } //+------------------------------------------------------------------+ //| Custom indicator deinitialization function | //+------------------------------------------------------------------+ int deinit() { //---- TODO: add your code here ObjectsRedraw(); //---- return(0); } //+------------------------------------------------------------------+ //| Custom indicator iteration function | //+------------------------------------------------------------------+ int start() { ObjectCreate("yH_arr", OBJ_ARROW,0, 0, 0); ObjectCreate("yL_arr", OBJ_ARROW,0, 0, 0); ObjectCreate("WP_arr", OBJ_ARROW,0, 0, 0); ObjectCreate("DP_float",2,0,0,0,0,0); ObjectCreate("DP_PH",2,0,0,0,0,0); ObjectCreate("DP_PL",2,0,0,0,0,0); ObjectCreate("DP_FEH",2,0,0,0,0,0); ObjectCreate("DP_FEL",2,0,0,0,0,0); ObjectCreate("DP_yH",2,0,0,0,0,0); ObjectCreate("DP_yL",2,0,0,0,0,0); ObjectCreate("DP_WP",2,0,0,0,0,0); ObjectSet("yH_arr", OBJPROP_ARROWCODE, 5); ObjectSet("yL_arr", OBJPROP_ARROWCODE, 5); ObjectSet("WP_arr", OBJPROP_ARROWCODE, 5); ObjectSet("yH_arr", OBJPROP_WIDTH, 1); ObjectSet("yL_arr", OBJPROP_WIDTH, 1); ObjectSet("WP_arr", OBJPROP_WIDTH, 2); if (simpleSR) { ObjectCreate("BH_arr", OBJ_ARROW,0, 0, 0); ObjectCreate("BL_arr", OBJ_ARROW,0, 0, 0); ObjectSet("BH_arr", OBJPROP_ARROWCODE, 177); ObjectSet("BL_arr", OBJPROP_ARROWCODE, 177); ObjectSet("BH_arr", OBJPROP_WIDTH, 1); ObjectSet("BL_arr", OBJPROP_WIDTH, 1); ObjectSet("BH_arr", OBJPROP_COLOR, White); ObjectSet("BL_arr", OBJPROP_COLOR, White); } ObjectSet("DP_PH",OBJPROP_COLOR,DarkSlateGray); ObjectSet("DP_PL",OBJPROP_COLOR,DarkSlateGray); ObjectSet("DP_FEH",OBJPROP_COLOR,DarkGray); ObjectSet("DP_FEL",OBJPROP_COLOR,DarkGray); ObjectSet("DP_FEH",OBJPROP_STYLE,STYLE_DOT); ObjectSet("DP_FEL",OBJPROP_STYLE,STYLE_DOT); ObjectSet("DP_yH",OBJPROP_COLOR,Red); ObjectSet("DP_yL",OBJPROP_COLOR,Red); ObjectSet("DP_yH",OBJPROP_STYLE,STYLE_DOT); ObjectSet("DP_yL",OBJPROP_STYLE,STYLE_DOT); ObjectSet("DP_WP",OBJPROP_COLOR,HotPink); ObjectSet("DP_WP",OBJPROP_STYLE,STYLE_DOT); ObjectSet ("DP_float",OBJPROP_COLOR,White); ObjectSet ("DP_float",OBJPROP_WIDTH,2); ObjectSet ("DP_float",OBJPROP_RAY,true); int counted_bars=IndicatorCounted(); if (counted_bars<0) return(-1); if (counted_bars>0) counted_bars--; limit=Bars-counted_bars; for(int i=limit; i>=0; i--) { if (expire) { ObjectsDeleteAll(); break; } if ( TimeDayOfWeek(Time[i])==1 && TimeDayOfWeek(Time[i+1])!=1 ){ last_week_close = Close[i+1]; this_week_open = Open[i]; WP = (last_week_high + last_week_low + this_week_open + last_week_close) / 4; last_week_high = High[i]; last_week_low = Low[i]; } last_week_high = MathMax(last_week_high, High[i]); last_week_low = MathMin(last_week_low, Low[i]); if (i==0 && last_week_close==0 && Period()<1440) { Comment( "\n", "ERROR: Insufficient bar data quantity. Min 11 days data needed.\n", "Press HOME and click-drag chart screen to your right and release once.\n", "Repeat until this message disappear." ); } if ( (TimeHour(Time[i]) == dayChangeHour && TimeMinute(Time[i]) == 0) || (TimeHour(Time[i]) == dayChangeHour && TimeHour(Time[i+1]) != dayChangeHour) ){ barChangeDay = i; y_c = Close[i+1]; t_o = Open[i]; y_h = day_high; y_l = day_low; y_hH = day_highH; y_hL = day_highL; y_lH = day_lowH; y_lL = day_lowL; P = (y_h + y_l + y_c + t_o) / 4; PH = (y_hH + y_lH + y_c + t_o) / 4; PL = (y_hL + y_lL + y_c + t_o) / 4; R1 = P + P - y_l; S1 = P + P - y_h; R2 = P + y_h - y_l; S2 = P - y_h + y_l; R3 = P + P - y_l - y_l + y_h; S3 = P + P - y_h - y_h + y_l; ch3 = ((y_h - y_l)* 0.2750) + y_c; cl3 = y_c - ((y_h - y_l)*(0.2750)); day_high = High[i]; day_low = Low[i]; GlobalVariableSet(Symbol()+"-PH",PH); GlobalVariableSet(Symbol()+"-PL",PL); } // if dayHprev = day_high; dayLprev = day_low; day_high = MathMax(day_high, High[i]); day_low = MathMin(day_low, Low[i]); if (dayHprev != day_high) { if (Period()<=15) { day_highH = High[Highest(NULL,0,MODE_HIGH,3,i-1)]; day_highL = Low[Lowest(NULL,0,MODE_LOW,3,i-1)]; } else { day_highH = High[i]; day_highL = Low[i]; } } if (dayLprev != day_low) { if (Period()<=15) { day_lowH = High[Highest(NULL,0,MODE_HIGH,3,i-1)]; day_lowL = Low[Lowest(NULL,0,MODE_LOW,3,i-1)]; } else { day_lowH = High[i]; day_lowL = Low[i]; } } if (P > WP) { ExtMapBuffer1[i]=PH; ExtMapBuffer2[i]=PL; } else { ExtMapBuffer1[i]=PL; ExtMapBuffer2[i]=PH; } dpFloatPrice = (day_high+day_low+Close[0])/3; if (Close[0] > dpFloatPrice) { ObjectSet("DP_float",OBJPROP_COLOR,Chartreuse); AdjustObject("DP_float",Time[5],dpFloatPrice,Time[0],dpFloatPrice); } if (Close[0] < dpFloatPrice) { ObjectSet("DP_float",OBJPROP_COLOR,Red); AdjustObject("DP_float",Time[5],dpFloatPrice,Time[0],dpFloatPrice); } if (Ask > PH) { posRisk = MathRound(MathAbs(Ask- PL)/Point); floatRisk = MathRound(MathAbs(Ask - (((PH+PL)/2)-iATR(NULL,0,VolatilityRange,0)))/Point); } if (Bid < PL) { posRisk = MathRound(MathAbs(PH - Bid)/Point); floatRisk = MathRound(MathAbs(((PH+PL)/2)+iATR(NULL,0,VolatilityRange,0) - Bid)/Point); } Comment("Entry Risk = ",posRisk," / ",floatRisk); AdjustObject("DP_PH",Time[barChangeDay+10],PH,Time[0],PH); AdjustObject("DP_PL",Time[barChangeDay+10],PL,Time[0],PL); if (floatExit) { AdjustObject("DP_FEH",Time[barChangeDay+10],((PH+PL)/2)+iATR(NULL,0,VolatilityRange,0),Time[0],((PH+PL)/2)+iATR(NULL,0,VolatilityRange,0)); AdjustObject("DP_FEL",Time[barChangeDay+10],((PH+PL)/2)-iATR(NULL,0,VolatilityRange,0),Time[0],((PH+PL)/2)-iATR(NULL,0,VolatilityRange,0)); } if (ydayHL) { AdjustObject("DP_yH",Time[barChangeDay+10],y_hH,Time[0],y_hH); AdjustObject("DP_yL",Time[barChangeDay+10],y_lL,Time[0],y_lL); AdjustObject("yL_arr",Time[barChangeDay+10], y_lL,Time[barChangeDay+10], y_lL); AdjustObject("yH_arr",Time[barChangeDay+10], y_hH,Time[barChangeDay+10], y_hH); } AdjustObject("DP_WP",Time[barChangeDay+10],WP,Time[0],WP); AdjustObject("WP_arr",Time[barChangeDay+10], WP,Time[barChangeDay+10], WP); if (simpleSR) { AdjustObject("BH_arr",Time[0], ch3,Time[0], ch3); AdjustObject("BL_arr",Time[0], cl3,Time[0], cl3); } } // for if (!simpleSR) { ObjectCreate("DR3_txt", OBJ_TEXT, 0, Time[20], R3); ObjectCreate("DR2_txt", OBJ_TEXT, 0, Time[20], R2); ObjectCreate("DR1_txt", OBJ_TEXT, 0, Time[20], R1); ObjectCreate("DS1_txt", OBJ_TEXT, 0, Time[20], S1); ObjectCreate("DS2_txt", OBJ_TEXT, 0, Time[20], S2); ObjectCreate("DS3_txt", OBJ_TEXT, 0, Time[20], S3); ObjectSetText("DR3_txt", "R3 "+DoubleToStr(R3,4), 8, "Arial", White); ObjectSetText("DR2_txt", "R2 "+DoubleToStr(R2,4), 8, "Arial", White); ObjectSetText("DR1_txt", "R1 "+DoubleToStr(R1,4), 8, "Arial", White); ObjectSetText("DS1_txt", "S1 "+DoubleToStr(S1,4), 8, "Arial", White); ObjectSetText("DS2_txt", "S2 "+DoubleToStr(S2,4), 8, "Arial", White); ObjectSetText("DS3_txt", "S3 "+DoubleToStr(S3,4), 8, "Arial", White); } return(0); } //+------------------------------------------------------------------+ void AdjustObject(string ObjName, int T1, double P1, int T2, double P2) { ObjectSet(ObjName, OBJPROP_TIME1, T1); ObjectSet(ObjName, OBJPROP_PRICE1, P1); ObjectSet(ObjName, OBJPROP_TIME2, T2); ObjectSet(ObjName, OBJPROP_PRICE2, P2); }
Sample
Analysis
Market Information Used:
Series array that contains open time of each bar
Series array that contains close prices for each bar
Series array that contains open prices of each bar
Series array that contains the highest prices of each bar
Series array that contains the lowest prices of each bar
Indicator Curves created:
Implements a curve of type DRAW_HISTOGRAM
Indicators Used:
Indicator of the average true range
Custom Indicators Used:
Order Management characteristics:
Other Features: