LB_Bitcoin Blockchain Statistics by Beller

study("Blockchain Bitcoin Statistics", shorttitle="Blockchain Statistics", precision=0)

//datas
nd = input(true, title="Show Network Deficit")
hr = input(true, title="Show Hash Rate")
mr = input(true, title="Show Miners Revenue")
ct = input(true, title="Show Cost Per Transaction")

//Data showing difference between transaction fees and cost of bitcoin mining.
networkdeficit = security("QUANDL:BCHAIN/NETDF", "D", close) 

//The estimated number of giga hashes per second (billions of hashes per second) the bitcoin network is performing.
hashrate = security("QUANDL:BCHAIN/HRATE", "D", close) 

//Historical data showing (number of bitcoins mined per day + transaction fees) * market price.
minersrevenue = security("QUANDL:BCHAIN/MIREV", "D", close)

//Data showing miners revenue divided by the number of transactions.
cptra = security("QUANDL:BCHAIN/CPTRA", "D", close) 

plot(nd ?networkdeficit:na, color = red, title="Network Deficit",style=area)
plot(hr?hashrate/100:na, color = blue, title="Hash Rate")
plot(mr?minersrevenue:na, color = orange, title="Miners Revenue")
plot(ct?cptra*100000:na, color = purple, title="Cost Per Transaction",style=columns,linewidth=2,transp=70)
hline(0, color=yellow, linestyle=dashed)