lengthlist.m

％ Atomizer Main Directory, Version .802 里面信号含有分解去噪合成过程的代码 ％---------------------------------------

function n = LengthList(list)
% LengthList -- length of a list data structure
%  Usage
%	n = LengthList(list)
%  Inputs
%	list	the list data structure
%  Outputs
%	n	the length of list
%  See Also
%	MakeList, NthList
%

if isstr(list)
	n = sum(list == ' ');
else
	n = sum(list == inf);
end

if n == 0,
	n  = 1;
end