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 }