dims.m

来自「TSTOOL应用软件,内有说明文件,可以适当修改,应用比较方便.」· M 代码 · 共 19 行

function d = dims(data)

% Replacement for size 
% Returns only one value for a column vector
% Cuts of any trailing ones

if isempty(data)
	d = [];
else
	d = size(data);
	m = max(find(d ~= 1));

	if ~isempty(m)
		d(max(find(d~=1))+1:end) = [];
	else
		d = [1];
	end
end