Commit fb383a9a authored by Johannes Pfeifer's avatar Johannes Pfeifer
Browse files
parents 05b16bae c41ce4ae
......@@ -285,7 +285,7 @@ if SampleSize==1 && advanced,
pax(i,dumpindx)=idemoments.cosnJ(i,j);
end
end
fprintf('%-15s [%s] %10.3f\n',name{i},namx,idemoments.cosnJ(i,j))
fprintf('%-15s [%s] %14.7f\n',name{i},namx,idemoments.cosnJ(i,j))
end
end
end
......@@ -44,12 +44,15 @@ if any(strcmp('pdf',cellstr(DynareOptions.graph_format)))
eval(['print -dpdf ' fname]);
end
end
if ~exist('OCTAVE_VERSION') ...
&& any(strcmp('fig',cellstr(DynareOptions.graph_format)))
if any(strcmp('fig',cellstr(DynareOptions.graph_format)))
if exist('OCTAVE_VERSION')
warning('Octave cannot create fig files!')
else
if DynareOptions.nodisplay
set(h, 'Visible','on');
end
saveas(h,[fname '.fig']);
end
end
if DynareOptions.nodisplay
close(h);
......
......@@ -388,21 +388,12 @@ if kronflag==1, % kronecker products
H = -DfDtau\DfDthet;
x = reshape(H(1:m*m,:),m,m,param_nbr);
y = reshape(Dm*H(m*m+1:end,:),m,m,param_nbr);
if nauxe,
x = x(nauxe+1:end,nauxe+1:end,:);
y = y(nauxe+1:end,nauxe+1:end,:);
dA = x;
dOm = y;
m = size(y,1);
x = reshape(x,m*m,param_nbr);
Dm = duplication(m);
DmPl = inv(Dm'*Dm)*Dm';
y = DmPl*reshape(y,m*m,param_nbr);
H = [x;y];
else
dA = x;
dOm = y;
end
% convert to dyn_vech
tmpH = Dm*H(m*m+1:end,:);
Index = find(triu(ones(m)));
H(m*m+1:end,:) = tmpH(Index,:);
Hx = [];
if ~isempty(indexo),
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment