Tiedosto:Quantum Harmonic Oscillator Levels.png
Siirry navigaatioon
Siirry hakuun
Tämän esikatselun koko: 800 × 526 kuvapistettä. Muut resoluutiot: 320 × 211 kuvapistettä | 640 × 421 kuvapistettä | 1 024 × 674 kuvapistettä | 1 280 × 842 kuvapistettä | 1 596 × 1 050 kuvapistettä.
Alkuperäinen tiedosto (1 596 × 1 050 kuvapistettä, 441 KiB, MIME-tyyppi: image/png)
| Kuvaus |
English: A diagram showing wavefunction of a quantum harmonic oscillator for energy levels n = 0 to 20. The probability density is shown by the colour, black is the lowest, white is the highest. |
||
| Päiväys | |||
| Lähde | Oma teos | ||
| Tekijä | Inductiveload | ||
| Käyttöoikeus (Tämän tiedoston uudelleenkäyttö) |
|
Mathematica Code
(*QHO wavefunction*)
psi[n_, x_] := Exp[-x^2/2] / Sqrt[2^n *n!*Sqrt[Pi]]*HermiteH[n, x];
(*Colour function*)
colourFunc[x_] := (Blend[{Black, Red, Yellow, White}, x*1.8] &);
(*Generates a single strip showing one QHO energy level wavefunction*)
level[n_] := DensityPlot[
psi[n, x]^2,
{x, -8, 8},
{y, 0, 1},
PlotRange -> {0, 0.7},
PlotPoints -> {100, 2},
Frame -> False,
ColorFunction -> colourFunc[#],
AspectRatio -> 1/32,
ImageSize -> 1600,
Method -> {"ShrinkWrap" -> True},(*Remove whitespace at edges*)
ColorFunctionScaling -> False (*Have a consistent CF scaling*)
];
(*Assemble the entire drawing of all levels*)
graphic = GraphicsGrid[
Reverse[Table[
{level[k]},
{k, 0, 20}]],
Spacings -> 0]
Tiedoston historia
Päiväystä napsauttamalla näet, millainen tiedosto oli kyseisellä hetkellä.
| Päiväys | Pienoiskuva | Koko | Käyttäjä | Kommentti | |
|---|---|---|---|---|---|
| nykyinen | 19. huhtikuuta 2009 kello 16.49 | | 1 596 × 1 050 (441 KiB) | wikimediacommons>Inductiveload | {{Information |Description={{en|1=A diagram showing wavefunction of a en:quantum harmonic oscillator for energy levels ''n'' = 0 to 20. The probability density is shown by the colour, black is the lowest, white is the highest.}} |Source=Own work by |
Tiedoston käyttö
Seuraava sivu käyttää tätä tiedostoa:
