Mercurial > hg > octave-nkf

diff scripts/polynomial/ppval.m @ 14834:619fedc6ea61

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ppval.m: Small efficiency improvement in determining offsets. * ppval.m: Transpose and repmat smaller object rather than constructing larger object and transposing it.
author Rik <octave@nomad.inbox5.com>
date Tue, 03 Jul 2012 08:50:43 -0700
parents e437bacb3ef6
children 5d3a684236b0
line wrap: on
line diff
--- a/scripts/polynomial/ppval.m
+++ b/scripts/polynomial/ppval.m
@@ -68,8 +68,8 @@
   ndv = length (dimvec);
 
   ## Offsets.
-  dx = (xi - x(idx))(:);
-  dx = repmat (dx, [1, prod(d)])';
+  dx = (xi - x(idx))(:)';
+  dx = repmat (dx, [prod(d), 1]);
   dx = reshape (dx, dimvec);
   dx = shiftdim (dx, ndv - 1);