All ]; trim = { {0., .25}, {.95, .91} }; imgname = "Wignerfunction_fock_" <> TextString[n] <> ".png"; Export[imgname, ImageResize[ ImageTrim[Image[plot...
imgname = "Wignerfunction_fock_1+2.png"; Export[imgname, ImageResize[ ImageTrim[Image[plot, ImageResolution -> 400], trim, DataRange -> { {0, 1}, {0, 1} }],...
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...
imgname = "Wignerfunction_fock_1+2.png"; Export[imgname, ImageResize[ ImageTrim[Image[plot, ImageResolution -> 400], trim, DataRange -> { {0, 1}, {0, 1} }],...