本では、スペースが良く判断できなかったので掲載します。
例 1:周期の異なる10種類のサイン波をそれぞれfile1.datからfile10.datまでに保存するプログラム
data = zeros(10,100);
for ii=1:10
data(ii,:) = sin((1:100)*ii*0.1);
end
rootname = 'file';
%
Root filename
extension = '.dat';
%
Extension for the files
for jj = 1:10
tmpdata = data(jj,:);
filename = [rootname, int2str(jj), extension];
eval(['save ',
filename , ' tmpdata /ascii'])
end
例2:上記で保存したアスキーファイルを読み込む
clear
data = zeros(10,100);
rootname = 'file';
%
Root filename
extension = '.dat';
%
Extension of the files
for jj = 1:10
variable = [rootname, int2str(jj)];
filename = [variable, extension];
eval(['load ',
filename])
eval(['data(',
num2str(jj),
',:) = ', variable, ';'])
eval(['clear ',
variable])
end |