0001 function WriteData(fid,data,data_type)
0002
0003
0004
0005
0006
0007 if issparse(data),
0008 data=full(data);
0009 end
0010
0011 if strcmpi(data_type,'String'),
0012 fwrite(fid,length(data),'int');
0013 fwrite(fid,data,'char');
0014 elseif strcmpi(data_type,'Mat'),
0015 s=size(data);
0016 fwrite(fid,s(1),'int');
0017 fwrite(fid,s(2),'int');
0018 if s(1)*s(2),
0019 fwrite(fid,data','double');
0020 end
0021 elseif strcmpi(data_type,'Integer'),
0022 fwrite(fid,data,'int');
0023 elseif strcmpi(data_type,'Scalar'),
0024 fwrite(fid,data,'double');
0025 else
0026 error('WriteData error message: data type not supported yet!');
0027 end