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