Macromodel4

# Master 4: Product side in real terms
# 13 exogenous (not counting time)
# 7 behavioral ratios for fi,pibg,indtax,ptax, piipcb, pipttf, pisav
# gdpD and cDBR = cD/gdpD exogenous
# feR, gR, ngtppR exogenous in constant dollars
# Regression equations for vfR, viR, and fiR

checkdup y
fex time = time
# Behavioral ratio for imports
fex fiBR = fiR/(cR+vR+feR)
f fiR = fiBR*(cR+vR+feR)

# Gross domestic product
f gdpR = cR + vR + feR - fiR + gR

# GDP deflator
fex gdpD = gdp/gdpR
f gdp = gdpR*gdpD

# 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)/gdp
f indtax = indtaxBR*gdp
# 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

# Government transfer payments to persons, exogenous in real terms
fex ngtppR = ngtpp/gdpD
f ngtpp = ngtppR*gdpD

# Personal disposable income
f pidis = pibg - indtax - ptax + ngtpp

# 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
# convert to real terms
f cR = c/gdpD

check cR .2
q