# HG changeset patch
# User Ben Abbott  <bpabbott@mac.com>
# Date 1298754472 18000
# Node ID 97d103fcb6ddeed0066df1eff6f095f8f66292fc
# Parent  139f993936af97c22536b71d0b648b015028cb71
polynomial/polyval.m: Minor simplification in polynomial evaluation

diff -r 139f993936af -r 97d103fcb6dd scripts/ChangeLog
--- a/scripts/ChangeLog	Fri Feb 25 20:12:05 2011 -0800
+++ b/scripts/ChangeLog	Sat Feb 26 16:07:52 2011 -0500
@@ -1,3 +1,7 @@
+2011-02-26  Robert T. Short <octave@phaselockedsystems.com>
+
+	* polynomial/polyval.m: Minor simplification in polynomial evaluation.
+
 2010-02-22  Rik  <octave@nomad.inbox5.com>
 
 	* general/bitcmp.m, general/bitget.m, general/bitset.m,
diff -r 139f993936af -r 97d103fcb6dd scripts/polynomial/polyval.m
--- a/scripts/polynomial/polyval.m	Fri Feb 25 20:12:05 2011 -0800
+++ b/scripts/polynomial/polyval.m	Sat Feb 26 16:07:52 2011 -0500
@@ -69,11 +69,10 @@
 
   n = length (p) - 1;
   x = (x - mu(1)) / mu(2);
-  y = p(1) * ones (size (x(:)));
+  y = p(1) * ones (size (x));
   for i = 2:n+1
-    y = y .* x(:) + p(i);
+    y = y .* x + p(i);
   endfor
-  y = reshape (y, size (x));
 
   if (nargout == 2)
     ## Note: the F-Distribution is generally considered to be single-sided.