True Range Adjusted Exponential Moving Average [CC]

// Copyright (c) 2019-present, Franklin Moormann (cheatcountry)
// True Range Adjusted Exponential Moving Average [CC] script may be freely distributed under the MIT license.
// ------------------------------------------------------------------------------------------------
// Original author:  cheatcountry
// Original title:   True Range Adjusted Exponential Moving Average [CC]
// Licence:          MIT (the header above is the original notice, kept verbatim)
// Pine version:     5
// Fetched:          2026-10-12
// Ported to FloScript by FloSignals; modifications under MPL-2.0.
// Converter:        @flosignals/floscript 0.1.0, strict mode, score 100/100
// ------------------------------------------------------------------------------------------------
//@floscript=1
//@version=5
indicator('True Range Adjusted Exponential Moving Average [CC]', max_bars_back=3000, overlay=true)

float inp = input(title='Source', defval=close)
string res = input.timeframe(title='Resolution', defval='')
bool rep = input(title='Allow Repainting?', defval=false)
bool bar = input(title='Allow Bar Color Change?', defval=true)
float src = inp[rep ? 0 : barstate.isrealtime ? 1 : 0][rep ? 0 : barstate.isrealtime ? 0 : 1]
int length = input.int(title='Length', defval=40, minval=2)
float mult = input.float(title='Mult', defval=10.0, minval=0.01)

float alpha = 2.0 / (length + 1)
float trL = ta.lowest(ta.tr, length)
float trH = ta.highest(ta.tr, length)
float trAdj = trH - trL != 0 ? (ta.tr - trL) / (trH - trL) : 0

float trAdjEma = 0.0
trAdjEma := nz(trAdjEma[1]) + alpha * (1 + trAdj * mult) * (src - nz(trAdjEma[1]))

float slo = src - trAdjEma
int sig = slo > 0 ? (slo > nz(slo[1]) ? 2 : 1) : slo < 0 ? (slo < nz(slo[1]) ? -2 : -1) : 0
alertcondition(ta.crossover(sig, 1), 'Strong Buy Signal', 'Strong Bullish Change Detected')
alertcondition(ta.crossunder(sig, -1), 'Strong Sell Signal', 'Strong Bearish Change Detected')
alertcondition(ta.crossover(sig, 0), 'Buy Signal', 'Bullish Change Detected')
alertcondition(ta.crossunder(sig, 0), 'Sell Signal', 'Bearish Change Detected')
color tradjemaColor = sig > 1 ? color.green : sig > 0 ? color.lime : sig < -1 ? color.maroon : sig < 0 ? color.red : color.black
barcolor(bar ? tradjemaColor : na)
plot(trAdjEma, title='TrAdjEma', color=tradjemaColor, linewidth=2)

This file is under the MIT License; it is a port of the original by cheatcountry, with the original licence header kept and the changes made for FloScript noted in the file.

• v22026-10-14

  Library refresh 2026-10-14

• v12026-10-12

  Library refresh 2026-10-12