Replace meshplot with bouncing ball

Author: rocky

mathics/web/media/js/inout.js

@@ -187,7 +187,7 @@ function loadLink() {
 
 function showGallery() {
 	setQueries([
-	    '(* Calculation *)',
+	    '(**** Calculation ****)',
 	    'Sin[Pi]',
 	    "E ^ (Pi I) (* Euler's famous equation *)",
 	    'N[E, 30] (* 30-digit Numeric approximation of E *)',
@@ -196,34 +196,34 @@ function showGallery() {
 	    'Sum[2 i + 1, {i, 0, 10}] (* Sum of 1st n odd numbers (n+1)**2 *)',
 	    'n = 8; 2 ^ # & /@ Range[0, n] (* Powers of 2 *)',
 	    'Total[%] (* Sum is 2 ^ n - 1 *)',
-	    '(* Symbolic Manipulation *)',
+	    '(**** Symbolic Manipulation ****)',
 	    'Apart[1 / (x^2 + 5x + 6)]',
 	    'Cancel[x / x ^ 2]',
 	    'Expand[(x + y)^ 3]',
 	    'Factor[x ^ 2 + 2 x + 1]',
 	    'Simplify[5*Sin[x]^2 + 5*Cos[x]^2]',
-	    '(* Calculus *)',
+	    '(**** Calculus ****)',
 	    "Sin'[x]",
 	    "Sin''[x]",
 	    'D[Sin[2x] + Log[x] ^ 2, x]',
 	    'Integrate[Tan[x] ^ 5, x]',
-	    '(* Linear Algebra *)',
+	    '(**** Linear Algebra ****)',
 	    'MagicSquare = {{2, 7, 6}, {9, 5, 1}, {4, 3, 8}}; MatrixForm[MagicSquare]',
 	    'LinearSolve[MagicSquare, {1, 1, 1}] // MatrixForm',
 	    'Eigenvalues[MagicSquare]',
-	    '(* Chemical Data *)',
+	    '(**** Chemical Data ***)',
 	    '(* 2nd and 3rd Row of Periodic Table *)',
 	    'Grid[{Table[ElementData[i], {i, 3, 10}], Table[ElementData[i], {i, 11, 18}]}]',
 	    'ListLinePlot[Table[ElementData[z, "MeltingPoint"], {z, 118}]]',
-	    '(* Some graphs *)',
+	    '(**** Some graphs ****)',
 	    'ListPlot[{Sqrt[Range[40]], Log[Range[40, 80]]}]',
-	    'ListLinePlot[Table[Sin[x], {x,-5, 5, 0.5}], Filling->Axis]',
 	    'Plot[{Sin[x], Cos[x], Tan[x]}, {x, -3Pi, 3Pi}]',
-	    'Plot[{Abs[Sin[x]], Abs[Cos[x]]}, {x,0,4 Pi}, Mesh->Full]',
+	    '(* Bouncing Ping-Pong Ball at equal time intervals *)',
+	    'Plot[Abs[Sin[t] / (t + 1)], {t, 0, 4 Pi}, Mesh->Full, PlotRange->{0, 1 / 2}]',
 	    'BarChart[{{1, 2, 3}, {2, 3, 4}}]',
 	    'Graphics[Line[AnglePath[Table[1.7, {50}]]]]',
 	    'Graphics[Table[{EdgeForm[{GrayLevel[0, 0.5]}], Hue[(-11+q+10r)/72, 1, 1, 0.6], Disk[(8-r){Cos[2Pi q/12], Sin [2Pi q/12]}, (8-r)/3]}, {r, 6}, {q, 12}]]',
-	    '(* 3D graphics *)',
+	    '(**** 3D graphics ****)',
 	    'Graphics3D[Sphere[{0, 0, 0}, 1]]',
             'Plot3D[Sin[x y], {x, -2, 2}, {y, -2, 2}, Mesh->Full, PlotPoints->21]',
 	    'Plot3D[ Abs[Zeta[x + I y] ], {x, -2, 2}, {y, 2, 20}, PlotPoints->30]',