B = StadiumShape[];
Graphics[B]
{vals, funsc} = 
  NDEigensystem[{Laplacian[u[x, y], {x, y}], 
    DirichletCondition[u[x, y] == 0., True]}, 
   u[x, y], {x, y} \[Element] B, 100];
plotc = DensityPlot[-Abs[#], {x, y} \[Element] B, PlotPoints -> 35, 
    ColorFunction -> GrayLevel, AspectRatio -> 1/2, Frame -> False, 
    PlotLabel -> "Chaotic"] & /@ funsc
B = Disk[];
Graphics[B]
{vals, funs} = 
  NDEigensystem[{Laplacian[u[x, y], {x, y}], 
    DirichletCondition[u[x, y] == 0., True]}, 
   u[x, y], {x, y} \[Element] B, 100];
plotd = DensityPlot[-Abs[#], {x, y} \[Element] B, PlotPoints -> 35, 
     ColorFunction -> GrayLevel, PlotRange -> All, Frame -> False, 
     PlotLabel -> "Integrable"] & /@ funs;
p = Table[
   GraphicsRow[{
     Text[Style[StringForm["Mode number: ``", j, j], Bold] ],
     plotd[[j]],
     plotc[[j]]
     }]
   , {j, 1, 100, 1}];
ListAnimate[p, 1]

Jo, el titular dels drets d'autor d'aquest treball, el public sota la següent llicència:

L'ús d'aquest fitxer és regulat sota les condicions de Creative Commons de CC0 1.0 lliurament al domini públic universal.

La persona que ha associat un treball amb aquest document ha dedicat l'obra domini públic, renunciant en tot el món a tots els seus drets de d'autor i a tots els drets legals relacionats que tenia en l'obra, en la mesura permesa per la llei. Podeu copiar, modificar, distribuir i modificar l'obra, fins i tot amb fins comercials, tot sense demanar permís. http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse

Aquest fitxer, que originalment va ser publicat en https://twitter.com/j_bertolotti/status/1043089897442160641, va ser revisat 19 October 2018 pel revisor Ronhjones, qui va confirmar que estava disponible allà sota la llicència establerta en aquesta data.