1 program inv_rad;
2 uses mtx09;
3 var
4 a, r: mtx;
5 d:double;
6 begin
7 equ(a,'1 2 0; 3 2 1; 1 0 3');
8 mwr(a);
9 inv(r,a,d);
10 mwr(r);
11 mwr(d);
12 inv(a,r,d);
13 mwr(a)
14 end.
15 {
16 1 2 0
17 3 2 1
18 1 0 3
19
20 -0.600000 0.600000 -0.200000
21 0.800000 -0.300000 0.1000000
22 0.200000 -0.200000 0.400000
23
24 -10.0000
25
26 1 2 0
27 3 2 1
28 1 -4.16334E-17 3
29
30 }