A New Adaptive Moving Average [CC]

// Copyright (c) 2019-present, Franklin Moormann (cheatcountry)
// A New Adaptive Moving Average [CC] script may be freely distributed under the MIT license.
// ------------------------------------------------------------------------------------------------
// Original author:  cheatcountry
// Original title:   A New Adaptive 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('A New Adaptive Moving Average [CC]', max_bars_back=3000, overlay=true)

float inp = input(title='Source', defval=hlcc4)
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]
float tr = ta.tr[rep ? 0 : barstate.isrealtime ? 1 : 0][rep ? 0 : barstate.isrealtime ? 0 : 1]
int length = input.int(title='Length', defval=30, minval=2)

float hhC = ta.highest(src, length)
float llC = ta.lowest(src, length)
float result = hhC - llC
float effort = math.sum(tr, length)
float alpha = effort != 0 ? result / effort : 0

float nama = 0.0
nama := alpha * src + (1 - alpha) * nz(nama[1])

float slo = src - nama
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 namaColor = sig > 1 ? color.green : sig > 0 ? color.lime : sig < -1 ? color.maroon : sig < 0 ? color.red : color.black
barcolor(bar ? namaColor : na)
plot(nama, title='Nama', color=namaColor, 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