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

Compatibility fix for Octave: under Octave, union() called on a column vector and a scalar returns a row vector, hence the need to add the 'rows' option

time-shift
Sébastien Villemot 2010-12-16 16:14:23 +01:00
parent b63590712c
commit c0cb3dd4fb
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
matlab/simk.m
View File

@ -76,7 +76,7 @@ if isempty(jwc)
temp = icc1 ;
else
ljwc = size(jwc,1) ; % length of each row in jwc
temp = union(jwc,icc1) ; % prepares next iteration
temp = union(jwc,icc1,'rows') ; % prepares next iteration
end
j1 = ky(1:lky(1),1) ;
@ -90,7 +90,7 @@ for i = 2:M_.maximum_endo_lag
if ljwc(i) == 0
temp = icc1;
else
temp = union(jwc(1:ljwc(i),i),icc1) ;
temp = union(jwc(1:ljwc(i),i),icc1,'rows') ;
end
else
[jwc,ljwc] = ffill(jwc,ljwc,[]) ;
@ -103,7 +103,7 @@ for i = 2:M_.maximum_endo_lag
else
[jwc,ljwc] = ffill(jwc,ljwc,temp) ;
end
temp = union(jwc(1:ljwc(i),i),icc1) ;
temp = union(jwc(1:ljwc(i),i),icc1,'rows') ;
end
end
@ -112,7 +112,7 @@ ltemp = zeros(M_.maximum_endo_lag,1) ;
jwc1 = zeros(ncc1,M_.maximum_endo_lag) ;
for i = 1:M_.maximum_endo_lag
temp = union(jwc(1:ljwc(i),i),icc1) ;
temp = union(jwc(1:ljwc(i),i),icc1,'rows') ;
ltemp(i) = size(temp,1) ;
if ljwc(i) > 0
jwc(1:ljwc(i),i) = indnv(jwc(1:ljwc(i),i),temp) ;
@ -165,7 +165,7 @@ for iter = 1:options_.maxit_
w = -w0*c(j1i,1:ncc1) ;
jwci = icc1 ;
else
iz = union(jwci,icc1) ;
iz = union(jwci,icc1,'rows') ;
ix = indnv(jwci,iz) ;
iy__ = indnv(icc1,iz) ;
temp = zeros(size(w,1),size(iz,1)) ;