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

Bug correction (Second order solution for big models). 

git-svn-id: https://www.dynare.org/svn/dynare/dynare_v4@1432 ac1d8469-bf42-47a9-8791-bf33cf982152
time-shift
adjemian 2007-10-17 14:55:17 +00:00
parent f5f4ecea26
commit 14e1a06d06
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
matlab/dr1.m
View File

@ -547,11 +547,11 @@ for i=1:M_.maximum_endo_lead
if nk3a*nk3a*M_.exo_nbr*M_.exo_nbr > 1e7
B1 = zeros(M_.endo_nbr,M_.exo_nbr*M_.exo_nbr);
k1 = 1;
H = hessian(:,kh(k3,k3));
Hesse = hessian(:,kh(k3,k3));
guk3a = gu(k3a,:);
for i1 = 1:M_.exo_nbr
for i2 = 1:M_.exo_nbr
B1(:,k1) = H*kron(guk3a(:,i1),guk3a(:,i2));
B1(:,k1) = Hesse*kron(guk3a(:,i1),guk3a(:,i2));
k1 = k1 + 1;
end
end