Macromodel3

# 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