Mercurial > hg > octave-nkf

diff scripts/polynomial/polyval.m @ 12482:3244c6e0af4a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
polynomial/polyval.m: Compute offset/normalization only when needed.
author Ben Abbott <bpabbott@mac.com>
date Sat, 26 Feb 2011 16:21:02 -0500
parents 97d103fcb6dd
children 5e37369ea13c
line wrap: on
line diff
--- a/scripts/polynomial/polyval.m
+++ b/scripts/polynomial/polyval.m
@@ -53,8 +53,8 @@
     error ("polyval: first argument must be a vector");
   endif
 
-  if (nargin < 4)
-    mu = [0, 1];
+  if (nargin > 3)
+    x = (x - mu(1)) / mu(2);
   endif
 
   if (isempty (x))
@@ -68,7 +68,6 @@
   endif
 
   n = length (p) - 1;
-  x = (x - mu(1)) / mu(2);
   y = p(1) * ones (size (x));
   for i = 2:n+1
     y = y .* x + p(i);