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

1) fixed infinite loop 

2) fixed names of sylvester functions
time-shift
Marco Ratto 2012-04-04 16:43:44 +02:00
parent 32de0fd675
commit d4723038be
2 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
matlab/dynare_identification.m
View File

@ -154,7 +154,7 @@ end
SampleSize = options_ident.prior_mc;
if ~(exist('sylvester3mr','file')==2),
if ~(exist('sylvester3','file')==2),
dynareroot = strrep(which('dynare'),'dynare.m','');
addpath([dynareroot 'gensylv'])

16
matlab/getH.m
View File

@ -355,10 +355,12 @@ else % generalized sylvester equation
elem(:,:,j) = (Dg0(:,:,j)-Dg1(:,:,j)*A);
d(:,:,j) = Dg2(:,:,j)-elem(:,:,j)*A;
end
xx=sylvester3mr(a,b,c,d);
xx=sylvester3(a,b,c,d);
flag=1;
while flag,
[xx, flag]=sylvester3amr(xx,a,b,c,d);
icount=0;
while flag && icount<4,
[xx, flag]=sylvester3a(xx,a,b,c,d);
icount=icount+1;
end
H=zeros(m*m+m*(m+1)/2,param_nbr+length(indexo));
if nargout>1,
@ -439,10 +441,12 @@ if nargout > 5,
d(:,:,jcount) = elem1+elem2;
end
end
xx2=sylvester3mr(a,b,c,d);
xx2=sylvester3(a,b,c,d);
flag=1;
while flag,
[xx2, flag]=sylvester3amr(xx2,a,b,c,d);
icount=0;
while flag && icount<4,
[xx2, flag]=sylvester3a(xx2,a,b,c,d);
icount = icount + 1;
end
jcount = 0;
for j=1:param_nbr,