DescripciónTravelling Particle Wavepacket.svg	The complex wavefunction, Ψ, of a travelling particle with a Gaussian envelope.
Data	12/02/07
Fonte	Own drawing, plotted in Mathematica, edited in Inkscape   Este gráfico vectorial, sin especificar según el W3C, fue creado con Inkscape .
Autor	inductiveload
Permisu (Cómo reutilizar esti ficheru)	Public domainPublic domainfalsefalse Yo, el titular de los drechos d'autor d'esta obra, la llibero como dominiu públicu. Esto s'aplica nel mundu ensembre. En dellos países seique esto nun seya posible llegalmente; nesti casu: Doi a cualesquier persona permisu pa usar esta obra pa cualesquier propósitu, ensin denguna condición, menos si eses condiciones requierense pola llei.
Otres versiones	This image shows a wavefunction without a constraining envelope

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:

\!\(NormDist[σ_, μ_] = \((1/\((σ \@\( 2  
    π\))\))\)*Exp[\(-\((t - μ)\)\^2\)/\((2  σ\^2)\)]\)

wavefunction=ParametricPlot3D[{t,-Cos[20t]*2NormDist[1,4],2NormDist[1,4]*Sin[20t]},{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]