2007-06-01 13:43:49 +02:00
|
|
|
function formdata(fname,date)
|
2008-03-03 12:16:47 +01:00
|
|
|
|
2007-06-01 13:43:49 +02:00
|
|
|
% function formdata(fname,date)
|
|
|
|
% store endogenous and exogenous variables in a "FRM" TROLL text format file
|
|
|
|
% INPUT
|
|
|
|
% fname: name of the FRM file
|
|
|
|
% date: the date of first observation (i.e. 2007A for an annual dataset)
|
|
|
|
% OUTPUT
|
|
|
|
% none
|
|
|
|
% ALGORITHM
|
|
|
|
% none
|
|
|
|
% SPECIAL REQUIREMENT
|
|
|
|
% none
|
|
|
|
%
|
2008-03-03 12:16:47 +01:00
|
|
|
% part of DYNARE, copyright (2007-2008)
|
2007-06-01 13:43:49 +02:00
|
|
|
% Gnu Public License.
|
2008-03-03 12:16:47 +01:00
|
|
|
|
2007-06-01 13:43:49 +02:00
|
|
|
global M_ oo_
|
|
|
|
fid = fopen([fname '_endo.frm'],'w');
|
|
|
|
n=size(oo_.endo_simul,1);
|
|
|
|
t=size(oo_.endo_simul,2);
|
|
|
|
SN=upper(cellstr(M_.endo_names));
|
|
|
|
for i=1:n
|
|
|
|
str=strvcat(SN(i));
|
|
|
|
fprintf(fid,'USER: x x DATAFILE: x %s\n',str);
|
|
|
|
fprintf(fid,'PER: 1 YEAR: %s FRAC: 1 NOBS: %d CLINES: 0 DLINES: ???\n',date,t);
|
|
|
|
fprintf(fid,'%10.5f %10.5f %10.5f %10.5f\n',reshape(oo_.endo_simul(i,1:floor(t/4)*4),floor(t/4),4));
|
|
|
|
if(floor(t/4)*4<t)
|
|
|
|
switch(t-floor(t/4)*4)
|
|
|
|
case 1
|
|
|
|
fprintf(fid,'%10.5f\n',oo_.endo_simul(i,floor(t/4)*4+1:t));
|
|
|
|
case 2
|
|
|
|
fprintf(fid,'%10.5f %10.5f\n',oo_.endo_simul(i,floor(t/4)*4+1:t));
|
|
|
|
case 3
|
|
|
|
fprintf(fid,'%10.5f %10.5f %10.5f\n',oo_.endo_simul(i,floor(t/4)*4+1:t));
|
|
|
|
end;
|
|
|
|
%else
|
|
|
|
% fprintf(fid,'\n');
|
|
|
|
end;
|
|
|
|
end;
|
|
|
|
fclose(fid);
|
|
|
|
|
|
|
|
fid = fopen([fname '_exo.frm'],'w');
|
|
|
|
n=size(oo_.exo_simul,2);
|
|
|
|
t=size(oo_.exo_simul,1);
|
|
|
|
SN=upper(cellstr(M_.exo_names));
|
|
|
|
for i=1:n
|
|
|
|
str=strvcat(SN(i));
|
|
|
|
fprintf(fid,'USER: x x DATAFILE: x %s\n',str);
|
|
|
|
fprintf(fid,'PER: 1 YEAR: %s FRAC: 1 NOBS: %d CLINES: 0 DLINES: ???\n',date,t);
|
|
|
|
fprintf(fid,'%10.5f %10.5f %10.5f %10.5f\n',reshape(oo_.exo_simul(1:floor(t/4)*4,i),floor(t/4),4));
|
|
|
|
if(floor(t/4)*4<t)
|
|
|
|
switch(t-floor(t/4)*4)
|
|
|
|
case 1
|
|
|
|
fprintf(fid,'%10.5f\n',oo_.exo_simul(floor(t/4)*4+1:t,i)');
|
|
|
|
case 2
|
|
|
|
fprintf(fid,'%10.5f %10.5f\n',oo_.exo_simul(floor(t/4)*4+1:t,i)');
|
|
|
|
case 3
|
|
|
|
fprintf(fid,'%10.5f %10.5f %10.5f\n',oo_.exo_simul(floor(t/4)*4+1:t,i)');
|
|
|
|
end;
|
|
|
|
%else
|
|
|
|
% fprintf(fid,'\n');
|
|
|
|
end;
|
|
|
|
end;
|
|
|
|
fclose(fid);
|
|
|
|
return;
|