19 lines
556 B
Matlab
19 lines
556 B
Matlab
function G=diag(G1)
|
|
% diag - diagonal matrix manipulation of an FOTF object
|
|
%
|
|
% G=diag(G1)
|
|
%
|
|
% G - the FOTF object
|
|
% G1 - if G is a vector, configurate a matrix G1, otherwise extract its
|
|
% diagonal elements to form G1
|
|
|
|
% Copyright (c) Dingyu Xue, Northeastern University, China
|
|
% Last modified 28 March, 2017
|
|
% Last modified 18 May, 2022
|
|
[n,m]=size(G1); nm=max(n,m); nm1=min(n,m);
|
|
if m==1 || n==1
|
|
G=fotf(zeros(nm,nm)); for i=1:nm, G(i,i)=G1(i); end
|
|
else
|
|
G=fotf(zeros(nm1,1)); for i=1:nm1, G(i)=G1(i,i); end
|
|
end, end
|