diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2012-11-15 20:24:25 -0500 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2012-11-15 20:24:25 -0500 |
| commit | 4d39120de1a34ebfdcdec4f2920b32a3b3f5c1a6 (patch) | |
| tree | b1e5ebaa8097b855b0fb90a8ec941cb9f858dc80 /mathemathica_fwm/RbXMDSSetup1.nb | |
| parent | 13f7d144ea868547b7f21000f1fddd836f8b38e9 (diff) | |
| download | Nresonances-4d39120de1a34ebfdcdec4f2920b32a3b3f5c1a6.tar.gz Nresonances-4d39120de1a34ebfdcdec4f2920b32a3b3f5c1a6.zip | |
fixed typo in propagation equation generator: removed unwanted _a subindex
Diffstat (limited to 'mathemathica_fwm/RbXMDSSetup1.nb')
| -rw-r--r-- | mathemathica_fwm/RbXMDSSetup1.nb | 27 |
1 files changed, 19 insertions, 8 deletions
diff --git a/mathemathica_fwm/RbXMDSSetup1.nb b/mathemathica_fwm/RbXMDSSetup1.nb index 9234a7b..c761af4 100644 --- a/mathemathica_fwm/RbXMDSSetup1.nb +++ b/mathemathica_fwm/RbXMDSSetup1.nb @@ -749,6 +749,7 @@ Cell[BoxData[ "\"\<\!\(\*SuperscriptBox[\(\[VeryThinSpace]\), \ \(2\)]\)\!\(\*SubscriptBox[\(S\), \(1/2\)]\)\>\"", ",", RowBox[{"SingleLetterItalics", "\[Rule]", "False"}]}], "]"}], ",", + RowBox[{"{", RowBox[{ RowBox[{"-", "2.9"}], ",", "0"}], "}"}]}], "]"}], ",", @@ -759,6 +760,7 @@ Cell[BoxData[ "\"\<\!\(\*SuperscriptBox[\(\[VeryThinSpace]\), \ \(2\)]\)\!\(\*SubscriptBox[\(P\), \(1/2\)]\)\>\"", ",", RowBox[{"SingleLetterItalics", "\[Rule]", "False"}]}], "]"}], ",", + RowBox[{"{", RowBox[{ RowBox[{"-", "2.9"}], ",", "1.6"}], "}"}]}], "]"}], ",", @@ -769,6 +771,7 @@ Cell[BoxData[ "\"\<\!\(\*SuperscriptBox[\(\[VeryThinSpace]\), \ \(2\)]\)\!\(\*SubscriptBox[\(P\), \(3/2\)]\)\>\"", ",", RowBox[{"SingleLetterItalics", "\[Rule]", "False"}]}], "]"}], ",", + RowBox[{"{", RowBox[{ RowBox[{"-", "2.9"}], ",", "2.7"}], "}"}]}], "]"}]}], "}"}]}], ",", @@ -976,8 +979,10 @@ Cell[BoxData[ RowBox[{"\[Gamma]t", "\[Rule]", "10."}], ",", RowBox[{ SubscriptBox["\[CapitalOmega]L", "x"], "\[Rule]", ".1"}], ",", + RowBox[{ SubscriptBox["\[CapitalOmega]L", "y"], "\[Rule]", ".2"}], ",", + RowBox[{ SubscriptBox["\[CapitalOmega]L", "z"], "\[Rule]", ".3"}]}], "}"}]}], "/.", "atomicdata"}], "/.", @@ -1281,6 +1286,7 @@ Cell[BoxData[ SuperscriptBox[ RowBox[{ SubscriptBox["\[CapitalOmega]", "Im"], "[", "z", "]"}], "2"], "+", + SuperscriptBox[ RowBox[{ SubscriptBox["\[CapitalOmega]", "Re"], "[", "z", "]"}], "2"]}]], @@ -1559,6 +1565,7 @@ Cell[BoxData[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.9"}], ",", "2.7"}], "}"}]}], "]"}]}], "}"}]}], ",", + RowBox[{"ImageSize", "\[Rule]", RowBox[{"3.5", " ", "72"}]}], ",", RowBox[{"ImagePadding", "\[Rule]", @@ -1681,6 +1688,7 @@ Cell[BoxData[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.9"}], ",", "2.7"}], "}"}]}], "]"}]}], "}"}]}], ",", + RowBox[{"ImageSize", "\[Rule]", RowBox[{"3.5", " ", "72"}]}], ",", RowBox[{"ImagePadding", "\[Rule]", @@ -2485,6 +2493,7 @@ Cell[BoxData[ RowBox[{ RowBox[{ "subsys", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", + RowBox[{ RowBox[{"4", "\[Pi]", " ", "\[ImaginaryI]", " ", RowBox[{"Energy", "[", @@ -2494,6 +2503,7 @@ Cell[BoxData[ "]"}], "]"}], " ", "n0", " ", RowBox[{ "rmes", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], " ", + RowBox[{ "polarizationcomponents1", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}]}], "/.", "delreps1"}]}], "]"}], "]"}], @@ -2777,19 +2787,19 @@ Cell[BoxData[{ RowBox[{ RowBox[{"\"\<dEp(\>\"", "~~", "a_", "~~", "\"\<)\>\""}], "\[RuleDelayed]", - RowBox[{"\"\<dEp\>\"", "<>", "a", "<>", "\"\<a_dz\>\""}]}], ",", + RowBox[{"\"\<dEp\>\"", "<>", "a", "<>", "\"\<_dz\>\""}]}], ",", RowBox[{ RowBox[{"\"\<dEm(\>\"", "~~", "a_", "~~", "\"\<)\>\""}], "\[RuleDelayed]", - RowBox[{"\"\<dEm\>\"", "<>", "a", "<>", "\"\<a_dz\>\""}]}], ",", + RowBox[{"\"\<dEm\>\"", "<>", "a", "<>", "\"\<_dz\>\""}]}], ",", RowBox[{ RowBox[{"\"\<Ep(\>\"", "~~", "a_", "~~", "\"\<)\>\""}], "\[RuleDelayed]", - RowBox[{"\"\<Ep\>\"", "<>", "a", "<>", "\"\<a\>\""}]}], ",", + RowBox[{"\"\<Ep\>\"", "<>", "a"}]}], ",", RowBox[{ RowBox[{"\"\<Em(\>\"", "~~", "a_", "~~", "\"\<)\>\""}], "\[RuleDelayed]", - RowBox[{"\"\<Em\>\"", "<>", "a", "<>", "\"\<a\>\""}]}], ",", + RowBox[{"\"\<Em\>\"", "<>", "a"}]}], ",", RowBox[{ RowBox[{"\"\<d(\>\"", "~~", "a_", "~~", "\"\<)\>\""}], "\[RuleDelayed]", @@ -2802,14 +2812,15 @@ Cell[BoxData[{ RowBox[{"ToFileName", "[", RowBox[{ RowBox[{"NotebookDirectory", "[", "]"}], ",", - "\"\<RbPropEquations.txt\>\""}], "]"}], ",", "%"}], "]"}]}], "Input"] + "\"\<RbPropEquations.txt\>\""}], "]"}], ",", "%"}], "]"}]}], "Input", + CellChangeTimes->{{3.562016303354669*^9, 3.562016328411399*^9}}] }, Open ]] }, -WindowSize->{1370, 876}, -WindowMargins->{{55, Automatic}, {Automatic, 5}}, +WindowSize->{956, 1004}, +WindowMargins->{{Automatic, 0}, {26, Automatic}}, PrivateNotebookOptions->{"FileOutlineCache"->False}, ShowSelection->True, -FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)", +FrontEndVersion->"8.0 for Linux x86 (32-bit) (February 23, 2011)", StyleDefinitions->"Default.nb" ] |