|\^/| 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