ubi.py

gdp = 80683787e6 # in 2017: https://data.worldbank.org/indicator/NY.GDP.MKTP.CD 
population = 7.6e9 	# http://www.worldometers.info/world-population/
perCap =  gdp / population

# >>> $10616 
# Sanity check: the World Bank estimate, 10714, is very close. 
# https://data.worldbank.org/indicator/NY.GDP.PCAP.CD


# Subtract depreciation 
deprecRate = 0.12 # https://en.wikipedia.org/wiki/Depreciation_(economics)#/media/File:AbschrUSAJBRDengl.png
nondeprecShare = 1 - deprecRate 
afterDeprec = perCap * nondeprecShare 


# Subtract R&D 
researchRate = 0.022 	# https://data.worldbank.org/indicator/GB.XPD.RSDV.GD.ZS			
researchTotal = perCap * researchRate
afterResearch = afterDeprec - researchTotal	


# Subtract deadweight lower bound 
lower_dead_rate = 0.025	# https://www.nber.org/papers/w5055
lower_weight = perCap * lower_dead_rate
lower_remnant = afterResearch - lower_weight	


# Subtract deadweight upper bound 
hi_dead_rate = 0.3     # https://www.nber.org/papers/w5055
hi_weight = perCap * hi_dead_rate
hi_remnant = afterResearch - hi_weight	


# Subtract nonwelfare government 
govtRate = 0.15 		# https://stats.oecd.org/Index.aspx?DataSetCode=SOCX_AGG			
govtLoss = perCap * govtRate
remnant = hi_remnant - govtLoss


"""
# What about consuming wealth?
"""

# Total wealth: $280 tn - 
wealth = 280e12 # https://www.credit-suisse.com/corporate/en/research/research-institute/global-wealth-report.html
wealthPerCap = wealth / population

# Minimally acceptable basic income per year:
incomePerCapPerAnnum = 10000
yearsLeft = wealthPerCap / incomePerCapPerAnnum

"The wealth would last: {} years".format(yearsLeft)
# >>> 3.68