Artifact c4fc3a116ec1820374b3d794367a72e0503d2e3fd2f22ca71934919586a5c87b:

• File mtt/lib/control/PPP/ppp_inflate.m — part of check-in [af3953deae] at 2021-03-01 11:39:42 on branch master — Cleanup repository after cvs2git conversion. (user: jeff@gridfinity.com, size: 564) [annotate] [blame] [check-ins using] [more...]
• File mttroot/mtt/lib/control/PPP/ppp_inflate.m — part of check-in [2179807639] at 2004-08-09 14:44:41 on branch origin/master — Compatible with Octave 2.1.57 (user: gawthrop@users.sourceforge.net, size: 564) [annotate] [blame] [check-ins using]

function A_m = ppp_inflate (A_v)

  ## usage:  A_m = ppp_inflate (A_v)
  ##
  ## Creates the square matrix A_m with the matrix elements of the column
  ## vector of square matrices A_v.

  ## Copyright (C) 2001 by Peter J. Gawthrop

  [N,M] = size(A_v);

  if N<M
    error("A_v must have at least as many rows as columns");
  endif
  
  n = N/M;			# Number of matrix elements in A_v

  if round(n)!=n
    error("A_v must be a column vector of square matrices");
  endif
  
  A_m = [];
  for i = 1:n
    A_m = ppp_aug(A_m,ppp_extract(A_v,i));
  endfor

endfunction