- English
- Deutsch
# Master 3
checkdup y
fex time = time
# Behavioral ratio for imports
fex fiBR = fi/(c+v+fe)
f fi = fiBR*(c+v+fe)
# Gross domestic product
f gdp = c + v + fe - fi + g
# Shortcut to Personal income before government action
fex pibgBR = (gdp +fefaci -fifaci -ncca - nbtrp - nsd - niprf +
npdivi - netint + npini - nwald + nbtrpp)/gdp
f pibg = pibgBR*gdp
# Calculate personal tax base
fex indtaxBR = (nibtax - nsub)/pibg
f indtax = indtaxBR*pibg
# ptaxbase: Personal tax base
f ptaxbase = pibg - indtax
# ptaxBR is personal tax rate including Social Security
fex ptaxBR = (pitax + nconsi)/ptaxbase
f ptax = ptaxBR*ptaxbase
# Personal disposable income
f pidis = pibg - indtax - ptax + ngtpp
#gr pidis a.pidis
# Behavioral ratios for piipcb, pipttf, and pisav
fex piipcbBR = piipcb/pidis
f piipcb = piipcbBR*pidis
fex pipttfBR = pipttf/pidis
f pipttf = pipttfBR*pidis
fex pisavBR = pisav/pidis
f pisav = pisavBR*pidis
# Implied consumption
f c = pidis - piipcb - pipttf - pisav
check c .2
q