home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 5.ddi / SPLINES.DI$ / TSPVAL.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  449 b   |  14 lines
  1. function values = tspval(tsp,x,y)
  2. %TSPVAL    Evaluate a tensor product spline.
  3. %
  4. %        values = tspval(tsp,x,y)
  5. %
  6. % returns the array  values(i,j) := f(x(i),y(j)) , with  f  the tensor product 
  7. % spline  f  whose B-form is contained in  tsp .
  8.  
  9. % C. de Boor: Feb.4, 1991
  10. % Copyright (c) 1990-92 by Carl de Boor and The MathWorks, Inc.
  11.  
  12. [knotsx,knotsy,coefs]=tspbrk(tsp);
  13. values=fnval(spmak(knotsx,fnval(spmak(knotsy,coefs,1),y)',1),x)';
  14.