octave_packages/splines-1.0.7/fnval.m

   1 ## r = fnval(pp,x) or r = fnval(x,pp)
   2 ## Compute the value of the piece-wise polynomial pp at points x.
   3
   4 ## This program is public domain.
   5 ## Paul Kienzle, 2004-02-22
   6 function r = fnval(a,b,left)
   7   if nargin == 2 || (nargin == 3 && left == 'l' && left == 'r')
   8     # XXX FIXME XXX ignoring left continuous vs. right continuous option
   9     if isstruct(a), r=ppval(a,b); else r=ppval(b,a); end
  10   else
  11     usage("r=fnval(pp,x) || r=fnval(x,pp)");
  12   end
  13 end
  14