// Downloaded From https://www.WiseStockTrader.com //******** TSI INDIKATÖRÜ ************// _SECTION_BEGIN("TSI"); r = Param( "TSI period 'R':", 7, 1, 100, 1 ); s = Param( "TSI period 'S':", 27, 1, 100, 1 ); u = Param( "TSI period 'U':", 1, 1, 100, 1 ); sig = Param( "Signal period:", 7, 1, 100, 1 ); Mtm = C - Ref ( C, -1 ); AbsMtm = abs ( Mtm ); Num_T = EMA ( EMA( EMA ( Mtm, r ), s ), u ); Den_T = EMA ( EMA( EMA ( AbsMtm, r ), s ), u); TSI = 100 * Nz ( Num_T / Den_T ); TSIL = 100 * Nz ( Num_T / Den_T ); //Green TSIL Line=Rising; Red TSIL Line=Falling col = IIf( TSIL > Ref( TSIL, -1 ), colorGreen, colorRed ); Plot( TSIL, "TSI("+r+","+s+","+u+")", col, styleLine | styleThick); //Green EMA TSI,sig Line=Rising; Red EMA TSI,sig Line=Falling col = IIf( EMA(TSI,sig) > Ref( EMA(TSI,sig), -1 ), colorGreen, colorRed ); Plot( EMA(TSI,sig), "", col, styleThick); Plot( TSI, "TSI("+r+","+s+","+u+")", ParamColor( "Color", colorBlueGrey ), ParamStyle("Histogram style", styleThick | styleHistogram | styleNoLabel, maskHistogram ) ); Plot(0,"ZeroLine",ParamColor( "ColorZero", colorBlueGrey ),styleLine); Title =FullName(); _SECTION_END();