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