Mercurial > forge

changeset 9852:f7a12f558e7c octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
author thomas-weber
date Sat, 24 Mar 2012 18:38:45 +0000
parents 15a262f133ae
children a230c5f9e41f
files main/splines/inst/fnder.m
diffstat 1 files changed, 3 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/main/splines/inst/fnder.m	Sat Mar 24 16:35:11 2012 +0000
+++ b/main/splines/inst/fnder.m	Sat Mar 24 18:38:45 2012 +0000
@@ -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