Example.MWG.Exercise.15.B.9: Exercise 15.B.9 in MWG (1995)

In CGE: Computing General Equilibrium

Description

This is Exercise 15.B.9 in MWG (1995, P541), which is a pure exchange 2-by-2 economy.

Usage

Example.MWG.Exercise.15.B.9(
  S0Exg = matrix(c(
    30, 0,
    0, 20
  ), 2, 2, TRUE)
)

Arguments

S0Exg

an exogenous supply matrix, which will be passed to the function sdm.

Author(s)

LI Wu <[e-mail]>

References

LI Wu (2019, ISBN: 9787521804225) General Equilibrium and Structural Dynamics: Perspectives of New Structural Economics. Beijing: Economic Science Press. (In Chinese)

Mas-Colell, Andreu and Whinston, Michael Dennis and Green, Jerry R. (1995, ISBN: 0195073401) Microeconomic Theory. Oxford University Press (New York).

Examples

Example.MWG.Exercise.15.B.9()

#####
S <- matrix(c(
  5, 0,
  0, 20
), 2, 2, TRUE)
Example.MWG.Exercise.15.B.9(S0Exg = S)

Example output

tolCond:  1e-05
Iteration number  1 : tolerance coefficient  3.77668293912394e-19
$tolerance
[1] 3.776683e-19

$p
[1] 2.668521e-18 1.000000e+00

$z
[1] 1.025588e-17 3.843282e+00

$S
     [,1] [,2]
[1,]   30    0
[2,]    0   20

$A
     result1  result2
[1,]       1 1.000000
[2,]       1 3.843282

tolCond:  1e-05
Iteration number  1 : tolerance coefficient  2.22044604925031e-16
$tolerance
[1] 2.220446e-16

$p
[1] 1.000000e+00 3.607399e-16

$z
[1] 5.0000e+00 1.8037e-15

$S
     [,1] [,2]
[1,]    5    0
[2,]    0   20

$A
     result1    result2
[1,]       1 1.0000e+00
[2,]       1 1.8037e-15

CGE documentation built on July 8, 2020, 5:16 p.m.