Economic Equilibrium Modeling with GAMS

38
---- VAR PY . 0.833 +INF .
---- VAR A . 1.000 +INF .
Store autarchy equilibrium price ratio for agent A, then specify the autarchy equilibrium
for agent B and compute a second equilibrium:
* Compute the price ratio:
PARAMETER PRICER PRICE RATIO OF THE AUTARCHY MODELS;
PRICER("AUT_A","PRATIO") = PX.L / PY.L;
$ONTEXT
$MODEL:AUTAR_B
$COMMODITIES:
PX ! AUTAR_B PRICE OF GOOD X
PY ! AUTAR_B PRICE OF GOOD Y
$CONSUMERS:
B ! CONSUMER B
$DEMAND:B s:SIGMA_B
E:PX Q:(1-XA)
E:PY Q:(1-YA)
D:PX Q:THETA_B
D:PY Q:(1-THETA_B)
$OFFTEXT
$SYSINCLUDE mpsgeset AUTAR_B
$INCLUDE AUTAR_B.GEN
SOLVE AUTAR_B USING MCP;
* Compute the price ratio:
PRICER("AUT_B","PRATIO") = PX.L / PY.L;
DISPLAY PRICER;
Listing le output with a solution for model AUTAR B and a comparison report of
autarchy price ratios:
LOWER LEVEL UPPER MARGINAL
---- VAR PX . 1.000 +INF .