ysavetofilecandm.m

来自「能方便的矩阵进行行列的线性扩展,并把生的矩阵存储也很方便」· M 代码 · 共 29 行

function YSaveToFile(fout,IMatrix)
%需要给定的参数值
%finame='d:\in.txt';
%foname='d:\out.txt';
%rowinsert 每两行要插几行
%colinsert 每两列要插几列

%生成文件
foutc=[fout '.txt'];
foutm=[fout '.dat'];
[rownum,colnum]=size(IMatrix);

fpoc=fopen(foutc,'wt');
fpom=fopen(foutm,'wt');


fprintf(fpoc,'%d\t%d\n',rownum,colnum);%记录行数，列数


for k=1:rownum;
   for j=1:colnum-1;
    fprintf(fpoc,'%f\t',IMatrix(k,j));
    fprintf(fpom,'%f\t',IMatrix(k,j));
   end;
    fprintf(fpoc,'%f\n',IMatrix(k,j+1));
    fprintf(fpom,'%f\n',IMatrix(k,j+1));
end;
fclose(fpoc);
fclose(fpom);