Mercurial > octave-nkf
diff scripts/plot/contourf.m @ 7331:3ed85de5922c
[project @ 2007-12-21 17:40:20 by jwe]
author | jwe |
---|---|
date | Fri, 21 Dec 2007 17:41:35 +0000 |
parents | 9af6f0a214ee |
children | 8bf1bcb0ad8f |
line wrap: on
line diff
--- a/scripts/plot/contourf.m Thu Dec 20 17:53:36 2007 +0000 +++ b/scripts/plot/contourf.m Fri Dec 21 17:41:35 2007 +0000 @@ -260,7 +260,7 @@ %! contourf (x, y, z, -7:9) %!demo -%! [th, r] = meshgrid (linspace (0, 2*pi, 64), 0:.05:0.9); -%! [X, Y] = pol2cart (th, r); -%! f = ((X + i*Y).^4 - 1).^(1/4); -%! contourf(X, Y, abs(f), 16) +%! [theta, r] = meshgrid (linspace (0, 2*pi, 64), linspace(0,1,64)); +%! [X, Y] = pol2cart (theta, r); +%! Z = sin(2*theta).*(1-r); +%! contourf(X, Y, abs(Z), 10)