{z, -2, 2}], BoxRatios -> {Automatic, Automatic, 6}, PlotRange -> All ]; trim = { {0., .28}, {.95, .93} }; imgname = "Wignerfunction_fock_1+2.png"; Export[imgname...
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 <= 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...
{z, -2, 2}], BoxRatios -> {Automatic, Automatic, 6}, PlotRange -> All ]; trim = { {0., .28}, {.95, .93} }; imgname = "Wignerfunction_fock_1+2.png"; Export[imgname...
