1 program dvd_rab2;
2 uses mtx09;
3 var r, a, b: mtx;
4 begin
5 tra; // trace on
6 equ(a,'1,2,3;4,5,6');
7 equ(b,'3,2,1');
8 dvd(r,a,b);
9 dvd(r,b,a)
10 end.
11 {
12 # equ [2,3]
13 1 2 3
14 4 5 6
15
16 # equ [1,3]
17 3 2 1
18
19 # dvd [2,3] [2,3] [1,3]
20 0.333333 1 3
21 1.33333 2.50000 6
22
23 # dvd [2,3] [1,3] [2,3]
24 3 1 0.333333
25 0.750000 0.400000 0.166667
26
27 }