summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJaron Kent-Dobias <jaron@kent-dobias.com>2021-07-30 08:23:34 +0200
committerJaron Kent-Dobias <jaron@kent-dobias.com>2021-07-30 08:23:34 +0200
commit887fc4832de352e0b51ffa2377d39cdb4b14a252 (patch)
treea17847b899d353e2622c3745cf5dba795bed0abb
parent095a9eb1e848b4f8fc501f0755468f1b13536695 (diff)
downloadmma-887fc4832de352e0b51ffa2377d39cdb4b14a252.tar.gz
mma-887fc4832de352e0b51ffa2377d39cdb4b14a252.tar.bz2
mma-887fc4832de352e0b51ffa2377d39cdb4b14a252.zip
Work.
-rw-r--r--caselle_compare.nb800
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 ]]
}
]