init

FOTF Toolbox/@fotf/diag.m

@@ -0,0 +1,18 @@
+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