1 program cat1;
   2 uses mtx09;
   3 var m, a, b: mtx;
   4 begin
   5   tra;
   6   equ(a,'1 2; 3 4; 5 6');
   7   zer(b,lgn(a),1); // make a null column vector of the
   8                    // same dimension as a column of a
   9   add(b,a);        // b(i) = sum_j a(i,j)
  10   cat(m,a,b)       // m = [ a, b ] Scilab notation
  11 end.
  12 {
  13 # equ [3,2]
  14 1   2
  15 3   4
  16 5   6
  17 
  18 # zer [3,1]
  19 0
  20 0
  21 0
  22 
  23 # add [3,1] [3,2]
  24 3
  25 7
  26 11
  27 
  28 # cat [3,3] [3,2] [3,1]
  29 1   2   3
  30 3   4   7
  31 5   6   11
  32 
  33 }