[genius] Wed Apr 08 11:39:22 2015 Jiri (George) Lebl <jirka 5z com>

[George Lebl <jirka src gnome org>]

commit 12053e836b2ff72cd4a7201fd82086c0e8b37208
Author: Jiri (George) Lebl <jiri lebl gmail com>
Date:   Wed Apr 8 11:39:26 2015 -0500

    Wed Apr 08 11:39:22 2015  Jiri (George) Lebl <jirka 5z com>
    
        * examples/vibrating-drumhead-modes.gel: make n consistently come
          first and fix up whitespace

 ChangeLog                             |    5 +++++
 examples/vibrating-drumhead-modes.gel |   30 +++++++++++++++---------------
 2 files changed, 20 insertions(+), 15 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index cdad414..8b2118a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Wed Apr 08 11:39:22 2015  Jiri (George) Lebl <jirka 5z com>
+
+       * examples/vibrating-drumhead-modes.gel: make n consistently come
+         first and fix up whitespace
+
 Tue Apr 07 14:28:45 2015  Jiri (George) Lebl <jirka 5z com>
 
        * examples/vibrating-drumhead-modes.gel:  Add example showing
diff --git a/examples/vibrating-drumhead-modes.gel b/examples/vibrating-drumhead-modes.gel
index 333c9e7..5a1960b 100644
--- a/examples/vibrating-drumhead-modes.gel
+++ b/examples/vibrating-drumhead-modes.gel
@@ -24,37 +24,37 @@ the_answer = AskButtons("Which mode?  n-m where n is the Bessel J_n to use",
                         );
 
 # the zeros of the Bessel functions
-kmn = [2.4048  , 3.8317, 5.1356
-       5.5201, 7.0156, 8.4172
-       8.6537, 10.1735, 11.6198];
+knm = [2.4048, 5.5201, 8.6537
+       3.8317, 7.0156, 10.1735
+       5.1356, 8.4172, 11.6198];
 
 if the_answer == 1 then (
   n = 0;
-  k = kmn@(1,n+1);
+  k = knm@(n+1,1);
 ) else if the_answer == 2 then (
   n = 0;
-  k = kmn@(2,n+1);
+  k = knm@(n+1,2);
 ) else if the_answer == 3 then (
   n = 0;
-  k = kmn@(3,n+1);
+  k = knm@(n+1,3);
 ) else if the_answer == 4 then (
   n = 1;
-  k = kmn@(1,n+1);
+  k = knm@(n+1,1);
 ) else if the_answer == 5 then (
   n = 1;
-  k = kmn@(2,n+1);
+  k = knm@(n+1,2);
 ) else if the_answer == 6 then (
   n = 1;
-  k = kmn@(3,n+1);
+  k = knm@(n+1,3);
 ) else if the_answer == 7 then (
   n = 2;
-  k = kmn@(1,n+1);
+  k = knm@(n+1,1);
 ) else if the_answer == 8 then (
   n = 2;
-  k = kmn@(2,n+1);
+  k = knm@(n+1,2);
 ) else if the_answer == 9 then (
   n = 2;
-  k = kmn@(3,n+1);
+  k = knm@(n+1,3);
 ) else (
   # Superposition
   n = -1; # signals superposition
@@ -63,17 +63,17 @@ if the_answer == 1 then (
   coeff1 = 0.5;
   shift1 = 0.0;
   n1 = 1;
-  k1 = kmn@(2,n1+1);
+  k1 = knm@(n1+1,2);
 
   coeff2 = 0.3;
   shift2 = 0.5;
   n2 = 0;
-  k2 = kmn@(3,n2+1);
+  k2 = knm@(n2+1,3);
 
   coeff3 = 0.3;
   shift3 = 2;
   n3 = 2;
-  k3 = kmn@(1,n3+1);
+  k3 = knm@(n3+1,1);
 );
 
 SurfacePlotDrawLegends = false; # don't draw the legend