Mercurial > octave-nkf

diff scripts/plot/contourf.m @ 7327:9af6f0a214ee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-12-19 21:39:02 by jwe]
author jwe
date Wed, 19 Dec 2007 21:39:02 +0000
parents d65670971cbc
children 3ed85de5922c
line wrap: on
line diff
--- a/scripts/plot/contourf.m	Wed Dec 19 21:27:23 2007 +0000
+++ b/scripts/plot/contourf.m	Wed Dec 19 21:39:02 2007 +0000
@@ -55,7 +55,7 @@
 ## @end deftypefn
 
 ## Author: Kai Habel <kai.habel@gmx.de>
-## Author: shaia
+## Author: Shai Ayal <shaiay@users.sourceforge.net>
 
 function varargout = contourf (varargin)
 
@@ -258,3 +258,9 @@
 %!demo
 %! [x, y, z] = peaks (50);
 %! 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)