[genius] Mon Apr 17 13:17:45 2017 Jiri (George) Lebl <jirka 5z com>

[George Lebl <jirka src gnome org>]

commit 1f1591f7668ea1e8eb1966d4a89d23d498fed706
Author: Jiri (George) Lebl <jiri lebl gmail com>
Date:   Mon Apr 17 13:17:47 2017 -0500

    Mon Apr 17 13:17:45 2017  Jiri (George) Lebl <jirka 5z com>
    
        * examples/vibrating-drumhead-modes.gel: again do 10 r increments,
          but do 16 theta increments.  This way we see some of the nodelines

 ChangeLog                             |    5 +++++
 examples/vibrating-drumhead-modes.gel |    8 ++++----
 2 files changed, 9 insertions(+), 4 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 57044ff..77185e3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Mon Apr 17 13:17:45 2017  Jiri (George) Lebl <jirka 5z com>
+
+       * examples/vibrating-drumhead-modes.gel: again do 10 r increments,
+         but do 16 theta increments.  This way we see some of the nodelines
+
 Fri Mar 10 13:15:25 2017  Jiri (George) Lebl <jirka 5z com>
 
        * examples/dalemb-pulse.gel: Add some other example functions
diff --git a/examples/vibrating-drumhead-modes.gel b/examples/vibrating-drumhead-modes.gel
index 81ff579..71a7e8a 100644
--- a/examples/vibrating-drumhead-modes.gel
+++ b/examples/vibrating-drumhead-modes.gel
@@ -86,8 +86,8 @@ SurfacePlotVariableNames = ["x","y","z"];
 if n >= 0 then (
   for t=0.0 to 30.0 by 0.03 do (
     data = null;
-    for r=0 to 1.0 by 1.0/12 do (
-      for theta=0 to 2*pi by pi/15 do (
+    for r=0 to 1.0 by 1.0/10 do (
+      for theta=0 to 2*pi by pi/16 do (
         x = r*cos(theta);
         y = r*sin(theta);
         data = [data;[x,y,BesselJn(n,k*r)*cos(n*theta)*sin(k*t)]]
@@ -100,8 +100,8 @@ if n >= 0 then (
 ) else (
   for t=0.0 to 30.0 by 0.03 do (
     data = null;
-    for r=0 to 1.0 by 1.0/12 do (
-      for theta=0 to 2*pi by pi/15 do (
+    for r=0 to 1.0 by 1.0/10 do (
+      for theta=0 to 2*pi by pi/16 do (
         x = r*cos(theta);
         y = r*sin(theta);
         val = coeff1*BesselJn(n1,k1*r)*cos(n1*theta+shift1)*sin(k1*t) +