//+------------------------------------------------------------------+ //| FTLM hist + alerts + arrows mtf.mq4 | //| by mladen | //| https://forex-station.com/viewtopic.php?f=579496&t=8466839 | //+------------------------------------------------------------------+ // FTLM - Fast Trend Line Momentum // (FTLM and FTLM show rate of changing (falls or growing) // of FATL and SATL calculated similarly with Momentum indicator but // using smoothing as a result of filtrations of the price) //-------------------------------------------------------------------- #property copyright "www.forex-station.com" #property link "www.forex-station.com" //-------------------------------------------------------------------- #property indicator_separate_window #property indicator_buffers 7 #property indicator_color1 clrDarkGreen #property indicator_color2 clrRed #property indicator_color3 clrCrimson #property indicator_color4 clrLime #property indicator_color5 clrGreen #property indicator_color6 clrRed #property indicator_color7 clrRed #property indicator_width1 2 #property indicator_width3 2 #property indicator_width5 2 #property indicator_width6 2 #property indicator_width7 2 enum enPrices { pr_close, // Close pr_open, // Open pr_high, // High pr_low, // Low pr_median, // Median pr_typical, // Typical pr_weighted, // Weighted pr_average, // Average (high+low+open+close)/4 pr_medianb, // Average median body (open+close)/2 pr_tbiased, // Trend biased price pr_tbiased2, // Trend biased (extreme) price pr_haclose, // Heiken ashi close pr_haopen , // Heiken ashi open pr_hahigh, // Heiken ashi high pr_halow, // Heiken ashi low pr_hamedian, // Heiken ashi median pr_hatypical, // Heiken ashi typical pr_haweighted, // Heiken ashi weighted pr_haaverage, // Heiken ashi average pr_hamedianb, // Heiken ashi median body pr_hatbiased, // Heiken ashi trend biased price pr_hatbiased2 // Heiken ashi trend biased (extreme) price }; extern ENUM_TIMEFRAMES TimeFrame = PERIOD_CURRENT; // Time frame extern enPrices Price = pr_close; // Price to use for FTLM calculation extern bool arrowsVisible = true; // Arrows visible? extern bool arrowsOnFirst = false; // Arrows shift? extern string arrowsIdentifier = "FTLM arrows"; // Unique ID for arrows extern double arrowsUpperGap = 1.0; // Upper arrow gap extern double arrowsLowerGap = 1.0; // Lower arrow gap extern color arrowsUpColor = clrDarkGreen; // Up arrow color extern color arrowsDnColor = clrCrimson; // Down arrow color extern int arrowsUpCode = 221; // Up arrow code extern int arrowsDnCode = 222; // Down arrow code extern bool alertsOn = false; // Turn alerts on? extern bool alertsOnCurrent = false; // Alerts on still opened bar? extern bool alertsMessage = false; // Alerts should display message? extern bool alertsSound = false; // Alerts should play a sound? extern bool alertsNotify = false; // Alerts should send a notification? extern bool alertsEmail = false; // Alerts should send an email? extern string soundFile = "alert2.wav"; // Sound file extern bool Interpolate = true; // Interpolate in multi time frame mode? double FTLMhuu[],FTLMhud[],FTLMhdd[],FTLMhdu[],FTLM[],FTLMbuffer2[],FTLMbuffer3[],prices[],FTLMslope[],FTLMcount[]; string indicatorFileName; #define _mtfCall(_buff,_ind) iCustom(NULL,TimeFrame,indicatorFileName,PERIOD_CURRENT,Price,arrowsVisible,arrowsOnFirst,arrowsIdentifier,arrowsUpperGap,arrowsLowerGap,arrowsUpColor,arrowsDnColor,arrowsUpCode,arrowsDnCode,alertsOn,alertsOnCurrent,alertsMessage,alertsSound,alertsNotify,alertsEmail,soundFile,_buff,_ind) //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int OnInit() { IndicatorBuffers(10); SetIndexBuffer(0,FTLMhuu); SetIndexStyle(0, DRAW_HISTOGRAM); SetIndexBuffer(1,FTLMhud); SetIndexStyle(1, DRAW_HISTOGRAM); SetIndexBuffer(2,FTLMhdd); SetIndexStyle(2, DRAW_HISTOGRAM); SetIndexBuffer(3,FTLMhdu); SetIndexStyle(3, DRAW_HISTOGRAM); SetIndexBuffer(4,FTLM); SetIndexBuffer(5,FTLMbuffer2); SetIndexBuffer(6,FTLMbuffer3); SetIndexBuffer(7,prices); SetIndexBuffer(8,FTLMslope); SetIndexBuffer(9,FTLMcount); indicatorFileName = WindowExpertName(); TimeFrame = fmax(TimeFrame,_Period); IndicatorShortName(timeFrameToString(TimeFrame)+" FTLM"); return (0); } int deinit() { string lookFor = arrowsIdentifier+":"; int lookForLength = StringLen(lookFor); for (int i=ObjectsTotal()-1; i>=0; i--) { string objectName = ObjectName(i); if (StringSubstr(objectName,0,lookForLength) == lookFor) ObjectDelete(objectName); } return(0); } //+------------------------------------------------------------------+ //| FTLM | //+------------------------------------------------------------------+ // // int start() { int i,FTLMcounted_bars=IndicatorCounted(); if(FTLMcounted_bars<0) return(-1); if(FTLMcounted_bars>0) FTLMcounted_bars--; int limit = fmin(Bars-FTLMcounted_bars,Bars-1); FTLMcount[0]=limit; if (TimeFrame!=_Period) { limit = (int)fmax(limit,fmin(Bars-1,_mtfCall(9,0)*TimeFrame/_Period)); if (FTLMslope[limit]==-1) CleanPoint(limit,FTLMbuffer2,FTLMbuffer3); for (i=limit;i>=0 && !_StopFlag; i--) { int y = iBarShift(NULL,TimeFrame,Time[i]); FTLM [i] = _mtfCall(4,y); FTLMhuu[i] = EMPTY_VALUE; FTLMhud[i] = EMPTY_VALUE; FTLMhdd[i] = EMPTY_VALUE; FTLMhdu[i] = EMPTY_VALUE; FTLMbuffer2[i] = EMPTY_VALUE; FTLMbuffer3[i] = EMPTY_VALUE; FTLMslope[i] = _mtfCall(8,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 time = iTime(NULL,TimeFrame,y); for(n = 1; (i+n)= time; n++) continue; for(k = 1; k=0; i--) { if (FTLM[i]>0) if (FTLMslope[i]==1) FTLMhuu[i] = FTLM[i]; else FTLMhud[i] = FTLM[i]; if (FTLM[i]<0) if (FTLMslope[i]==1) FTLMhdu[i] = FTLM[i]; else FTLMhdd[i] = FTLM[i]; if (FTLMslope[i]==-1) PlotPoint(i,FTLMbuffer2,FTLMbuffer3,FTLM); } return(0); } // // // // // if (FTLMslope[limit]==-1) CleanPoint(limit,FTLMbuffer2,FTLMbuffer3); for (i=limit; i >= 0; i--) { if (iFTLM[i+1]) ? 1 : (FTLM[i]0) if (FTLMslope[i]==1) FTLMhuu[i] = FTLM[i]; else FTLMhud[i] = FTLM[i]; if (FTLM[i]<0) if (FTLMslope[i]==1) FTLMhdu[i] = FTLM[i]; else FTLMhdd[i] = FTLM[i]; if (FTLMslope[i]==-1) PlotPoint(i,FTLMbuffer2,FTLMbuffer3,FTLM); // // // // // if (arrowsVisible) { string lookFor = arrowsIdentifier+":"+(string)Time[i]; ObjectDelete(lookFor); if (i=pr_haclose) { if (ArrayRange(workHa,0)!= Bars) ArrayResize(workHa,Bars); instanceNo*=4; int r = Bars-i-1; // // // // // double haOpen; if (r>0) haOpen = (workHa[r-1][instanceNo+2] + workHa[r-1][instanceNo+3])/2.0; else haOpen = (open[i]+close[i])/2; double haClose = (open[i] + high[i] + low[i] + close[i]) / 4.0; double haHigh = fmax(high[i], fmax(haOpen,haClose)); double haLow = fmin(low[i] , fmin(haOpen,haClose)); if(haOpen haOpen) return((haHigh+haClose)/2.0); else return((haLow+haClose)/2.0); case pr_hatbiased2: if (haClose>haOpen) return(haHigh); if (haCloseopen[i]) return((high[i]+close[i])/2.0); else return((low[i]+close[i])/2.0); case pr_tbiased2: if (close[i]>open[i]) return(high[i]); if (close[i]=Bars-3) 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-2) 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; } } //------------------------------------------------------------------ // //------------------------------------------------------------------ // // // // // 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)," FTLM ",doWhat); if (alertsMessage) Alert(message); if (alertsNotify) SendNotification(message); if (alertsEmail) SendMail(_Symbol+" FTLM ",message); if (alertsSound) PlaySound(soundFile); } } //------------------------------------------------------------------- // //------------------------------------------------------------------- // // // // // void drawArrow(int i,color theColor,int theCode,bool up) { string name = arrowsIdentifier+":"+(string)Time[i]; double gap = iATR(NULL,0,20,i); // // // // // int add = 0; if (!arrowsOnFirst) add = _Period*60-1; ObjectCreate(name,OBJ_ARROW,0,Time[i]+add,0); ObjectSet(name,OBJPROP_ARROWCODE,theCode); ObjectSet(name,OBJPROP_COLOR,theColor); if (up) ObjectSet(name,OBJPROP_PRICE1,High[i] + arrowsUpperGap * gap); else ObjectSet(name,OBJPROP_PRICE1,Low[i] - arrowsLowerGap * gap); } //------------------------------------------------------------------- // //------------------------------------------------------------------- // // // // // 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(""); }