v4 ramsey_dynamic.m: corrected bug variable is absent at the current period
git-svn-id: https://www.dynare.org/svn/dynare/dynare_v4@1464 ac1d8469-bf42-47a9-8791-bf33cf982152time-shift
parent
fab7d08c0e
commit
05fcaed7d2
|
@ -180,16 +180,21 @@ function J = ramsey_dynamic(ys,lbar)
|
||||||
|
|
||||||
% getting indices of nonzero entries
|
% getting indices of nonzero entries
|
||||||
m = find(i_leadlag1');
|
m = find(i_leadlag1');
|
||||||
|
n1 = max_lag1*endo_nbr1+1
|
||||||
|
n2 = n1+endo_nbr-1
|
||||||
|
|
||||||
|
|
||||||
n = length(m);
|
n = length(m);
|
||||||
k = 1:size(J,2);
|
k = 1:size(J,2);
|
||||||
|
|
||||||
for i=1:n
|
for i=1:n
|
||||||
if sum(abs(J(:,i))) < 1e-8
|
if sum(abs(J(:,i))) < 1e-8
|
||||||
|
if m(i) < n1 | m(i) > n2
|
||||||
k(i) = 0;
|
k(i) = 0;
|
||||||
m(i) = 0;
|
m(i) = 0;
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
end
|
||||||
|
|
||||||
J = J(:,nonzeros(k));
|
J = J(:,nonzeros(k));
|
||||||
i_leadlag1 = zeros(size(i_leadlag1))';
|
i_leadlag1 = zeros(size(i_leadlag1))';
|
||||||
|
|
Loading…
Reference in New Issue