128.111.101.185: Created page with '

 function [matrix,head]=file_read(file,n_Lines) % function [matrix,header]=file_read(file,n_lines) % % reads in a header of 'n_lines' from 'file' and % then reads in data to…'

2010-08-05T23:05:34Z

Created page with '<pre> function [matrix,head]=file_read(file,n_Lines) % function [matrix,header]=file_read(file,n_lines) % % reads in a header of 'n_lines' from 'file' and % then reads in data to…'

New page

<pre>
function [matrix,head]=file_read(file,n_Lines)
% function [matrix,header]=file_read(file,n_lines)
%
% reads in a header of 'n_lines' from 'file' and
% then reads in data to 'matrix'.
%
% data must be uniform. Number of elements in
% each row or column should not change.

%cd(pb)
%cd('processing')
% open file

fid=fopen(file);

% preallocates an array for storing the header
% this header array may need to be adjusted
% if header lines exceed 70 characters.

head=setstr(32*ones(n_Lines,70));

% look thru header lines
% store maximum line length so that header
% array can be streamlined.
max_Line_length=0;
for i=1:n_Lines,
Line=fgetl(fid);length_Line=length(Line);
head(i,1:length_Line)=Line;
max_Line_length=max([max_Line_length,length_Line]);
end

head=head(:,1:max_Line_length);

% read first line to determine the number of
% columns

data_start=ftell(fid);
ncol=length(sscanf(fgets(fid),'%f'))
fseek(fid,data_start,-1);

% read in rest of file as a column vector then reshape it to matrix
[matrix,elements]=fscanf(fid,'%f');
matrix=reshape(matrix,ncol,fix(elements/ncol))';

fclose(fid);

</pre>

<big>[[file_read]]<big>

File read.m - Revision history

128.111.101.185: Created page with '
function [matrix,head]=file_read(file,n_Lines) % function [matrix,header]=file_read(file,n_lines) % % reads in a header of 'n_lines' from 'file' and % then reads in data to…'