//----------------------------------------------------------------------- // not for sale, rent, auction, nor lease // https://forex-station.com/viewtopic.php?f=579496&t=8466839&start=100 //STLM - Slow Trend Line Momentum #property copyright "mladen" #property link "www.forex-station.com" //----------------------------------------------------------------------- #property indicator_separate_window #property indicator_buffers 8 #property indicator_color1 clrDarkGreen #property indicator_color2 clrCrimson #property indicator_color3 clrDarkGreen #property indicator_color4 clrCrimson #property indicator_color5 clrDarkGreen #property indicator_color6 clrCrimson #property indicator_color7 clrDarkGreen #property indicator_color8 clrCrimson #property indicator_minimum 0 #property indicator_maximum 5 //33 enPrices 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 pr_habclose, // Heiken ashi (better formula) close pr_habopen, // Heiken ashi (better formula) open pr_habhigh, // Heiken ashi (better formula) high pr_hablow, // Heiken ashi (better formula) low pr_habmedian, // Heiken ashi (better formula) median pr_habtypical, // Heiken ashi (better formula) typical pr_habweighted,// Heiken ashi (better formula) weighted pr_habaverage, // Heiken ashi (better formula) average pr_habmedianb, // Heiken ashi (better formula) median body pr_habtbiased, // Heiken ashi (better formula) trend biased price pr_habtbiased2 // Heiken ashi (better formula) trend biased (extreme) price }; extern string TimeFrame1 = "Current time frame"; extern string TimeFrame2 = "next1"; extern string TimeFrame3 = "next2"; extern string TimeFrame4 = "next3"; extern enPrices Price = pr_close; // Price to use for FATL calculation extern string UniqueID = "4TF STLM"; extern int LinesWidth = 0; extern color LabelsColor = clrDarkGray; extern int LabelsHorizontalShift = 5; extern double LabelsVerticalShift = 1.5; extern bool alertsOn = false; extern string note1 = "alertsLevel=3 means 3 time frames are aligned in the same direction"; extern int alertsLevel = 3; extern bool alertsMessage = false; extern bool alertsSound = false; extern bool alertsEmail = false; extern int WingdingsFontCode1 = 110; extern int WingdingsFontCode2 = 110; extern int WingdingsFontCode3 = 108; extern int WingdingsFontCode4 = 108; extern int MaximumCandlesToDisplay = 287; double ForexStationSTLM1u[], ForexStationSTLM1d[], ForexStationSTLM2u[], ForexStationSTLM2d[], ForexStationSTLM3u[], ForexStationSTLM3d[], ForexStationSTLM4u[], ForexStationSTLM4d[],prices[]; int timeFrames[4]; bool returnBars, calculateValue; string indicatorFileName; //------------------------------------------------------------------ int OnInit() { IndicatorBuffers(9); SetIndexBuffer(0,ForexStationSTLM1u); SetIndexBuffer(1,ForexStationSTLM1d); SetIndexBuffer(2,ForexStationSTLM2u); SetIndexBuffer(3,ForexStationSTLM2d); SetIndexBuffer(4,ForexStationSTLM3u); SetIndexBuffer(5,ForexStationSTLM3d); SetIndexBuffer(6,ForexStationSTLM4u); SetIndexBuffer(7,ForexStationSTLM4d); SetIndexBuffer(8,prices); indicatorFileName = WindowExpertName(); returnBars = (TimeFrame1=="returnBars"); if (returnBars) return(0); calculateValue = (TimeFrame1=="calculateValue"); if (calculateValue) return(0); SetIndexStyle(0,DRAW_ARROW,EMPTY,LinesWidth); SetIndexArrow(0,WingdingsFontCode1); SetIndexStyle(1,DRAW_ARROW,EMPTY,LinesWidth); SetIndexArrow(1,WingdingsFontCode1); SetIndexStyle(2,DRAW_ARROW,EMPTY,LinesWidth); SetIndexArrow(2,WingdingsFontCode2); SetIndexStyle(3,DRAW_ARROW,EMPTY,LinesWidth); SetIndexArrow(3,WingdingsFontCode2); SetIndexStyle(4,DRAW_ARROW,EMPTY,LinesWidth); SetIndexArrow(4,WingdingsFontCode3); SetIndexStyle(5,DRAW_ARROW,EMPTY,LinesWidth); SetIndexArrow(5,WingdingsFontCode3); SetIndexStyle(6,DRAW_ARROW,EMPTY,LinesWidth); SetIndexArrow(6,WingdingsFontCode4); SetIndexStyle(7,DRAW_ARROW,EMPTY,LinesWidth); SetIndexArrow(7,WingdingsFontCode4); timeFrames[0] = stringToTimeFrame(TimeFrame1); timeFrames[1] = stringToTimeFrame(TimeFrame2); timeFrames[2] = stringToTimeFrame(TimeFrame3); timeFrames[3] = stringToTimeFrame(TimeFrame4); alertsLevel = MathMin(MathMax(alertsLevel,3),indicator_buffers/2); IndicatorShortName(UniqueID); return(0); } //------------------------------------------------------------------ int deinit() { for (int t=0; t0) counted_bars--; int limit = MathMin(Bars-counted_bars,Bars-1); if (returnBars) { ForexStationSTLM1u[0] = limit+1; return(0); } if (calculateValue) { calculateSTLM(limit); return(0); } if (timeFrames[0] != Period()) limit = MathMax(limit,MathMin(Bars-1,iCustom(NULL,timeFrames[0],indicatorFileName,"returnBars",0,0)*timeFrames[0]/Period())); if (timeFrames[1] != Period()) limit = MathMax(limit,MathMin(Bars-1,iCustom(NULL,timeFrames[1],indicatorFileName,"returnBars",0,0)*timeFrames[1]/Period())); if (timeFrames[2] != Period()) limit = MathMax(limit,MathMin(Bars-1,iCustom(NULL,timeFrames[2],indicatorFileName,"returnBars",0,0)*timeFrames[2]/Period())); if (timeFrames[3] != Period()) limit = MathMax(limit,MathMin(Bars-1,iCustom(NULL,timeFrames[3],indicatorFileName,"returnBars",0,0)*timeFrames[3]/Period())); limit = MaximumCandlesToDisplay; if (ArrayRange(trend,0)!=Bars) ArrayResize(trend,Bars); bool initialized = false; if (!initialized) { initialized = true; int window = WindowFind(UniqueID); for (int t=0; t= 0; i--,r++) { trend[r][_up] = 0; trend[r][_dn] = 0; for (int k=0; k iCustom(NULL,timeFrames[k],indicatorFileName,"calculateValue","","","",0,y+1)); switch (k) { case 0 : if (isUp) { ForexStationSTLM1u[i] = k+1; ForexStationSTLM1d[i] = EMPTY_VALUE;} else { ForexStationSTLM1d[i] = k+1; ForexStationSTLM1u[i] = EMPTY_VALUE; } break; case 1 : if (isUp) { ForexStationSTLM2u[i] = k+1; ForexStationSTLM2d[i] = EMPTY_VALUE;} else { ForexStationSTLM2d[i] = k+1; ForexStationSTLM2u[i] = EMPTY_VALUE; } break; case 2 : if (isUp) { ForexStationSTLM3u[i] = k+1; ForexStationSTLM3d[i] = EMPTY_VALUE;} else { ForexStationSTLM3d[i] = k+1; ForexStationSTLM3u[i] = EMPTY_VALUE; } break; case 3 : if (isUp) { ForexStationSTLM4u[i] = k+1; ForexStationSTLM4d[i] = EMPTY_VALUE;} else { ForexStationSTLM4d[i] = k+1; ForexStationSTLM4u[i] = EMPTY_VALUE; } break; } if (isUp) trend[r][_up] += 1; else trend[r][_dn] += 1; } } manageAlerts(); return(0); } //------------------------------------------------------------------- void calculateSTLM(int limit) { for (int i=limit; i>=0; i--) { prices[i] = getPrice(Price,Open,Close,High,Low,i,Bars); double value1 = 0.0982862174*prices[i+0] +0.0975682269*prices[i+1] +0.0961401078*prices[i+2] +0.0940230544*prices[i+3] +0.0912437090*prices[i+4] +0.0878391006*prices[i+5] +0.0838544303*prices[i+6] +0.0793406350*prices[i+7] +0.0743569346*prices[i+8] +0.0689666682*prices[i+9] +0.0632381578*prices[i+10] +0.0572428925*prices[i+11] +0.0510534242*prices[i+12] +0.0447468229*prices[i+13] +0.0383959950*prices[i+14] +0.0320735368*prices[i+15] +0.0258537721*prices[i+16] +0.0198005183*prices[i+17] +0.0139807863*prices[i+18] +0.0084512448*prices[i+19] +0.0032639979*prices[i+20] -0.0015350359*prices[i+21] -0.0059060082*prices[i+22] -0.0098190256*prices[i+23] -0.0132507215*prices[i+24] -0.0161875265*prices[i+25] -0.0186164872*prices[i+26] -0.0205446727*prices[i+27] -0.0219739146*prices[i+28] -0.0229204861*prices[i+29] -0.0234080863*prices[i+30] -0.0234566315*prices[i+31] -0.0231017777*prices[i+32] -0.0223796900*prices[i+33] -0.0213300463*prices[i+34] -0.0199924534*prices[i+35] -0.0184126992*prices[i+36] -0.0166377699*prices[i+37] -0.0147139428*prices[i+38] -0.0126796776*prices[i+39] -0.0105938331*prices[i+40] -0.0084736770*prices[i+41] -0.0063841850*prices[i+42] -0.0043466731*prices[i+43] -0.0023956944*prices[i+44] -0.0005535180*prices[i+45] +0.0011421469*prices[i+46] +0.0026845693*prices[i+47] +0.0040471369*prices[i+48] +0.0052380201*prices[i+49] +0.0062194591*prices[i+50] +0.0070340085*prices[i+51] +0.0076266453*prices[i+52] +0.0080376628*prices[i+53] +0.0083037666*prices[i+54] +0.0083694798*prices[i+55] +0.0082901022*prices[i+56] +0.0080741359*prices[i+57] +0.0077543820*prices[i+58] +0.0073260526*prices[i+59] +0.0068163569*prices[i+60] +0.0062325477*prices[i+61] +0.0056078229*prices[i+62] +0.0049516078*prices[i+63] +0.0161380976*prices[i+64]; double value2 = -0.0074151919*prices[i+0] -0.0060698985*prices[i+1] -0.0044979052*prices[i+2] -0.0027054278*prices[i+3] -0.0007031702*prices[i+4] +0.0014951741*prices[i+5] +0.0038713513*prices[i+6] +0.0064043271*prices[i+7] +0.0090702334*prices[i+8] +0.0118431116*prices[i+9] +0.0146922652*prices[i+10] +0.0175884606*prices[i+11] +0.0204976517*prices[i+12] +0.0233865835*prices[i+13] +0.0262218588*prices[i+14] +0.0289681736*prices[i+15] +0.0315922931*prices[i+16] +0.0340614696*prices[i+17] +0.0363444061*prices[i+18] +0.0384120882*prices[i+19] +0.0402373884*prices[i+20] +0.0417969735*prices[i+21] +0.0430701377*prices[i+22] +0.0440399188*prices[i+23] +0.0446941124*prices[i+24] +0.0450230100*prices[i+25] +0.0450230100*prices[i+26] +0.0446941124*prices[i+27] +0.0440399188*prices[i+28] +0.0430701377*prices[i+29] +0.0417969735*prices[i+30] +0.0402373884*prices[i+31] +0.0384120882*prices[i+32] +0.0363444061*prices[i+33] +0.0340614696*prices[i+34] +0.0315922931*prices[i+35] +0.0289681736*prices[i+36] +0.0262218588*prices[i+37] +0.0233865835*prices[i+38] +0.0204976517*prices[i+39] +0.0175884606*prices[i+40] +0.0146922652*prices[i+41] +0.0118431116*prices[i+42] +0.0090702334*prices[i+43] +0.0064043271*prices[i+44] +0.0038713513*prices[i+45] +0.0014951741*prices[i+46] -0.0007031702*prices[i+47] -0.0027054278*prices[i+48] -0.0044979052*prices[i+49] -0.0060698985*prices[i+50] -0.0074151919*prices[i+51] -0.0085278517*prices[i+52] -0.0094111161*prices[i+53] -0.0100658241*prices[i+54] -0.0104994302*prices[i+55] -0.0107227904*prices[i+56] -0.0107450280*prices[i+57] -0.0105824763*prices[i+58] -0.0102517019*prices[i+59] -0.0097708805*prices[i+60] -0.0091581551*prices[i+61] -0.0084345004*prices[i+62] -0.0076214397*prices[i+63] -0.0067401718*prices[i+64] -0.0058083144*prices[i+65] -0.0048528295*prices[i+66] -0.0038816271*prices[i+67] -0.0029244713*prices[i+68] -0.0019911267*prices[i+69] -0.0010974211*prices[i+70] -0.0002535559*prices[i+71] +0.0005231953*prices[i+72] +0.0012297491*prices[i+73] +0.0018539149*prices[i+74] +0.0023994354*prices[i+75] +0.0028490136*prices[i+76] +0.0032221429*prices[i+77] +0.0034936183*prices[i+78] +0.0036818974*prices[i+79] +0.0038037944*prices[i+80] +0.0038338964*prices[i+81] +0.0037975350*prices[i+82] +0.0036986051*prices[i+83] +0.0035521320*prices[i+84] +0.0033559226*prices[i+85] +0.0031224409*prices[i+86] +0.0028550092*prices[i+87] +0.0025688349*prices[i+88] +0.0022682355*prices[i+89] +0.0073925495*prices[i+90]; ForexStationSTLM1u[i] = value1-value2; } } //------------------------------------------------------------------- void manageAlerts() { if (alertsOn) { int whichBar = Bars-1; if (trend[whichBar][_up] >= alertsLevel || trend[whichBar][_dn] >= alertsLevel) { if (trend[whichBar][_up] >= alertsLevel) doAlert("up" ,trend[whichBar][_up]); if (trend[whichBar][_dn] >= alertsLevel) doAlert("down",trend[whichBar][_dn]); } } } //------------------------------------------------------------------- void doAlert(string doWhat, int howMany) { static string previousAlert="nothing"; static datetime previousTime; string message; if (previousAlert != doWhat || previousTime != Time[0]) { previousAlert = doWhat; previousTime = Time[0]; message = Symbol()+" at "+TimeToStr(TimeLocal(),TIME_SECONDS)+" "+howMany+" time frames of STLM are aligned "+doWhat; if (alertsMessage) Alert(message); if (alertsEmail) SendMail(Symbol()+" 4TF STLM",message); if (alertsSound) PlaySound("alert2.wav"); } } //------------------------------------------------------------------- string sTfTable[] = {"M1","M5","M15","M30","H1","H4","D1","W1","MN"}; int iTfTable[] = {1,5,15,30,60,240,1440,10080,43200}; int toInt(double value) { return(value); } int stringToTimeFrame(string tfs) { tfs = stringUpperCase(tfs); int max = ArraySize(iTfTable)-1, add=0; int nxt = (StringFind(tfs,"NEXT1")>-1); if (nxt>0) { tfs = ""+Period(); add=1; } nxt = (StringFind(tfs,"NEXT2")>-1); if (nxt>0) { tfs = ""+Period(); add=2; } nxt = (StringFind(tfs,"NEXT3")>-1); if (nxt>0) { tfs = ""+Period(); add=3; } for (int i=max; i>=0; i--) if (tfs==sTfTable[i] || tfs==""+iTfTable[i]) return(MathMax(iTfTable[toInt(MathMin(max,i+add))],Period())); return(Period()); } //------------------------------------------------------------------- string timeFrameToString(int tf) { for (int i=ArraySize(iTfTable)-1; i>=0; i--) if (tf==iTfTable[i]) return(sTfTable[i]); return(""); } //------------------------------------------------------------------- string stringUpperCase(string str) { string s = str; for (int length=StringLen(str)-1; length>=0; length--) { int tchar = StringGetChar(s, length); if((tchar > 96 && tchar < 123) || (tchar > 223 && tchar < 256)) s = StringSetChar(s, length, tchar - 32); else if(tchar > -33 && tchar < 0) s = StringSetChar(s, length, tchar + 224); } return(s); } //------------------------------------------------------------------- #define _prHABF(_prtype) (_prtype>=pr_habclose && _prtype<=pr_habtbiased2) #define _priceInstances 1 #define _priceInstancesSize 4 double workHa[][_priceInstances*_priceInstancesSize]; double getPrice(int tprice, const double& open[], const double& close[], const double& high[], const double& low[], int i, int bars, int instanceNo=0) { if (tprice>=pr_haclose) { if (ArrayRange(workHa,0)!= Bars) ArrayResize(workHa,Bars); instanceNo*=_priceInstancesSize; int r = bars-i-1; double haOpen = (r>0) ? (workHa[r-1][instanceNo+2] + workHa[r-1][instanceNo+3])/2.0 : (open[i]+close[i])/2;; double haClose = (open[i]+high[i]+low[i]+close[i]) / 4.0; if (_prHABF(tprice)) if (high[i]!=low[i]) haClose = (open[i]+close[i])/2.0+(((close[i]-open[i])/(high[i]-low[i]))*MathAbs((close[i]-open[i])/2.0)); else haClose = (open[i]+close[i])/2.0; double haHigh = fmax(high[i], fmax(haOpen,haClose)); double haLow = fmin(low[i] , fmin(haOpen,haClose)); if(haOpenhaOpen) return((haHigh+haClose)/2.0); else return((haLow+haClose)/2.0); case pr_hatbiased2: case pr_habtbiased2: 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]