rename some of generated file from .txt to .h

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,