function [zz,zzstr]=morev(z,lts,param);
%  This file is called by 'Planner2.m' if morevars=1.  Below, the user
%  can provide functions of variables specified in getv.  The value of
%  the ith variable listed in getv (where ordering is by row) is given
%  by z(t,i).  For example, if x(t)=[capital(t), hours(t), investment(t)]
%  and                [1 1 1;
%                getv= 0 0 0;
%                      0 0 0;
%                      1 0 0];
%  then you have requested results for capital, hours, investment, and
%  output and z(t,1)=capital(t), z(t,2)=hours(t), z(t,3)=investment(t), and
%  z(t,4)=output(t).  Your functions below must be functions of z.
%  The new variables will be put into matrix zz, where zz(t,i) is the ith
%  new variable at time t, i=1..#new vars.
%
delta=param(1);
n=param(2);
theta=param(3);
gamma=param(4);
zz(1,1)=52010.09/16790.92;
for i=1:lts;
  if i>1; zz(i,1)=zz(i-1,1)*exp(z(i,4)); end;      
  zz(i,2)=z(i,5)*zz(i,1);
  zz(i,3)=(z(i,2)-(1-delta)*exp(-z(i,4))*z(i,1)/n)*zz(i,1);
  zz(i,4)=zz(i,2)+zz(i,3);
  zz(i,5)=z(i,3);
  zz(i,6)=log(zz(i,2));
  zz(i,7)=log(zz(i,3));
  zz(i,8)=log(zz(i,4));
  zz(i,9)=log(zz(i,5));
end;
zzstr=' where zzstr=[z cons. inv. y hrs log(cons.) log(inv.) log(y) log(hrs)]';
