%  Clex35b.m
%  To be used with bewley4.m
%  This program generates the economy accompanying bewley4.m, which
%  was composed for the Berkeley final, May 1990.
gam=0
gamma=[gam 0]'
phic=[1 0]'
phig=[0 1]'
phi1=.8
phii=[0 -phi1]'
deltak=.95
thetak=1
beta=1/1.05
d1=8; d2=8;         %  Here we're setting the parameters d1 and d2 in
		      %  the test
ud=[(d1+d2) 1 0 1 0;0 0 0 0 0]
ud1=[d1 1 0 0 0;0 0 0 0 0]
ud2=[d2 0 0 1 0; 0 0 0 0 0]
k0i=0
h0i=0
tol=0
a22=[1 0 0 0 0; 0 0 0 0 0; 0 1 0 0 0;0 0 0 0 0;0 0 0 1 0]
g=1;                      %  read in the value of the parameter g
c2=[0 0 0 0 0;0 0 0 g 0]'
lambda=0;
pih=1
deltah=.9
thetah=(1-deltah)
b1=15; b2=15;               %  Here we're setting the parameters b1 and b2
ub=[(b1+b2) 0 0 0 0]
ub1=ub/2
ub2=ub/2
x0=[3 0 1 0 0 0 0]
