//+------------------------------------------------------------------+ //| Pivot.mq4 | //| Copyright © 2004, Poul_Trade_Forum | //| Aborigen | //| http://forex.kbpauk.ru/ | //+------------------------------------------------------------------+ #property copyright "Poul Trade Forum" #property link "http://forex.kbpauk.ru/" #property indicator_chart_window //#property indicator_separate_window #property indicator_buffers 9 #property indicator_color1 White //Gold #property indicator_color2 Lime #property indicator_color3 Red #property indicator_color4 Lime #property indicator_color5 Red #property indicator_color6 Lime #property indicator_color7 Red #property indicator_color8 Yellow #property indicator_color9 Yellow #property indicator_color10 Yellow //---- input parameters SetIndexStyle(0,DRAW_LINE,1,0,Gold); //Pivot SetIndexStyle(1,DRAW_LINE,0,1,Lime); //Sup1 //DarkBlue); SetIndexStyle(2,DRAW_LINE,0,1,Red); //Res1 //Maroon); SetIndexStyle(3,DRAW_LINE,0,1,Lime); //Sup2 SetIndexStyle(4,DRAW_LINE,0,1,Red); //Res2 SetIndexStyle(5,DRAW_LINE,0,1,Lime); //Sup3 SetIndexStyle(6,DRAW_LINE,0,1,Red); //Res3 SetIndexStyle(7,DRAW_LINE,0,1,Yellow); //Mid1 SetIndexStyle(8,DRAW_LINE,0,1,Yellow); SetIndexStyle(9,DRAW_LINE,0,1,Yellow); //---- buffers double PBuffer[]; double S1Buffer[]; double R1Buffer[]; double S2Buffer[]; double R2Buffer[]; double S3Buffer[]; double R3Buffer[]; double M1Buffer[]; double M2Buffer[]; double M3Buffer[]; string Pivot="Pivot Point",Sup1="S 1", Res1="R 1"; string Sup2="S 2", Res2="R 2", Sup3="S 3", Res3="R 3"; string Mid1="M 1", Mid2="M 2", Mid3="M 3"; int fontsize=10; double P,S1,R1,S2,R2,S3,R3,M1,M2,M3; double LastHigh,LastLow,x; //+------------------------------------------------------------------+ //| Custor indicator deinitialization function | //+------------------------------------------------------------------+ int deinit() { //---- TODO: add your code here ObjectDelete("Pivot"); ObjectDelete("Sup1"); ObjectDelete("Res1"); ObjectDelete("Sup2"); ObjectDelete("Res2"); ObjectDelete("Sup3"); ObjectDelete("Res3"); ObjectDelete("Mid1"); ObjectDelete("Mid2"); ObjectDelete("Mid3"); //---- return(0); } //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int init() { string short_name; //---- indicator line SetIndexStyle(0,DRAW_LINE,1,1,Gold); //Pivot SetIndexStyle(1,DRAW_LINE,0,1,Lime); //Sup1 //DarkBlue); SetIndexStyle(2,DRAW_LINE,0,1,Red); //Res1 //Maroon); SetIndexStyle(3,DRAW_LINE,0,1,Lime); //Sup2 SetIndexStyle(4,DRAW_LINE,0,1,Red); //Res2 SetIndexStyle(5,DRAW_LINE,0,1,Lime); //Sup3 SetIndexStyle(6,DRAW_LINE,0,1,Red); //Res3 SetIndexStyle(7,DRAW_LINE,0,1,Yellow); //Mid1 SetIndexStyle(8,DRAW_LINE,0,1,Yellow); SetIndexStyle(9,DRAW_LINE,0,1,Yellow); SetIndexBuffer(0,PBuffer); SetIndexBuffer(1,S1Buffer); SetIndexBuffer(2,R1Buffer); SetIndexBuffer(3,S2Buffer); SetIndexBuffer(4,R2Buffer); SetIndexBuffer(5,S3Buffer); SetIndexBuffer(6,R3Buffer); SetIndexBuffer(7,M1Buffer); SetIndexBuffer(8,M2Buffer); SetIndexBuffer(9,M3Buffer); ObjectDelete("Pivot"); ObjectDelete("Sup1"); ObjectDelete("Res1"); ObjectDelete("Sup2"); ObjectDelete("Res2"); ObjectDelete("Sup3"); ObjectDelete("Res3"); ObjectDelete("Mid1"); ObjectDelete("Mid2"); ObjectDelete("Mid3"); //---- name for DataWindow and indicator subwindow label short_name="Pivot Point"; IndicatorShortName(short_name); SetIndexLabel(0,short_name); //---- SetIndexDrawBegin(0,1); //---- //---- return(0); } //+------------------------------------------------------------------+ //| Custom indicator iteration function | //+------------------------------------------------------------------+ int start() { int counted_bars=IndicatorCounted(); int limit, i; //---- indicator calculation if (counted_bars==0) { x=Period(); if (x>240) return(-1); ObjectCreate("Pivot", OBJ_TEXT, 0, 0,0); ObjectSetText("Pivot", " Pivot Point",fontsize,"Arial",Gold); ObjectCreate("Sup1", OBJ_TEXT, 0, 0, 0); ObjectSetText("Sup1", " S 1",fontsize,"Arial",Lime); ObjectCreate("Res1", OBJ_TEXT, 0, 0, 0); ObjectSetText("Res1", " R 1",fontsize,"Arial",Red); ObjectCreate("Sup2", OBJ_TEXT, 0, 0, 0); ObjectSetText("Sup2", " S 2",fontsize,"Arial",Lime); ObjectCreate("Res2", OBJ_TEXT, 0, 0, 0); ObjectSetText("Res2", " R 2",fontsize,"Arial",Red); ObjectCreate("Sup3", OBJ_TEXT, 0, 0, 0); ObjectSetText("Sup3", " S 3",fontsize,"Arial",Lime); ObjectCreate("Res3", OBJ_TEXT, 0, 0, 0); ObjectSetText("Res3", " R 3",fontsize,"Arial",Red); ObjectCreate("Mid1", OBJ_TEXT, 0, 0, 0); ObjectSetText("Mid1", " M 1",fontsize,"Arial",Red); ObjectCreate("Mid2", OBJ_TEXT, 0, 0, 0); ObjectSetText("Mid2", " M 2",fontsize,"Arial",Red); ObjectCreate("Mid3", OBJ_TEXT, 0, 0, 0); ObjectSetText("Mid3", " M 3",fontsize,"Arial",Red); } if(counted_bars<0) return(-1); //---- last counted bar will be recounted // if(counted_bars>0) counted_bars--; limit=(Bars-counted_bars)-1; for (i=limit; i>=0;i--) { if (High[i+1]>LastHigh) LastHigh=High[i+1]; if (Low[i+1]