From 4d39120de1a34ebfdcdec4f2920b32a3b3f5c1a6 Mon Sep 17 00:00:00 2001
From: Eugeniy Mikhailov <evgmik@gmail.com>
Date: Thu, 15 Nov 2012 20:24:25 -0500
Subject: fixed typo in propagation equation generator: removed unwanted _a
 subindex

---
 mathemathica_fwm/RbXMDSSetup1.nb | 27 +++++++++++++++++++--------
 1 file changed, 19 insertions(+), 8 deletions(-)

(limited to 'mathemathica_fwm')

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"
 ]
 
-- 
cgit v1.2.3