BeskrivningTravelling Particle Wavefunction.svg	The complex wavefunction, Ψ, of a travelling particle. This wavefunction extends to infinity. This also depicts circularly polarised light, although this image may be better.
Datum	12 februari 2007
Källa	Own drawing, plotted in Mathematica, edited in Inkscape   Den här W3C-overifiera vektorbilden skapades med Inkscape .
Skapare	inductiveload
Tillstånd (Återanvändning av denna fil)	Public domainPublic domainfalsefalse Jag, upphovsrättsinnehavaren till detta verk, släpper detta verk i public domain. Detta gäller globalt. I vissa länder kan detta inte vara juridiskt möjligt; i så fall: Jag ger härmed envar rätten att använda detta verk för alla ändamål, utan några villkor, förutom villkor som lagen ställer.
Andra versioner	This image shows a wavefunction with a finite, Gaussian, wavepacket

Mathematica Code

This figure requires the use of Arrow3D, which is not included in the StandardPackages (as of Feb 2007). This can be obtained from Wolfram Research at this location. The required packages are:

<< Graphics`
<< Arrow3D`Arrow3D`

The code is:

wavefunction=ParametricPlot3D[{t,-Cos[4t],Sin[4t]},{t,0,7},BoxRatios{4,1,1},ImageSize->500,Boxed->False,
Axes->False,PlotPoints->600,ViewPoint->{3, -2, 1},PlotRange->All]

xaxis=Graphics3D[Arrow3D[{-1,0,0},{8,0,0},HeadSize->UniformSize[.5],HeadColor->Black]]

uaxis=Graphics3D[Arrow3D[{0,-1,0},{0,3,0},HeadSize->UniformSize[.5],HeadColor->Black]]

vaxis=Graphics3D[Arrow3D[{0,0,-1},{0,0,3},HeadSize->UniformSize[.5],HeadColor->Black]]

plane=Graphics3D[Polygon[{{0,1.2,1.2},{0,-1.2,1.2},{0,-1.2,-1.2},{0,1.2,-1.2}}]]

Show[wavefunction,xaxis,uaxis,vaxis,plane]