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 }