1 program dvd_rax;
2 uses mtx09;
3 var
4 r0, m1: mtx;
5 x:double=2.0;
6 begin
7 tra;
8 equ(m1,'1,2,3;4,5,6');
9 dvd(r0,m1,x); // r0 = m1 + x
10 dvd(r0,x,m1); // r0 = X + m1 (idem)
11 end.
12 {
13 # equ [2,3]
14 1 2 3
15 4 5 6
16
17 # dvd [2,3] [2,3] [1,1]
18 0.500000 1 1.50000
19 2 2.50000 3
20
21 # dvd [2,3] [1,1] [2,3]
22 2 1 0.666667
23 0.500000 0.400000 0.333333
24
25 }