delete.m

来自「神经元信号处理软件」· M 代码 · 共 12 行

function d = delete(a)
%datastrm destructor (not necessary)

if (strcmp(a.fileaccess,'ole'))
	tmp.function='CloseFile';
	mcstreammex(tmp);
	return;
else
	fclose(a.fid);
end;
clear a;