optimal policy: bug correction in Lagrange multipliers elimination (mult_elimination.m)
parent
b903776e0c
commit
f12c64cc84
|
@ -29,92 +29,102 @@ function dr=mult_elimination(varlist,M_, options_, oo_)
|
|||
% You should have received a copy of the GNU General Public License
|
||||
% along with Dynare. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
dr = oo_.dr;
|
||||
dr = oo_.dr;
|
||||
|
||||
nstatic = dr.nstatic;
|
||||
npred = dr.npred;
|
||||
order_var = dr.order_var;
|
||||
nstates = M_.endo_names(order_var(nstatic+(1:npred)),:);
|
||||
nstatic = dr.nstatic;
|
||||
npred = dr.npred;
|
||||
order_var = dr.order_var;
|
||||
nstates = M_.endo_names(order_var(nstatic+(1:npred)),:);
|
||||
|
||||
il = strmatch('mult_',nstates);
|
||||
nil = setdiff(1:dr.npred,il);
|
||||
m_nbr = length(il);
|
||||
nm_nbr = length(nil);
|
||||
il = strmatch('mult_',nstates);
|
||||
nil = setdiff(1:dr.npred,il);
|
||||
m_nbr = length(il);
|
||||
nm_nbr = length(nil);
|
||||
|
||||
AA1 = dr.ghx(:,nil);
|
||||
AA2 = dr.ghx(:,il);
|
||||
A1 = dr.ghx(nstatic+(1:npred),nil);
|
||||
A2 = dr.ghx(nstatic+(1:npred),il);
|
||||
B = dr.ghu(nstatic+(1:npred),:);
|
||||
A11 = A1(nil,:);
|
||||
A21 = A1(il,:);
|
||||
A12 = A2(nil,:);
|
||||
A22 = A2(il,:);
|
||||
AA1 = dr.ghx(:,nil);
|
||||
AA2 = dr.ghx(:,il);
|
||||
A1 = dr.ghx(nstatic+(1:npred),nil);
|
||||
A2 = dr.ghx(nstatic+(1:npred),il);
|
||||
B = dr.ghu(nstatic+(1:npred),:);
|
||||
A11 = A1(nil,:);
|
||||
A21 = A1(il,:);
|
||||
A12 = A2(nil,:);
|
||||
A22 = A2(il,:);
|
||||
B1 = B(nil,:);
|
||||
B2 = B(il,:);
|
||||
|
||||
[Q1,R1,E1] = qr(A2);
|
||||
n1 = sum(abs(diag(R1)) > 1e-8);
|
||||
[Q1,R1,E1] = qr([A12; A22]);
|
||||
n1 = sum(abs(diag(R1)) > 1e-8);
|
||||
|
||||
Q1_12 = Q1(1:nm_nbr,n1+1:end);
|
||||
Q1_22 = Q1(nm_nbr+1:end,n1+1:end);
|
||||
[Q2,R2,E2] = qr(Q1_22');
|
||||
n2 = sum(abs(diag(R2)) > 1e-8);
|
||||
Q1_12 = Q1(1:nm_nbr,n1+1:end);
|
||||
Q1_22 = Q1(nm_nbr+(1:m_nbr),n1+1:end);
|
||||
[Q2,R2,E2] = qr(Q1_22');
|
||||
n2 = sum(abs(diag(R2)) > 1e-8);
|
||||
|
||||
R2_1 = inv(R2(1:n2,1:n2));
|
||||
R2_1 = inv(R2(1:n2,1:n2));
|
||||
|
||||
M1(order_var,:) = AA1 - AA2*E2*[R2_1*Q2(:,1:n2)'*Q1_12'; zeros(m_nbr-n2,nm_nbr)];
|
||||
M2(order_var,:) = AA2*E2*[R2_1*Q2(:,1:n2)'*[Q1_12' Q1_22']*A1; zeros(m_nbr-n2,length(nil))];
|
||||
M3(order_var,:) = dr.ghu;
|
||||
M4(order_var,:) = AA2*E2*[R2_1*Q2(:,1:n2)'*[Q1_12' Q1_22']*B; zeros(m_nbr-n2,size(B,2))];
|
||||
M1 = AA1 - AA2*E2*[R2_1*Q2(:,1:n2)'*Q1_12'; zeros(m_nbr-n2,nm_nbr)];
|
||||
M2 = AA2*E2*[R2_1*Q2(:,1:n2)'*[Q1_12' Q1_22']*[A11;A21]; zeros(m_nbr-n2,length(nil))];
|
||||
M3 = dr.ghu;
|
||||
M4 = AA2*E2*[R2_1*Q2(:,1:n2)'*[Q1_12' Q1_22']*[B1;B2]; zeros(m_nbr-n2,size(B,2))];
|
||||
|
||||
endo_nbr = M_.orig_model.endo_nbr;
|
||||
exo_nbr = M_.exo_nbr;
|
||||
k1 = nstatic+(1:npred);
|
||||
k1 = k1(nil);
|
||||
|
||||
lead_lag_incidence = M_.lead_lag_incidence(:,1:endo_nbr+exo_nbr);
|
||||
lead_lag_incidence1 = lead_lag_incidence(1,:) > 0;
|
||||
maximum_lag = M_.maximum_lag;
|
||||
for i=1:maximum_lag-1
|
||||
endo_nbr = M_.orig_model.endo_nbr;
|
||||
exo_nbr = M_.exo_nbr;
|
||||
|
||||
lead_lag_incidence = M_.lead_lag_incidence(:,1:endo_nbr+exo_nbr);
|
||||
lead_lag_incidence1 = lead_lag_incidence(1,:) > 0;
|
||||
maximum_lag = M_.maximum_lag;
|
||||
for i=1:maximum_lag-1
|
||||
lead_lag_incidence1 = [lead_lag_incidence1; lead_lag_incidence(i,:)| ...
|
||||
lead_lag_incidence(i+1,:)];
|
||||
end
|
||||
lead_lag_incidence1 = [lead_lag_incidence1; ...
|
||||
lead_lag_incidence(M_.maximum_lag,:) > 0];
|
||||
k = find(lead_lag_incidence1');
|
||||
lead_lag_incidence1 = zeros(size(lead_lag_incidence1'));
|
||||
lead_lag_incidence1(k) = 1:length(k);
|
||||
lead_lag_incidence1 = lead_lag_incidence1';
|
||||
lead_lag_incidence(i+1,:)];
|
||||
end
|
||||
lead_lag_incidence1 = [lead_lag_incidence1; ...
|
||||
lead_lag_incidence(M_.maximum_lag,:) > 0];
|
||||
k = find(lead_lag_incidence1');
|
||||
lead_lag_incidence1 = zeros(size(lead_lag_incidence1'));
|
||||
lead_lag_incidence1(k) = 1:length(k);
|
||||
lead_lag_incidence1 = lead_lag_incidence1';
|
||||
|
||||
kstate = zeros(0,2);
|
||||
for i=maximum_lag:-1:1
|
||||
kstate = zeros(0,2);
|
||||
for i=maximum_lag:-1:1
|
||||
k = find(lead_lag_incidence(i,:));
|
||||
kstate = [kstate; [k' repmat(i+1,length(k),1)]];
|
||||
end
|
||||
end
|
||||
|
||||
dr.M1 = M1;
|
||||
dr.M2 = M2;
|
||||
dr.M3 = M3;
|
||||
dr.M4 = M4;
|
||||
dr.M1 = M1;
|
||||
dr.M2 = M2;
|
||||
dr.M3 = M3;
|
||||
dr.M4 = M4;
|
||||
|
||||
nvar = length(varlist);
|
||||
nspred = dr.nspred;
|
||||
nspred = 6;
|
||||
if nvar > 0
|
||||
res_table = zeros(2*(nspred+M_.exo_nbr),nvar);
|
||||
headers = 'Variables';
|
||||
for i=1:length(varlist)
|
||||
k = strmatch(varlist{i},M_.endo_names(dr.order_var,:),'exact');
|
||||
headers = strvcat(headers,varlist{i});
|
||||
nvar = length(varlist);
|
||||
nspred = dr.nspred;
|
||||
nspred = 6;
|
||||
if nvar > 0
|
||||
res_table = zeros(2*(nspred+M_.exo_nbr),nvar);
|
||||
headers = 'Variables';
|
||||
for i=1:length(varlist)
|
||||
k = strmatch(varlist{i},M_.endo_names(dr.order_var,:),'exact');
|
||||
headers = strvcat(headers,varlist{i});
|
||||
|
||||
res_table(1:nspred,i) = M1(k,:)';
|
||||
res_table(nspred+(1:nspred),i) = M2(k,:)';
|
||||
res_table(2*nspred+(1:M_.exo_nbr),i) = M3(k,:)';
|
||||
res_table(2*nspred+M_.exo_nbr+(1:M_.exo_nbr),i) = M4(k,:)';
|
||||
end
|
||||
res_table(1:nspred,i) = M1(k,:)';
|
||||
res_table(nspred+(1:nspred),i) = M2(k,:)';
|
||||
res_table(2*nspred+(1:M_.exo_nbr),i) = M3(k,:)';
|
||||
res_table(2*nspred+M_.exo_nbr+(1:M_.exo_nbr),i) = M4(k,:)';
|
||||
end
|
||||
|
||||
my_title='ELIMINATION OF THE MULTIPLIERS';
|
||||
lab1 = M_.endo_names(dr.order_var(dr.nstatic+[ 1 2 5:8]),:);
|
||||
labels = strvcat(lab1,lab1,M_.exo_names,M_.exo_names);
|
||||
lh = size(labels,2)+2;
|
||||
dyntable(my_title,headers,labels,res_table,lh,10,6);
|
||||
disp(' ')
|
||||
end
|
||||
my_title='ELIMINATION OF THE MULTIPLIERS';
|
||||
lab1 = M_.endo_names(dr.order_var(dr.nstatic+[ 1 2 5:8]),:);
|
||||
labels = strvcat(lab1,lab1,M_.exo_names,M_.exo_names);
|
||||
lh = size(labels,2)+2;
|
||||
dyntable(my_title,headers,labels,res_table,lh,10,6);
|
||||
disp(' ')
|
||||
end
|
||||
|
||||
|
||||
function x=varsol(a,b,c)
|
||||
|
||||
x = (kron(a,a)-kron(b,b))\c(:);
|
||||
x = reshape(x,size(a,1),size(a,1));
|
Loading…
Reference in New Issue