Original file (2,000 × 1,250 pixels, file size: 885 KB, MIME type: image/png)
![]() | This is a file from the
Wikimedia Commons. Information from its
description page there is shown below. Commons is a freely licensed media file repository. You can help. |
DescriptionWignerfunction fock 4.png |
English: Wigner function of a Fock state with photon number n=4. |
Date | |
Source |
Own work![]() This diagram was created with
Mathematica. |
Author | Geek3 |
fockn_, q_, p_ := (-1)^n /
Pi Exp-q ^2 - p^2 LaguerreLn, 2 q^2 + 2 p^2];
rq = 4; rp = 4; t = 0.003; FontS = 20;
Forn = 0, n <= 4, n++, plot = ShowPlot3Dfockn, q, p],
{q, -rq, rq}, {p, -rp, rp}, ImageSize -> 800,
Mesh -> {Range-Floorrq], Floorrq ],
Range-Floorrp], Floorrp ], Range-1, 1, 1/4/Pi},
MeshFunctions -> {#1 &, #2 &, #3 &},
MeshStyle -> {DirectiveBlack, Thicknesst ],
DirectiveBlack, Thicknesst ],
DirectiveWhite, Thicknesst ]},
PlotRange -> {-1/Pi, 1/Pi}, PlotPoints -> 81, MaxRecursion -> 4,
Method -> {Refinement -> {ControlValue -> 0.02} },
PerformanceGoal -> "Quality",
PlotStyle -> Opacity0.85], Lighting -> "Classic",
ColorFunction -> ({RGBColor1, 1, 0.75], GlowGrayLevel0.06 ],
Specularity0.5, 60]} &),
Axes -> False, Boxed -> False,
ViewPoint ->
FromSphericalCoordinates[{Sqrt229/20], Pi/3, -0.64 Pi}] ],
Graphics3D[{Thickness -> t, Black,
Line[{ {-rq, rp, 0}, {-rq, -rp, 0}, {rq, -rp, 0} }]}],
Graphics3D[{Thickness -> t, Black,
Line[{ {-rq, rp, -1/Pi}, {-rq, rp, 1/Pi} }]}],
(* q ticks *)
Sequence @@
TableGraphics3D[{Thickness -> t, Black,
Line[{ {x, -rp, 0}, {x, -0.2 - rp, 0} }]}], {x, -Floorrq],
Floorrq]}],
(* p ticks *)
Sequence @@
TableGraphics3D[{Thickness -> t, Black,
Line[{ {-rq, y, 0}, {-rq - 0.2, y, 0} }]}], {y, -Floorrp],
Floorrp - 1/2]}],
(*W ticks *)
Sequence @@
TableGraphics3D[{Thickness -> t, Black,
Line[{ {-rq, rp, z/(2 Pi)}, {-rq - 0.2, rp,
z/(2 Pi)} }]}], {z, -2, 2}],
(* box *)
(*Graphics3D[{Thickness\[Rule]t/2,Gray,Line[{ {rq,-rp,1/Pi},{rq,rp,
1/Pi},{-rq,rp,1/Pi} }],Line[{ {rq,rp,0},{rq,rp,1/Pi} }],
Line[{ {rq,-rp,0},{rq,-rp,1/Pi} }]}],*)
(* axes labels *)
Graphics3DTextStyle"q", FontS, Black], {0, -rp*1.15, -0.07}] ],
Graphics3DTextStyle"p", FontS, Black], {-rq*1.15, 0, -0.07}] ],
Graphics3D
TextStyle"W", FontS, Black], {-rq*0.93, rp*0.93, 0.8/Pi}] ],
Sequence @@
TableGraphics3D[{Text
StyleTextStringx], FontS,
Black], {x, -rp - 0.10 Maxrq, rp], 0}, {0,
1}]}], {x, -Floorrq], Floorrq]}],
Sequence @@
TableGraphics3D[{Text
StyleTextStringy], FontS, Black], {-rq - 0.10 Maxrq, rp],
y, 0}, {0, 1}]}], {y, -Floorrp], Floorrp - 1/2]}],
Sequence @@
TableGraphics3D[{Text
StyleIfz == 0, "0", ToStringz/(2 Pi), TraditionalForm ],
FontS, Black], {-rq - 0.3, rp, z/2/Pi}, {1, 0}]}], {z, -2,
2}],
BoxRatios -> {Automatic, Automatic, 6}, PlotRange -> All
];
trim = { {0., .25}, {.95, .91} };
imgname = "Wignerfunction_fock_" <> TextStringn <> ".png";
Exportimgname,
ImageResize
ImageTrimImageplot, ImageResolution -> 400], trim,
DataRange -> { {0, 1}, {0, 1} }], 2000, Resampling -> "Linear" ];
![]() |
This image has been assessed using the
Quality image guidelines and is considered a
Quality image.
العربية ∙ جازايرية ∙ беларуская ∙ беларуская (тарашкевіца) ∙ български ∙ বাংলা ∙ català ∙ čeština ∙ Cymraeg ∙ Deutsch ∙ Schweizer Hochdeutsch ∙ Zazaki ∙ Ελληνικά ∙ English ∙ Esperanto ∙ español ∙ eesti ∙ euskara ∙ فارسی ∙ suomi ∙ français ∙ galego ∙ עברית ∙ हिन्दी ∙ hrvatski ∙ magyar ∙ հայերեն ∙ Bahasa Indonesia ∙ italiano ∙ 日本語 ∙ Jawa ∙ ქართული ∙ 한국어 ∙ kurdî ∙ Lëtzebuergesch ∙ lietuvių ∙ македонски ∙ മലയാളം ∙ मराठी ∙ Bahasa Melayu ∙ Nederlands ∙ Norfuk / Pitkern ∙ polski ∙ português ∙ português do Brasil ∙ rumantsch ∙ română ∙ русский ∙ sicilianu ∙ slovenčina ∙ slovenščina ∙ shqip ∙ српски / srpski ∙ svenska ∙ தமிழ் ∙ తెలుగు ∙ ไทย ∙ Tagalog ∙ Türkçe ∙ toki pona ∙ українська ∙ vèneto ∙ Tiếng Việt ∙ 中文 ∙ 中文(简体) ∙ 中文(繁體) ∙ +/− |
Click on a date/time to view the file as it appeared at that time.
Date/Time | Thumbnail | Dimensions | User | Comment | |
---|---|---|---|---|---|
current | 16:45, 20 May 2019 |
![]() | 2,000 × 1,250 (885 KB) | Geek3 | User created page with UploadWizard |
The following other wikis use this file:
This file contains additional information, probably added from the digital camera or scanner used to create or digitize it.
If the file has been modified from its original state, some details may not fully reflect the modified file.
Horizontal resolution | 157.48 dpc |
---|---|
Vertical resolution | 157.48 dpc |
Software used | |
Date and time of digitizing |
|
Original file (2,000 × 1,250 pixels, file size: 885 KB, MIME type: image/png)
![]() | This is a file from the
Wikimedia Commons. Information from its
description page there is shown below. Commons is a freely licensed media file repository. You can help. |
DescriptionWignerfunction fock 4.png |
English: Wigner function of a Fock state with photon number n=4. |
Date | |
Source |
Own work![]() This diagram was created with
Mathematica. |
Author | Geek3 |
fockn_, q_, p_ := (-1)^n /
Pi Exp-q ^2 - p^2 LaguerreLn, 2 q^2 + 2 p^2];
rq = 4; rp = 4; t = 0.003; FontS = 20;
Forn = 0, n <= 4, n++, plot = ShowPlot3Dfockn, q, p],
{q, -rq, rq}, {p, -rp, rp}, ImageSize -> 800,
Mesh -> {Range-Floorrq], Floorrq ],
Range-Floorrp], Floorrp ], Range-1, 1, 1/4/Pi},
MeshFunctions -> {#1 &, #2 &, #3 &},
MeshStyle -> {DirectiveBlack, Thicknesst ],
DirectiveBlack, Thicknesst ],
DirectiveWhite, Thicknesst ]},
PlotRange -> {-1/Pi, 1/Pi}, PlotPoints -> 81, MaxRecursion -> 4,
Method -> {Refinement -> {ControlValue -> 0.02} },
PerformanceGoal -> "Quality",
PlotStyle -> Opacity0.85], Lighting -> "Classic",
ColorFunction -> ({RGBColor1, 1, 0.75], GlowGrayLevel0.06 ],
Specularity0.5, 60]} &),
Axes -> False, Boxed -> False,
ViewPoint ->
FromSphericalCoordinates[{Sqrt229/20], Pi/3, -0.64 Pi}] ],
Graphics3D[{Thickness -> t, Black,
Line[{ {-rq, rp, 0}, {-rq, -rp, 0}, {rq, -rp, 0} }]}],
Graphics3D[{Thickness -> t, Black,
Line[{ {-rq, rp, -1/Pi}, {-rq, rp, 1/Pi} }]}],
(* q ticks *)
Sequence @@
TableGraphics3D[{Thickness -> t, Black,
Line[{ {x, -rp, 0}, {x, -0.2 - rp, 0} }]}], {x, -Floorrq],
Floorrq]}],
(* p ticks *)
Sequence @@
TableGraphics3D[{Thickness -> t, Black,
Line[{ {-rq, y, 0}, {-rq - 0.2, y, 0} }]}], {y, -Floorrp],
Floorrp - 1/2]}],
(*W ticks *)
Sequence @@
TableGraphics3D[{Thickness -> t, Black,
Line[{ {-rq, rp, z/(2 Pi)}, {-rq - 0.2, rp,
z/(2 Pi)} }]}], {z, -2, 2}],
(* box *)
(*Graphics3D[{Thickness\[Rule]t/2,Gray,Line[{ {rq,-rp,1/Pi},{rq,rp,
1/Pi},{-rq,rp,1/Pi} }],Line[{ {rq,rp,0},{rq,rp,1/Pi} }],
Line[{ {rq,-rp,0},{rq,-rp,1/Pi} }]}],*)
(* axes labels *)
Graphics3DTextStyle"q", FontS, Black], {0, -rp*1.15, -0.07}] ],
Graphics3DTextStyle"p", FontS, Black], {-rq*1.15, 0, -0.07}] ],
Graphics3D
TextStyle"W", FontS, Black], {-rq*0.93, rp*0.93, 0.8/Pi}] ],
Sequence @@
TableGraphics3D[{Text
StyleTextStringx], FontS,
Black], {x, -rp - 0.10 Maxrq, rp], 0}, {0,
1}]}], {x, -Floorrq], Floorrq]}],
Sequence @@
TableGraphics3D[{Text
StyleTextStringy], FontS, Black], {-rq - 0.10 Maxrq, rp],
y, 0}, {0, 1}]}], {y, -Floorrp], Floorrp - 1/2]}],
Sequence @@
TableGraphics3D[{Text
StyleIfz == 0, "0", ToStringz/(2 Pi), TraditionalForm ],
FontS, Black], {-rq - 0.3, rp, z/2/Pi}, {1, 0}]}], {z, -2,
2}],
BoxRatios -> {Automatic, Automatic, 6}, PlotRange -> All
];
trim = { {0., .25}, {.95, .91} };
imgname = "Wignerfunction_fock_" <> TextStringn <> ".png";
Exportimgname,
ImageResize
ImageTrimImageplot, ImageResolution -> 400], trim,
DataRange -> { {0, 1}, {0, 1} }], 2000, Resampling -> "Linear" ];
![]() |
This image has been assessed using the
Quality image guidelines and is considered a
Quality image.
العربية ∙ جازايرية ∙ беларуская ∙ беларуская (тарашкевіца) ∙ български ∙ বাংলা ∙ català ∙ čeština ∙ Cymraeg ∙ Deutsch ∙ Schweizer Hochdeutsch ∙ Zazaki ∙ Ελληνικά ∙ English ∙ Esperanto ∙ español ∙ eesti ∙ euskara ∙ فارسی ∙ suomi ∙ français ∙ galego ∙ עברית ∙ हिन्दी ∙ hrvatski ∙ magyar ∙ հայերեն ∙ Bahasa Indonesia ∙ italiano ∙ 日本語 ∙ Jawa ∙ ქართული ∙ 한국어 ∙ kurdî ∙ Lëtzebuergesch ∙ lietuvių ∙ македонски ∙ മലയാളം ∙ मराठी ∙ Bahasa Melayu ∙ Nederlands ∙ Norfuk / Pitkern ∙ polski ∙ português ∙ português do Brasil ∙ rumantsch ∙ română ∙ русский ∙ sicilianu ∙ slovenčina ∙ slovenščina ∙ shqip ∙ српски / srpski ∙ svenska ∙ தமிழ் ∙ తెలుగు ∙ ไทย ∙ Tagalog ∙ Türkçe ∙ toki pona ∙ українська ∙ vèneto ∙ Tiếng Việt ∙ 中文 ∙ 中文(简体) ∙ 中文(繁體) ∙ +/− |
Click on a date/time to view the file as it appeared at that time.
Date/Time | Thumbnail | Dimensions | User | Comment | |
---|---|---|---|---|---|
current | 16:45, 20 May 2019 |
![]() | 2,000 × 1,250 (885 KB) | Geek3 | User created page with UploadWizard |
The following other wikis use this file:
This file contains additional information, probably added from the digital camera or scanner used to create or digitize it.
If the file has been modified from its original state, some details may not fully reflect the modified file.
Horizontal resolution | 157.48 dpc |
---|---|
Vertical resolution | 157.48 dpc |
Software used | |
Date and time of digitizing |
|