Mercurial > hg > octave-nkf
diff scripts/polynomial/unmkpp.m @ 12608:59e2460acae1
make piecewise polynomial (pp) functions more compatible
author | Kai Habel <kai.habel@gmx.de> |
---|---|
date | Wed, 23 Feb 2011 08:11:40 +0100 |
parents | c792872f8942 |
children | b0bb7bd9e0c8 |
line wrap: on
line diff
--- a/scripts/polynomial/unmkpp.m +++ b/scripts/polynomial/unmkpp.m @@ -50,15 +50,13 @@ if (nargin == 0) print_usage (); endif - if (! isstruct (pp)) + if (! (isstruct (pp) && strcmp (pp.form, "pp"))) error ("unmkpp: expecting piecewise polynomial structure"); endif - x = pp.x; - P = pp.P; - n = size (P, 2); - k = size (P, 3); - d = pp.d; - if (d == 1) - P = reshape (P, n, k); - endif + x = pp.breaks; + P = pp.coefs; + n = pp.pieces; + k = pp.order; + d = pp.dim; + endfunction