diff options
Diffstat (limited to 'mathemathica_fwm/RbXMDSSetup1.nb')
| -rw-r--r-- | mathemathica_fwm/RbXMDSSetup1.nb | 98 |
1 files changed, 69 insertions, 29 deletions
diff --git a/mathemathica_fwm/RbXMDSSetup1.nb b/mathemathica_fwm/RbXMDSSetup1.nb index 9234a7b..8c6e618 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]", @@ -1813,7 +1821,8 @@ Cell[BoxData[{ RowBox[{"StringReplace", "[", RowBox[{ RowBox[{ - "\"\<//---------------- Constants.txt starts ------------------\n\>\"", "<>", + "\"\<<![CDATA[\\n//---------------- RbAtomConstants.cdata starts \ +------------------\n\>\"", "<>", RowBox[{"StringJoin", "[", RowBox[{ RowBox[{ @@ -1821,8 +1830,8 @@ Cell[BoxData[{ RowBox[{"ToString", "@", RowBox[{"CForm", "[", "#", "]"}]}], "<>", "\"\<;\\n\>\""}], "&"}], "/@", "%"}], "]"}], "<>", - "\"\<//---------------- Constants.txt ends ------------------\n\>\""}], - ",", + "\"\<//---------------- RbAtomConstants.cdata ends \ +------------------\\n]]>\n\>\""}], ",", RowBox[{"{", RowBox[{ RowBox[{"\"\<==\>\"", "\[Rule]", "\"\<=\>\""}], ",", @@ -1867,15 +1876,22 @@ Cell[BoxData[{ RowBox[{"\"\<Ec\>\"", "<>", "a"}]}], ",", RowBox[{ RowBox[{"\"\<d(\>\"", "~~", "a_", "~~", "\"\<)\>\""}], "\[RuleDelayed]", - RowBox[{"\"\<d\>\"", "<>", "a"}]}]}], "}"}]}], "]"}]}], "Input"], + RowBox[{"\"\<d\>\"", "<>", "a"}]}]}], "}"}]}], "]"}]}], "Input", + CellChangeTimes->{{3.563131143065538*^9, 3.563131165863379*^9}, { + 3.563191857093402*^9, 3.563191863236822*^9}, {3.563191931036034*^9, + 3.563191939330001*^9}, {3.563191988192757*^9, 3.563191992633498*^9}}], Cell[BoxData[ RowBox[{"Export", "[", RowBox[{ RowBox[{"ToFileName", "[", RowBox[{ - RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<Constants.txt\>\""}], - "]"}], ",", "%"}], "]"}]], "Input"], + RowBox[{"NotebookDirectory", "[", "]"}], ",", + "\"\<RbAtomConstants.cdata\>\""}], "]"}], ",", "%", ",", " ", + "\"\<Text\>\""}], "]"}]], "Input", + CellChangeTimes->{{3.563131169422084*^9, 3.563131175165862*^9}, { + 3.563131630756442*^9, 3.563131637140431*^9}, {3.563191866089081*^9, + 3.563191880631552*^9}}], Cell["Convert equations to C form", "Text"], @@ -1989,7 +2005,8 @@ Cell[BoxData[{ RowBox[{"StringReplace", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ - "\"\<//---------------- RbEquations.txt starts ------------------\n\>\"", "<>", + "\"\<<![CDATA[\\n//---------------- RbEquations.cdata starts \ +------------------\n\>\"", "<>", RowBox[{"StringJoin", "[", RowBox[{ RowBox[{ @@ -1997,8 +2014,8 @@ Cell[BoxData[{ RowBox[{"ToString", "@", RowBox[{"CForm", "[", "#", "]"}]}], "<>", "\"\<;\\n\>\""}], "&"}], "/@", "%"}], "]"}], "<>", "\[IndentingNewLine]", - "\"\<//---------------- RbEquations.txt ends ------------------\n\>\""}], - ",", + "\"\<//---------------- RbEquations.cdata ends ------------------\\n]]>\n\ +\>\""}], ",", RowBox[{"{", RowBox[{ RowBox[{"\"\<==\>\"", "\[Rule]", "\"\<=\>\""}], ",", @@ -2043,7 +2060,12 @@ Cell[BoxData[{ RowBox[{ RowBox[{"\"\<WL(\>\"", "~~", "a_", "~~", "\"\<)\>\""}], "\[RuleDelayed]", - RowBox[{"\"\<WL\>\"", "<>", "a"}]}]}], "}"}]}], "]"}]}], "Input"], + RowBox[{"\"\<WL\>\"", "<>", "a"}]}], ",", " ", + RowBox[{"\"\<Sqrt\>\"", "\[RuleDelayed]", " ", "\"\<sqrt\>\""}]}], + "}"}]}], "]"}]}], "Input", + CellChangeTimes->{{3.562070277693772*^9, 3.562070303169202*^9}, { + 3.563192105708145*^9, 3.563192138635019*^9}, {3.563192213088303*^9, + 3.563192214825335*^9}}], Cell[BoxData[ RowBox[{"Export", "[", @@ -2051,7 +2073,12 @@ Cell[BoxData[ RowBox[{"ToFileName", "[", RowBox[{ RowBox[{"NotebookDirectory", "[", "]"}], ",", - "\"\<RbEquations.txt\>\""}], "]"}], ",", "%"}], "]"}]], "Input"], + "\"\<RbEquations.cdata\>\""}], "]"}], ",", "%", ",", "\"\<Text\>\""}], + "]"}]], "Input", + CellChangeTimes->{{3.563192279213451*^9, 3.563192285261531*^9}}], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.563192320102122*^9, 3.563192327859529*^9}}], Cell["List of variables", "Text"], @@ -2223,7 +2250,8 @@ Cell[BoxData[{ RowBox[{"StringReplace", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ - "\"\<//---------------- RbInits.txt starts ------------------\n\>\"", "<>", + "\"\<<![CDATA[\\n//---------------- RbInits.cdata starts \ +------------------\n\>\"", "<>", RowBox[{"StringJoin", "[", RowBox[{ RowBox[{ @@ -2231,8 +2259,8 @@ Cell[BoxData[{ RowBox[{"ToString", "@", RowBox[{"CForm", "[", "#", "]"}]}], "<>", "\"\<;\\n\>\""}], "&"}], "/@", "%"}], "]"}], "<>", "\[IndentingNewLine]", - "\"\<//---------------- RbInits.txt ends ------------------\n\>\""}], - ",", + "\"\<//---------------- RbInits.cdata ends ------------------\\n]]>\n\ +\>\""}], ",", RowBox[{"{", RowBox[{ RowBox[{"\"\<==\>\"", "\[Rule]", "\"\<=\>\""}], ",", @@ -2272,15 +2300,20 @@ Cell[BoxData[{ RowBox[{"\"\<d\>\"", "<>", "a"}]}], ",", RowBox[{ RowBox[{"\"\<k(\>\"", "~~", "a_", "~~", "\"\<)\>\""}], "\[RuleDelayed]", - RowBox[{"\"\<k\>\"", "<>", "a"}]}]}], "}"}]}], "]"}]}], "Input"], + RowBox[{"\"\<k\>\"", "<>", "a"}]}]}], "}"}]}], "]"}]}], "Input", + CellChangeTimes->{{3.56313119628875*^9, 3.563131201119614*^9}, { + 3.563192359426774*^9, 3.563192389243625*^9}}], Cell[BoxData[ RowBox[{"Export", "[", RowBox[{ RowBox[{"ToFileName", "[", RowBox[{ - RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<RbInits.txt\>\""}], - "]"}], ",", "%"}], "]"}]], "Input"] + RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<RbInits.cdata\>\""}], + "]"}], ",", "%", ",", " ", "\"\<Text\>\""}], "]"}]], "Input", + CellChangeTimes->{{3.563131203982983*^9, 3.563131205084772*^9}, { + 3.563131547287279*^9, 3.563131550711413*^9}, {3.563192406122287*^9, + 3.56319240727765*^9}}] }, Open ]], Cell[CellGroupData[{ @@ -2485,6 +2518,7 @@ Cell[BoxData[ RowBox[{ RowBox[{ "subsys", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", + RowBox[{ RowBox[{"4", "\[Pi]", " ", "\[ImaginaryI]", " ", RowBox[{"Energy", "[", @@ -2494,6 +2528,7 @@ Cell[BoxData[ "]"}], "]"}], " ", "n0", " ", RowBox[{ "rmes", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], " ", + RowBox[{ "polarizationcomponents1", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}]}], "/.", "delreps1"}]}], "]"}], "]"}], @@ -2650,7 +2685,8 @@ Cell[BoxData[{ RowBox[{ SqrtBox[ FractionBox["2", "3"]], "\[Rule]", - RowBox[{"rt", "/", "rt3"}]}]}], "}"}]}]}]}], "Input"], + RowBox[{"rt2", "/", "rt3"}]}]}], "}"}]}]}]}], "Input", + CellChangeTimes->{3.562066098773316*^9}], Cell["Convert propagation equations to C form.", "Text"], @@ -2738,7 +2774,7 @@ Cell[BoxData[{ RowBox[{"j_", ",", "m"}]], "[", "z", "]"}], "\[Rule]", RowBox[{"Em", "[", "j", "]"}]}]}], "}"}]}]}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", - RowBox[{"\"\<//---------------- RbPropEquations.txt starts \ + RowBox[{"\"\<<![CDATA[\\n//---------------- RbPropEquations.cdata starts \ ------------------\n\>\"", "<>", RowBox[{"StringReplace", "[", RowBox[{"%", ",", @@ -2777,39 +2813,43 @@ 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]", RowBox[{"\"\<d\>\"", "<>", "a"}]}]}], "}"}]}], "]"}], "<>", "\[IndentingNewLine]", - "\"\<//---------------- RbPropEquations.txt ends ------------------\n\ -\>\""}], "\[IndentingNewLine]", + "\"\<//---------------- RbPropEquations.cdata ends \ +------------------\\n]]>\n\>\""}], "\[IndentingNewLine]", RowBox[{"Export", "[", RowBox[{ RowBox[{"ToFileName", "[", RowBox[{ RowBox[{"NotebookDirectory", "[", "]"}], ",", - "\"\<RbPropEquations.txt\>\""}], "]"}], ",", "%"}], "]"}]}], "Input"] + "\"\<RbPropEquations.cdata\>\""}], "]"}], ",", "%", ",", " ", + "\"\<Text\>\""}], "]"}]}], "Input", + CellChangeTimes->{{3.562016303354669*^9, 3.562016328411399*^9}, { + 3.563192454091908*^9, 3.563192495728373*^9}, {3.563192582676104*^9, + 3.56319258550938*^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" ] |