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]

Eu, titular dos direitos de autor desta obra, publico-a com a seguinte licença:

A utilização deste ficheiro é regulada nos termos Creative Commons - CC0 1.0 Dedicação Universal ao Domínio Público.

A pessoa que associou uma obra a este documento dedicou-a ao domínio público, renunciando a todos os seus direitos sobre a obra em todo o mundo ao abrigo da legislação de direitos de autor, incluindo a todos os direitos legais conexos, na medida permitida por lei. Pode copiar, modificar, distribuir e executar a obra, até com fins comerciais, sem pedir autorização. http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse

Este ficheiro, originalmente carregado no site https://twitter.com/j_bertolotti/status/1043089897442160641, foi revisto em 19 de outubro de 2018 pelo administrador ou revisor Ronhjones, que confirmou que o ficheiro estava disponível naquela data com a licença especificada.