Final cleaning

Author: arguelles

resources/SUN_AlgebraGenerator.nb

@@ -10,10 +10,10 @@
 NotebookFileLineBreakTest
 NotebookFileLineBreakTest
 NotebookDataPosition[       157,          7]
-NotebookDataLength[    107616,       2889]
-NotebookOptionsPosition[    103310,       2755]
-NotebookOutlinePosition[    103698,       2772]
-CellTagsIndexPosition[    103655,       2769]
+NotebookDataLength[    107661,       2889]
+NotebookOptionsPosition[    103362,       2755]
+NotebookOutlinePosition[    103750,       2772]
+CellTagsIndexPosition[    103707,       2769]
 WindowFrame->Normal*)
 
 (* Beginning of Notebook Content *)
@@ -31,11 +31,11 @@ are stored in SQuIDS/inc/SU_inc and define operations on the ",
  " class. For further information please refer to arXiv:1412.3822.\n",
  StyleBox["Authors",
   FontVariations->{"Underline"->True}],
- ":\n- C.A. Arg\[UDoubleDot]elles Delgado\n- J. Salvado Serra\n- C. Weaver"
+ ":\n- C. A. Arg\[UDoubleDot]elles Delgado\n- J. Salvado Serra\n- C. N. Weaver"
 }], "Text",
  CellChangeTimes->{{3.621623421763843*^9, 3.621623502591386*^9}, {
   3.621710379736019*^9, 3.621710379836727*^9}, {3.627664579341597*^9, 
-  3.6276646214354143`*^9}}],
+  3.6276646214354143`*^9}, {3.6276670121793013`*^9, 3.627667021885071*^9}}],
 
 Cell[BoxData[
  RowBox[{
@@ -1149,7 +1149,7 @@ Cell[BoxData[
    3.5783441671736917`*^9, {3.579872762348976*^9, 3.579872763466861*^9}, {
    3.5798948802305613`*^9, 3.579894882941111*^9}}]
 }, Open  ]]
-}, Open  ]],
+}, Closed]],
 
 Cell[CellGroupData[{
 
@@ -1973,7 +1973,7 @@ Cell[BoxData[
    3.578416416808408*^9, 3.578416428373507*^9}, 3.5784183411830177`*^9, 
    3.6245031792479677`*^9}]
 }, Open  ]]
-}, Open  ]],
+}, Closed]],
 
 Cell[CellGroupData[{
 
@@ -2645,7 +2645,7 @@ Cell[BoxData[
   3.624483955958171*^9, 3.624484078927067*^9}, {3.624484334317348*^9, 
   3.624484335205051*^9}, {3.6253405901623917`*^9, 3.625340598880889*^9}, {
   3.627505970555089*^9, 3.6275059762174587`*^9}}]
-}, Open  ]],
+}, Closed]],
 
 Cell[CellGroupData[{
 
@@ -2773,122 +2773,122 @@ CellTagsIndex->{}
 Notebook[{
 Cell[CellGroupData[{
 Cell[579, 22, 115, 1, 137, "Title"],
-Cell[697, 25, 589, 12, 194, "Text"],
-Cell[1289, 39, 2219, 33, 619, "Input"],
+Cell[697, 25, 641, 12, 194, "Text"],
+Cell[1341, 39, 2219, 33, 619, "Input"],
 Cell[CellGroupData[{
-Cell[3533, 76, 163, 2, 76, "Subtitle"],
-Cell[3699, 80, 957, 23, 141, "Input"],
-Cell[4659, 105, 1569, 40, 178, "Input"],
-Cell[6231, 147, 3554, 105, 390, "Input"],
-Cell[9788, 254, 1084, 29, 136, "Input"]
+Cell[3585, 76, 163, 2, 76, "Subtitle"],
+Cell[3751, 80, 957, 23, 141, "Input"],
+Cell[4711, 105, 1569, 40, 178, "Input"],
+Cell[6283, 147, 3554, 105, 390, "Input"],
+Cell[9840, 254, 1084, 29, 136, "Input"]
 }, Closed]],
 Cell[CellGroupData[{
-Cell[10909, 288, 292, 4, 76, "Subtitle"],
+Cell[10961, 288, 292, 4, 76, "Subtitle"],
 Cell[CellGroupData[{
-Cell[11226, 296, 187, 3, 44, "Subsubtitle",
+Cell[11278, 296, 187, 3, 44, "Subsubtitle",
  CellGroupingRules->{GroupTogetherGrouping, 10000.}],
-Cell[11416, 301, 1969, 57, 171, "Input",
+Cell[11468, 301, 1969, 57, 171, "Input",
  CellGroupingRules->{GroupTogetherGrouping, 10000.}]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[13422, 363, 169, 2, 44, "Subsubtitle"],
-Cell[13594, 367, 2999, 89, 394, "Input"]
+Cell[13474, 363, 169, 2, 44, "Subsubtitle"],
+Cell[13646, 367, 2999, 89, 263, "Input"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[16630, 461, 161, 2, 66, "Subsubtitle"],
-Cell[16794, 465, 158, 2, 69, "Text"],
-Cell[16955, 469, 624, 18, 114, "Input"],
-Cell[17582, 489, 234, 7, 69, "Text"],
-Cell[17819, 498, 2404, 64, 201, "Input"]
+Cell[16682, 461, 161, 2, 44, "Subsubtitle"],
+Cell[16846, 465, 158, 2, 46, "Text"],
+Cell[17007, 469, 624, 18, 76, "Input"],
+Cell[17634, 489, 234, 7, 46, "Text"],
+Cell[17871, 498, 2404, 64, 168, "Input"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[20260, 567, 265, 3, 66, "Subsubtitle"],
-Cell[20528, 572, 1155, 36, 163, "Input"],
-Cell[21686, 610, 1695, 55, 187, "Input"]
+Cell[20312, 567, 265, 3, 44, "Subsubtitle"],
+Cell[20580, 572, 1155, 36, 109, "Input"],
+Cell[21738, 610, 1695, 55, 125, "Input"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[23418, 670, 153, 2, 66, "Subsubtitle"],
-Cell[23574, 674, 248, 3, 69, "Text"],
-Cell[23825, 679, 5230, 153, 511, "Input"],
-Cell[29058, 834, 287, 7, 69, "Text"],
-Cell[29348, 843, 2057, 51, 187, "Input"],
-Cell[31408, 896, 2095, 62, 313, "Input"]
+Cell[23470, 670, 153, 2, 44, "Subsubtitle"],
+Cell[23626, 674, 248, 3, 46, "Text"],
+Cell[23877, 679, 5230, 153, 341, "Input"],
+Cell[29110, 834, 287, 7, 46, "Text"],
+Cell[29400, 843, 2057, 51, 125, "Input"],
+Cell[31460, 896, 2095, 62, 209, "Input"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[33540, 963, 198, 2, 66, "Subsubtitle"],
-Cell[33741, 967, 1739, 41, 178, "Input"],
-Cell[35483, 1010, 3497, 91, 343, "Input"],
-Cell[38983, 1103, 1921, 46, 159, "Input"]
+Cell[33592, 963, 198, 2, 44, "Subsubtitle"],
+Cell[33793, 967, 1739, 41, 119, "Input"],
+Cell[35535, 1010, 3497, 91, 229, "Input"],
+Cell[39035, 1103, 1921, 46, 106, "Input"]
 }, Open  ]]
-}, Open  ]],
+}, Closed]],
 Cell[CellGroupData[{
-Cell[40953, 1155, 98, 1, 114, "Subtitle"],
+Cell[41005, 1155, 98, 1, 76, "Subtitle"],
 Cell[CellGroupData[{
-Cell[41076, 1160, 209, 3, 66, "Subsubtitle",
+Cell[41128, 1160, 209, 3, 44, "Subsubtitle",
  CellGroupingRules->{GroupTogetherGrouping, 10000.}],
-Cell[41288, 1165, 3665, 85, 405, "Input",
+Cell[41340, 1165, 3665, 85, 270, "Input",
  CellGroupingRules->{GroupTogetherGrouping, 10000.}]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[44990, 1255, 206, 3, 66, "Subsubtitle"],
-Cell[45199, 1260, 2533, 69, 405, "Input"]
+Cell[45042, 1255, 206, 3, 44, "Subsubtitle"],
+Cell[45251, 1260, 2533, 69, 270, "Input"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[47769, 1334, 226, 3, 66, "Subsubtitle"],
-Cell[47998, 1339, 382, 9, 103, "Input"],
-Cell[48383, 1350, 4669, 117, 516, "Input"]
+Cell[47821, 1334, 226, 3, 44, "Subsubtitle"],
+Cell[48050, 1339, 382, 9, 69, "Input"],
+Cell[48435, 1350, 4669, 117, 344, "Input"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[53089, 1472, 183, 2, 66, "Subsubtitle"],
-Cell[53275, 1476, 3110, 80, 442, "Input"]
+Cell[53141, 1472, 183, 2, 66, "Subsubtitle"],
+Cell[53327, 1476, 3110, 80, 442, "Input"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[56422, 1561, 154, 2, 66, "Subsubtitle"],
-Cell[56579, 1565, 3064, 76, 367, "Input"]
+Cell[56474, 1561, 154, 2, 66, "Subsubtitle"],
+Cell[56631, 1565, 3064, 76, 367, "Input"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[59680, 1646, 171, 2, 66, "Subsubtitle"],
-Cell[59854, 1650, 175, 2, 69, "Text"],
-Cell[60032, 1654, 4510, 109, 295, "Input"],
-Cell[64545, 1765, 1879, 50, 208, "Input"],
-Cell[66427, 1817, 1976, 52, 208, "Input"]
+Cell[59732, 1646, 171, 2, 66, "Subsubtitle"],
+Cell[59906, 1650, 175, 2, 69, "Text"],
+Cell[60084, 1654, 4510, 109, 295, "Input"],
+Cell[64597, 1765, 1879, 50, 208, "Input"],
+Cell[66479, 1817, 1976, 52, 208, "Input"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[68440, 1874, 222, 3, 66, "Subsubtitle"],
-Cell[68665, 1879, 1658, 45, 178, "Input"]
+Cell[68492, 1874, 222, 3, 66, "Subsubtitle"],
+Cell[68717, 1879, 1658, 45, 178, "Input"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[70360, 1929, 273, 3, 66, "Subsubtitle"],
-Cell[70636, 1934, 1414, 39, 178, "Input"]
+Cell[70412, 1929, 273, 3, 66, "Subsubtitle"],
+Cell[70688, 1934, 1414, 39, 178, "Input"]
 }, Open  ]]
-}, Open  ]],
+}, Closed]],
 Cell[CellGroupData[{
-Cell[72099, 1979, 154, 2, 114, "Subtitle"],
-Cell[72256, 1983, 1320, 32, 178, "Input"],
-Cell[73579, 2017, 1121, 29, 178, "Input"],
-Cell[74703, 2048, 3219, 80, 328, "Input"],
-Cell[77925, 2130, 1058, 25, 216, "Input"],
-Cell[78986, 2157, 1250, 27, 216, "Input"],
-Cell[80239, 2186, 1019, 24, 216, "Input"],
-Cell[81261, 2212, 1081, 25, 216, "Input"],
-Cell[82345, 2239, 1003, 22, 291, "Input"],
-Cell[83351, 2263, 3836, 95, 666, "Input"],
-Cell[87190, 2360, 2440, 51, 516, "Input"],
-Cell[89633, 2413, 1980, 47, 478, "Input"],
-Cell[91616, 2462, 1985, 47, 478, "Input"],
-Cell[93604, 2511, 1988, 47, 478, "Input"],
-Cell[95595, 2560, 2126, 49, 516, "Input"],
-Cell[97724, 2611, 1613, 35, 366, "Input"]
-}, Open  ]],
+Cell[72151, 1979, 154, 2, 76, "Subtitle"],
+Cell[72308, 1983, 1320, 32, 119, "Input"],
+Cell[73631, 2017, 1121, 29, 119, "Input"],
+Cell[74755, 2048, 3219, 80, 219, "Input"],
+Cell[77977, 2130, 1058, 25, 144, "Input"],
+Cell[79038, 2157, 1250, 27, 144, "Input"],
+Cell[80291, 2186, 1019, 24, 144, "Input"],
+Cell[81313, 2212, 1081, 25, 144, "Input"],
+Cell[82397, 2239, 1003, 22, 291, "Input"],
+Cell[83403, 2263, 3836, 95, 666, "Input"],
+Cell[87242, 2360, 2440, 51, 516, "Input"],
+Cell[89685, 2413, 1980, 47, 478, "Input"],
+Cell[91668, 2462, 1985, 47, 478, "Input"],
+Cell[93656, 2511, 1988, 47, 478, "Input"],
+Cell[95647, 2560, 2126, 49, 516, "Input"],
+Cell[97776, 2611, 1613, 35, 366, "Input"]
+}, Closed]],
 Cell[CellGroupData[{
-Cell[99374, 2651, 286, 8, 114, "Subtitle"],
-Cell[99663, 2661, 2078, 58, 208, "Input"]
+Cell[99426, 2651, 286, 8, 76, "Subtitle"],
+Cell[99715, 2661, 2078, 58, 208, "Input"]
 }, Closed]],
 Cell[CellGroupData[{
-Cell[101778, 2724, 246, 3, 114, "Subtitle"],
-Cell[102027, 2729, 206, 4, 69, "Text",
+Cell[101830, 2724, 246, 3, 76, "Subtitle"],
+Cell[102079, 2729, 206, 4, 46, "Text",
  CellGroupingRules->"NormalGrouping"],
-Cell[102236, 2735, 1046, 16, 103, "Input"]
+Cell[102288, 2735, 1046, 16, 69, "Input"]
 }, Closed]]
 }, Open  ]]
 }