TLSRWA.gif (360 × 402 Pixel, Dateigröße: 2,07 MB, MIME-Typ: image/gif, Endlosschleife, 101 Bilder, 1,0 s)
Hinweis: Aufgrund technischer Beschränkungen werden Vorschaubilder hochauflösender GIF-Dateien wie dieser nicht animiert.
Diese Datei stammt aus Wikimedia Commons und kann von anderen Projekten verwendet werden. Die Beschreibung von deren Dateibeschreibungsseite wird unten angezeigt.
BeschreibungTLSRWA.gif |
English: Two-level-system on resonance with a driving field with and without applying the rotating-wave approximation. |
Datum | |
Quelle | Eigenes Werk |
Urheber | Rolancito |
(* Source code written in Mathematica 11.1 by Rolancito, Feb. 2018. This source code is public domain. *) (* Time evolution of a two-level-system with level splitting = 1 interacting with a laser beam on resonance and coupling term = 0.1 *) ClearAll["Global`*"] (* Coupled differential equations *) CDE = NDSolve[{I cg'[t] == ce[t] 0.1 Cos[-t] E^(-I t), I ce'[t] == cg[t] 0.1 Cos[-t] E^(I t), cg[0] == 0, ce[0] == 1}, {cg, ce}, {t, 0, 20 \[Pi]}] CDERWA = NDSolve[{I cg'[t] == ce[t] 0.1 /2, I ce'[t] == cg[t] 0.1 /2, cg[0] == 0, ce[0] == 1}, {cg, ce}, {t, 0, 20 \[Pi]}] (* Bloch sphere *) tlsrwagif = Table[Show[ ParametricPlot3D[ Evaluate[{2 Re[cg[t] Conjugate[ce[t]]], 2 Im[ce[t] Conjugate[cg[t]]], cg[t] Conjugate[cg[t]] - ce[t] Conjugate[ce[t]]} /. # & /@ {CDE, CDERWA}], {t, 0, 20 \[Pi]}, PlotRange -> All, ColorFunction -> Function[{t}, Hue[t]]], Graphics3D[{PointSize[Large], Point[Evaluate[{2 Re[cg[time] Conjugate[ce[time]]], 2 Im[ce[time] Conjugate[cg[time]]], cg[time] Conjugate[cg[time]] - ce[time] Conjugate[ce[time]]} /. CDE]], Opacity[0.5], Sphere[{0, 0, 0}, 1]}]], {time, 0, 20 \[Pi], \[Pi]/5}]; Export["TLSRWA.gif", tlsrwagif, "AnimationRepetitions" -> \[Infinity]]
Klicke auf einen Zeitpunkt, um diese Version zu laden.
Version vom | Vorschaubild | Maße | Benutzer | Kommentar | |
---|---|---|---|---|---|
aktuell | 08:59, 4. Feb. 2018 | 360 × 402 (2,07 MB) | wikimediacommons>Rolancito | Infinite Loop |
Die folgende Seite verwendet diese Datei:
Diese Datei enthält weitere Informationen, die in der Regel von der Digitalkamera oder dem verwendeten Scanner stammen. Durch nachträgliche Bearbeitung der Originaldatei können einige Details verändert worden sein.
GIF-Dateikommentar | Created with the Wolfram Language for Students - Personal Use Only : www.wolfram.com |
---|