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

Fix of .mat extension with save for octave.

time-shift
Marco Ratto 2011-01-21 11:28:28 +01:00
parent c5c99a80f6
commit f83d7db907
4 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
matlab/dynare_sensitivity.m
View File

@ -375,19 +375,19 @@ if options_gsa.glue,
% Info.order_var=dr_.order_var;
% Out=Out1;
Info.TypeofSample='post';
save([OutputDirectoryName,'/',fname_,'_glue_post'], 'Out', 'Sam', 'Lik', 'Obs', 'Rem','Info', 'Exo')
save([OutputDirectoryName,'/',fname_,'_glue_post.mat'], 'Out', 'Sam', 'Lik', 'Obs', 'Rem','Info', 'Exo')
%save([fname_,'_post_glue_smooth'], 'Out', 'Sam', 'Lik', 'Obs', 'Rem','Info')
else
if options_gsa.pprior
Info.TypeofSample='prior';
save([OutputDirectoryName,'/',fname_,'_glue_prior'], 'Out', 'Sam', 'Lik', 'Obs', 'Rem','Info', 'Exo')
save([OutputDirectoryName,'/',fname_,'_glue_prior.mat'], 'Out', 'Sam', 'Lik', 'Obs', 'Rem','Info', 'Exo')
% save([OutputDirectoryName,'/',fname_,'_prior_glue'], 'Out', 'Sam', 'Lik', 'Obs', 'Rem')
% Out=Out1;
% save([OutputDirectoryName,'/',fname_,'_prior_glue_smooth'], 'Out', 'Sam', 'Lik', 'Obs', 'Rem')
else
Info.TypeofSample='mc';
save([OutputDirectoryName,'/',fname_,'_glue_mc'], 'Out', 'Sam', 'Lik', 'Obs', 'Rem','Info', 'Exo')
save([OutputDirectoryName,'/',fname_,'_glue_mc.mat'], 'Out', 'Sam', 'Lik', 'Obs', 'Rem','Info', 'Exo')
% save([OutputDirectoryName,'/',fname_,'_mc_glue'], 'Out', 'Sam', 'Lik', 'Obs', 'Rem')
% Out=Out1;
% save([OutputDirectoryName,'/',fname_,'_mc_glue_smooth'], 'Out', 'Sam', 'Lik', 'Obs', 'Rem')

4
matlab/mr_gstep.m
View File

@ -144,10 +144,10 @@ while i<n,
end
xh1=x;
end
save gstep
save gstep.mat
end
save gstep
save gstep.mat

6
matlab/mr_hessian.m
View File

@ -202,7 +202,7 @@ while i<n,
h1(i)=h10;
i=0;
end
save hess
save hess.mat
end
h_1=h1;
@ -261,7 +261,7 @@ if hflag==2,
xh_1(i)=x(i);
xh_1(j)=x(j);
j=j+1;
save hess
save hess.mat
end
i=i+1;
end
@ -323,7 +323,7 @@ if any(isnan(hessian_mat)),
end
hh1=h1;
htol1=htol;
save hess
save hess.mat
% 11/25/03 SA Created from Hessian_sparse (removed sparse)

10
matlab/newrat.m
View File

@ -89,7 +89,7 @@ disp(['Maximum Hessian eigenvalue ',num2str(max(ee))])
g=gg;
check=0;
if max(eig(hh))<0, disp('Negative definite Hessian! Local maximum!'), pause, end,
save m1 x hh g hhg igg fval0
save m1.mat x hh g hhg igg fval0
igrad=1;
igibbs=1;
@ -202,9 +202,9 @@ while norm(gg)>gtol & check==0 & jit<nit,
if norm(x(:,icount)-xparam1)>1.e-12,
try
save m1 x fval0 nig -append
save m1.mat x fval0 nig -append
catch
save m1 x fval0 nig
save m1.mat x fval0 nig
end
[dum, gg, htol0, igg, hhg]=mr_hessian(0,xparam1,func_hh,flagit,htol,varargin{:});
if htol0>htol, %ftol,
@ -237,11 +237,11 @@ while norm(gg)>gtol & check==0 & jit<nit,
disp(['Elapsed time for iteration ',num2str(t),' s.'])
g(:,icount+1)=gg;
save m1 x hh g hhg igg fval0 nig
save m1.mat x hh g hhg igg fval0 nig
end
end
save m1 x hh g hhg igg fval0 nig
save m1.mat x hh g hhg igg fval0 nig
if ftol>ftol0,
disp(' ')
disp('Numerical noise in the likelihood')