[Octave-cvsupdate] SF.net SVN: octave:[10038] trunk/octave-forge/main/splines/inst/fnder.m

[<tho...@us...>]

Revision: 10038
          http://octave.svn.sourceforge.net/octave/?rev=10038&view=rev
Author:   thomas-weber
Date:     2012-03-24 18:38:45 +0000 (Sat, 24 Mar 2012)
Log Message:
-----------
Update fnder to cope with changed return values of mkpp

Patch courtesy of Rafael Laboissiere, 
http://lists.alioth.debian.org/pipermail/pkg-octave-devel/2012-March/008537.html

Modified Paths:
--------------
    trunk/octave-forge/main/splines/inst/fnder.m

Modified: trunk/octave-forge/main/splines/inst/fnder.m
===================================================================
--- trunk/octave-forge/main/splines/inst/fnder.m	2012-03-24 16:35:11 UTC (rev 10037)
+++ trunk/octave-forge/main/splines/inst/fnder.m	2012-03-24 18:38:45 UTC (rev 10038)
@@ -31,19 +31,16 @@
   if (nargin < 2)
     o = 1;
   endif
-  
-  P = pp.P;
+
+  [X, P, N, K, D] = unmkpp (pp);
   c = columns (P);
   r = rows (P);
 
   for i = 1:o
     #pp.P = polyder (pp.P); matrix capable polyder is needed.
     P = P(:, 1:c - 1) .* kron ((c - 1):- 1:1, ones (r,1));
-    c = columns (P);
   endfor
 
-  dpp = pp;
-  dpp.P = P;
-  dpp.k = c;
+  dpp = mkpp (X, P);
 
 endfunction

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.