|\^/|      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, Policy Case Run
#
#  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        :
#
#  Here are the parameters:
#
>    a := 0.285:
>    b := 2.040:
#
#  Here are the base case variables:
#
>    h := 100.0:
>    t := 0.300:
>    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},{y,w,s,c,l,j,q});
     {s = 7.321531494, c = 24.40510498, q = 47.87155208, j = 76.53355290,

         l = 23.46644710, y = 111.3215315, w = 1.040000000}

#
#  All done...
#
>    quit:
bytes used=363320, alloc=327620, time=.900