[RS]Triangular Moving Average Slope Indicator V1

request for ChartArt: using swma() builtin function, for the function unsmoothed output just set length to 1.
Remove from Favorite Scripts Add to Favorite Scripts
study(title="[RS]Triangular Moving Average Slope Indicator V1", shorttitle="[RS]TMASI.V1", overlay=false)
length = input(8)
source = swma(close)
tma = sma(sma(source, length), length)
tmaslope = change(tma, 1)
signalcolor = tmaslope > tmaslope[1] ? green : maroon
plot(tmaslope, style=columns, color=signalcolor)
So this is now a Triangular Moving Average (source) which is smoothed by a Triangular Moving Average (tma) ?