BDR

//@version=3
study(title="Bitcoin Difficulty Ribbon", shorttitle="Bitcoin Difficulty Ribbon", overlay=true)

// author by Willy Woo (@woonomic)
// converted by Nik Jaremczuk (@truenomic)
smlen = input(10, "Smoothing length")

difficulty = security("QUANDL:BCHAIN/DIFF", period, close)
modeldiff = 0.002 * pow(difficulty,0.51)

diffribbon1_ = security (tickerid, '60D', modeldiff[1])
diffribbon2_ = security (tickerid, '40D', modeldiff[1])
diffribbon3_ = security (tickerid, '25D', modeldiff[1])
diffribbon4_ = security (tickerid, '14D', modeldiff[1])
diffribbon5_ = security (tickerid, '9D', modeldiff[1])

diffribbon1 = sma(sma(sma(diffribbon1_, smlen), smlen), smlen)
diffribbon2 = sma(sma(sma(diffribbon2_, smlen), smlen), smlen)
diffribbon3 = sma(sma(sma(diffribbon3_, smlen), smlen), smlen)
diffribbon4 = sma(sma(sma(diffribbon4_, smlen), smlen), smlen)
diffribbon5 = sma(sma(sma(diffribbon5_, smlen), smlen), smlen)

plot(modeldiff, style=line,  linewidth=2, color=#6b0000, transp=30, offset = -1, title= 'Model Diff')
plot(diffribbon1, style=line,  linewidth=1, color=#6b0000, transp=30, offset = -1, title= 'D60')
plot(diffribbon2, style=line,  linewidth=1, color=#6b0000, transp=30, offset = -1, title= '40D')
plot(diffribbon3, style=line,  linewidth=1, color=#6b0000, transp=30, offset = -1, title= '25D')
plot(diffribbon4, style=line,  linewidth=1, color=#6b0000, transp=30, offset = -1, title= '14D')
plot(diffribbon5, style=line,  linewidth=1, color=#6b0000, transp=30, offset = -1, title= '9D')