generated files renamed and contain xml sugar now

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,