/*
**  GE0
**
**  Purpose:
**    Gauss elimination, find upper triangular matrix
**
**  Date:
**    6/8/09
**
**  Version:
**    0     Start program, prepare the extended matrix
**
**  Author:
**    Charles Bos
*/
#include <oxstd.h>

main()
{
  decl mA, vB, mAB;
  
  // Magic numbers
  mA= < 6,  -2, 2,   4; 
       12,  -8, 6,  10; 
        3, -13, 9,   3; 
       -6,   4, 1, -18>; 
  vB= <16; 26; -19; -34>;
  
  // Initialisation
  mAB= mA~vB;
  
  // Check
  print ("Extended matrix mAB is: ", mAB);
}