bsv.m

来自「用matlab实现利用统计混沌方法解决非线性系统时间序列预测的问题」· M 代码 · 共 37 行

function bsv(in,filename)
% The function: 
%
%       bsv(in,filename)
%
% saves the variable <in> in the file <filename>.
%
% The optional string <filename> contains the name (and the path) 
% of a file to be written in binary format.
% If <filename> is not specified, a dialog box is displayed. 
%
% See also bld

if nargin<1,
        disp('you must specify a variable in arg1');
        return;
end;
if nargin<2,
        [filename,filepath] = uiputfile('*.dat','bsv: Save File As ...');
        if filename==0, 
                return;
        else,
                filename = strcat(filepath,filename);
        end;
end;

[row,col] = size(in);

fid=fopen(filename,'wb');
if fid>=0,
        fwrite(fid,row,'long');
        fwrite(fid,col,'long');
        fwrite(fid,row,'long');
        fwrite(fid,  5,'long');
        fwrite(fid,in','double');
        fclose(fid);
end;