diff options
Diffstat (limited to 'mathemathica_fwm/RbXMDSSetup1.nb')
| -rw-r--r-- | mathemathica_fwm/RbXMDSSetup1.nb | 65 |
1 files changed, 41 insertions, 24 deletions
diff --git a/mathemathica_fwm/RbXMDSSetup1.nb b/mathemathica_fwm/RbXMDSSetup1.nb index b0f4533..8c6e618 100644 --- a/mathemathica_fwm/RbXMDSSetup1.nb +++ b/mathemathica_fwm/RbXMDSSetup1.nb @@ -1821,8 +1821,8 @@ Cell[BoxData[{ RowBox[{"StringReplace", "[", RowBox[{ RowBox[{ - "\"\<//---------------- RbAtomConstants.h starts ------------------\n\>\"", - "<>", + "\"\<<![CDATA[\\n//---------------- RbAtomConstants.cdata starts \ +------------------\n\>\"", "<>", RowBox[{"StringJoin", "[", RowBox[{ RowBox[{ @@ -1830,8 +1830,8 @@ Cell[BoxData[{ RowBox[{"ToString", "@", RowBox[{"CForm", "[", "#", "]"}]}], "<>", "\"\<;\\n\>\""}], "&"}], "/@", "%"}], "]"}], "<>", - "\"\<//---------------- RbAtomConstants.h ends ------------------\n\ -\>\""}], ",", + "\"\<//---------------- RbAtomConstants.cdata ends \ +------------------\\n]]>\n\>\""}], ",", RowBox[{"{", RowBox[{ RowBox[{"\"\<==\>\"", "\[Rule]", "\"\<=\>\""}], ",", @@ -1877,7 +1877,9 @@ Cell[BoxData[{ RowBox[{ RowBox[{"\"\<d(\>\"", "~~", "a_", "~~", "\"\<)\>\""}], "\[RuleDelayed]", RowBox[{"\"\<d\>\"", "<>", "a"}]}]}], "}"}]}], "]"}]}], "Input", - CellChangeTimes->{{3.563131143065538*^9, 3.563131165863379*^9}}], + 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", "[", @@ -1885,10 +1887,11 @@ Cell[BoxData[ RowBox[{"ToFileName", "[", RowBox[{ RowBox[{"NotebookDirectory", "[", "]"}], ",", - "\"\<RbAtomConstants.h\>\""}], "]"}], ",", "%", ",", " ", + "\"\<RbAtomConstants.cdata\>\""}], "]"}], ",", "%", ",", " ", "\"\<Text\>\""}], "]"}]], "Input", CellChangeTimes->{{3.563131169422084*^9, 3.563131175165862*^9}, { - 3.563131630756442*^9, 3.563131637140431*^9}}], + 3.563131630756442*^9, 3.563131637140431*^9}, {3.563191866089081*^9, + 3.563191880631552*^9}}], Cell["Convert equations to C form", "Text"], @@ -2002,7 +2005,8 @@ Cell[BoxData[{ RowBox[{"StringReplace", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ - "\"\<//---------------- RbEquations.txt starts ------------------\n\>\"", "<>", + "\"\<<![CDATA[\\n//---------------- RbEquations.cdata starts \ +------------------\n\>\"", "<>", RowBox[{"StringJoin", "[", RowBox[{ RowBox[{ @@ -2010,8 +2014,8 @@ Cell[BoxData[{ RowBox[{"ToString", "@", RowBox[{"CForm", "[", "#", "]"}]}], "<>", "\"\<;\\n\>\""}], "&"}], "/@", "%"}], "]"}], "<>", "\[IndentingNewLine]", - "\"\<//---------------- RbEquations.txt ends ------------------\n\>\""}], - ",", + "\"\<//---------------- RbEquations.cdata ends ------------------\\n]]>\n\ +\>\""}], ",", RowBox[{"{", RowBox[{ RowBox[{"\"\<==\>\"", "\[Rule]", "\"\<=\>\""}], ",", @@ -2059,7 +2063,9 @@ Cell[BoxData[{ RowBox[{"\"\<WL\>\"", "<>", "a"}]}], ",", " ", RowBox[{"\"\<Sqrt\>\"", "\[RuleDelayed]", " ", "\"\<sqrt\>\""}]}], "}"}]}], "]"}]}], "Input", - CellChangeTimes->{{3.562070277693772*^9, 3.562070303169202*^9}}], + CellChangeTimes->{{3.562070277693772*^9, 3.562070303169202*^9}, { + 3.563192105708145*^9, 3.563192138635019*^9}, {3.563192213088303*^9, + 3.563192214825335*^9}}], Cell[BoxData[ RowBox[{"Export", "[", @@ -2067,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"], @@ -2239,7 +2250,8 @@ Cell[BoxData[{ RowBox[{"StringReplace", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ - "\"\<//---------------- RbInits.h starts ------------------\n\>\"", "<>", + "\"\<<![CDATA[\\n//---------------- RbInits.cdata starts \ +------------------\n\>\"", "<>", RowBox[{"StringJoin", "[", RowBox[{ RowBox[{ @@ -2247,8 +2259,8 @@ Cell[BoxData[{ RowBox[{"ToString", "@", RowBox[{"CForm", "[", "#", "]"}]}], "<>", "\"\<;\\n\>\""}], "&"}], "/@", "%"}], "]"}], "<>", "\[IndentingNewLine]", - "\"\<//---------------- RbInits.h ends ------------------\n\>\""}], ",", - + "\"\<//---------------- RbInits.cdata ends ------------------\\n]]>\n\ +\>\""}], ",", RowBox[{"{", RowBox[{ RowBox[{"\"\<==\>\"", "\[Rule]", "\"\<=\>\""}], ",", @@ -2289,17 +2301,19 @@ Cell[BoxData[{ RowBox[{ RowBox[{"\"\<k(\>\"", "~~", "a_", "~~", "\"\<)\>\""}], "\[RuleDelayed]", RowBox[{"\"\<k\>\"", "<>", "a"}]}]}], "}"}]}], "]"}]}], "Input", - CellChangeTimes->{{3.56313119628875*^9, 3.563131201119614*^9}}], + CellChangeTimes->{{3.56313119628875*^9, 3.563131201119614*^9}, { + 3.563192359426774*^9, 3.563192389243625*^9}}], Cell[BoxData[ RowBox[{"Export", "[", RowBox[{ RowBox[{"ToFileName", "[", RowBox[{ - RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<RbInits.h\>\""}], + RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<RbInits.cdata\>\""}], "]"}], ",", "%", ",", " ", "\"\<Text\>\""}], "]"}]], "Input", CellChangeTimes->{{3.563131203982983*^9, 3.563131205084772*^9}, { - 3.563131547287279*^9, 3.563131550711413*^9}}] + 3.563131547287279*^9, 3.563131550711413*^9}, {3.563192406122287*^9, + 3.56319240727765*^9}}] }, Open ]], Cell[CellGroupData[{ @@ -2760,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[{"%", ",", @@ -2817,18 +2831,21 @@ Cell[BoxData[{ "\[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", - CellChangeTimes->{{3.562016303354669*^9, 3.562016328411399*^9}}] + "\"\<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->{956, 980}, +WindowSize->{956, 1004}, WindowMargins->{{Automatic, 0}, {26, Automatic}}, PrivateNotebookOptions->{"FileOutlineCache"->False}, ShowSelection->True, |