Bitcoin Economics Adaptive Multiple
// 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/
// © QuantiLuxe

//@version=5
indicator("Bitcoin Economics Adaptive Multiple", "{Ʌ} - 𝔹𝔼𝔸𝕄", false)

upper = input.float(0.96, "Upper Threshold", step = 0.01)
lower = input.float(0.07, "Upper Threshold", step = 0.01)
var int count = 0
count += 1

beam = math.log(close / ta.sma(close, math.min(count, 1400))) / 2.5


max = hline(1.2, display = display.none)
hh = hline(upper, display = display.none)
min = hline(-0.25, display = display.none)
ll = hline(lower, display = display.none)

fill(hh, max, color = #bb00104d)
fill(ll, min, color = #00b35144)

plot(beam, "𝔹𝔼𝔸𝕄", color.from_gradient(beam, lower, upper, #00FF7F, #FF3D51), 2)