DescripciónAtom deBrogie.jpg	English: Two representations of a hydrogenic de-Broglie wave; the ring represents the electron's phase as a color, the wavy line shows the phase using a polar plot of a sinus curve.
Fuente	Trabajo propio
Autor	Pieter Kuiper
Permiso (Reutilización de este archivo)	Public domainPublic domainfalsefalse Yo, el titular de los derechos de autor de esta obra, lo libero al dominio público. Esto aplica en todo el mundo. En algunos países esto puede no ser legalmente factible; si ello ocurriese: Concedo a cualquier persona el derecho de usar este trabajo para cualquier propósito, sin ningún tipo de condición al menos que éstas sean requeridas por la ley.

 

Este diagrama fue creado con Mathematica

Mathematica code:

circle = PolarPlot[1,{t,0,2 Pi}, ColorFunction -> Function[{x,y,t,r}, Hue[7 t, 0.7]], PlotStyle -> Thickness[0.05], MaxRecursion -> 3];
wave = PolarPlot[1 + 1/8 Sin[7 t], {t, 0, 2 Pi}, PlotStyle -> {Thickness[0.01], GrayLevel[0.0, 0.5]};
graph = Show[wave, circle, wave, Graphics[Disk[{0, 0}, 0.07]], Axes -> None, ImageSize -> Scaled[2.0]]
Export["Atom_deBroglie.jpg", graph]

There must be ways to get rid of the discontinuities in color, but I do not know how.