"Wignerfunction_fock_" <> TextString[n] <> ".png"; Export[imgname, ImageResize[ ImageTrim[Image[plot, ImageResolution -> 400], trim, DataRange -> { {0...
"Wignerfunction_fock_" <> TextString[n] <> ".png"; Export[imgname, ImageResize[ ImageTrim[Image[plot, ImageResolution -> 400], trim, DataRange -> { {0...
"Wignerfunction_fock_" <> TextString[n] <> ".png"; Export[imgname, ImageResize[ ImageTrim[Image[plot, ImageResolution -> 400], trim, DataRange -> { {0...
"Wignerfunction_fock_" <> TextString[n] <> ".png"; Export[imgname, ImageResize[ ImageTrim[Image[plot, ImageResolution -> 400], trim, DataRange -> { {0...
"Wignerfunction_fock_" <> TextString[n] <> ".png"; Export[imgname, ImageResize[ ImageTrim[Image[plot, ImageResolution -> 400], trim, DataRange -> { {0...
"Wignerfunction_fock_" <> TextString[n] <> ".png"; Export[imgname, ImageResize[ ImageTrim[Image[plot, ImageResolution -> 400], trim, DataRange -> { {0...
imgname = "Wignerfunction_fock_1+2.png"; Export[imgname, ImageResize[ ImageTrim[Image[plot, ImageResolution -> 400], trim, DataRange -> { {0, 1}, {0, 1} }]...
imgname = "Wignerfunction_fock_1+2.png"; Export[imgname, ImageResize[ ImageTrim[Image[plot, ImageResolution -> 400], trim, DataRange -> { {0, 1}, {0, 1} }]...