study("TROLOLO RELATIVE VALUATION")
// thi is to count days since bitcoin launch
is_newbar(res) =>
t = time(res)
change(t) != 0 ? 1 : 0
count=549+cum(is_newbar("D"))
//this is to calculate trololo valuation per day
TROLOLO2 = pow(10,(2.66167155005961*log(count) - 17.9183761889864))
//this is to get bitcoin price each day
btcprice=tickerid("BNC","BLX")
btcprice2 = security(btcprice,"D",ohlc4,true)
//this is to get the relative value of bitcoin vs trololo valuation
RELATIVEVAL = (btcprice2-TROLOLO2)/TROLOLO2*100
//this is just a reference line
BASELINE = 0
plot(RELATIVEVAL,title='trololoregression',color=red, linewidth=3)
plot(BASELINE, title='baseline',color=black,linewidth=2)