SCRIPT PUBLISH -- See you related Idea.
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)