Датотека:2D Spherical Harmonic Orbitals.png
Veličina ovog prikaza: 242 × 600 piksela. 5 drugih rezolucija: 97 × 240 piksela | 193 × 480 piksela | 310 × 768 piksela | 413 × 1.024 piksela | 1.524 × 3.778 piksela.
Originalna datoteka (1.524 × 3.778 piksela, veličina datoteke: 1,19 MB, MIME tip: image/png)
 | Ovo je datoteka sa Vikimedijine ostave. Informacije sa njene stranice sa opisom prikazane su ispod. Vikimedijina ostava je skladište slobodno licenciralnih multimedijalnih datoteka. I Vi možete da pomognete. |
Opis izmene
| Opis |
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 |
| Datum | |
| Izvor | See below for mathematica source code Sopstveno delo |
| Autor | 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}]
Licenciranje
Ja, nosilac autorskog prava nad ovim delom, objavljujem isto pod sledećom licencom:
Ova datoteka je dostupna pod licencom Creative Commons Autorstvo-Deliti pod istim uslovima 4.0 Međunarodna.
- Dozvoljeno je:
- da delite – da umnožavate, raspodeljujete i prenosite delo
- da prerađujete – da preradite delo
- Pod sledećim uslovima:
- autorstvo – Morate da date odgovarajuće zasluge, obezbedite vezu ka licenci i naznačite da li su izmene napravljene. Možete to uraditi na bilo koji razuman manir, ali ne na način koji predlaže da licencator odobrava vas ili vaše korišćenje.
- deliti pod istim uslovima – Ako izmenite, preobrazite ili dogradite ovaj materijal, morate podeliti svoje doprinose pod istom ili kompatibilnom licencom kao original.
Istorija datoteke
Kliknite na datum/vreme da biste videli tadašnju verziju datoteke.
| Datum/vreme | Minijatura | Dimenzije | Korisnik | Komentar | |
|---|---|---|---|---|---|
| trenutna | 16:37, 28. jun 2017. | | 1.524 × 3.778 (1,19 MB) | Jgmoxness | better resolution |
| 16:29, 28. jun 2017. |  | 413 × 1.024 (327 kB) | Jgmoxness | User created page with UploadWizard |
Upotreba datoteke
Sledeća stranica koristi ovu datoteku:
Globalna upotreba datoteke
Drugi vikiji koji koriste ovu datoteku:
- Upotreba na en.wikipedia.org
- Upotreba na ru.wikipedia.org
