Mercurial > hg > octave-lyh

diff scripts/polynomial/polyval.m @ 8290:7cbe01c21986

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
improve dense array indexing
author Jaroslav Hajek <highegg@gmail.com>
date Mon, 20 Oct 2008 16:54:28 +0200
parents 83cce070104f
children eb63fbe60fab
line wrap: on
line diff
--- a/scripts/polynomial/polyval.m
+++ b/scripts/polynomial/polyval.m
@@ -71,7 +71,7 @@
   k = numel (x);
   x = (x - mu(1)) / mu(2);
   A = (x(:) * ones (1, n+1)) .^ (ones (k, 1) * (n:-1:0));
-  y(:) = A * p(:);
+  y = A * p(:);
   y = reshape (y, size (x));
 
   if (nargout == 2)