stepan
/
dynare
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

v4: ramsey_dynamic.m bug correction; 

dr1.m: save jacobian on options_.debug == 1

git-svn-id: https://www.dynare.org/svn/dynare/dynare_v4@1168 ac1d8469-bf42-47a9-8791-bf33cf982152
time-shift
michel 2007-01-30 15:50:22 +00:00
parent 44093cbbb9
commit b9c7cff8fb
3 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
matlab/dr1.m
View File

@ -97,6 +97,10 @@ else
tempex = [];
end
if options_.debug
save([M_.fname '_debug'],'jacobia_')
end
dr=set_state_space(dr);
kstate = dr.kstate;
kad = dr.kad;

BIN
matlab/dynare_m.exe
View File

Binary file not shown.

12
matlab/ramsey_dynamic.m
View File

@ -95,12 +95,12 @@ function J = ramsey_dynamic(ys,lbar)
i_mult(k) = n+leadlag_nbr*exo_nbr+(1:length(k));
i_mult = i_mult';
i_leadlag1 = [ i_leadlag1 ...
[zeros(max_lead,exo_nbr);...
[zeros(max_lag,exo_nbr);...
reshape(n+(1:leadlag_nbr*exo_nbr),exo_nbr,leadlag_nbr)'; ...
zeros(max_lag,exo_nbr)] ...
[zeros(max_lead,mult_nbr);...
zeros(max_lead,exo_nbr)] ...
[zeros(max_lag,mult_nbr);...
i_mult;...
zeros(max_lag,mult_nbr)]];
zeros(max_lead,mult_nbr)]];
i_leadlag1 = i_leadlag1';
k = find(i_leadlag1 > 0);
n = length(k);
@ -162,8 +162,8 @@ function J = ramsey_dynamic(ys,lbar)
for i=1:leadlag_nbr
ic1 = find(i_leadlag(i,:) > 0);
kc1 = i_leadlag(i,ic1);
ic2 = find(i_leadlag1(max_lag+i,:) > 0);
kc2 = i_leadlag1(max_lag+i,ic2);
ic2 = find(i_leadlag1(max_lead+i,:) > 0);
kc2 = i_leadlag1(max_lead+i,ic2);
[junk,junk,ic3] = intersect(ic1,ic2);
J(ir,kc2(ic3)) = fJ(:,kc1);
end