// ESSAI RTIMA on chart 01.07.2023
// RTI Relative Trend Index by Zeiierman 27.06.2023
// This work is licensed under a Attribution-NonCommercial-ShareAlike 4.0 International (CC BY-NC-SA 4.0) https://creativecommons.org/licenses/by-nc-sa/4.0/// © Zeiierman// © Zeiierman Trading
// Inputs
//TrendLength = 100
//SignalLength = 20 perso = 6
//Stddev // You can use the inbuilt function as well.
defparam calculateonlastbars = 300
//p=20
IF barindex >= p -1 THEN
sumy2 = 0
sumy = 0
FOR i = 0 TO p -1 do
sumy2 = sumy2 + SQUARE(close[i])
sumy = sumy + close[i]
NEXT
STDDEV =SQRT(sumy2 / p - SQUARE(sumy / p))
ELSE
STDDEV = undefined
ENDIF
// Calculate upper and lower trend
uppertrend = close + STDDEV
lowertrend = close - STDDEV
// Get trend values
UpperTrendHigh = (Highest[TrendLength] (uppertrend))
LowerTrendLow = (Lowest[TrendLength] (lowertrend))
// Relative Trend Index Calculation
//RelativeTrendIndex = (((close - LowerTrendLow) / (UpperTrendHigh - LowerTrendLow)) * 100 ) + niveau
RelativeTrendIndex = (((close - LowerTrendLow) / (UpperTrendHigh - LowerTrendLow)) ) + niveau
// MA of Relative Trend Index
//MARelativeTrendIndex = exponentialaverage[SignalLength](RelativeTrendIndex)
//MARelativeTrendIndex = average [SignalLength,m](RelativeTrendIndex )
MARelativeTrendIndex = average [SignalLength,m](RelativeTrendIndex - close / close) )
// Plotsclose /close
//colorbetween(OB,OS,0,245,255,120) // 0,137,123,20)
/////////////////////////////////////////////////////////////////////
niveau = close
//zero= 0 + niveau
////////////////////////////////////////////////////////////////////
return RelativeTrendIndex as "Relative Trend Index (RTI)" , MARelativeTrendIndex as "MA Relative Trend Index" , customclose as " custonclose "
.
.
