49 lines
885 B
Matlab
Executable File
49 lines
885 B
Matlab
Executable File
function [zdata oobase_ Mbase_ ] = ...
|
|
solve_no_constraint_noclear(modnam,...
|
|
shockssequence,irfshock,nperiods);
|
|
|
|
global M_ oo_
|
|
|
|
errlist = [];
|
|
|
|
% solve model
|
|
eval(['dynare ',modnam,' nolog']);
|
|
oobase_ = oo_;
|
|
Mbase_ = M_;
|
|
|
|
ys_ = oobase_.dr.ys;
|
|
|
|
for i=1:Mbase_.endo_nbr
|
|
eval([deblank(Mbase_.endo_names(i,:)) '_ss = oo_.dr.ys(i); ']);
|
|
end
|
|
|
|
for i = 1:size(Mbase_.param_names)
|
|
eval([Mbase_.param_names(i,:),'= M_.params(i);']);
|
|
end
|
|
|
|
setss
|
|
|
|
|
|
|
|
|
|
|
|
[hm1,h,hl1,Jbarmat] = get_deriv(Mbase_,ys_);
|
|
cof = [hm1,h,hl1];
|
|
|
|
[decrulea,decruleb]=get_pq(oobase_.dr);
|
|
endog_ = M_.endo_names;
|
|
exog_ = M_.exo_names;
|
|
|
|
|
|
nvars = numel(Mbase_.endo_nbr);
|
|
|
|
nshocks = size(shockssequence,1);
|
|
init = zeros(nvars,1);
|
|
|
|
wishlist = endog_;
|
|
nwishes = size(wishlist,1);
|
|
|
|
|
|
zdata = mkdata(nperiods,decrulea,decruleb,endog_,exog_,wishlist,irfshock,shockssequence);
|
|
|