fsize.m

来自「包含大量遗传算法程序」· M 代码 · 共 26 行

function [m,n]=fsize(w,f)
%FSIZE  Size of MVFR matrix.
%       FSIZE(W,F) checks the MVFR matrix, F, for
%       consistency with the associated frequency vector W
%       and returns the size vector of the component matrices of F
%
%       [m,n]=FSIZE(W,F) returns the number of rows of the
%       component matrices in m and the number of columns in n.

%       Dr M.P. Ford 4th August 1987
% Copyright (c) 1987 by GEC Engineering Research Centre & Cambridge Control Ltd

[sz]=size(f);
lw=length(w);
if rem(sz(1),lw)~=0
 error('Length of freq. vector not consistent with rows of MVFR matrix')
end
sz(1)=fix(sz(1)/lw);
if nargout==2
  m=sz(1);
  n=sz(2);
else
  m=sz;
end  % if nargout