Mercurial > octave
diff scripts/general/interp2.m @ 10326:ade59ae10e80
slight optimization in interp2
author | Jaroslav Hajek <highegg@gmail.com> |
---|---|
date | Wed, 17 Feb 2010 08:19:06 +0100 |
parents | 907d470e261b |
children | 2210d3070543 |
line wrap: on
line diff
--- a/scripts/general/interp2.m Tue Feb 16 15:28:53 2010 +0100 +++ b/scripts/general/interp2.m Wed Feb 17 08:19:06 2010 +0100 @@ -221,8 +221,8 @@ idx = sub2ind (size (a), yidx, xidx); ## scale XI, YI values to a 1-spaced grid - Xsc = (XI - X(xidx)) ./ (X(xidx + 1) - X(xidx)); - Ysc = (YI - Y(yidx)) ./ (Y(yidx + 1) - Y(yidx)); + Xsc = (XI - X(xidx)) ./ (diff (X)(xidx)); + Ysc = (YI - Y(yidx)) ./ (diff (Y)(yidx)); ## apply plane equation ZI = a(idx) + b(idx).*Xsc + c(idx).*Ysc + d(idx).*Xsc.*Ysc;