trim = { {0., .23}, {.96, .90} }; imgname = "Wignerfunction_coherent_" <> TextString[\[Alpha]] <> ".png"; Export[imgname, ImageResize[ ImageTrim[Image[plot...
-> All ]; trim = { {0., .26}, {.97, .86} }; imgname = "Wignerfunction_coherent-mixture_2.5.png"; Export[imgname, ImageResize[ ImageTrim[Image[plot, ImageResolution...
-> All ]; trim = { {0., .26}, {.97, .86} }; imgname = "Wignerfunction_coherent-mixture_2.5.png"; Export[imgname, ImageResize[ ImageTrim[Image[plot, ImageResolution...
trim = { {0., .23}, {.96, .90} }; imgname = "Wignerfunction_coherent_" <> TextString[\[Alpha]] <> ".png"; Export[imgname, ImageResize[ ImageTrim[Image[plot...
trim = { {0., .23}, {.96, .90} }; imgname = "Wignerfunction_coherent_" <> TextString[\[Alpha]] <> ".png"; Export[imgname, ImageResize[ ImageTrim[Image[plot...
thermal[T_, x_, p_] := If[T === 0, coherent[0, x, p], 1/Pi Tanh[1/(2 T)]*Exp[-(x^2/Coth[1/(2 T)]) - p^2/Coth[1/(2 T)]] ]; rq = 4; rp = 4; t = 0.003; FontS...
thermal[T_, x_, p_] := If[T === 0, coherent[0, x, p], 1/Pi Tanh[1/(2 T)]*Exp[-(x^2/Coth[1/(2 T)]) - p^2/Coth[1/(2 T)]] ]; rq = 4; rp = 4; t = 0.003; FontS...
thermal[T_, x_, p_] := If[T === 0, coherent[0, x, p], 1/Pi Tanh[1/(2 T)]*Exp[-(x^2/Coth[1/(2 T)]) - p^2/Coth[1/(2 T)]] ]; rq = 4; rp = 4; t = 0.003; FontS...
thermal[T_, x_, p_] := If[T === 0, coherent[0, x, p], 1/Pi Tanh[1/(2 T)]*Exp[-(x^2/Coth[1/(2 T)]) - p^2/Coth[1/(2 T)]] ]; rq = 4; rp = 4; t = 0.003; FontS...
8/Pi}]}], ViewPoint -> {1.2, -2.2, 1}, Background -> None, PlotRange -> All] Export["Wignerfunction_marginal_projection.png", ImageCrop[ Image[img, ImageResolution...