home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 5.ddi / SPLINES.DI$ / TSPMAK.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  528 b   |  18 lines
  1. function tsp = tspmak(knotsx,knotsy,coefs)
  2. %TSPMAK    Make a tensor product spline.
  3. %
  4. %        tsp = tspmak(knotsx,knotsy,coefs)
  5. %
  6. % stores the information about a (scalar-valued) tensor product spline in 
  7. % B-form in the array  tsp
  8.  
  9. % Carl de Boor: Feb. 4, 1991
  10. % Copyright (c) 1990-92 by Carl de Boor and The MathWorks, Inc.
  11.  
  12. [r,c] = size(coefs);
  13. kx = length(knotsx) - r;
  14. ky = length(knotsy) - c;
  15. if (kx<1|ky<1), fprintf('incompatible input\n'),return,end
  16.  
  17. tsp = [21 r c coefs(:)' kx knotsx(:)' ky knotsy(:)']; 
  18.