All ]; trim = { {0., .25}, {.95, .91} }; imgname = "Wignerfunction_fock_" <> TextString[n] <> ".png"; Export[imgname, ImageResize[ ImageTrim[Image[plot...
All ]; trim = { {0., .25}, {.95, .91} }; imgname = "Wignerfunction_fock_" <> TextString[n] <> ".png"; Export[imgname, ImageResize[ ImageTrim[Image[plot...
All ]; trim = { {0., .25}, {.95, .91} }; imgname = "Wignerfunction_fock_" <> TextString[n] <> ".png"; Export[imgname, ImageResize[ ImageTrim[Image[plot...
All ]; trim = { {0., .25}, {.95, .91} }; imgname = "Wignerfunction_fock_" <> TextString[n] <> ".png"; Export[imgname, ImageResize[ ImageTrim[Image[plot...
All ]; trim = { {0., .25}, {.95, .91} }; imgname = "Wignerfunction_fock_" <> TextString[n] <> ".png"; Export[imgname, ImageResize[ ImageTrim[Image[plot...
All ]; trim = { {0., .25}, {.95, .91} }; imgname = "Wignerfunction_fock_" <> TextString[n] <> ".png"; Export[imgname, ImageResize[ ImageTrim[Image[plot...
PlotRange -> All ]; trim = { {0., .28}, {.95, .93} }; imgname = "Wignerfunction_fock_1+2.png"; Export[imgname, ImageResize[ ImageTrim[Image[plot, ImageResolution...
PlotRange -> All ]; trim = { {0., .28}, {.95, .93} }; imgname = "Wignerfunction_fock_1+2.png"; Export[imgname, ImageResize[ ImageTrim[Image[plot, ImageResolution...