Датотека:2D Spherical Harmonic Orbitals.png
Пређи на навигацију
Пређи на претрагу
Величина овог приказа: 242 × 600 пиксела. 5 других резолуција: 97 × 240 пиксела | 193 × 480 пиксела | 310 × 768 пиксела | 413 × 1.024 пиксела | 1.524 × 3.778 пиксела.
Оригинална датотека (1.524 × 3.778 пиксела, величина датотеке: 1,19 MB, MIME тип: image/png)
Опис
| Опис |
English: Schrödinger 3D Spherical Harmonic Orbital solutions in 2D Density plots with Mathematica(TM) generating source code snippet at the top. This is constructed from VisibLie_E8 found on TheoryOfEverything.org |
| Датум | |
| Извор | See below for mathematica source code Сопствено дело |
| Аутор | Jgmoxness |
| PNG genesis |  This diagram was created with Mathematica. |
Source code
The following code was rewritten manually based on the one embedded in the picture. It differes only in small conventions (for instance it doesn't use the subscription notation). Furthermore, a bug has been replaced (phi = arc tan(x,y) instead phi = arc tan (x,0)^2)
ClearAll[detail, R, Y, \[Psi], orb];
detail[n_, l_, m_] := 8 Total@{n, l, m}
F[n_, l_, x_ ] :=
x^l Exp[-x/2] Factorial[n + 1] LaguerreL[n - l - 1, 2 l + 1, x];
R[n_ , l_, r_,
a_] := (2/(n a))^2 Sqrt[ a/4 (n - l - 1)!/((n + 1)!)^3] F[n, l, (
2 r)/(n a)];
Y = SphericalHarmonicY;
\[Psi][n_ , l_, m_, r_, a_, \[Theta]_, \[Phi]_] :=
R[n, l, r, a] Abs@Y[l, m, \[Theta], \[Phi]]
orb[n_, l_, m_, x_, y_, z_] := Module[{r = Norm@{x, y, z}},
\[Psi][n, l, m, r, 1(*a*), ArcCos[z/r], ArcTan[x, y]]];
orbDensity[n_, l_, m_] := DensityPlot[orb[n, l, m, x, 0 (* doing a 2d cut in y=0 *), z],
{x, -detail[n, l, m], detail[n, l, m]}, {z, -detail[n, l, m],
detail[n, l, m]},
Mesh -> False, Frame -> False, PlotPoints -> 45,
ColorFunctionScaling -> True, ColorFunction -> "SunsetColors"]
MatrixForm@
Table[MatrixForm@
Table[Row@Table[{{n, l, m}, orbDensity[n, l, m]}, {m, 0, l}], {l,
0, n - 1}], {n, 1, 3}]
Лиценцирање
Ја, носилац ауторског права над овим делом, објављујем исто под следећом лиценцом:
Ова датотека је доступна под лиценцом Creative Commons Ауторство-Делити под истим условима 4.0 међународна.
- Дозвољено је:
- да делите – да умножавате, расподељујете и преносите дело
- да прерађујете – да прерадите дело
- Под следећим условима:
- ауторство – Морате да дате одговарајуће заслуге, обезбедите везу ка лиценци и назначите да ли су измене направљене. Можете то урадити на било који разуман манир, али не на начин који предлаже да лиценцатор одобрава вас или ваше коришћење.
- делити под истим условима – Ако измените, преобразите или доградите овај материјал, морате поделити своје доприносе под истом или компатибилном лиценцом као оригинал.
Историја датотеке
Кликните на датум/време да бисте видели тадашњу верзију датотеке.
| Датум/време | Минијатура | Димензије | Корисник | Коментар | |
|---|---|---|---|---|---|
| тренутна | 15:37, 28. јун 2017. | | 1.524 × 3.778 (1,19 MB) | wikimediacommons>Jgmoxness | better resolution |
Употреба датотеке
Следећа страница користи ову датотеку:
