Mercurial > octave-nkf

comparison scripts/polynomial/ppint.m @ 10635:d1978e7364ad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Print name of function in error() string messages.
author Rik <octave@nomad.inbox5.com>
date Sun, 16 May 2010 22:26:54 -0700
parents 702b998698ea
children be55736a0783
comparison
equal deleted inserted replaced
10634:60542efcfa2c 10635:d1978e7364ad
26 function ppi = ppint (pp, c) 26 function ppi = ppint (pp, c)
27 if (nargin < 1 || nargin > 2) 27 if (nargin < 1 || nargin > 2)
28 print_usage (); 28 print_usage ();
29 endif 29 endif
30 if (! isstruct (pp)) 30 if (! isstruct (pp))
31 error ("ppder: expects a pp structure"); 31 error ("ppint: expects a pp structure");
32 endif 32 endif
33 33
34 [x, p, n, k, d] = unmkpp (pp); 34 [x, p, n, k, d] = unmkpp (pp);
35 p = reshape (p, [], k); 35 p = reshape (p, [], k);
36 36