//------------------------------------------------------------------ #property copyright "Copyright 2016, mladen - MetaQuotes Software Corp." #property link "https://www.mql5.com" #property version "1.00" //------------------------------------------------------------------ #property indicator_chart_window #property indicator_buffers 5 #property indicator_color1 clrLimeGreen #property indicator_color2 clrOrange #property indicator_color3 clrOrange #property indicator_width1 2 #property indicator_width2 2 #property indicator_width3 2 #property strict // // // // // #define INDICATOR_NAME "Fractal Support Resistance" #define _disLin 1 #define _disDot 4 enum enDisplay { en_lin = _disLin, // Display line en_lid = _disLin+_disDot, // Display lines with dots en_dot = _disDot // Display dots }; extern ENUM_TIMEFRAMES TimeFrame = PERIOD_CURRENT; // Time frame //******************************************************************************************************************* //Added to declare error from copied button code extern string LinesID = "SuperTrend"; extern color LineColor = clrWhiteSmoke; //******************************************************************************************************************* extern int period = 10; // Super trend period extern double multiplier = 4.0; // Super trend multiplier extern enDisplay DisplayType = en_lin; // Display type extern bool alertsOn = true; // Turn alerts on? extern bool alertsOnCurrent = false; // Alerts on current (still opened) bar? extern bool alertsMessage = true; // Alerts should display a message? extern bool alertsSound = false; // Alerts should play a sound? extern bool alertsEmail = false; // Alerts should send an email? extern bool alertsNotify = false; // Alerts should send notification? extern string soundFile = "alert2.wav"; // Sound file extern bool ArrowOnFirst = true; // Arrow on first bars extern int UpArrowSize = 1; // Up Arrow size extern int DnArrowSize = 1; // Down Arrow size extern int UpArrowCode = 159; // Up Arrow code extern int DnArrowCode = 159; // Down arrow code extern double UpArrowGap = 0.5; // Up Arrow gap extern double DnArrowGap = 0.5; // Dn Arrow gap extern color UpArrowColor = clrLimeGreen; // Up Arrow Color extern color DnArrowColor = clrOrange; // Down Arrow Color extern bool Interpolate = true; // Interpolate in multi time frame mode? //******************************************************************************************************************* //template code start1 extern string ButtonSettings = "------------------------------"; extern bool btn_show = true; //btn__show extern ENUM_BASE_CORNER btn_corner = CORNER_LEFT_UPPER; // chart corner for anchoring extern string btn_pressed = "SuperTrend on"; //btn__pressed text extern string btn_unpressed = "SuperTrend off"; //btn__unpressed text extern int btn_offset_x = 0; //btn__x extern int btn_offset_y = 20; //btn__y extern int btn_width = 90; //btn__width extern int btn_height = 20; //btn__height extern int btn_font_size = 10; //btn__font size input bool inpSelection = false; // Highlight to move extern color btn_font_clr = clrWhiteSmoke; //btn__font color extern color btn_bg_color = clrDodgerBlue; //btn__bg color extern color btn_border_clr = clrWhiteSmoke; //btn__border color extern string note6 = "------------------------------"; string aButtonName = "SuperTrend"; //template code end1 //******************************************************************************************************************* double Trend[],TrendDoA[],TrendDoB[],Direction[],Up[],Dn[],arrUp[],arrDn[],count[]; string indicatorFileName; #define _mtfCall(_buff,_y) iCustom(NULL,TimeFrame,indicatorFileName,PERIOD_CURRENT,period,multiplier,DisplayType,alertsOn,alertsOnCurrent,alertsMessage,alertsSound,alertsEmail,alertsNotify,soundFile,ArrowOnFirst,UpArrowSize,DnArrowSize,UpArrowCode,DnArrowCode,UpArrowGap,DnArrowGap,UpArrowColor,DnArrowColor,_buff,_y) //------------------------------------------------------------------ // //------------------------------------------------------------------ // // // // // int OnInit() { //******************************************************************************************************************* //template code start2 if(btn_show){CreateButton();} if(!btn_show){ObjectDelete(0,aButtonName);} //template code end2 //******************************************************************************************************************* int lstyle = DRAW_LINE; if ((DisplayType&_disLin)==0) lstyle = DRAW_NONE; int astyle = DRAW_ARROW; if ((DisplayType&_disDot)==0) astyle = DRAW_NONE; IndicatorBuffers(9); SetIndexBuffer(0, Trend); SetIndexStyle(0,lstyle); SetIndexBuffer(1, TrendDoA); SetIndexStyle(1,lstyle); SetIndexBuffer(2, TrendDoB); SetIndexStyle(2,lstyle); SetIndexBuffer(3, arrUp); SetIndexStyle(3,astyle,0,UpArrowSize,UpArrowColor); SetIndexArrow(3,UpArrowCode); SetIndexBuffer(4, arrDn); SetIndexStyle(4,astyle,0,DnArrowSize,DnArrowColor); SetIndexArrow(4,DnArrowCode); SetIndexBuffer(5, Direction); SetIndexBuffer(6, Up); SetIndexBuffer(7, Dn); SetIndexBuffer(8, count); indicatorFileName = WindowExpertName(); TimeFrame = fmax(TimeFrame,_Period); IndicatorShortName(timeFrameToString(TimeFrame)+" SuperTrend"); return(0); } //+------------------------------------------------------------------+ //| Deinitialization | //+------------------------------------------------------------------+ int deinit() { //******************************************************************************************************************* //template code start3 ObjectDelete(0,aButtonName); //template code end3 //******************************************************************************************************************* return(0); } //------------------------------------------------------------------ // //------------------------------------------------------------------ // // // // // int OnCalculate(const int rates_total, const int prev_calculated, const datetime &time[], const double &open[], const double &high[], const double &low[], const double &close[], const long &tick_volume[], const long &volume[], const int &spread[]) { int i,counted_bars = prev_calculated; if(counted_bars < 0) return(-1); if(counted_bars > 0) counted_bars--; int limit=fmin(rates_total-counted_bars,rates_total-1); count[0] = limit; if (TimeFrame!=_Period) { //******************************************************************************************************************* //template code start4 if (!ObjectGetInteger(0,aButtonName,OBJPROP_STATE)) { //template code end4 //******************************************************************************************************************* limit = (int)MathMax(limit,MathMin(rates_total-1,_mtfCall(6,0)*TimeFrame/_Period)); if (Direction[limit] == -1) CleanPoint(limit,TrendDoA,TrendDoB); for (i=limit;i>=0 && !_StopFlag; i--) { int y = iBarShift(NULL,TimeFrame,Time[i]); int x = y; if (ArrowOnFirst) { if (i0) x = iBarShift(NULL,TimeFrame,Time[i-1]); else x = -1; } Trend[i] = _mtfCall(0,y); Direction[i] = _mtfCall(5,y); Up[i] = _mtfCall(6,y); Dn[i] = _mtfCall(7,y); TrendDoA[i] = EMPTY_VALUE; TrendDoB[i] = EMPTY_VALUE; arrUp[i] = EMPTY_VALUE; arrDn[i] = EMPTY_VALUE; if (x!=y) { arrUp[i] = _mtfCall(3,y); arrDn[i] = _mtfCall(4,y); } if (!Interpolate || (i>0 && y==iBarShift(NULL,TimeFrame,Time[i-1]))) continue; // // // // // #define _interpolate(buff) buff[i+k] = buff[i]+(buff[i+n]-buff[i])*k/n int n,k; datetime ttime = iTime(NULL,TimeFrame,y); for(n = 1; (i+n)= ttime; n++) continue; for(k = 1; k=0; i--) if (Direction[i] == -1) PlotPoint(i,TrendDoA,TrendDoB,Trend); return(rates_total); } } //} // // // // // if (Direction[limit] == -1) CleanPoint(limit,TrendDoA,TrendDoB); for(i = limit; i >= 0; i--) { double atr = iATR(NULL,0,period,i); double cprice = close[i]; double mprice = (high[i]+low[i])/2; Up[i] = mprice+multiplier*atr; Dn[i] = mprice-multiplier*atr; // // // // // Direction[i] = (i Up[i+1]) ? 1 : (cprice < Dn[i+1]) ? -1 : Direction[i+1] : 0; TrendDoA[i] = EMPTY_VALUE; TrendDoB[i] = EMPTY_VALUE; arrUp[i] = EMPTY_VALUE; arrDn[i] = EMPTY_VALUE; if (Direction[i] == 1) { Dn[i] = fmax(Dn[i],Dn[i+1]); Trend[i] = Dn[i]; } if (Direction[i] == -1) { Up[i] = fmin(Up[i],Up[i+1]); Trend[i] = Up[i]; PlotPoint(i,TrendDoA,TrendDoB,Trend); } if (iBars-2) return; if ((second[i] != EMPTY_VALUE) && (second[i+1] != EMPTY_VALUE)) second[i+1] = EMPTY_VALUE; else if ((first[i] != EMPTY_VALUE) && (first[i+1] != EMPTY_VALUE) && (first[i+2] == EMPTY_VALUE)) first[i+1] = EMPTY_VALUE; } void PlotPoint(int i,double& first[],double& second[],double& from[]) { if (i>Bars-3) return; if (first[i+1] == EMPTY_VALUE) if (first[i+2] == EMPTY_VALUE) { first[i] = from[i]; first[i+1] = from[i+1]; second[i] = EMPTY_VALUE; } else { second[i] = from[i]; second[i+1] = from[i+1]; first[i] = EMPTY_VALUE; } else { first[i] = from[i]; second[i] = EMPTY_VALUE; } } //------------------------------------------------------------------- // //------------------------------------------------------------------- // // // // // string sTfTable[] = {"M1","M5","M15","M30","H1","H4","D1","W1","MN"}; int iTfTable[] = {1,5,15,30,60,240,1440,10080,43200}; string timeFrameToString(int tf) { for (int i=ArraySize(iTfTable)-1; i>=0; i--) if (tf==iTfTable[i]) return(sTfTable[i]); return(""); } //+------------------------------------------------------------------+ // // // // void doAlert(string doWhat) { static string previousAlert="nothing"; static datetime previousTime; string message; if (previousAlert != doWhat || previousTime != Time[0]) { previousAlert = doWhat; previousTime = Time[0]; // // // // // message = StringConcatenate(Symbol()," ",timeFrameToString(_Period)," at ",TimeToStr(TimeLocal(),TIME_SECONDS)," SuperTrend ",doWhat); if (alertsMessage) Alert(message); if (alertsNotify) SendNotification(message); if (alertsEmail) SendMail(_Symbol+" SuperTrend ",message); if (alertsSound) PlaySound(soundFile); } } //******************************************************************************************************************* //template start codes5 void CreateButton() { ButtonCreate(NULL,aButtonName,0,btn_offset_x,btn_offset_y,btn_width,btn_height,btn_corner,btn_unpressed,"Arial",btn_font_size,btn_font_clr,btn_bg_color,btn_border_clr,false,true,false,false,0); } //+------------------------------------------------------------------+ void OnChartEvent(const int id,const long &lparam,const double &dparam,const string &sparam) { int i, lookForLength; string name; if (id == CHARTEVENT_OBJECT_CLICK && sparam==aButtonName) { if(ObjectGetInteger (0,aButtonName,OBJPROP_STATE)){ ObjectSetString (0,aButtonName,OBJPROP_TEXT,btn_pressed); lookForLength = StringLen(LinesID); for (i=ObjectsTotal()-1; i>=0; i--) { name = ObjectName(i); if (StringSubstr(name,0,lookForLength) == LinesID) ObjectSet(name, OBJPROP_COLOR, clrNONE); } } if(!ObjectGetInteger(0,aButtonName,OBJPROP_STATE)){ ObjectSetString (0,aButtonName,OBJPROP_TEXT,btn_unpressed); for (i=ObjectsTotal()-1; i>=0; i--) { name = ObjectName(i); if (StringSubstr(name,0,lookForLength) == LinesID) ObjectCreate(name,OBJ_VLINE,0,Time[i],High[i]); ObjectSet(name, OBJPROP_COLOR, LineColor); } } } } //+------------------------------------------------------------------+ bool ButtonCreate(const long chart_ID = 0, // chart's ID const string name = "Button", // button name const int sub_window = 0, // subwindow index const int x = 0, // X coordinate const int y = 0, // Y coordinate const int width = 50, // button width const int height = 18, // button height const int mycorner = CORNER_LEFT_UPPER, const string text = "Button", // text const string font = "Arial", // font const int font_size = 10, // font size const color clr = clrBlack, // text color const color back_clr = C'236,233,216', // background color const color border_clr = clrNONE, // border color const bool state = false, // pressed/released const bool back = false, // in the background const bool selectable = true, //object can be selected const bool selection = false, // highlight to move const bool hidden = false, // hidden in the object list const long z_order = 0) // priority for mouse click { ResetLastError(); ObjectCreate (chart_ID,name,OBJ_BUTTON, sub_window,0,0); ObjectSetInteger(chart_ID,name,OBJPROP_XDISTANCE, x); ObjectSetInteger(chart_ID,name,OBJPROP_YDISTANCE, y); ObjectSetInteger(chart_ID,name,OBJPROP_XSIZE, width); ObjectSetInteger(chart_ID,name,OBJPROP_CORNER, mycorner); ObjectSetString (chart_ID,name,OBJPROP_TEXT, text); ObjectSetString (chart_ID,name,OBJPROP_FONT, font); ObjectSetInteger(chart_ID,name,OBJPROP_FONTSIZE, font_size); ObjectSetInteger(chart_ID,name,OBJPROP_COLOR, clr); ObjectSetInteger(chart_ID,name,OBJPROP_BGCOLOR, back_clr); ObjectSetInteger(chart_ID,name,OBJPROP_BORDER_COLOR,border_clr); ObjectSetInteger(chart_ID,name,OBJPROP_BACK, back); ObjectSetInteger(chart_ID,name,OBJPROP_STATE, state); ObjectSetInteger(chart_ID,name,OBJPROP_SELECTABLE, selection); ObjectSetInteger(chart_ID,name,OBJPROP_SELECTED, selection); ObjectSetInteger(chart_ID,name,OBJPROP_HIDDEN, hidden); ObjectSetInteger(chart_ID,name,OBJPROP_ZORDER, z_order); return(true); } //template end codes5 //*******************************************************************************************************************