readdata.m

MATLAB源文件

function [A,leg]= readdata(filein)

fdata= fopen(filein,'rt');
A=[];
leg={};

legend = fgetl(fdata);
while 1
	s = fgetl(fdata);
	if ~ischar(s), break, end
	A= [A,sscanf(s,'%f')];
end
fclose(fdata);

spc= [1,1+find(legend==' ')];
for j= 1:length(spc)-1 	leg= strvcat(leg,legend( spc(j):spc(j+1)-1 )); end
A= flipud(rot90(A));
return