File:2D Wavefunction (2,1) Surface Plot.png
_Surface_Plot.png){kind=small}
Size of this preview: 800 × 600 pixels. Other resolutions: 320 × 240 pixels | 640 × 480 pixels | 1,024 × 768 pixels | 1,280 × 960 pixels | 1,575 × 1,181 pixels.
Original file (1,575 × 1,181 pixels, file size: 548 KB, MIME type: image/png)
 | This is a file from the Wikimedia Commons. Information from its description page there is shown below. Commons is a freely licensed media file repository. You can help. |
| Description |
The quantum wavefunction of a particle in a 2D box of dimensions Lx and Ly. The wavenumbers are:
|
||
| Date | |||
| Source | Own drawing, plotted in MuPad. | ||
| Author | Inductiveload | ||
| Permission (Reusing this file) |
|
||
| Other versions | See 2D Quantum Wavefunctions for more plots. |
Mathematica Code
This code does not require any packages to be loaded.
nx = 2
ny = 1
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 := 2:
ny := 1:
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)
File history
Click on a date/time to view the file as it appeared at that time.
| Date/Time | Thumbnail | Dimensions | User | Comment | |
|---|---|---|---|---|---|
| current | 22:20, 4 August 2007 | | 1,575 × 1,181 (548 KB) | Inductiveload | |
| 01:56, 19 February 2007 |  | 1,575 × 1,181 (576 KB) | Inductiveload | Better proportioned | |
| 01:41, 19 February 2007 |  | 1,969 × 1,181 (582 KB) | Inductiveload | muPAd plot | |
| 04:41, 13 February 2007 |  | 2,499 × 2,713 (169 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>''=2 *''n<sub>y</sub>''=1 |Source=Own drawing, plotted in Mathematica. |Date=13/02/2007 |Au |
File usage
The following page uses this file:
Global file usage
The following other wikis use this file:
- Usage on de.wikipedia.org
- Usage on en.wikibooks.org
- Usage on fa.wikipedia.org
_Surface_Plot.png){kind=link}