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...
"Wignerfunction_coherent-mixture_2.5.png"; Export[imgname, ImageResize[ ImageTrim[Image[plot, ImageResolution -> 400], trim, DataRange -> { {0, 1}, {0...
"Wignerfunction_coherent-mixture_2.5.png"; Export[imgname, ImageResize[ ImageTrim[Image[plot, ImageResolution -> 400], trim, DataRange -> { {0, 1}, {0...
trim = { {0., .23}, {.96, .90} }; imgname = "Wignerfunction_coherent_" <> TextString[\[Alpha]] <> ".png"; Export[imgname, ImageResize[ ImageTrim[Image[plot...
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 = 20; For[T = 0, T <=...
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 = 20; For[T = 0, T <=...
]; trim = { {0.01, .27}, {.97, .89} }; imgname = "Wignerfunction_squeezed_" <> TextString[z] <> ".png"; Export[imgname, ImageResize[ ImageTrim[Image[plot...
]; trim = { {0.01, .27}, {.97, .89} }; imgname = "Wignerfunction_squeezed_" <> TextString[z] <> ".png"; Export[imgname, ImageResize[ ImageTrim[Image[plot...
]; trim = { {0.01, .27}, {.97, .89} }; imgname = "Wignerfunction_squeezed_" <> TextString[z] <> ".png"; Export[imgname, ImageResize[ ImageTrim[Image[plot...