BeskrivelseAtom 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.
Kilde	Eget verk
Opphavsperson	Pieter Kuiper
Tillatelse (Gjenbruk av denne filen)	Public domainPublic domainfalsefalse Jeg, opphavsrettensholderen til dette verket, frigir dette verket til allmennheten. Dette gjelder på verdensbasis. I enkelte land kan dette være juridisk umulig. I så fall: Jeg gir hvem som helst retten til å bruke dette verket for ethvert formål, uten noen vilkår, med mindre slike vilkår kreves ved lov.

 

Denne JPG rastergrafikken ble laget med 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.