1 program inv_rd;
2 uses mtx09;
3 var r: mtx; d:double;
4 begin
5 tra;
6 equ(r,'1 2 0; 3 2 1; 1 0 3');
7 inv(r,d)
8 end.
9 {
10 # equ [3,3]
11 1 2 0
12 3 2 1
13 1 0 3
14
15 # (mat)inv [3,3]
16 -0.600000 0.600000 -0.200000
17 0.800000 -0.300000 0.1000000
18 0.200000 -0.200000 0.400000
19
20 }