ftrn.m

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

function fout=ftrn(w,f)
%FTRN   Complex conjugate transpose of MVFR matrix.
%       FTRN(W,F) returns an MVFR matrix whose component
%       matrices are the complex conjugate transposes
%       of the component matrices of F.
%       W is the associated frequency vector.

%       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);
fout=zeros(n*lw,m);   % Set up output matrix
k=1:m;               % vector of rows of each matrix in F
p=1:n;
  for i=0:lw-1        % for each frequency
    fout(p+i*n,:)=f(k+i*m,:)';
  end % for i=0:lw-1