1 program stkcat;
2 uses mtx09;
3 var
4 r,a,b: mtx;
5 begin
6 tra;
7 equ(a,'1 2; 3 4');
8 cat(r,a); // r is empty so same as equ(r,a)
9 cat(r,col(a,2)); // duplicate 2 column
10 zer(b,lgn(r,1)); // b : row of 0 of same size as a row of r
11 stk(r,b); // append b to the bottom of r
12 end.
13 {
14 # equ [2,2]
15 1 2
16 3 4
17
18 # cat [2,3] [2,2] [2,1]
19 1 2 2
20 3 4 4
21
22 # zer [1,3] [1,3]
23 0 0 0
24
25 # stk [3,3] [2,3] [1,3]
26 1 2 2
27 3 4 4
28 0 0 0
29
30 }