diff options
| -rw-r--r-- | mathemathica_fwm/RbXMDSSetup1.nb | 34 |
1 files changed, 21 insertions, 13 deletions
diff --git a/mathemathica_fwm/RbXMDSSetup1.nb b/mathemathica_fwm/RbXMDSSetup1.nb index d279721..b0f4533 100644 --- a/mathemathica_fwm/RbXMDSSetup1.nb +++ b/mathemathica_fwm/RbXMDSSetup1.nb @@ -1821,7 +1821,8 @@ Cell[BoxData[{ RowBox[{"StringReplace", "[", RowBox[{ RowBox[{ - "\"\<//---------------- Constants.txt starts ------------------\n\>\"", "<>", + "\"\<//---------------- RbAtomConstants.h starts ------------------\n\>\"", + "<>", RowBox[{"StringJoin", "[", RowBox[{ RowBox[{ @@ -1829,8 +1830,8 @@ Cell[BoxData[{ RowBox[{"ToString", "@", RowBox[{"CForm", "[", "#", "]"}]}], "<>", "\"\<;\\n\>\""}], "&"}], "/@", "%"}], "]"}], "<>", - "\"\<//---------------- Constants.txt ends ------------------\n\>\""}], - ",", + "\"\<//---------------- RbAtomConstants.h ends ------------------\n\ +\>\""}], ",", RowBox[{"{", RowBox[{ RowBox[{"\"\<==\>\"", "\[Rule]", "\"\<=\>\""}], ",", @@ -1875,15 +1876,19 @@ 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}}], Cell[BoxData[ RowBox[{"Export", "[", RowBox[{ RowBox[{"ToFileName", "[", RowBox[{ - RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<Constants.txt\>\""}], - "]"}], ",", "%"}], "]"}]], "Input"], + RowBox[{"NotebookDirectory", "[", "]"}], ",", + "\"\<RbAtomConstants.h\>\""}], "]"}], ",", "%", ",", " ", + "\"\<Text\>\""}], "]"}]], "Input", + CellChangeTimes->{{3.563131169422084*^9, 3.563131175165862*^9}, { + 3.563131630756442*^9, 3.563131637140431*^9}}], Cell["Convert equations to C form", "Text"], @@ -2234,7 +2239,7 @@ Cell[BoxData[{ RowBox[{"StringReplace", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ - "\"\<//---------------- RbInits.txt starts ------------------\n\>\"", "<>", + "\"\<//---------------- RbInits.h starts ------------------\n\>\"", "<>", RowBox[{"StringJoin", "[", RowBox[{ RowBox[{ @@ -2242,8 +2247,8 @@ Cell[BoxData[{ RowBox[{"ToString", "@", RowBox[{"CForm", "[", "#", "]"}]}], "<>", "\"\<;\\n\>\""}], "&"}], "/@", "%"}], "]"}], "<>", "\[IndentingNewLine]", - "\"\<//---------------- RbInits.txt ends ------------------\n\>\""}], - ",", + "\"\<//---------------- RbInits.h ends ------------------\n\>\""}], ",", + RowBox[{"{", RowBox[{ RowBox[{"\"\<==\>\"", "\[Rule]", "\"\<=\>\""}], ",", @@ -2283,15 +2288,18 @@ 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}}], Cell[BoxData[ RowBox[{"Export", "[", RowBox[{ RowBox[{"ToFileName", "[", RowBox[{ - RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<RbInits.txt\>\""}], - "]"}], ",", "%"}], "]"}]], "Input"] + RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<RbInits.h\>\""}], + "]"}], ",", "%", ",", " ", "\"\<Text\>\""}], "]"}]], "Input", + CellChangeTimes->{{3.563131203982983*^9, 3.563131205084772*^9}, { + 3.563131547287279*^9, 3.563131550711413*^9}}] }, Open ]], Cell[CellGroupData[{ @@ -2820,7 +2828,7 @@ Cell[BoxData[{ CellChangeTimes->{{3.562016303354669*^9, 3.562016328411399*^9}}] }, Open ]] }, -WindowSize->{956, 1004}, +WindowSize->{956, 980}, WindowMargins->{{Automatic, 0}, {26, Automatic}}, PrivateNotebookOptions->{"FileOutlineCache"->False}, ShowSelection->True, |