1 program add_ab;
2 uses mtx09;
3 var a, b: mtx;
4 begin
5 tra;
6 equ(a,'10;20');
7 equ(b,'1 2 3; 4 5 6');
8 add(a,col(b,1));
9 add(a,b); // a = a + sum(b,'c')
10 add(b,a); // b = b + ( a * ones(b(1,:)) )
11 end.
12 {
13 # equ [2,1]
14 10
15 20
16
17 # equ [2,3]
18 1 2 3
19 4 5 6
20
21 # add [2,1] [2,1]
22 11
23 24
24
25 # add [2,1] [2,3]
26 17
27 39
28
29 # add [2,3] [2,1]
30 18 19 20
31 43 44 45
32
33 }