diff options
Diffstat (limited to 'mathemathica_fwm/DoubleFanoResonance.nb')
| -rw-r--r-- | mathemathica_fwm/DoubleFanoResonance.nb | 80 |
1 files changed, 62 insertions, 18 deletions
diff --git a/mathemathica_fwm/DoubleFanoResonance.nb b/mathemathica_fwm/DoubleFanoResonance.nb index 71dd288..95cef4b 100644 --- a/mathemathica_fwm/DoubleFanoResonance.nb +++ b/mathemathica_fwm/DoubleFanoResonance.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 145, 7]
-NotebookDataLength[ 153433, 4512]
-NotebookOptionsPosition[ 147044, 4319]
-NotebookOutlinePosition[ 147435, 4336]
-CellTagsIndexPosition[ 147392, 4333]
+NotebookDataLength[ 154877, 4556]
+NotebookOptionsPosition[ 148441, 4362]
+NotebookOutlinePosition[ 148836, 4379]
+CellTagsIndexPosition[ 148793, 4376]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
@@ -3920,6 +3920,49 @@ Cell[TextData[{ CellGroupingRules->{GroupTogetherGrouping, 10000.},
CellID->40567123],
+Cell[TextData[{
+ "Parameters:\n",
+ Cell[BoxData[
+ SubscriptBox["\[CapitalOmega]0",
+ RowBox[{"-", "1"}]]]],
+ ": input Rabi frequency for ",
+ Cell[BoxData[
+ FormBox[
+ RowBox[{
+ SuperscriptBox["\[Sigma]", "-"], " "}], TraditionalForm]],
+ FormatType->"TraditionalForm"],
+ "(rad/s) \n",
+ Cell[BoxData[
+ SubscriptBox["\[CapitalOmega]0", "1"]]],
+ ": input Rabi frequency for ",
+ Cell[BoxData[
+ FormBox[
+ SuperscriptBox["\[Sigma]", "+"], TraditionalForm]],
+ FormatType->"TraditionalForm"],
+ "(rad/s) \n\[CapitalGamma]2: natural width of J=1 level (rad/s) \n\
+\[CapitalGamma]3: natural width of upper J=0 level (rad/s)\n\[Gamma]t: \
+transit relaxation rate (rad/s)\nEc: static electric field coupling strength \
+(rad/s)\n\[CapitalDelta]: Light detuning from J=1 level (rad/s)\n\
+\[CapitalOmega]L: Zeeman shift (rad/s)\n",
+ Cell[BoxData[
+ SubscriptBox["\[CapitalDelta]23", "i_"]]],
+ ": frequency splitting between upper J=1 and J=0 level as a function of the \
+position ",
+ Cell[BoxData[
+ FormBox["i", TraditionalForm]],
+ FormatType->"TraditionalForm"],
+ ", as ",
+ Cell[BoxData[
+ FormBox["i", TraditionalForm]],
+ FormatType->"TraditionalForm"],
+ " varies from zero to ",
+ Cell[BoxData[
+ FormBox["n", TraditionalForm]],
+ FormatType->"TraditionalForm"],
+ " (rad/s)\nh: distance between grid points (m)\nc: light speed (m/s)\n\
+\[Eta]: light coupling constant (rad/s/m)"
+}], "Text"],
+
Cell[CellGroupData[{
Cell[BoxData[{
@@ -4319,7 +4362,7 @@ QdTWhis7Hqlw7wTgx4tmh8Tj3gnaHSUmhqXEvRMs98paEZCyA/fjoLdssaV3 },
AutoGeneratedPackage->None,
WindowSize->{1084, 904},
-WindowMargins->{{3, Automatic}, {Automatic, 9}},
+WindowMargins->{{Automatic, 248}, {Automatic, -30}},
ShowSelection->True,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
@@ -4367,7 +4410,7 @@ Cell[3183, 113, 163, 3, 43, "MathCaption", CellID->188360977],
Cell[CellGroupData[{
Cell[3371, 120, 2251, 50, 132, "Input"],
-Cell[5625, 172, 2828, 69, 86, "Output"]
+Cell[5625, 172, 2828, 69, 72, "Output"]
}, Open ]],
Cell[8468, 244, 120, 2, 43, "MathCaption",
CellGroupingRules->{GroupTogetherGrouping, 10001.},
@@ -4381,21 +4424,21 @@ Cell[12087, 356, 164, 4, 43, "MathCaption", CellID->337337829],
Cell[CellGroupData[{
Cell[12276, 364, 634, 18, 52, "Input"],
-Cell[12913, 384, 10059, 299, 146, "Output"]
+Cell[12913, 384, 10059, 299, 132, "Output"]
}, Open ]],
Cell[22987, 686, 164, 4, 43, "MathCaption",
CellGroupingRules->{GroupTogetherGrouping, 10001.},
CellID->327463138],
Cell[CellGroupData[{
Cell[23176, 694, 1031, 28, 67, "Input"],
-Cell[24210, 724, 707, 21, 86, "Output"]
+Cell[24210, 724, 707, 21, 72, "Output"]
}, Open ]],
Cell[24932, 748, 117, 2, 43, "MathCaption",
CellGroupingRules->{GroupTogetherGrouping, 10001.},
CellID->737742553],
Cell[CellGroupData[{
Cell[25074, 754, 146, 4, 31, "Input"],
-Cell[25223, 760, 6204, 173, 158, "Output"]
+Cell[25223, 760, 6204, 173, 144, "Output"]
}, Open ]],
Cell[31442, 936, 146, 4, 43, "MathCaption",
CellGroupingRules->{GroupTogetherGrouping, 10001.},
@@ -4411,7 +4454,7 @@ Cell[33601, 994, 197, 4, 43, "MathCaption", CellID->471402495],
Cell[33801, 1000, 1277, 29, 92, "Input",
CellGroupingRules->{GroupTogetherGrouping, 10001.}],
-Cell[35081, 1031, 2306, 70, 146, "Output",
+Cell[35081, 1031, 2306, 70, 132, "Output",
CellGroupingRules->{GroupTogetherGrouping, 10001.}],
Cell[37390, 1103, 478, 14, 43, "MathCaption",
CellGroupingRules->{GroupTogetherGrouping, 10001.},
@@ -4419,7 +4462,7 @@ Cell[37390, 1103, 478, 14, 43, "MathCaption", Cell[37871, 1119, 367, 9, 31, "Input",
CellGroupingRules->{GroupTogetherGrouping, 10001.},
CellID->150217419],
-Cell[38241, 1130, 870, 23, 86, "Output",
+Cell[38241, 1130, 870, 23, 72, "Output",
CellGroupingRules->{GroupTogetherGrouping, 10001.}]
}, Open ]],
Cell[CellGroupData[{
@@ -4429,7 +4472,7 @@ Cell[39148, 1158, 484, 14, 43, "MathCaption", Cell[39635, 1174, 390, 9, 31, "Input",
CellGroupingRules->{GroupTogetherGrouping, 10000.},
CellID->109972911],
-Cell[40028, 1185, 1388, 40, 88, "Output",
+Cell[40028, 1185, 1388, 40, 74, "Output",
CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[41419, 1227, 241, 7, 43, "MathCaption",
CellGroupingRules->{GroupTogetherGrouping, 10000.},
@@ -4447,7 +4490,7 @@ Cell[47431, 1422, 1706, 44, 77, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.},
CellID->26920765]
}, Open ]],
-Cell[49152, 1469, 60487, 1739, 568, "Output"],
+Cell[49152, 1469, 60487, 1739, 554, "Output"],
Cell[109642, 3210, 133, 2, 43, "MathCaption",
CellGroupingRules->{GroupTogetherGrouping, 10000.},
CellID->16777324],
@@ -4502,16 +4545,17 @@ Cell[129824, 3871, 1171, 33, 72, "Input"], Cell[130998, 3906, 458, 14, 43, "MathCaption",
CellGroupingRules->{GroupTogetherGrouping, 10000.},
CellID->40567123],
+Cell[131459, 3922, 1394, 41, 247, "Text"],
Cell[CellGroupData[{
-Cell[131481, 3924, 4644, 129, 143, "Input"],
-Cell[136128, 4055, 3033, 59, 234, "Output"]
+Cell[132878, 3967, 4644, 129, 143, "Input"],
+Cell[137525, 4098, 3033, 59, 234, "Output"]
}, Open ]],
-Cell[139176, 4117, 141, 4, 43, "MathCaption",
+Cell[140573, 4160, 141, 4, 43, "MathCaption",
CellGroupingRules->{GroupTogetherGrouping, 10000.},
CellID->264338212],
Cell[CellGroupData[{
-Cell[139342, 4125, 4667, 130, 143, "Input"],
-Cell[144012, 4257, 3004, 58, 235, "Output"]
+Cell[140739, 4168, 4667, 130, 143, "Input"],
+Cell[145409, 4300, 3004, 58, 235, "Output"]
}, Open ]]
}, Open ]]
}
|