64822 P6080219

Funkcje ze zmienną liczbą argumentów

function C = companb(varargin)

%COMPANB Blokowa companion macierz.

o\° <#>

C ⁼ COMPANB(A_l,A_2,..,A_m) jest blokowa companion macierz odpowiadająca nxn macierzom A_1,A_2,...A_m.

m = nargin;

n = length(varargin{1});

C - diag(ones(n*(m-1) , 1),-n) ; for j = l:m

Aj = varargin{j};

C(l:n,(j—1)*n+l:j*n) = -Aj;

end

{Politechnika Gdańska