Soubor:Conditional quantum teleportation of photon polarization.png
Z testwiki
Skočit na navigaci
Skočit na vyhledávání
Velikost tohoto náhledu: 800 × 453 pixelů. Jiná rozlišení: 320 × 181 pixelů | 640 × 362 pixelů | 1 024 × 580 pixelů | 1 280 × 725 pixelů | 2 459 × 1 392 pixelů.
Původní soubor (2 459 × 1 392 pixelů, velikost souboru: 253 KB, MIME typ: image/png)
Tento soubor pochází z Wikimedia Commons a mohou ho používat ostatní projekty. Níže jsou zobrazeny informace, které obsahuje jeho tamější stránka s popisem souboru.
Popis
| PopisConditional quantum teleportation of photon polarization.png |
English: Schematic of a quantum teleportation experiment, where the polarization of a photon coming from the left along the left arrow is teleported to a photon leaving to the right along the right arrow. The teleportation works only when Alice detects the singlet state |
| Datum | |
| Zdroj | Vlastní dílo |
| Autor | JozumBjada |
Licence
Já, držitel autorských práv k tomuto dílu, ho tímto zveřejňuji za podmínek následující licence:
Tento soubor podléhá licenci Creative Commons Uveďte autora-Zachovejte licenci 4.0 International
- Dílo smíte:
- šířit – kopírovat, distribuovat a sdělovat veřejnosti
- upravovat – pozměňovat, doplňovat, využívat celé nebo částečně v jiných dílech
- Za těchto podmínek:
- uveďte autora – Máte povinnost uvést autorství, poskytnout odkaz na licenci a uvést, pokud jste provedli změny. Toho můžete docílit jakýmkoli rozumným způsobem, avšak ne způsobem naznačujícím, že by poskytovatel licence schvaloval nebo podporoval vás nebo vaše užití díla.
- zachovejte licenci – Pokud tento materiál jakkoliv upravíte, přepracujete nebo použijete ve svém díle, musíte své příspěvky šířit pod stejnou nebo slučitelnou licencí jako originál.
Source code
This animation was created using Wolfram language 13.0.1 for Microsoft Windows (64-bit) (January 28, 2022). The source code follows (formatted as a .wl package file).
(* ::Package:: *)
(* ::Title:: *)
(*Teleportation \[LongDash] 3D setup*)
(* ::Subtitle:: *)
(*Conditional teleportation that succeeds only when the singlet state Ket[SuperMinus[\[CapitalPsi]]] is detected*)
(* ::Section:: *)
(*Paclet initialization and auxiliary routines*)
(* ::Input:: *)
pc=First@PacletFindRemote["*/OpticalElements3D"]
pc=PacletInstall[pc]
Needs[First[pc["Context"]]]
(* ::Input:: *)
cubFl=ResourceFunction["CuboidalFlange3D"];
cylFl=ResourceFunction["CylindricalFlange3D"];
cub=ResourceFunction["RoundedCuboid"];
cyl=ResourceFunction["RoundedCylinder"];
arr=ResourceFunction["DashedTube"];
(* ::Section:: *)
(*Parameters*)
(* ::Input:: *)
scA=8;
scB=10;
posA=scA{1,1,0};
posA0=2scA{0,1,0};
posA1=posA+2{1,1,0};
posA1e=posA+4{1,1,0};
posA2=posA+2{1,-1,0};
posA2e=posA+4{1,-1,0};
posAc=posA+4{1,0,0};
posB=scB{1,-1,0};
posBe=1.5scB{1,-1,0};
rastSize=200;
fontSize=30;
(* ::Section:: *)
(*Setup*)
(* ::Input:: *)
gr=Graphics3D[{EdgeForm[],
(*source*)
{Opacity[0.8,LightBlue],cubFl[{"RoundedCuboid",0.8 1,0.8 2,0.8 1,0.1},0,"Label"-><|3->"S"|>,RasterSize->rastSize]},
(*alice*)
{Opacity[0.8],
Style[{Opacity[0.2,Gray],Translate[Rotate[{cubFl[{"RoundedCuboid",3.5,3.5,1,0.1},0],Opacity[1,Black],cubFl[{"Empty",3.5,3.5,1,0.3},0,"Label"-><|3->" Alice"|>,RasterSize->rastSize]},-\[Pi]/4,{0,0,1}],(posA+posAc)/2+{0,-1,0}]},ClipPlanes->InfinitePlane[{0,0,0.8},{{0,1,0},{1,0,0}}]]},
Translate[Rotate[#,\[Pi]/4,{0,0,1},{0,0,0}]&@BeamSplitter["Light"],posA],
{Gray,Translate[cylFl[{"RoundedCylinder",1,1,0.1},0,0,{2,{"RoundedCylinder",0.2,0.3,0.1}}],posAc],
Translate[{cubFl[{"Empty",0.5},0,"Label"-><|1->Style["&",fontSize,FontFamily->"Times"]|>,RasterSize->rastSize]},posAc]},
Translate[Rotate[FiberCoupler["ConnectorFilled"],-3\[Pi]/4,{0,0,1}],posA1],
Translate[Rotate[FiberCoupler["ConnectorFilled"],-5\[Pi]/4,{0,0,1}],posA2],
{Gray,Tube[BezierCurve[{posA1,posA1e,posAc}],0.1],
Tube[BezierCurve[{posA2,posA2e,posA2e,posAc}],0.1]},
(*beams*)
OpticalBeam[{"Var",{0.5,0.3}},{Blue,Purple},{{-5,0,0},{0.1,0,0}}],
OpticalBeam["Collimated",{Orange,Red},{{0,0,0},posA1}],
OpticalBeam["Collimated",{Orange,Red},{{0,0,0},posBe}],
OpticalBeam["Collimated",{Orange,Red},{posA0,posA2}],
(*bob*)
{Opacity[0.8],
Style[{Opacity[0.2,Gray],Translate[Rotate[{cubFl[{"RoundedCuboid",2,1,1,0.2},0],Opacity[1,Black],cubFl[{"Empty",2,1,1,0.1},0,"Label"-><|3->"Bob"|>,RasterSize->rastSize]},-\[Pi]/4,{0,0,1}],posB]},ClipPlanes->InfinitePlane[{0,0,0.8},{{0,1,0},{1,0,0}}]]},
(*arrows*)
{Darker[Gray],Dashing[{1,0.55}],Arrow@arr[BezierCurve[{posAc,(posAc+posB)/2+{5,0,0},posB+{1,1,0}}]],Gray,BezierCurve[{posAc,(posAc+posB)/2+{5,0,0},posB+{1,1,0}}]},
{Orange,Glow@Red,Arrow@Tube[{{posA0+{0,0,1.2}+0.1(posA-posA0),posA0+{0,0,1.2}+0.5(posA-posA0)},{posB+{0,0,1.2}+0.3(posA-posA0),posB+{0,0,1.2}+0.7(posA-posA0)}}]},
Text[Style[Row[{Ket[SuperMinus[\[CapitalPsi]]],"?"}],fontSize,FontFamily->"Times"],(posAc+posB)/2+{5,0,0},{0.3,0}]
},
Boxed->False,ViewPoint->{-0.7,-2.7,1.9},ViewVertical->{0,0,1},ImageSize->700,Lighting->"Neutral"];
(* ::Section:: *)
(*Rasterize and export*)
(* ::Input:: *)
rast=Rasterize[gr,ImageResolution->300,Background->None];
rast=ImageCrop[rast];
(* ::Input:: *)
SetDirectory[NotebookDirectory[]]
(* ::Input:: *)
Export["telep_3D_setup.png",cr]
Popisky
Přidejte jednořádkové vysvětlení, co tento soubor představuje
Schematic of conditional quantum teleportation
Položky vyobrazené v tomto souboru
zobrazuje
Nějaká hodnota bez položky na Wikidatech
6. 10. 2023
image/png
f5c5b5fe67c62989231d0ccd1ecf930e50204628
259 330 bajt
1 392 pixel
2 459 pixel
Historie souboru
Kliknutím na datum a čas se zobrazí tehdejší verze souboru.
| Datum a čas | Náhled | Rozměry | Uživatel | Komentář | |
|---|---|---|---|---|---|
| současná | 7. 10. 2023, 16:56 | 2 459 × 1 392 (253 KB) | wikimediacommons>JozumBjada | Uploaded while editing "Wikipedista:JozumBjada/Pískoviště 4" on cs.wikipedia.org |
Využití souboru
Tento soubor používá následující stránka: