size.m

来自「非线型因素分析matlab仿真程序包」· M 代码 · 共 25 行

function [s, varargout] = size(x, dim)
% SIZE calculate the size of a probdist object

% Copyright (C) 1999-2000 Antti Honkela, Harri Valpola,
% and Xavier Giannakopoulos.
%
% This package comes with ABSOLUTELY NO WARRANTY; for details
% see License.txt in the program package.  This is free software,
% and you are welcome to redistribute it under certain conditions;
% see License.txt for details.

if nargin == 1
  s = size(x.expection);
else
  s = size(x.expection, dim);
end

nout = max(nargout,1)-1;
for i=1:nout,
  varargout(i) = {s(i+1)};
end
if nout > 0
  s = s(1);
end