fcgersh.m

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

function c=fcgersh(w,f,i,n)
%FCGERSH         Generate column Gershgorin circles.
%       FCGERSH(W,F,i) calculates the column Gershgorin circles for column i
%       of the MVFR matrix, F, and returns one column per frequency
%       which contain the points on the circle at that frequency.
%
%       FCGERSH(W,F,i,n) calls FCOMP(W,F,n) before
%       calculating the column Gershgorin circles for column i.
%
%       See also FCOMP

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

if nargin==4
   [f,w]=fcomp(w,f,n);
end
cent=fdiag(w,f);
rad=fcsod(w,f);
c=circ(cent(:,i),rad(:,i),31);
end