# HG changeset patch
# User Ben Abbott  <bpabbott@mac.com>
# Date 1298755262 18000
# Node ID 3244c6e0af4a237b002307c0b86b0abdddd1b221
# Parent  97d103fcb6ddeed0066df1eff6f095f8f66292fc
polynomial/polyval.m: Compute offset/normalization only when needed.

diff -r 97d103fcb6dd -r 3244c6e0af4a scripts/ChangeLog
--- a/scripts/ChangeLog	Sat Feb 26 16:07:52 2011 -0500
+++ b/scripts/ChangeLog	Sat Feb 26 16:21:02 2011 -0500
@@ -1,3 +1,7 @@
+2011-02-26  Robert T. Short  <octave@phaselockedsystems.com>
+
+	* polynomial/polyval.m: Compute offset/normalization only when needed.
+
 2011-02-26  Robert T. Short <octave@phaselockedsystems.com>
 
 	* polynomial/polyval.m: Minor simplification in polynomial evaluation.
diff -r 97d103fcb6dd -r 3244c6e0af4a scripts/polynomial/polyval.m
--- a/scripts/polynomial/polyval.m	Sat Feb 26 16:07:52 2011 -0500
+++ b/scripts/polynomial/polyval.m	Sat Feb 26 16:21:02 2011 -0500
@@ -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);