Mercurial > octave-nkf

diff scripts/plot/slice.m @ 7245:d65670971cbc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-12-04 03:03:54 by jwe]
author jwe
date Tue, 04 Dec 2007 03:03:55 +0000
parents 2f915d6cac3d
children 5e90111a28b3
line wrap: on
line diff
--- a/scripts/plot/slice.m	Tue Dec 04 02:27:27 2007 +0000
+++ b/scripts/plot/slice.m	Tue Dec 04 03:03:55 2007 +0000
@@ -172,3 +172,11 @@
   endif
 
 endfunction
+
+%!demo
+%! [x, y, z] = meshgrid (linspace (-8, 8, 32));
+%! v = sin (sqrt (x.^2 + y.^2 + z.^2)) ./ (sqrt (x.^2 + y.^2 + z.^2));
+%! slice (x, y, z, v, [], 0, []);
+%! [xi, yi] = meshgrid (linspace (-7, 7));
+%! zi = xi + yi;
+%! slice (x, y, z, v, xi, yi, zi);