fadd.m

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

function fout=fadd(w,f,c)
%FADD   Add matrix to MVFR matrix
%       FADD(W,F,C) adds the matrix C to each
%       component matrix of the MVFR matrix F.
%       W is the associated frequency vector.
%       See also FADDF,FMULF,FMUL

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


[m,n]=fsize(w,f);
lw=length(w);
[mc,nc]=size(c);
if (mc~=m)|(nc~=n)
   error('Matrix not the same size as the component matrices');
end
fout=zeros(m*lw,n);   % Set up output matrix
k=1:m;               % vector of rows of each matrix in F
for i=0:lw-1          % for each frequency
    fout(k+i*m,:)=f(k+i*m,:)+c;
end % for i=0:lw-1