0}]}], {z, -2, 2}], BoxRatios -> {Automatic, Automatic, 6}, PlotRange -> All ]; trim = { {0., .25}, {.95, .91} }; imgname = "Wignerfunction_fock_" <> TextString[n]...
{z, -2, 2}], BoxRatios -> {Automatic, Automatic, 6}, PlotRange -> All ]; trim = { {0., .28}, {.95, .93} }; imgname = "Wignerfunction_fock_1+2.png"; Export[imgname...
0}]}], {z, -2, 2}], BoxRatios -> {Automatic, Automatic, 6}, PlotRange -> All ]; trim = { {0., .25}, {.95, .91} }; imgname = "Wignerfunction_fock_" <> TextString[n]...
0}]}], {z, -2, 2}], BoxRatios -> {Automatic, Automatic, 6}, PlotRange -> All ]; trim = { {0., .25}, {.95, .91} }; imgname = "Wignerfunction_fock_" <> TextString[n]...
0}]}], {z, -2, 2}], BoxRatios -> {Automatic, Automatic, 6}, PlotRange -> All ]; trim = { {0., .25}, {.95, .91} }; imgname = "Wignerfunction_fock_" <> TextString[n]...
0}]}], {z, -2, 2}], BoxRatios -> {Automatic, Automatic, 6}, PlotRange -> All ]; trim = { {0., .25}, {.95, .91} }; imgname = "Wignerfunction_fock_" <> TextString[n]...
0}]}], {z, -2, 2}], BoxRatios -> {Automatic, Automatic, 6}, PlotRange -> All ]; trim = { {0., .25}, {.95, .91} }; imgname = "Wignerfunction_fock_" <> TextString[n]...
{z, -2, 2}], BoxRatios -> {Automatic, Automatic, 6}, PlotRange -> All ]; trim = { {0., .28}, {.95, .93} }; imgname = "Wignerfunction_fock_1+2.png"; Export[imgname...