home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 5.ddi / SPLINES.DI$ / TSPBRK.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  696 b   |  22 lines
  1. function [knotsx,knotsy,coefs,n,k]=tspbrk(tsp,print)
  2. %TSPBRK    Take apart a tensor product spline in B-form.
  3. %
  4. %        [knotsx,knotsy,coefs,n,k]=tspbrk(tsp,print)
  5. %
  6. %  breaks apart a tensor product spline in B-form and, optionally, prints its 
  7. %  parts.
  8.  
  9. % C. de Boor : Feb.4, 1991
  10. % Copyright (c) 1990-92 by Carl de Boor and The MathWorks, Inc.
  11.  
  12.  
  13. if (tsp(1)~=21),
  14.    error('the input array does not seem to describe a tensor product spline')
  15. else,
  16.    r=tsp(2);c=tsp(3);
  17.    coefs=zeros(r,c);coefs(:)=tsp(3+[1:r*c]);
  18.    kx=tsp(4+r*c);knotsx=tsp(4+r*c+[1:kx+r]);
  19.    ky=tsp(5+r*c+kx+r);knotsy=tsp(5+r*c+kx+r+[1:ky+c]);
  20.    if (nargin>1), knotsx,knotsy,coefs,[r,c],[kx,ky],end
  21. end
  22.