diff options
| -rwxr-xr-x | mathemathica_fwm/RbXMDSSetup.nb | 26 |
1 files changed, 20 insertions, 6 deletions
diff --git a/mathemathica_fwm/RbXMDSSetup.nb b/mathemathica_fwm/RbXMDSSetup.nb index 7b10959..4419de1 100755 --- a/mathemathica_fwm/RbXMDSSetup.nb +++ b/mathemathica_fwm/RbXMDSSetup.nb @@ -727,6 +727,7 @@ Cell[BoxData[ "\"\<\!\(\*SuperscriptBox[\(\[VeryThinSpace]\), \ \(2\)]\)\!\(\*SubscriptBox[\(S\), \(1/2\)]\)\>\"", ",", RowBox[{"SingleLetterItalics", "\[Rule]", "False"}]}], "]"}], ",", + RowBox[{"{", RowBox[{ RowBox[{"-", "2.9"}], ",", "0"}], "}"}]}], "]"}], ",", @@ -737,6 +738,7 @@ Cell[BoxData[ "\"\<\!\(\*SuperscriptBox[\(\[VeryThinSpace]\), \ \(2\)]\)\!\(\*SubscriptBox[\(P\), \(1/2\)]\)\>\"", ",", RowBox[{"SingleLetterItalics", "\[Rule]", "False"}]}], "]"}], ",", + RowBox[{"{", RowBox[{ RowBox[{"-", "2.9"}], ",", "1.6"}], "}"}]}], "]"}], ",", @@ -747,6 +749,7 @@ Cell[BoxData[ "\"\<\!\(\*SuperscriptBox[\(\[VeryThinSpace]\), \ \(2\)]\)\!\(\*SubscriptBox[\(P\), \(3/2\)]\)\>\"", ",", RowBox[{"SingleLetterItalics", "\[Rule]", "False"}]}], "]"}], ",", + RowBox[{"{", RowBox[{ RowBox[{"-", "2.9"}], ",", "2.7"}], "}"}]}], "]"}]}], "}"}]}], ",", @@ -1374,6 +1377,7 @@ Cell[BoxData[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.9"}], ",", "2.7"}], "}"}]}], "]"}]}], "}"}]}], ",", + RowBox[{"ImageSize", "\[Rule]", RowBox[{"3.5", " ", "72"}]}], ",", RowBox[{"ImagePadding", "\[Rule]", @@ -1758,7 +1762,8 @@ Cell[BoxData[ RowBox[{"StringReplace", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ - "\"\<//---------------- RbChosenRho.txt starts ------------------\n\>\"", "<>", + "\"\<<!-- ############### RbChosenRho.txt starts ################ -->\n\ +\>\"", "<>", RowBox[{"StringJoin", "[", RowBox[{ RowBox[{ @@ -1775,7 +1780,7 @@ Cell[BoxData[ RowBox[{"r", "[", RowBox[{"s1", ",", "s2"}], "]"}]}]}], ")"}]}], "]"}], "<>", "\[IndentingNewLine]", - "\"\<\n//---------------- RbChosenRho.txt ends ------------------\n\ + "\"\<\n<!-- ############### RbChosenRho.txt ends ################# -->\n\ \>\""}], ",", RowBox[{"{", RowBox[{ @@ -1816,7 +1821,10 @@ Cell[BoxData[ RowBox[{"\"\<d\>\"", "<>", "a"}]}], ",", RowBox[{ RowBox[{"\"\<k(\>\"", "~~", "a_", "~~", "\"\<)\>\""}], "\[RuleDelayed]", - RowBox[{"\"\<k\>\"", "<>", "a"}]}]}], "}"}]}], "]"}]], "Input"], + RowBox[{"\"\<k\>\"", "<>", "a"}]}]}], "}"}]}], "]"}]], "Input", + CellChangeTimes->{{3.55783111253207*^9, 3.557831139052502*^9}, { + 3.55783118557623*^9, 3.557831207536057*^9}, {3.55783156483857*^9, + 3.557831608540392*^9}, {3.557831696356534*^9, 3.557831697724494*^9}}], Cell[BoxData[ RowBox[{"Export", "[", @@ -2180,6 +2188,7 @@ Cell[BoxData[ RowBox[{ RowBox[{ "subsys", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], ",", + RowBox[{ RowBox[{"4", "\[Pi]", " ", "\[ImaginaryI]", " ", RowBox[{"Energy", "[", @@ -2189,6 +2198,7 @@ Cell[BoxData[ "]"}], "]"}], " ", "n0", " ", RowBox[{ "rmes", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}], " ", + RowBox[{ "polarizationcomponents1", "\[LeftDoubleBracket]", "k", "\[RightDoubleBracket]"}]}], "/.", "delreps1"}]}], "]"}], "]"}], @@ -2335,6 +2345,7 @@ Cell[BoxData[{ RowBox[{"Power", "[", RowBox[{ RowBox[{"_", "?", "NumericQ"}], ",", "_"}], "]"}]}], "\[RuleDelayed]", + RowBox[{"N", "[", "a", "]"}]}]}], "//", "Simplify"}], "\[IndentingNewLine]", RowBox[{"StringJoin", "[", @@ -2404,14 +2415,17 @@ Cell[BoxData[{ RowBox[{"ToFileName", "[", RowBox[{ RowBox[{"NotebookDirectory", "[", "]"}], ",", - "\"\<RbPropEquations.txt\>\""}], "]"}], ",", "%"}], "]"}]}], "Input"] + "\"\<RbPropEquations.txt\>\""}], "]"}], ",", "%"}], "]"}]}], "Input"], + +Cell[BoxData["\[IndentingNewLine]"], "Input", + CellChangeTimes->{3.557831629359518*^9}] }, Open ]] }, WindowSize->{956, 1004}, -WindowMargins->{{0, Automatic}, {Automatic, 0}}, +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" ] |