Artifact 85d071a163a16f000b31559134e2cac2e8fd2a8d3c7997095f9a35097f23fcbb:

• File mtt/lib/control/PPP/ppp_aug.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: 548) [annotate] [blame] [check-ins using] [more...]
• File mttroot/mtt/lib/control/PPP/ppp_aug.m — part of check-in [182384e0d6] at 2001-04-02 15:02:35 on branch origin/master — Putting the PPP library under cvs (user: gawthrop@users.sourceforge.net, size: 548) [annotate] [blame] [check-ins using]

function [A,v] = ppp_aug (A_1,A_2)

  ## usage:  [A,v] = ppp_aug (A_1,A_2)
  ##
  ## Augments square matrix A_1 with square matrix A_2 to create A=[A_1 0; A_2 0];
  ## and generates v, a compatible column vector with unit elements

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


  [n_1,m_1] = size(A_1);
  if n_1 != m_1
    error("A_1 must be square");
  endif
  
  [n_2,m_2] = size(A_2);
  if n_2 != m_2
    error("A_2 must be square");
  endif

  A = [A_1            zeros(n_1,n_2)
       zeros(n_2,n_1) A_2];

  v = ones(n_1+n_2,1);

endfunction