From 887fc4832de352e0b51ffa2377d39cdb4b14a252 Mon Sep 17 00:00:00 2001 From: Jaron Kent-Dobias Date: Fri, 30 Jul 2021 08:23:34 +0200 Subject: Work. --- caselle_compare.nb | 800 +++++++++++++++++++++++++++++------------------------ 1 file 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", "[", "\"\\"", "]"}], ",", "#2"}], "]"}], ",", + RowBox[{"If", "[", + RowBox[{ + RowBox[{ + RowBox[{"Head", "[", "#2", "]"}], "===", "Around"}], ",", + RowBox[{"#2", "[", "\"\\"", "]"}], ",", "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", "]"}], "]"}], "[", "\"\\"", "]"}], "/", + 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 ]] } ] -- cgit v1.2.3-54-g00ecf