readdata.m

来自「matlab源代码,适用于开发研究,带来很好的学习效果.」· M 代码 · 共 19 行

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