Mercurial > jwe > octave

diff scripts/general/interpn.m @ 7561:a938cd7869b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
__lin_interpn__.cc: handle decreasing coordinate values
author Alexander Barth
date Thu, 06 Mar 2008 01:56:55 -0500
parents 132647e6c829
children 4fbaba9abec1
line wrap: on
line diff
--- a/scripts/general/interpn.m	Wed Mar 05 14:24:33 2008 -0500
+++ b/scripts/general/interpn.m	Thu Mar 06 01:56:55 2008 -0500
@@ -250,3 +250,8 @@
 %! assert (interpn(x,y,z,f,x,y,z), f)
 %! assert (interpn(x,y,z,f,x,y,z,'nearest'), f)
 %! assert (interpn(x,y,z,f,x,y,z,'spline'), f)
+
+%!test
+%! [x,y,z] = ndgrid(0:2);
+%! f = x.^2+y.^2+z.^2;
+%! assert (interpn(x,y,-z,f,1.5,1.5,-1.5), 7.5)