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

Adapted unitary test for octave.

time-shift
Stéphane Adjemian (Scylla) 2013-11-29 18:39:28 +01:00
parent 67d71a628b
commit 59f1967347
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
matlab/@dseries/save.m
View File

@ -30,7 +30,7 @@ end
switch format
case 'm'
if exist([basename, '.m'],'file')
copyfile([basename, '.m'],[basename, '.old.m'])
copyfile([basename, '.m'],[basename, '.old.m']);
end
fid = fopen([basename, '.m'],'w');
fprintf(fid,'%% File created on %s.\n',datestr(now));
@ -71,12 +71,12 @@ switch format
end
eval(str);
if exist([basename, '.mat'],'file')
copyfile([basename, '.mat'],[basename, '.old.mat'])
copyfile([basename, '.mat'],[basename, '.old.mat']);
end
save([basename '.mat'],'INIT__','FREQ__','NAMES__','TEX__',A.name{:});
case 'csv'
if exist([basename, '.csv'],'file')
copyfile([basename, '.csv'],[basename, '.old.csv'])
copyfile([basename, '.csv'],[basename, '.old.csv']);
end
fid = fopen([basename, '.csv'],'w');
fprintf(fid,',%s', A.name{:});
@ -155,7 +155,11 @@ end
%$ % Instantiate a time series object.
%$ try
%$ ts1 = dseries(A,[],A_name,[]);
%$ ts1.save;
%$ if isoctave
%$ ts1.save('A');
%$ else
%$ ts1.save;
%$ end
%$ t = 1;
%$ catch
%$ t = 0;