Mercurial > hg > octave-nkf
diff scripts/plot/sombrero.m @ 5381:75f308189a05
[project @ 2005-06-05 13:19:20 by jwe]
author | jwe |
---|---|
date | Sun, 05 Jun 2005 13:21:41 +0000 |
parents | 4c8a2e4e0717 |
children | 34f96dd5441b |
line wrap: on
line diff
--- a/scripts/plot/sombrero.m +++ b/scripts/plot/sombrero.m @@ -32,19 +32,22 @@ function sombrero (n) - if (nargin != 1) + if (nargin == 0) + n = 41; + endif + + if (nargin < 2) + if (n > 1) + x = y = linspace (-8, 8, n)'; + [xx, yy] = meshgrid (x, y); + r = sqrt (xx .^ 2 + yy .^ 2) + eps; + z = sin (r) ./ r; + mesh (x, y, z); + else + error ("sombrero: number of grid lines must be greater than 1"); + endif + else usage ("sombrero (n)"); endif - if (n > 1) - x = y = linspace (-8, 8, n)'; - [xx, yy] = meshgrid (x, y); - r = sqrt (xx .^ 2 + yy .^ 2) + eps; - z = sin (r) ./ r; - - mesh (x, y, z); - else - error ("sombrero: number of grid lines must be greater than 1"); - endif - endfunction