Work.

1 files changed, 438 insertions, 362 deletions

diff --git a/caselle_compare.nb b/caselle_compare.nb
index 4b46c34..19968c7 100644
--- a/caselle_compare.nb
+++ b/caselle_compare.nb
@@ -10,10 +10,10 @@
 NotebookFileLineBreakTest
 NotebookFileLineBreakTest
 NotebookDataPosition[       158,          7]
-NotebookDataLength[     94347,       2081]
-NotebookOptionsPosition[     90910,       2020]
-NotebookOutlinePosition[     91309,       2036]
-CellTagsIndexPosition[     91266,       2033]
+NotebookDataLength[     94696,       2157]
+NotebookOptionsPosition[     89726,       2070]
+NotebookOutlinePosition[     90127,       2086]
+CellTagsIndexPosition[     90084,       2083]
 WindowFrame->Normal*)
 
 (* Beginning of Notebook Content *)
@@ -28,7 +28,7 @@ Cell[BoxData[
    3.827832304560932*^9, {3.8278486734515533`*^9, 3.827848673995721*^9}, {
    3.8278488730224733`*^9, 3.827848876357965*^9}, {3.827916449928692*^9, 
    3.827916450999913*^9}},
- CellLabel->"In[66]:=",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"],
+ CellLabel->"In[1]:=",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"],
 
 Cell[BoxData[{
  RowBox[{
@@ -170,77 +170,78 @@ Cell[BoxData[{
       RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.22823495175053052`"}]}], 
     "}"}]}], ";"}]}], "Input",
  CellChangeTimes->{{3.832146779562958*^9, 3.8321467886772203`*^9}},
- CellLabel->"In[5]:=",ExpressionUUID->"02a1f6e5-4144-4552-9463-2a226c1ee186"],
+ CellLabel->"In[15]:=",ExpressionUUID->"02a1f6e5-4144-4552-9463-2a226c1ee186"],
 
 Cell[BoxData[
  RowBox[{
   RowBox[{"sol9", "=", 
    RowBox[{"{", 
     RowBox[{
-     RowBox[{"\[Theta]c", "\[Rule]", "1.3334703435932325`"}], ",", 
-     RowBox[{"\[Theta]0", "\[Rule]", "0.1977878793269242`"}], ",", 
-     RowBox[{"B", "\[Rule]", "2.4235088904272057`"}], ",", 
+     RowBox[{"\[Theta]c", "\[Rule]", "1.3334703412536566`"}], ",", 
+     RowBox[{"\[Theta]0", "\[Rule]", "0.19778787932056896`"}], ",", 
+     RowBox[{"B", "\[Rule]", "2.423508930724686`"}], ",", 
      RowBox[{
-      RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.2182536477764787`"}], ",", 
+      RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.2182536469166905`"}], ",", 
      
      RowBox[{"AL", "\[Rule]", 
-      RowBox[{"-", "0.03284985793618467`"}]}], ",", 
+      RowBox[{"-", "0.032849858698944676`"}]}], ",", 
      RowBox[{"AH", "\[Rule]", 
-      RowBox[{"-", "2.4769028477250044`"}]}], ",", 
+      RowBox[{"-", "2.476902848020555`"}]}], ",", 
      RowBox[{
-      RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.3332747716030007`"}], ",", 
+      RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.3332747682033883`"}], ",", 
      RowBox[{
-      RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.509056520191775`"}], ",", 
+      RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.5090565130203157`"}], ",", 
      RowBox[{
-      RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.23349249124973034`"}], ",", 
+      RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.23349249078258508`"}], ",", 
      
      RowBox[{
       RowBox[{"gC", "[", "1", "]"}], "\[Rule]", 
-      RowBox[{"-", "0.057959196915142584`"}]}], ",", 
+      RowBox[{"-", "0.05795919615164437`"}]}], ",", 
      RowBox[{
-      RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.009724404572707592`"}], 
+      RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.009724404457489885`"}], 
      ",", 
      RowBox[{
       RowBox[{"gC", "[", "3", "]"}], "\[Rule]", 
-      RowBox[{"-", "0.002793025431454722`"}]}], ",", 
+      RowBox[{"-", "0.0027930254001640054`"}]}], ",", 
      RowBox[{
-      RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0009257841210436311`"}], 
+      RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0009257841098320665`"}], 
      ",", 
      RowBox[{
       RowBox[{"gC", "[", "5", "]"}], "\[Rule]", 
-      RowBox[{"-", "0.00034620961738400876`"}]}], ",", 
+      RowBox[{"-", "0.0003462096131004199`"}]}], ",", 
      RowBox[{
-      RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.0001367074480628476`"}], 
+      RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00013670744619527473`"}], 
      ",", 
      RowBox[{
       RowBox[{"gC", "[", "7", "]"}], "\[Rule]", 
-      RowBox[{"-", "0.00005708841894586652`"}]}], ",", 
+      RowBox[{"-", "0.000057088418113155406`"}]}], ",", 
      RowBox[{
-      RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "0.000024064384256136694`"}], 
+      RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "0.000024064383846786254`"}], 
      ",", 
      RowBox[{
       RowBox[{"gC", "[", "9", "]"}], "\[Rule]", 
-      RowBox[{"-", "0.000010116684309320897`"}]}], ",", 
+      RowBox[{"-", "0.000010116684104855923`"}]}], ",", 
      RowBox[{
-      RowBox[{"gC", "[", "10", "]"}], "\[Rule]", "4.024896426121343`*^-6"}], 
+      RowBox[{"gC", "[", "10", "]"}], "\[Rule]", "4.024896321935335`*^-6"}], 
      ",", 
      RowBox[{
       RowBox[{"gC", "[", "11", "]"}], "\[Rule]", 
-      RowBox[{"-", "1.4759300964074873`*^-6"}]}], ",", 
+      RowBox[{"-", "1.4759300475764031`*^-6"}]}], ",", 
      RowBox[{
-      RowBox[{"gC", "[", "12", "]"}], "\[Rule]", "4.6869971019692115`*^-7"}], 
+      RowBox[{"gC", "[", "12", "]"}], "\[Rule]", "4.686996899926149`*^-7"}], 
      ",", 
      RowBox[{
       RowBox[{"gC", "[", "13", "]"}], "\[Rule]", 
-      RowBox[{"-", "1.2362969368030153`*^-7"}]}], ",", 
+      RowBox[{"-", "1.2362968704699286`*^-7"}]}], ",", 
      RowBox[{
-      RowBox[{"gC", "[", "14", "]"}], "\[Rule]", "2.3952772823198148`*^-8"}], 
+      RowBox[{"gC", "[", "14", "]"}], "\[Rule]", "2.395277120268058`*^-8"}], 
      ",", 
      RowBox[{
       RowBox[{"gC", "[", "15", "]"}], "\[Rule]", 
-      RowBox[{"-", "2.9966672397259144`*^-9"}]}]}], "}"}]}], ";"}]], "Input",
- CellChangeTimes->{{3.8321453319115543`*^9, 3.832145338055831*^9}},
- CellLabel->"In[2]:=",ExpressionUUID->"d8831e63-87f3-498c-8951-21f347e539ff"],
+      RowBox[{"-", "2.99666705183393`*^-9"}]}]}], "}"}]}], ";"}]], "Input",
+ CellChangeTimes->{{3.8321453319115543`*^9, 3.832145338055831*^9}, {
+  3.8365700691716623`*^9, 3.836570070475397*^9}},
+ CellLabel->"In[5]:=",ExpressionUUID->"d8831e63-87f3-498c-8951-21f347e539ff"],
 
 Cell[BoxData[{
  RowBox[{
@@ -266,7 +267,7 @@ Cell[BoxData[{
       SuperscriptBox["\[Theta]", "8"]}]}], ")"}]}]}]}], "Input",
  CellChangeTimes->{{3.8321454371387777`*^9, 3.832145559020133*^9}, 
    3.832146444152248*^9, {3.832146620327344*^9, 3.832146620479251*^9}},
- CellLabel->"In[67]:=",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"],
+ CellLabel->"In[6]:=",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"],
 
 Cell[BoxData[
  RowBox[{
@@ -288,7 +289,7 @@ Cell[BoxData[
   3.83214577961791*^9}, {3.832145890778178*^9, 3.832145905218177*^9}, {
   3.832145940706725*^9, 3.8321459464268084`*^9}, {3.832145996299863*^9, 
   3.832146000067889*^9}, {3.832239324678667*^9, 3.832239324966337*^9}},
- CellLabel->"In[77]:=",ExpressionUUID->"bd6b698e-6871-43fa-9d98-7385cc594c9c"],
+ CellLabel->"In[8]:=",ExpressionUUID->"bd6b698e-6871-43fa-9d98-7385cc594c9c"],
 
 Cell[BoxData[
  RowBox[{
@@ -307,7 +308,7 @@ Cell[BoxData[
  CellChangeTimes->{{3.8322392541892567`*^9, 3.832239262037384*^9}, {
   3.8322392935260983`*^9, 3.832239293789916*^9}, {3.832239451552669*^9, 
   3.832239458672798*^9}, {3.832239576243064*^9, 3.832239576394759*^9}},
- CellLabel->"In[89]:=",ExpressionUUID->"7bddfed2-a761-4c62-bcdc-0460988fbd67"],
+ CellLabel->"In[9]:=",ExpressionUUID->"7bddfed2-a761-4c62-bcdc-0460988fbd67"],
 
 Cell[CellGroupData[{
 
@@ -351,22 +352,22 @@ Cell[BoxData[
   3.832146653175795*^9}, {3.832151934783225*^9, 3.8321519353348494`*^9}, {
   3.832152037225222*^9, 3.8321520374089203`*^9}, {3.832239305719432*^9, 
   3.832239316046335*^9}},
- CellLabel->"In[78]:=",ExpressionUUID->"7efd85be-fd7d-435a-a870-214d8ec4025d"],
+ CellLabel->"In[12]:=",ExpressionUUID->"7efd85be-fd7d-435a-a870-214d8ec4025d"],
 
 Cell[BoxData[
  TemplateBox[{
   "Solve", "ratnz", 
    "\"Solve was unable to solve the system with inexact coefficients. The \
 answer was obtained by solving a corresponding exact system and numericizing \
-the result.\"", 2, 78, 7, 31577315599184728668, "Local"},
+the result.\"", 2, 12, 3, 25143344835924279801, "Local"},
   "MessageTemplate"]], "Message", "MSG",
  CellChangeTimes->{
   3.832146653505703*^9, 3.8321519356060266`*^9, 3.8321520375652533`*^9, {
    3.8321544205609913`*^9, 3.832154425785782*^9}, {3.832239276291945*^9, 
-   3.832239326773054*^9}},
+   3.832239326773054*^9}, {3.836570087200712*^9, 3.836570104160351*^9}},
  CellLabel->
   "During evaluation of \
-In[78]:=",ExpressionUUID->"75f15d00-cd9d-4490-bad8-9aa7435b52e6"],
+In[12]:=",ExpressionUUID->"495ad979-d632-478f-8e0f-56a8e4f9987f"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -380,14 +381,14 @@ Cell[BoxData[
     InterpretationBox[
      TemplateBox[{"0.2591817983", "42", "11"},
       "AroundSeq"],
-     Around[0.2591817983420855, 1.0588943216503216`*^-11]]}]}], 
+     Around[0.2591817983420855, 1.0588943216503217`*^-11]]}]}], 
   "}"}]], "Output",
  CellChangeTimes->{{3.832145993018977*^9, 3.832146075354514*^9}, {
    3.832146456457759*^9, 3.83214647211082*^9}, 3.832146653511766*^9, 
    3.832151935612179*^9, 3.8321520375710917`*^9, {3.8321544206488857`*^9, 
-   3.8321544257922564`*^9}, {3.8322392763285713`*^9, 3.8322393267777767`*^9}},
- 
- CellLabel->"Out[78]=",ExpressionUUID->"4f1e2bcc-00b0-410f-bd87-d5c15acda1a5"]
+   3.8321544257922564`*^9}, {3.8322392763285713`*^9, 
+   3.8322393267777767`*^9}, {3.836570087516891*^9, 3.8365701041934032`*^9}},
+ CellLabel->"Out[12]=",ExpressionUUID->"2e2d8ac6-c3fd-4636-a145-e07805271602"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -398,16 +399,31 @@ Cell[BoxData[
    SuperscriptBox[
     RowBox[{"hCas", "[", "1", "]"}], "15"]}], "/.", "m0rule"}]], "Input",
  CellChangeTimes->{{3.832239524531241*^9, 3.8322395731787653`*^9}},
- CellLabel->"In[88]:=",ExpressionUUID->"111093b6-716a-4bf7-a45a-dac15b888b04"],
+ CellLabel->"In[13]:=",ExpressionUUID->"111093b6-716a-4bf7-a45a-dac15b888b04"],
 
 Cell[BoxData[
  InterpretationBox[
   TemplateBox[{"3.91346457", "68", "24", 
     SuperscriptBox["10", "23"]},
    "AroundSeqExp"],
-  Around[3.913464576785267*^23, 2.3982849751474675`*^14]]], "Output",
- CellChangeTimes->{{3.8322395263809423`*^9, 3.832239573513529*^9}},
- CellLabel->"Out[88]=",ExpressionUUID->"e76d58da-15fb-42d2-9247-7fcf098715a1"]
+  Around[3.913464576785271*^23, 2.3982849751474694`*^14]]], "Output",
+ CellChangeTimes->{{3.8322395263809423`*^9, 3.832239573513529*^9}, 
+   3.836570106674327*^9},
+ CellLabel->"Out[13]=",ExpressionUUID->"f4db1aaf-ffb6-4069-b376-c6b46e4be074"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Head", "[", 
+  RowBox[{"Gls", "[", 
+   RowBox[{"[", "1", "]"}], "]"}], "]"}]], "Input",
+ CellChangeTimes->{{3.836572055804084*^9, 3.836572059789261*^9}},
+ CellLabel->"In[30]:=",ExpressionUUID->"35006d51-03e9-4e09-8401-8176648f7474"],
+
+Cell[BoxData["Around"], "Output",
+ CellChangeTimes->{3.836572060163045*^9},
+ CellLabel->"Out[30]=",ExpressionUUID->"021cf2ad-b5c4-4865-a718-f51958ee0792"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -466,19 +482,47 @@ Cell[BoxData[
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Range", "[", 
-       RowBox[{"0", ",", "11"}], "]"}], ",", 
-      RowBox[{
-       RowBox[{"Abs", "[", "Gls", "]"}], 
-       RowBox[{"(", 
-        RowBox[{
-         RowBox[{"(", 
-          RowBox[{
-           RowBox[{"Range", "[", 
-            RowBox[{"Length", "[", "Gls", "]"}], "]"}], "-", "1"}], ")"}], 
-         "!"}], ")"}]}]}], "}"}], "]"}]}], ";"}]], "Input",
+       RowBox[{"0", ",", "11"}], "]"}], ",", "Gls"}], "}"}], "]"}]}], 
+  ";"}]], "Input",
  CellChangeTimes->{{3.832146079469277*^9, 3.832146080085175*^9}, {
-  3.832146220615906*^9, 3.832146230663995*^9}},
- CellLabel->"In[72]:=",ExpressionUUID->"ec8b9383-61d6-44c2-b776-3d651fc19660"],
+   3.832146220615906*^9, 3.832146230663995*^9}, 3.836571905035768*^9, {
+   3.836572227321196*^9, 3.836572228850659*^9}},
+ CellLabel->"In[32]:=",ExpressionUUID->"ec8b9383-61d6-44c2-b776-3d651fc19660"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Export", "[", 
+  RowBox[{
+  "\"\<~/doc/research/first_order_singularities/paper/data/glow_series_\
+numeric.dat\>\"", ",", 
+   RowBox[{
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"#1", ",", 
+       RowBox[{"If", "[", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"Head", "[", "#2", "]"}], "===", "Around"}], ",", 
+         RowBox[{"#2", "[", "\"\<Value\>\"", "]"}], ",", "#2"}], "]"}], ",", 
+       RowBox[{"If", "[", 
+        RowBox[{
+         RowBox[{
+          RowBox[{"Head", "[", "#2", "]"}], "===", "Around"}], ",", 
+         RowBox[{"#2", "[", "\"\<Uncertainty\>\"", "]"}], ",", "0"}], "]"}]}],
+       "}"}], "&"}], "@@@", "datNum"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.836571907042726*^9, 3.8365719075682077`*^9}, {
+  3.8365719679456177`*^9, 3.836572034954253*^9}, {3.836572067138021*^9, 
+  3.8365720932499523`*^9}},
+ CellLabel->"In[33]:=",ExpressionUUID->"cbeb62aa-7e89-4ec5-a1cb-d5012bac06fd"],
+
+Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/glow_\
+series_numeric.dat\"\>"], "Output",
+ CellChangeTimes->{
+  3.8365719078847313`*^9, {3.836572025847522*^9, 3.836572035446138*^9}, 
+   3.8365720941903563`*^9, 3.836572233522911*^9},
+ CellLabel->"Out[33]=",ExpressionUUID->"9ddcc7c6-de02-4d31-9401-bbbc5eefe582"]
+}, Open  ]],
 
 Cell[CellGroupData[{
 
@@ -502,7 +546,7 @@ Cell[BoxData[
    3.832146166615106*^9, 3.832146187807186*^9}, {3.832146248416617*^9, 
    3.8321462996333437`*^9}, 3.8321545081565647`*^9, {3.832154839236245*^9, 
    3.832154839322452*^9}},
- CellLabel->"In[28]:=",ExpressionUUID->"a79b1406-8855-4788-85f8-e01146acbc0b"],
+ CellLabel->"In[14]:=",ExpressionUUID->"a79b1406-8855-4788-85f8-e01146acbc0b"],
 
 Cell[BoxData[
  RowBox[{"{", 
@@ -514,11 +558,11 @@ Cell[BoxData[
    InterpretationBox[
     TemplateBox[{"0.09790657944", "0", "4"},
      "AroundSeq"],
-    Around[0.09790657944000002, 4.0000001299773315`*^-12]], ",", 
+    Around[0.09790657944000002, 4.000000129977332*^-12]], ",", 
    InterpretationBox[
     TemplateBox[{"-0.2150219943", "3", "5"},
      "AroundSeq"],
-    Around[-0.21502199433323033`, 4.8460698478892806`*^-11]], ",", 
+    Around[-0.21502199433323033`, 4.846069847889282*^-11]], ",", 
    InterpretationBox[
     TemplateBox[{"1.275438112", "0", "9"},
      "AroundSeq"],
@@ -526,7 +570,7 @@ Cell[BoxData[
    InterpretationBox[
     TemplateBox[{"-13.1943759", "67", "24"},
      "AroundSeq"],
-    Around[-13.194375967404621`, 2.4265468926938108`*^-8]], ",", 
+    Around[-13.194375967404621`, 2.4265468926938114`*^-8]], ",", 
    InterpretationBox[
     TemplateBox[{"199.409126", "0", "9"},
      "AroundSeq"],
@@ -534,11 +578,11 @@ Cell[BoxData[
    InterpretationBox[
     TemplateBox[{"-4004.42550", "0.00004"},
      "Around"],
-    Around[-4004.4254982941143`, 0.000039083263678372897`]], ",", 
+    Around[-4004.4254982941143`, 0.00003908326367837291]], ",", 
    InterpretationBox[
     TemplateBox[{"100787.9920", "0.0021"},
      "Around"],
-    Around[100787.99199788233`, 0.0020814305200299167`]], ",", 
+    Around[100787.99199788233`, 0.0020814305200299176`]], ",", 
    InterpretationBox[
     TemplateBox[{"-3.057071", "42", "13", 
       SuperscriptBox["10", "6"]},
@@ -553,31 +597,96 @@ Cell[BoxData[
     TemplateBox[{"-4.431930", "7", "7", 
       SuperscriptBox["10", "9"]},
      "AroundSeqExp"],
-    Around[-4.431930709816816*^9, 714.318351497395]]}], "}"}]], "Output",
+    Around[-4.431930709816816*^9, 714.3183514973954]]}], "}"}]], "Output",
  CellChangeTimes->{{3.8321460949067373`*^9, 3.832146137791162*^9}, 
    3.832146172640996*^9, 3.832146235521159*^9, {3.8321462717412853`*^9, 
    3.832146275952108*^9}, 3.8321463349718313`*^9, 3.8321464558511057`*^9, 
    3.832146509817857*^9, 3.83214669949054*^9, 3.832151975553176*^9, 
-   3.832152083287957*^9, 3.832154510903532*^9, 3.832154883538463*^9},
- CellLabel->"Out[28]=",ExpressionUUID->"2c04ebc6-15f0-41cb-9c68-db8d383fb486"]
+   3.832152083287957*^9, 3.832154510903532*^9, 3.832154883538463*^9, 
+   3.836570442389636*^9},
+ CellLabel->"Out[14]=",ExpressionUUID->"5d5e77cf-f1ea-4666-9e43-e8dbd0de9153"]
 }, Open  ]],
 
 Cell[BoxData[
  RowBox[{
   RowBox[{"datOurs", "=", 
-   RowBox[{"Chop", "[", 
+   RowBox[{
     RowBox[{
-     RowBox[{"Abs", "[", 
-      RowBox[{
-       RowBox[{"dFd\[Xi]LowList", "[", 
-        RowBox[{"n1", ",", "h1"}], "]"}], "[", "9", "]"}], "]"}], "/.", 
-     "sol1"}], "]"}]}], ";"}]], "Input",
+     RowBox[{"dFd\[Xi]LowList", "[", 
+      RowBox[{"n1", ",", "h1"}], "]"}], "[", "9", "]"}], "/.", "sol1"}]}], 
+  ";"}]], "Input",
  CellChangeTimes->{{3.832145390968719*^9, 3.8321454292735577`*^9}, {
    3.832145976500745*^9, 3.832145979699314*^9}, {3.832146795410326*^9, 
    3.832146803058391*^9}, {3.832146853819456*^9, 3.832146854323563*^9}, {
    3.83214967637575*^9, 3.832149676470541*^9}, {3.832154514224004*^9, 
-   3.832154515788747*^9}, 3.832154755609396*^9},
- CellLabel->"In[24]:=",ExpressionUUID->"4221e07f-e3c2-4004-a825-7339ebc77c40"],
+   3.832154515788747*^9}, 3.832154755609396*^9, {3.836572237598887*^9, 
+   3.836572247372046*^9}},
+ CellLabel->"In[34]:=",ExpressionUUID->"4221e07f-e3c2-4004-a825-7339ebc77c40"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Export", "[", 
+  RowBox[{
+  "\"\<~/doc/research/first_order_singularities/paper/data/glow_series_ours_0.\
+dat\>\"", ",", 
+   RowBox[{"Table", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"i", ",", 
+       RowBox[{
+        RowBox[{"Chop", "@", 
+         RowBox[{"datOurs", "[", 
+          RowBox[{"[", 
+           RowBox[{"i", "+", "1"}], "]"}], "]"}]}], "/", 
+        RowBox[{"i", "!"}]}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"i", ",", "0", ",", 
+       RowBox[{
+        RowBox[{"Length", "[", "datOurs", "]"}], "-", "1"}]}], "}"}]}], 
+    "]"}]}], "]"}]], "Input",
+ CellChangeTimes->{{3.8365725090188103`*^9, 3.836572511033183*^9}, {
+  3.836572551269373*^9, 3.836572621026455*^9}, {3.8365727308332853`*^9, 
+  3.836572735579463*^9}},
+ CellLabel->"In[38]:=",ExpressionUUID->"dd088f15-420b-4212-8186-b62091ac9d6c"],
+
+Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/glow_\
+series_ours_0.dat\"\>"], "Output",
+ CellChangeTimes->{
+  3.8365725114300337`*^9, {3.8365725984285917`*^9, 3.8365726212484303`*^9}, 
+   3.8365727364325037`*^9},
+ CellLabel->"Out[38]=",ExpressionUUID->"9a70ffe7-9718-4df2-80c1-4de5b7c7d436"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"Export", "[", 
+  RowBox[{
+  "\"\<~/doc/research/first_order_singularities/paper/data/glow_series_\
+caselle.dat\>\"", ",", 
+   RowBox[{"Table", "[", 
+    RowBox[{
+     RowBox[{"{", 
+      RowBox[{"i", ",", 
+       RowBox[{
+        RowBox[{
+         RowBox[{"datCas", "[", 
+          RowBox[{"[", "i", "]"}], "]"}], "[", "\"\<Value\>\"", "]"}], "/", 
+        RowBox[{"i", "!"}]}]}], "}"}], ",", 
+     RowBox[{"{", 
+      RowBox[{"i", ",", "1", ",", 
+       RowBox[{"Length", "[", "datCas", "]"}]}], "}"}]}], "]"}]}], 
+  "]"}]], "Input",
+ CellChangeTimes->{{3.836572923916615*^9, 3.8365729684861917`*^9}, {
+  3.8365730212450933`*^9, 3.836573024451941*^9}},
+ CellLabel->"In[40]:=",ExpressionUUID->"e7fdb778-fd9a-4c13-95dc-aefbf5b8a29f"],
+
+Cell[BoxData["\<\"~/doc/research/first_order_singularities/paper/data/glow_\
+series_caselle.dat\"\>"], "Output",
+ CellChangeTimes->{3.83657297081538*^9, 3.836573024753381*^9},
+ CellLabel->"Out[40]=",ExpressionUUID->"01370c9d-9462-41f0-8dcc-9775da2fb959"]
+}, Open  ]],
 
 Cell[CellGroupData[{
 
@@ -608,10 +717,10 @@ Cell[BoxData[
    3.832146365018457*^9}, {3.8321468071147757`*^9, 3.83214683603503*^9}, {
    3.832151906798731*^9, 3.832151920438457*^9}, {3.83215203026543*^9, 
    3.8321520312326193`*^9}},
- CellLabel->"In[17]:=",ExpressionUUID->"e61ed118-a102-4290-8440-cba17b87145b"],
+ CellLabel->"In[20]:=",ExpressionUUID->"e61ed118-a102-4290-8440-cba17b87145b"],
 
 Cell[BoxData[
- GraphicsBox[{{{{
+ GraphicsBox[{{{{{}, 
       {RGBColor[0.368417, 0.506779, 0.709798], 
        StyleBox[{{}, {
           LineBox[{{1., 0.3058939805973312}, {1., 0.3058939805973386}}], 
@@ -698,254 +807,17 @@ Cell[BoxData[
        StyleBox[{{}, {
           LineBox[{{9., 14.932967922312375`}, {9., 14.932967964384751`}}], 
           LineBox[{{9., 14.932967964384751`}, {9., 14.932968006457125`}}]}},
-        Antialiasing->False]}}}, {{
-      {RGBColor[0.368417, 0.506779, 0.709798], 
-       StyleBox[{
-         GeometricTransformationBox[
-          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
-         GeometricTransformationBox[
-          LineBox[{{{1., 0.3058939805973459}, 
-             Offset[{3, 0}, {1., 0.3058939805973459}]}, {{1., 
-             0.3058939805973459}, 
-             Offset[{-3, 0}, {1., 0.3058939805973459}]}, {{1., 
-             0.3058939805973312}, 
-             Offset[{3, 0}, {1., 0.3058939805973312}]}, {{1., 
-             0.3058939805973312}, 
-             Offset[{-3, 0}, {1., 0.3058939805973312}]}}], {{{1., 0.}, {0., 
-           1.}}, {0., 0.}}]},
-        Antialiasing->False]}, 
-      {RGBColor[0.368417, 0.506779, 0.709798], 
-       StyleBox[{
-         GeometricTransformationBox[
-          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
-         GeometricTransformationBox[
-          LineBox[{{{2., -2.3237415259428977`}, 
-             Offset[{3, 0}, {2., -2.3237415259428977`}]}, {{
-             2., -2.3237415259428977`}, 
-             Offset[{-3, 0}, {2., -2.3237415259428977`}]}, {{
-             2., -2.3237415260246084`}, 
-             Offset[{3, 0}, {2., -2.3237415260246084`}]}, {{
-             2., -2.3237415260246084`}, 
-             Offset[{-3, 0}, {2., -2.3237415260246084`}]}}], {{{1., 0.}, {0., 
-           1.}}, {0., 0.}}]},
-        Antialiasing->False]}, 
-      {RGBColor[0.368417, 0.506779, 0.709798], 
-       StyleBox[{
-         GeometricTransformationBox[
-          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
-         GeometricTransformationBox[
-          LineBox[{{{3., -1.4559292618063453`}, 
-             Offset[{3, 0}, {3., -1.4559292618063453`}]}, {{
-             3., -1.4559292618063453`}, 
-             Offset[{-3, 0}, {3., -1.4559292618063453`}]}, {{
-             3., -1.4559292669525052`}, 
-             Offset[{3, 0}, {3., -1.4559292669525052`}]}, {{
-             3., -1.4559292669525052`}, 
-             Offset[{-3, 0}, {3., -1.4559292669525052`}]}}], {{{1., 0.}, {0., 
-           1.}}, {0., 0.}}]},
         Antialiasing->False]}, 
-      {RGBColor[0.368417, 0.506779, 0.709798], 
-       StyleBox[{
-         GeometricTransformationBox[
-          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
-         GeometricTransformationBox[
-          LineBox[{{{4., 0.4951174506761829}, 
-             Offset[{3, 0}, {4., 0.4951174506761829}]}, {{4., 
-             0.4951174506761829}, 
-             Offset[{-3, 0}, {4., 0.4951174506761829}]}, {{4., 
-             0.49511742142021525`}, 
-             Offset[{3, 0}, {4., 0.49511742142021525`}]}, {{4., 
-             0.49511742142021525`}, 
-             Offset[{-3, 0}, {4., 0.49511742142021525`}]}}], {{{1., 0.}, {0., 
-           1.}}, {0., 0.}}]},
-        Antialiasing->False]}, 
-      {RGBColor[0.368417, 0.506779, 0.709798], 
-       StyleBox[{
-         GeometricTransformationBox[
-          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
-         GeometricTransformationBox[
-          LineBox[{{{5., 3.094040065118465}, 
-             Offset[{3, 0}, {5., 3.094040065118465}]}, {{5., 
-             3.094040065118465}, Offset[{-3, 0}, {5., 3.094040065118465}]}, {{
-             5., 3.0940399563540724`}, 
-             Offset[{3, 0}, {5., 3.0940399563540724`}]}, {{5., 
-             3.0940399563540724`}, 
-             Offset[{-3, 0}, {5., 3.0940399563540724`}]}}], {{{1., 0.}, {0., 
-           1.}}, {0., 0.}}]},
-        Antialiasing->False]}, 
-      {RGBColor[0.368417, 0.506779, 0.709798], 
-       StyleBox[{
-         GeometricTransformationBox[
-          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
-         GeometricTransformationBox[
-          LineBox[{{{6., 6.162478917937071}, 
-             Offset[{3, 0}, {6., 6.162478917937071}]}, {{6., 
-             6.162478917937071}, Offset[{-3, 0}, {6., 6.162478917937071}]}, {{
-             6., 6.1624758838184075`}, 
-             Offset[{3, 0}, {6., 6.1624758838184075`}]}, {{6., 
-             6.1624758838184075`}, 
-             Offset[{-3, 0}, {6., 6.1624758838184075`}]}}], {{{1., 0.}, {0., 
-           1.}}, {0., 0.}}]},
-        Antialiasing->False]}, 
-      {RGBColor[0.368417, 0.506779, 0.709798], 
-       StyleBox[{
-         GeometricTransformationBox[
-          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
-         GeometricTransformationBox[
-          LineBox[{{{7., 9.602777430389681}, 
-             Offset[{3, 0}, {7., 9.602777430389681}]}, {{7., 
-             9.602777430389681}, Offset[{-3, 0}, {7., 9.602777430389681}]}, {{
-             7., 9.602775387951214}, 
-             Offset[{3, 0}, {7., 9.602775387951214}]}, {{7., 
-             9.602775387951214}, 
-             Offset[{-3, 0}, {7., 9.602775387951214}]}}], {{{1., 0.}, {0., 
-           1.}}, {0., 0.}}]},
-        Antialiasing->False]}, 
-      {RGBColor[0.368417, 0.506779, 0.709798], 
-       StyleBox[{
-         GeometricTransformationBox[
-          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
-         GeometricTransformationBox[
-          LineBox[{{{8., 13.35315504715679}, 
-             Offset[{3, 0}, {8., 13.35315504715679}]}, {{8., 
-             13.35315504715679}, Offset[{-3, 0}, {8., 13.35315504715679}]}, {{
-             8., 13.351873817000742`}, 
-             Offset[{3, 0}, {8., 13.351873817000742`}]}, {{8., 
-             13.351873817000742`}, 
-             Offset[{-3, 0}, {8., 13.351873817000742`}]}}], {{{1., 0.}, {0., 
-           1.}}, {0., 0.}}]},
-        Antialiasing->False]}}, {
       {RGBColor[0.880722, 0.611041, 0.142051], 
-       StyleBox[{
-         GeometricTransformationBox[
-          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
-         GeometricTransformationBox[
-          LineBox[{{{1., 0.30589398059734607`}, 
-             Offset[{3, 0}, {1., 0.30589398059734607`}]}, {{1., 
-             0.30589398059734607`}, 
-             Offset[{-3, 0}, {1., 0.30589398059734607`}]}, {{1., 
-             0.30589398059733136`}, 
-             Offset[{3, 0}, {1., 0.30589398059733136`}]}, {{1., 
-             0.30589398059733136`}, 
-             Offset[{-3, 0}, {1., 0.30589398059733136`}]}}], {{{1., 0.}, {0., 
-           1.}}, {0., 0.}}]},
-        Antialiasing->False]}, 
-      {RGBColor[0.880722, 0.611041, 0.142051], 
-       StyleBox[{
-         GeometricTransformationBox[
-          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
-         GeometricTransformationBox[
-          LineBox[{{{2., -2.3237415259428977`}, 
-             Offset[{3, 0}, {2., -2.3237415259428977`}]}, {{
-             2., -2.3237415259428977`}, 
-             Offset[{-3, 0}, {2., -2.3237415259428977`}]}, {{
-             2., -2.3237415260246084`}, 
-             Offset[{3, 0}, {2., -2.3237415260246084`}]}, {{
-             2., -2.3237415260246084`}, 
-             Offset[{-3, 0}, {2., -2.3237415260246084`}]}}], {{{1., 0.}, {0., 
-           1.}}, {0., 0.}}]},
-        Antialiasing->False]}, 
-      {RGBColor[0.880722, 0.611041, 0.142051], 
-       StyleBox[{
-         GeometricTransformationBox[
-          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
-         GeometricTransformationBox[
-          LineBox[{{{3., -1.5370149566369802`}, 
-             Offset[{3, 0}, {3., -1.5370149566369802`}]}, {{
-             3., -1.5370149566369802`}, 
-             Offset[{-3, 0}, {3., -1.5370149566369802`}]}, {{
-             3., -1.5370149570877314`}, 
-             Offset[{3, 0}, {3., -1.5370149570877314`}]}, {{
-             3., -1.5370149570877314`}, 
-             Offset[{-3, 0}, {3., -1.5370149570877314`}]}}], {{{1., 0.}, {0., 
-           1.}}, {0., 0.}}]},
-        Antialiasing->False]}, 
-      {RGBColor[0.880722, 0.611041, 0.142051], 
-       StyleBox[{
-         GeometricTransformationBox[
-          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
-         GeometricTransformationBox[
-          LineBox[{{{4., 0.24328973753261673`}, 
-             Offset[{3, 0}, {4., 0.24328973753261673`}]}, {{4., 
-             0.24328973753261673`}, 
-             Offset[{-3, 0}, {4., 0.24328973753261673`}]}, {{4., 
-             0.2432897361215771}, 
-             Offset[{3, 0}, {4., 0.2432897361215771}]}, {{4., 
-             0.2432897361215771}, 
-             Offset[{-3, 0}, {4., 0.2432897361215771}]}}], {{{1., 0.}, {0., 
-           1.}}, {0., 0.}}]},
-        Antialiasing->False]}, 
-      {RGBColor[0.880722, 0.611041, 0.142051], 
-       StyleBox[{
-         GeometricTransformationBox[
-          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
-         GeometricTransformationBox[
-          LineBox[{{{5., 2.579790677565333}, 
-             Offset[{3, 0}, {5., 2.579790677565333}]}, {{5., 
-             2.579790677565333}, Offset[{-3, 0}, {5., 2.579790677565333}]}, {{
-             5., 2.5797906738871794`}, 
-             Offset[{3, 0}, {5., 2.5797906738871794`}]}, {{5., 
-             2.5797906738871794`}, 
-             Offset[{-3, 0}, {5., 2.5797906738871794`}]}}], {{{1., 0.}, {0., 
-           1.}}, {0., 0.}}]},
-        Antialiasing->False]}, 
-      {RGBColor[0.880722, 0.611041, 0.142051], 
-       StyleBox[{
-         GeometricTransformationBox[
-          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
-         GeometricTransformationBox[
-          LineBox[{{{6., 5.295358627920421}, 
-             Offset[{3, 0}, {6., 5.295358627920421}]}, {{6., 
-             5.295358627920421}, Offset[{-3, 0}, {6., 5.295358627920421}]}, {{
-             6., 5.295358619156995}, 
-             Offset[{3, 0}, {6., 5.295358619156995}]}, {{6., 
-             5.295358619156995}, 
-             Offset[{-3, 0}, {6., 5.295358619156995}]}}], {{{1., 0.}, {0., 
-           1.}}, {0., 0.}}]},
-        Antialiasing->False]}, 
-      {RGBColor[0.880722, 0.611041, 0.142051], 
-       StyleBox[{
-         GeometricTransformationBox[
-          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
-         GeometricTransformationBox[
-          LineBox[{{{7., 8.295155412854276}, 
-             Offset[{3, 0}, {7., 8.295155412854276}]}, {{7., 
-             8.295155412854276}, Offset[{-3, 0}, {7., 8.295155412854276}]}, {{
-             7., 8.29515539333424}, 
-             Offset[{3, 0}, {7., 8.29515539333424}]}, {{7., 8.29515539333424},
-              Offset[{-3, 0}, {7., 8.29515539333424}]}}], {{{1., 0.}, {0., 
-           1.}}, {0., 0.}}]},
-        Antialiasing->False]}, 
-      {RGBColor[0.880722, 0.611041, 0.142051], 
-       StyleBox[{
-         GeometricTransformationBox[
-          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
-         GeometricTransformationBox[
-          LineBox[{{{8., 11.520774521169658`}, 
-             Offset[{3, 0}, {8., 11.520774521169658`}]}, {{8., 
-             11.520774521169658`}, 
-             Offset[{-3, 0}, {8., 11.520774521169658`}]}, {{8., 
-             11.520774479866512`}, 
-             Offset[{3, 0}, {8., 11.520774479866512`}]}, {{8., 
-             11.520774479866512`}, 
-             Offset[{-3, 0}, {8., 11.520774479866512`}]}}], {{{1., 0.}, {0., 
-           1.}}, {0., 0.}}]},
+       StyleBox[{{}, {
+          LineBox[{{10., 18.50371645081476}, {10., 18.50371653409918}}], 
+          LineBox[{{10., 18.50371653409918}, {10., 18.503716617383592`}}]}},
         Antialiasing->False]}, 
       {RGBColor[0.880722, 0.611041, 0.142051], 
-       StyleBox[{
-         GeometricTransformationBox[
-          LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], 
-         GeometricTransformationBox[
-          LineBox[{{{9., 14.932968006457125`}, 
-             Offset[{3, 0}, {9., 14.932968006457125`}]}, {{9., 
-             14.932968006457125`}, 
-             Offset[{-3, 0}, {9., 14.932968006457125`}]}, {{9., 
-             14.932967922312375`}, 
-             Offset[{3, 0}, {9., 14.932967922312375`}]}, {{9., 
-             14.932967922312375`}, 
-             Offset[{-3, 0}, {9., 14.932967922312375`}]}}], {{{1., 0.}, {0., 
-           1.}}, {0., 0.}}]},
-        Antialiasing->False]}}}}, {
+       StyleBox[{{}, {
+          LineBox[{{11., 22.212100991027132`}, {11., 22.212101152202578`}}], 
+          LineBox[{{11., 22.212101152202578`}, {11., 22.212101313378}}]}},
+        Antialiasing->False]}}}, {}}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
       AbsoluteThickness[1.6], 
      PointBox[{{1., 0.3058939805973386}, {2., -2.323741525983753}, {
@@ -959,13 +831,15 @@ Cell[BoxData[
       3., -1.537014956862356}, {4., 0.2432897368270969}, {5., 
       2.5797906757262563`}, {6., 5.295358623538708}, {7., 
       8.295155403094258}, {8., 11.520774500518085`}, {9., 
-      14.932967964384751`}}]}, 
+      14.932967964384751`}, {10., 18.50371653409918}, {11., 
+      22.212101152202578`}}]}, 
     {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`],
       AbsoluteThickness[1.6], 
      PointBox[{{1., 0.30589398059734246`}, {2., -2.323741525983774}, {
       3., -1.463019114084386}, {4., 0.465947996316923}, {5., 
       3.0320156927845257`}, {6., 6.065443960311892}, {7., 
-      9.474366021505318}, {8., 13.198778109365042`}}]}}, {{}, {}}},
+      9.474366021505318}, {8., 13.198778109365042`}, {9., 
+      17.195307773271686`}}]}}, {{}, {}}},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{None, None},
@@ -1056,8 +930,184 @@ Cell[BoxData[
    3.8321467072616997`*^9, {3.832146811961604*^9, 3.832146837071911*^9}, 
    3.8321477095082703`*^9, 3.832151921021535*^9, 3.832151975632756*^9, {
    3.832152031506322*^9, 3.832152044695828*^9}, 3.832152083368902*^9, 
-   3.832154526555648*^9},
- CellLabel->"Out[17]=",ExpressionUUID->"ec45c751-9659-4bfe-8e63-ba682da0b11f"]
+   3.832154526555648*^9, 3.8365707096084023`*^9},
+ CellLabel->"Out[20]=",ExpressionUUID->"6cada30c-d260-4892-8f67-49af9e1c1a05"]
+}, Open  ]],
+
+Cell[BoxData[""], "Input",
+ CellChangeTimes->{{3.836571106360374*^9, 3.836571120300399*^9}, 
+   3.836571168400168*^9},ExpressionUUID->"0f87aa05-2cc9-472a-ab27-\
+39ee15777442"],
+
+Cell[BoxData[
+ RowBox[{"Export", "[", 
+  "\"\<~/doc/research/first_order_singularities/paper/data/Glow_series_\
+numeric\>"}]], "Input",
+ CellChangeTimes->{{3.836571088501528*^9, 3.836571098249134*^9}, {
+  3.836571174194809*^9, 3.836571175840929*^9}, {3.836571808915742*^9, 
+  3.836571839874625*^9}},ExpressionUUID->"627c17e0-e2d8-4347-8fe9-\
+812183a42941"],
+
+Cell[CellGroupData[{
+
+Cell[BoxData["datNum"], "Input",
+ CellChangeTimes->{{3.836571783214171*^9, 3.83657178386341*^9}},
+ CellLabel->"In[25]:=",ExpressionUUID->"f32c32be-7fcb-4660-bf43-cbc119acda96"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"0", ",", 
+     InterpretationBox[
+      TemplateBox[{"0.0", "1.0", 
+        SuperscriptBox["10", "-14"]},
+       "AroundExp"],
+      Around[0., 1.*^-14]]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"1", ",", 
+     InterpretationBox[
+      TemplateBox[{"1.3578383417065", "95", "10"},
+       "AroundSeq"],
+      Around[1.357838341706595496`18.132848067820845, 1.*^-14]]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"2", ",", 
+     InterpretationBox[
+      TemplateBox[{"0.09790657944", "0", "4"},
+       "AroundSeq"],
+      Around[0.09790657944, 4.*^-12]]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3", ",", 
+     InterpretationBox[
+      TemplateBox[{"0.233183574", "0", "6"},
+       "AroundSeq"],
+      Around[0.233183574, 6.*^-10]]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"4", ",", 
+     InterpretationBox[
+      TemplateBox[{"1.6406909", "04", "24"},
+       "AroundSeq"],
+      Around[1.640690904, 2.4000000000000003`*^-8]]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5", ",", 
+     InterpretationBox[
+      TemplateBox[{"22.06604", "52", "12"},
+       "AroundSeq"],
+      Around[22.0660452, 1.2*^-6]]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"6", ",", 
+     InterpretationBox[
+      TemplateBox[{"474.6024", "0.0007"},
+       "Around"],
+      Around[474.60240000000005`, 0.0007199999999999999]]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"7", ",", 
+     InterpretationBox[
+      TemplateBox[{"14805.832", "0.015"},
+       "Around"],
+      Around[14805.8316, 0.01512]]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"8", ",", 
+     InterpretationBox[
+      TemplateBox[{"629395.", "403."},
+       "Around"],
+      Around[629395.2, 403.2]]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"9", ",", "3.5112268800000004`*^7"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"10", ",", "2463955200"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"11", ",", "213155712000"}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.836571784123211*^9},
+ CellLabel->"Out[25]=",ExpressionUUID->"01b48fb7-d8c9-4012-92f6-488cf7e7087c"]
+}, Open  ]],
+
+Cell[CellGroupData[{
+
+Cell[BoxData[
+ RowBox[{"convNum", "=", 
+  RowBox[{
+   RowBox[{
+    RowBox[{"Table", "[", 
+     RowBox[{
+      RowBox[{"{", 
+       RowBox[{"i", ",", 
+        RowBox[{
+         RowBox[{"#", "[", 
+          RowBox[{"[", "i", "]"}], "]"}], "/", 
+         RowBox[{"i", "!"}]}]}], "}"}], ",", 
+      RowBox[{"{", 
+       RowBox[{"i", ",", "2", ",", 
+        RowBox[{"Length", "[", "#", "]"}]}], "}"}]}], "]"}], "&"}], "@", 
+   RowBox[{"Abs", "[", 
+    RowBox[{"Rest", "@", 
+     RowBox[{"datNum", "[", 
+      RowBox[{"[", 
+       RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}]}]}]], "Input",
+ CellChangeTimes->{{3.836571181914515*^9, 3.836571198597612*^9}, {
+  3.836571231056604*^9, 3.836571231624762*^9}, {3.836571357622385*^9, 
+  3.8365713615968924`*^9}, {3.836571758467436*^9, 
+  3.836571762121763*^9}},ExpressionUUID->"bfa6a31f-5eb9-4063-b798-\
+e45ab1e3b53a"],
+
+Cell[BoxData[
+ RowBox[{"{", 
+  RowBox[{
+   RowBox[{"{", 
+    RowBox[{"2", ",", 
+     InterpretationBox[
+      TemplateBox[{"0.03605236957", "62", "15"},
+       "AroundSeq"],
+      Around[0.03605236957624365, 1.4729294136595367`*^-12]]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"3", ",", 
+     InterpretationBox[
+      TemplateBox[{"0.79389820", "83", "20"},
+       "AroundSeq"],
+      Around[0.7938982083184092, 2.043021117987329*^-9]]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"4", ",", 
+     InterpretationBox[
+      TemplateBox[{"1.7590120", "91", "26"},
+       "AroundSeq"],
+      Around[1.7590120906200708`, 2.612583930959776*^-8]]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"5", ",", 
+     InterpretationBox[
+      TemplateBox[{"2.689847", "93", "15"},
+       "AroundSeq"],
+      Around[2.6898479349404627`, 1.5147931071787232`*^-7]]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"6", ",", 
+     InterpretationBox[
+      TemplateBox[{"3.58471", "1", "5"},
+       "AroundSeq"],
+      Around[3.5847112286346623`, 5.4417125989793*^-6]]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"7", ",", 
+     InterpretationBox[
+      TemplateBox[{"4.45661", "2", "8"},
+       "AroundSeq"],
+      Around[4.456612103099352, 8.150067373466504*^-6]]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"8", ",", 
+     InterpretationBox[
+      TemplateBox[{"5.3137", "0.0034"},
+       "Around"],
+      Around[5.313744079055986, 0.003404068437393709]]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"9", ",", 
+     InterpretationBox[
+      TemplateBox[{"6.199", "0.004"},
+       "Around"],
+      Around[6.198590647021142, 0.003970910087777797]]}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"10", ",", "7.017362546506821`"}], "}"}], ",", 
+   RowBox[{"{", 
+    RowBox[{"11", ",", 
+     FractionBox["5340", "679"]}], "}"}]}], "}"}]], "Output",
+ CellChangeTimes->{3.836571362022435*^9},
+ CellLabel->"Out[24]=",ExpressionUUID->"0ca79efb-1867-4b1f-96fc-4a691d54b72e"]
 }, Open  ]],
 
 Cell[CellGroupData[{
@@ -1139,7 +1189,7 @@ Cell[BoxData[
  CellChangeTimes->{{3.8321545395343018`*^9, 3.832154711976303*^9}, {
   3.8321547939317636`*^9, 3.832154819442959*^9}, {3.832154942117115*^9, 
   3.832155007925785*^9}},
- CellLabel->"In[32]:=",ExpressionUUID->"242aacdf-e4c7-423c-a26a-12188ba2476e"],
+ CellLabel->"In[21]:=",ExpressionUUID->"242aacdf-e4c7-423c-a26a-12188ba2476e"],
 
 Cell[BoxData[
  GraphicsBox[{{{{
@@ -1579,8 +1629,8 @@ Cell[BoxData[
   Ticks->{Automatic, Automatic}]], "Output",
  CellChangeTimes->{{3.832154644879883*^9, 3.832154712232472*^9}, {
    3.8321548002930393`*^9, 3.832154819687943*^9}, 3.832154883650704*^9, {
-   3.8321549661619253`*^9, 3.832155008139481*^9}},
- CellLabel->"Out[32]=",ExpressionUUID->"5e7f5cdb-c2af-4506-b7c3-789ee702d000"]
+   3.8321549661619253`*^9, 3.832155008139481*^9}, 3.836570712756501*^9},
+ CellLabel->"Out[21]=",ExpressionUUID->"073d831e-11a6-4203-90ce-0df429c1a3f0"]
 }, Open  ]],
 
 Cell[BoxData[
@@ -2018,9 +2068,9 @@ Cell[BoxData[
  CellLabel->"Out[91]=",ExpressionUUID->"b48c9c3b-23cc-4864-8ea2-6e98855eb77d"]
 }, Open  ]]
 },
-WindowSize->{636.75, 1062.},
-WindowMargins->{{Automatic, 641.25}, {1.5, Automatic}},
-FrontEndVersion->"12.3 for Linux x86 (64-bit) (May 11, 2021)",
+WindowSize->{1435.5, 790.5},
+WindowMargins->{{2.25, Automatic}, {2.25, Automatic}},
+FrontEndVersion->"12.1 for Linux ARM (32-bit) (August 18, 2020)",
 StyleDefinitions->"Default.nb",
 ExpressionUUID->"d257fbda-2be1-4221-9ac8-5153716cfc00"
 ]
@@ -2035,53 +2085,79 @@ CellTagsIndex->{}
 *)
 (*NotebookFileOutline
 Notebook[{
-Cell[558, 20, 597, 10, 24, "Input",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"],
-Cell[1158, 32, 7539, 107, 55, "Input",ExpressionUUID->"872503c3-0779-4b87-805f-13a088f459e3"],
-Cell[8700, 141, 1256, 31, 105, "Input",ExpressionUUID->"02a1f6e5-4144-4552-9463-2a226c1ee186"],
-Cell[9959, 174, 2661, 68, 185, "Input",ExpressionUUID->"d8831e63-87f3-498c-8951-21f347e539ff"],
-Cell[12623, 244, 942, 24, 59, "Input",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"],
-Cell[13568, 270, 916, 20, 40, "Input",ExpressionUUID->"bd6b698e-6871-43fa-9d98-7385cc594c9c"],
-Cell[14487, 292, 753, 17, 38, "Input",ExpressionUUID->"7bddfed2-a761-4c62-bcdc-0460988fbd67"],
+Cell[558, 20, 596, 10, 29, "Input",ExpressionUUID->"94557b52-cc86-4010-b22d-6b74ac4aad03"],
+Cell[1157, 32, 7539, 107, 71, "Input",ExpressionUUID->"872503c3-0779-4b87-805f-13a088f459e3"],
+Cell[8699, 141, 1257, 31, 113, "Input",ExpressionUUID->"02a1f6e5-4144-4552-9463-2a226c1ee186"],
+Cell[9959, 174, 2710, 69, 113, "Input",ExpressionUUID->"d8831e63-87f3-498c-8951-21f347e539ff"],
+Cell[12672, 245, 941, 24, 73, "Input",ExpressionUUID->"04b6d9c8-662b-43f2-955f-87d9d6c7b622"],
+Cell[13616, 271, 915, 20, 50, "Input",ExpressionUUID->"bd6b698e-6871-43fa-9d98-7385cc594c9c"],
+Cell[14534, 293, 752, 17, 47, "Input",ExpressionUUID->"7bddfed2-a761-4c62-bcdc-0460988fbd67"],
+Cell[CellGroupData[{
+Cell[15311, 314, 226, 4, 29, "Input",ExpressionUUID->"50295a31-c985-47a1-ab52-8a5871504ed9"],
+Cell[15540, 320, 418, 10, 36, "Output",ExpressionUUID->"bc09ed81-20b7-4e22-a63a-1d663336b1b5"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[15995, 335, 811, 19, 29, "Input",ExpressionUUID->"7efd85be-fd7d-435a-a870-214d8ec4025d"],
+Cell[16809, 356, 649, 13, 22, "Message",ExpressionUUID->"495ad979-d632-478f-8e0f-56a8e4f9987f"],
+Cell[17461, 371, 853, 19, 36, "Output",ExpressionUUID->"2e2d8ac6-c3fd-4636-a145-e07805271602"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[18351, 395, 285, 6, 31, "Input",ExpressionUUID->"111093b6-716a-4bf7-a45a-dac15b888b04"],
+Cell[18639, 403, 371, 8, 35, "Output",ExpressionUUID->"f4db1aaf-ffb6-4069-b376-c6b46e4be074"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[19047, 416, 256, 5, 29, "Input",ExpressionUUID->"35006d51-03e9-4e09-8401-8176648f7474"],
+Cell[19306, 423, 154, 2, 33, "Output",ExpressionUUID->"021cf2ad-b5c4-4865-a718-f51958ee0792"]
+}, Open  ]],
+Cell[CellGroupData[{
+Cell[19497, 430, 531, 11, 31, "Input",ExpressionUUID->"f42f7737-f59e-4289-8153-b78626e30f0e"],
+Cell[20031, 443, 1212, 31, 36, "Output",ExpressionUUID->"554f67c9-f7db-464a-bb28-41d81dcbec1c"]
+}, Open  ]],
+Cell[21258, 477, 494, 12, 29, "Input",ExpressionUUID->"ec8b9383-61d6-44c2-b776-3d651fc19660"],
+Cell[CellGroupData[{
+Cell[21777, 493, 943, 23, 51, "Input",ExpressionUUID->"cbeb62aa-7e89-4ec5-a1cb-d5012bac06fd"],
+Cell[22723, 518, 334, 5, 33, "Output",ExpressionUUID->"9ddcc7c6-de02-4d31-9401-bbbc5eefe582"]
+}, Open  ]],
 Cell[CellGroupData[{
-Cell[15265, 313, 226, 4, 22, "Input",ExpressionUUID->"50295a31-c985-47a1-ab52-8a5871504ed9"],
-Cell[15494, 319, 418, 10, 26, "Output",ExpressionUUID->"bc09ed81-20b7-4e22-a63a-1d663336b1b5"]
+Cell[23094, 528, 812, 20, 50, "Input",ExpressionUUID->"a79b1406-8855-4788-85f8-e01146acbc0b"],
+Cell[23909, 550, 2252, 56, 58, "Output",ExpressionUUID->"5d5e77cf-f1ea-4666-9e43-e8dbd0de9153"]
 }, Open  ]],
+Cell[26176, 609, 672, 14, 29, "Input",ExpressionUUID->"4221e07f-e3c2-4004-a825-7339ebc77c40"],
 Cell[CellGroupData[{
-Cell[15949, 334, 811, 19, 22, "Input",ExpressionUUID->"7efd85be-fd7d-435a-a870-214d8ec4025d"],
-Cell[16763, 355, 603, 13, 34, "Message",ExpressionUUID->"75f15d00-cd9d-4490-bad8-9aa7435b52e6"],
-Cell[17369, 370, 803, 19, 26, "Output",ExpressionUUID->"4f1e2bcc-00b0-410f-bd87-d5c15acda1a5"]
+Cell[26873, 627, 855, 23, 32, "Input",ExpressionUUID->"dd088f15-420b-4212-8186-b62091ac9d6c"],
+Cell[27731, 652, 315, 5, 33, "Output",ExpressionUUID->"9a70ffe7-9718-4df2-80c1-4de5b7c7d436"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[18209, 394, 285, 6, 24, "Input",ExpressionUUID->"111093b6-716a-4bf7-a45a-dac15b888b04"],
-Cell[18497, 402, 345, 7, 26, "Output",ExpressionUUID->"e76d58da-15fb-42d2-9247-7fcf098715a1"]
+Cell[28083, 662, 756, 20, 32, "Input",ExpressionUUID->"e7fdb778-fd9a-4c13-95dc-aefbf5b8a29f"],
+Cell[28842, 684, 254, 3, 33, "Output",ExpressionUUID->"01370c9d-9462-41f0-8dcc-9775da2fb959"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[18879, 414, 531, 11, 24, "Input",ExpressionUUID->"f42f7737-f59e-4289-8153-b78626e30f0e"],
-Cell[19413, 427, 1212, 31, 43, "Output",ExpressionUUID->"554f67c9-f7db-464a-bb28-41d81dcbec1c"]
+Cell[29133, 692, 1441, 27, 71, "Input",ExpressionUUID->"e61ed118-a102-4290-8440-cba17b87145b"],
+Cell[30577, 721, 10038, 212, 275, "Output",ExpressionUUID->"6cada30c-d260-4892-8f67-49af9e1c1a05"]
 }, Open  ]],
-Cell[20640, 461, 684, 19, 22, "Input",ExpressionUUID->"ec8b9383-61d6-44c2-b776-3d651fc19660"],
+Cell[40630, 936, 175, 3, 29, "Input",ExpressionUUID->"0f87aa05-2cc9-472a-ab27-39ee15777442"],
+Cell[40808, 941, 356, 7, 29, "Input",ExpressionUUID->"627c17e0-e2d8-4347-8fe9-812183a42941"],
 Cell[CellGroupData[{
-Cell[21349, 484, 812, 20, 40, "Input",ExpressionUUID->"a79b1406-8855-4788-85f8-e01146acbc0b"],
-Cell[22164, 506, 2231, 55, 61, "Output",ExpressionUUID->"2c04ebc6-15f0-41cb-9c68-db8d383fb486"]
+Cell[41189, 952, 176, 2, 29, "Input",ExpressionUUID->"f32c32be-7fcb-4660-bf43-cbc119acda96"],
+Cell[41368, 956, 2097, 65, 58, "Output",ExpressionUUID->"01b48fb7-d8c9-4012-92f6-488cf7e7087c"]
 }, Open  ]],
-Cell[24410, 564, 697, 15, 24, "Input",ExpressionUUID->"4221e07f-e3c2-4004-a825-7339ebc77c40"],
 Cell[CellGroupData[{
-Cell[25132, 583, 1441, 27, 55, "Input",ExpressionUUID->"e61ed118-a102-4290-8440-cba17b87145b"],
-Cell[26576, 612, 20939, 447, 206, "Output",ExpressionUUID->"ec45c751-9659-4bfe-8e63-ba682da0b11f"]
+Cell[43502, 1026, 860, 24, 32, "Input",ExpressionUUID->"bfa6a31f-5eb9-4063-b798-e45ab1e3b53a"],
+Cell[44365, 1052, 1944, 57, 77, "Output",ExpressionUUID->"0ca79efb-1867-4b1f-96fc-4a691d54b72e"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[47552, 1064, 2622, 77, 93, "Input",ExpressionUUID->"242aacdf-e4c7-423c-a26a-12188ba2476e"],
-Cell[50177, 1143, 21816, 439, 180, "Output",ExpressionUUID->"5e7f5cdb-c2af-4506-b7c3-789ee702d000"]
+Cell[46346, 1114, 2622, 77, 122, "Input",ExpressionUUID->"242aacdf-e4c7-423c-a26a-12188ba2476e"],
+Cell[48971, 1193, 21838, 439, 241, "Output",ExpressionUUID->"073d831e-11a6-4203-90ce-0df429c1a3f0"]
 }, Open  ]],
-Cell[72008, 1585, 725, 15, 24, "Input",ExpressionUUID->"80c6c675-eade-40e1-8d0f-13a6578b30ff"],
-Cell[72736, 1602, 764, 21, 22, "Input",ExpressionUUID->"d8847f2e-21fe-4fb7-84ae-676f83acdf5a"],
+Cell[70824, 1635, 725, 15, 29, "Input",ExpressionUUID->"80c6c675-eade-40e1-8d0f-13a6578b30ff"],
+Cell[71552, 1652, 764, 21, 29, "Input",ExpressionUUID->"d8847f2e-21fe-4fb7-84ae-676f83acdf5a"],
 Cell[CellGroupData[{
-Cell[73525, 1627, 679, 17, 40, "Input",ExpressionUUID->"15d60f60-2f87-40da-a2c6-66d640111d75"],
-Cell[74207, 1646, 1298, 32, 44, "Output",ExpressionUUID->"6f1d902a-0431-4a99-adc2-97eb3c423317"]
+Cell[72341, 1677, 679, 17, 50, "Input",ExpressionUUID->"15d60f60-2f87-40da-a2c6-66d640111d75"],
+Cell[73023, 1696, 1298, 32, 36, "Output",ExpressionUUID->"6f1d902a-0431-4a99-adc2-97eb3c423317"]
 }, Open  ]],
 Cell[CellGroupData[{
-Cell[75542, 1683, 736, 18, 57, "Input",ExpressionUUID->"bec4c929-c1a6-4fd0-be18-caf3643ba3a4"],
-Cell[76281, 1703, 14613, 314, 179, "Output",ExpressionUUID->"b48c9c3b-23cc-4864-8ea2-6e98855eb77d"]
+Cell[74358, 1733, 736, 18, 71, "Input",ExpressionUUID->"bec4c929-c1a6-4fd0-be18-caf3643ba3a4"],
+Cell[75097, 1753, 14613, 314, 239, "Output",ExpressionUUID->"b48c9c3b-23cc-4864-8ea2-6e98855eb77d"]
 }, Open  ]]
 }
 ]