|\^/|      MAPLE V
._|\|   |/|_.  Copyright (c) 1981-1990 by the University of Waterloo.
 \  MAPLE  /   All rights reserved.  MAPLE is a registered trademark of
 <____ ____>   Waterloo Maple Software.
      |        Type ? for help.
#
#  PROTO, Maple version
#  PJW
#
#  Here are the equations of the model:
#
> 
>    eq1 :=           y = w*h + s   :
>    eq2 :=   p*(1+t)*c = a*y       :
>    eq3 :=         w*j = (1-a)*y   :
>    eq4 :=         w*l = a*y - s   :
>    eq6 :=           l = q/b       :
>    eq7 :=           p = w/(b-1)   :
>    eq8 :=       t*p*c = s         :
>    eq9 :=         wal = q-(q/b)-c :
> 
#
#  Here are the parameters:
#
> 
>    a := 0.285:
>    b := 2.040:
> 
#
#  Here are the base case variables:
#
>    
>    h := 100.0:
>    t := 0.200:
>    p := 1.000:
> 
#
#  Now solve the model.  Fsolve finds a floating-point (numerical)
#  solution as opposed to a symbolic solution.
#
> 
>    fsolve({eq1,eq2,eq3,eq4,eq6,eq7,eq8,eq9},{y,w,s,c,l,j,q,wal});
 {y = 109.1863517, c = 25.93175853, l = 24.93438320, j = 75.06561679,

                         -8
     wal = .1595800525*10  , q = 50.86614173, s = 5.186351706, w = 1.040000000}

> 
#
#  Test the model's price and wage homogeneity by doubling p
#
> 
>    p := 2.000:
>    fsolve({eq1,eq2,eq3,eq4,eq6,eq7,eq8,eq9},{y,w,s,c,l,j,q,wal});
                                                                          -8
  {c = 25.93175853, l = 24.93438320, j = 75.06561679, wal = .1595800525*10  ,

      q = 50.86614173, y = 218.3727034, s = 10.37270341, w = 2.080000000}

>    p := 1.000:
> 
#
#  Test the model's quantity homogeneity by doubling h
#
> 
>    h := 200.0:
>    fsolve({eq1,eq2,eq3,eq4,eq6,eq7,eq8,eq9},{y,w,s,c,l,j,q,wal});
 {w = 1.040000000, y = 218.3727034, s = 10.37270341, c = 51.86351706,

                                                           -8
     l = 49.86876640, j = 150.1312336, wal = .3191601050*10  , q = 101.7322835}

>    h := 100.0:
> 
#
#  Here is a policy experiment: increase T to 0.3
#
> 
>    t := 0.300:
>    fsolve({eq1,eq2,eq3,eq4,eq6,eq7,eq8,eq9},{y,w,s,c,l,j,q,wal});
 {w = 1.040000000, y = 111.3215315, c = 24.40510498, l = 23.46644710,

                                                           -8
     j = 76.53355291, s = 7.321531494, wal = .1501852614*10  , q = 47.87155208}

>    t := 0.200:
> 
#
#  All done...
#
> 
>    quit:
bytes used=955380, alloc=786288, time=.683