1 program sli_1;
2 uses mtx09;
3 var a,b:mtx;
4 begin
5 tra;
6 equ(a,'1 2 3; 4 5 6; 7 8 9; 10 11 12'); // assign a (4,3) matrix "a"
7 mwr(sli(a,2,4,1,2)); // print a slice ( sub matrice ) of a
8 equ(b,sli(a,1,2,2,3)) // copy a slice; "b" is a plain mtx
9 end.
10 {
11 # equ [4,3]
12 1 2 3
13 4 5 6
14 7 8 9
15 10 11 12
16
17 4 5
18 7 8
19 10 11
20
21 # equ [2,2] [2,2]
22 2 3
23 5 6
24
25 }