license: This image is a derivative work of the following images: File:Fock-space.svg licensed with LGPL 2010-11-09T05:07:50Z kismalac 2771x2039 (154232...
fock[n_, q_, p_] := (-1)^n / Pi Exp[-q ^2 - p^2] LaguerreL[n, 2 q^2 + 2 p^2]; rq = 4; rp = 4; t = 0.003; FontS = 20; For[n = 0, n <= 5, n++, plot = Show[Plot3D[fock[n...
fock[n_, q_, p_] := (-1)^n / Pi Exp[-q ^2 - p^2] LaguerreL[n, 2 q^2 + 2 p^2]; rq = 4; rp = 4; t = 0.003; FontS = 20; For[n = 0, n <= 4, n++, plot = Show[Plot3D[fock[n...
fock[n_, q_, p_] := (-1)^n / Pi Exp[-q ^2 - p^2] LaguerreL[n, 2 q^2 + 2 p^2]; rq = 4; rp = 4; t = 0.003; FontS = 20; For[n = 0, n <= 4, n++, plot = Show[Plot3D[fock[n...
fock[n_, q_, p_] := (-1)^n / Pi Exp[-q ^2 - p^2] LaguerreL[n, 2 q^2 + 2 p^2]; rq = 4; rp = 4; t = 0.003; FontS = 20; For[n = 0, n <= 4, n++, plot = Show[Plot3D[fock[n...
fock[n_, q_, p_] := (-1)^n / Pi Exp[-q ^2 - p^2] LaguerreL[n, 2 q^2 + 2 p^2]; rq = 4; rp = 4; t = 0.003; FontS = 20; For[n = 0, n <= 4, n++, plot = Show[Plot3D[fock[n...
fock[n_, q_, p_] := (-1)^n / Pi Exp[-q ^2 - p^2] LaguerreL[n, 2 q^2 + 2 p^2]; rq = 4; rp = 4; t = 0.003; FontS = 20; For[n = 0, n <= 4, n++, plot = Show[Plot3D[fock[n...
-> All ]; trim = { {0., .28}, {.95, .93} }; imgname = "Wignerfunction_fock_1+2.png"; Export[imgname, ImageResize[ ImageTrim[Image[plot, ImageResolution...
DescriptionFock-space.svg English: Pictorical representation of a Fock space. The initial empty box is the vacuum state. Each color represents a certain...
DescriptionKepler Fock projection.png English: Figure showing the stereographic projection of the momentum hodographs for the Kepler problem from a four-dimensional...
