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 }