1 program fmm;
2 uses mtx09;
3 var x, y, s, u, v, t: mtx;
4 begin
5 equ(x,'0 5 10');
6 equ(y,'0 22 95');
7 lsp(u,0.0,10.0,5); // col vector
8 spl(s,x,y);
9 sev(v,u,s);
10 mwr(s);
11 tra;
12 cat(t,trp(x),trp(y));
13 cat(u,v);
14 end.
15 {
16 0 5 10
17 0 22 95
18 -0.700000 9.50000 19.7000
19 1.02000 1.02000 1.02000
20 0 1.11022E-17 1.11022E-17
21
22 # cat [3,2] [3,1] [3,1]
23 0 0
24 5 22
25 10 95
26
27 # cat [6,2] [6,1] [6,1]
28 0 0
29 2 2.68000
30 4 13.5200
31 6 32.5200
32 8 59.6800
33 10 95
34
35 }