1 program main;
2 uses mtx09;
3 var
4 a: mtx;
5 x: double;
6 begin
7 tra;
8 equ(a,'1 2 3; 4 5 6');
9 x := prd(lgn(a,1),trp(lgn(a,2))); // any combination of row and column
10 x := prd(trp(lgn(a,2)),lgn(a,1)); // vectors is accepted if they have
11 x := prd(lgn(a,1),lgn(a,2)); // the same number of elements
12 x := prd(col(a,2),col(a,3))
13 end.
14 {
15 # equ [2,3]
16 1 2 3
17 4 5 6
18
19 # prd [1,1] [1,3] [3,1]
20 32
21
22 # prd [1,1] [1,3] [3,1]
23 32
24
25 # prd [1,1] [1,3] [3,1]
26 32
27
28 # prd [1,1] [1,2] [2,1]
29 36
30
31 }