readascii.m

来自「用于非线性时间序列分析的软件包。可用于计算：时间延迟重构」· M 代码 · 共 17 行

function l = readascii(filename)

% l = readascii(filename)
% read each line of an ASCII file into list l

l = list;		% create empty list
fid = fopen(filename, 'r');

if fid ~= -1
	while 1
		line = fgetl(fid);
		if ~isstr(line), break, end
			l = append(l, line);
		end
	fclose(fid);
end