Ficheru:2D Wavefunction (1,2) Surface Plot.png
Tamañu d'esta previsualización: 800 × 600 pixels. Otres resoluciones: 320 × 240 pixels | 640 × 480 pixels | 1024 × 768 pixels | 1280 × 960 pixels | 1575 × 1181 pixels.
Ficheru orixinal (1575 × 1181 píxels, tamañu de ficheru: 490 kB, triba MIME: image/png)
| Descripción |
The quantum wavefunction of a particle in a 2D box of dimensions Lx and Ly. The wavenumbers are:
|
||
| Data | |||
| Fonte | Own drawing, plotted in MuPAD. | ||
| Autor | Inductiveload | ||
| Permisu (Cómo reutilizar esti ficheru) |
|
||
| Otres versiones | See 2D Quantum Wavefunctions for more plots. |
_Surface_Plot.png){kind=link}
Mathematica Code
This code does not require any packages to be loaded.
nx = 1
ny = 2
Plot3D[
Sin[nx Pi x]Sin[ny Pi y],
{x, 0, 1},
{y, 0, 1},
ImageSize -> 2500,
BoxRatios -> {2, 2, 2},
AxesLabel -> {x/Subscript[L, x], y/Subscript[L, y], Subscript[ψ, "1,1"]},
PlotRange -> {-1, 1},
TextStyle -> {FontSize -> 96}
]
MuPAD Code
nx := 1:
ny := 2:
f := sin(nx*x*PI) * sin(ny*y*PI):
conts := 16:
projectionlevel:=-1.5:
colourfunc := zip(RGB::Red, RGB::Yellow,
(a, b) -> (f(x,y)+1)/(2)*a
-(f(x,y)-1)/(2)*b):
funcplot := plot::Function3d(f(x,y),
x = 0..1,
y = 0..1,
Mesh = [24, 24],
Submesh=[8,8],
LineColor = RGB::Black.[0.99],
LineWidth = 0.2，
FillColorFunction = colourfunc,
AxesTitleFont = ["BKM-cmr17", 20],
TicksLabelFont = ["Courier New", 12],
ViewingBoxZRange = -1.5..1
):
contours := plot::modify(funcplot,
ZContours = [Automatic, conts],
LineWidth = 0.2,
LineColor = RGB::Gray90.[0.5],
XLinesVisible = FALSE,
YLinesVisible = FALSE,
Filled = FALSE
):
projcontours := plot::Transform3d([0, 0, projectionlevel],
[1, 0, 0, 0, 1, 0, 0, 0, 0],
plot::modify(funcplot, ZContours = [Automatic, conts],
LineWidth = 0.2,
LineColorType = Dichromatic,
LineColor = RGB::Red.[0.99],
LineColor2 = RGB::Yellow.[0.99],
XLinesVisible = FALSE,
YLinesVisible = FALSE,
Filled = FALSE
)
):
camera := plot::Camera([17, -24, 45],
[0.5, 0.4, -0.2],
0.038
):
ploteverything := plot::Canvas(funcplot, contours, projcontours,
Width = 200*unit::mm,
Height = 150*unit::mm,
AxesTitles = ["x/L(x)", "y/L(y)", "z"],
camera
):
plot(ploteverything)
Historial del ficheru
Calca nuna fecha/hora pa ver el ficheru como taba daquella.
| Data/Hora | Miniatura | Dimensiones | Usuariu | Comentariu | |
|---|---|---|---|---|---|
| actual | 22:08 4 ago 2007 | | 1575 × 1181 (490 kB) | Inductiveload | |
| 19:32 4 ago 2007 |  | 1575 × 1181 (504 kB) | Inductiveload | ||
| 01:58 19 feb 2007 |  | 1575 × 1181 (505 kB) | Inductiveload | muPAd plot | |
| 04:41 13 feb 2007 |  | 2499 × 2713 (134 kB) | Inductiveload | {{Information |Description=The quantum wavefunction of a particle in a 2D box of dimensions L<sub>x</sub> and L<sub>y</sub>. The wavenumbers are: *''n<sub>x</sub>''=1 *''n<sub>y</sub>''=2 |Source=Own drawing, plotted in Mathematica. |Date=13/02/2007 |Au |
Usu del ficheru
Les páxines siguientes usen esti ficheru:
Usu global del ficheru
Estes otres wikis usen esti ficheru:
- Usu en ca.wikipedia.org
- Usu en en.wikibooks.org
- Usu en es.wikipedia.org
- Usu en pt.wikipedia.org
_Surface_Plot.png){kind=link}