File:Atom deBrogie.jpg

توضیحAtom 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.
منبع	اثر شخصی
پدیدآور	Pieter Kuiper
اجازه‌نامه (استفادهٔ مجدد از این پرونده)	Public domainPublic domainfalsefalse من، دارنده حق تکثیر این اثر، این اثر را به مالکیت عمومی منتشر می‌کنم. این قابل اجرا در تمام نقاط جهان است. در برخی از کشورها ممکن است به صورت قانونی این امکان‌پذیر نباشد؛ اگر چنین است: من اجازهٔ استفاده از این اثر را برای هر مقصودی، بدون هیچ‌گونه شرایطی می‌دهم، تا وقتی که این شرایط توسط قانون مستلزم نشده باشد.

 

این نمودار با 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.