(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 94347, 2081] NotebookOptionsPosition[ 90910, 2020] NotebookOutlinePosition[ 91309, 2036] CellTagsIndexPosition[ 91266, 2033] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"Get", "[", "\"\<~/doc/research/first_order_singularities/mma/schofield.wl\>\"", "]"}]], "Input", CellChangeTimes->{{3.817548726786456*^9, 3.817548838429791*^9}, { 3.817579586526174*^9, 3.817579588547625*^9}, {3.8176251109891653`*^9, 3.817625112168749*^9}, {3.8176254615736647`*^9, 3.817625462650483*^9}, 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"], Cell[BoxData[{ RowBox[{ RowBox[{"n9", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"F9", "=", RowBox[{"RF", "[", "n9", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"h9", "=", RowBox[{"h", "[", "15", "]"}]}], ";"}]}], "Input", CellChangeTimes->{ 3.817563268660089*^9, {3.817563829122241*^9, 3.817563846550528*^9}, { 3.817563950998456*^9, 3.817563956525237*^9}, {3.8175645239988813`*^9, 3.817564534320574*^9}, {3.81756485534698*^9, 3.817564862343175*^9}, { 3.817564919676697*^9, 3.8175649235785027`*^9}, {3.817565106996109*^9, 3.8175651474217367`*^9}, {3.8175652415905113`*^9, 3.817565250029232*^9}, { 3.8175657444559927`*^9, 3.8175657689660788`*^9}, 3.8175669120549498`*^9, { 3.8175677716518087`*^9, 3.817567773706285*^9}, {3.817579700926876*^9, 3.817579701354711*^9}, {3.8175810533593073`*^9, 3.817581114447541*^9}, { 3.817581149854197*^9, 3.8175811499220247`*^9}, {3.817581265163169*^9, 3.81758126542041*^9}, {3.81758144220247*^9, 3.8175814490334673`*^9}, { 3.8175815152710047`*^9, 3.817581521148234*^9}, {3.817581635837187*^9, 3.817581700879589*^9}, {3.817581767691791*^9, 3.817581768673394*^9}, { 3.8175821842992363`*^9, 3.8175821844066353`*^9}, {3.817582286431714*^9, 3.817582297101211*^9}, {3.817582488847374*^9, 3.817582488974349*^9}, { 3.817582803954041*^9, 3.817582804222094*^9}, {3.817618756754203*^9, 3.817618757439868*^9}, {3.81761900296082*^9, 3.817619003035212*^9}, { 3.8176203963382673`*^9, 3.817620396528458*^9}, {3.817626242723531*^9, 3.817626282042306*^9}, {3.81762924164756*^9, 3.8176292443562737`*^9}, { 3.8176636404765043`*^9, 3.817663648770928*^9}, {3.817666003825204*^9, 3.8176660163975077`*^9}, 3.825758657266858*^9, 3.8257634297123632`*^9, { 3.8257637382216587`*^9, 3.825763741294034*^9}, {3.825764046315646*^9, 3.8257640768120003`*^9}, {3.826007441657895*^9, 3.8260074468257313`*^9}, 3.826007758136524*^9, {3.826013359537168*^9, 3.826013366921255*^9}, { 3.826013463378932*^9, 3.826013482235341*^9}, {3.826014234648857*^9, 3.8260142779855223`*^9}, {3.82610306735501*^9, 3.826103074379273*^9}, { 3.826103107756144*^9, 3.826103107819812*^9}, {3.826272369240218*^9, 3.826272391792493*^9}, {3.826272586652137*^9, 3.826272594732195*^9}, { 3.826273088053089*^9, 3.826273089748893*^9}, {3.826273144677765*^9, 3.826273146997635*^9}, {3.8262736335668373`*^9, 3.826273635734462*^9}, 3.8266890691074533`*^9, {3.826689155061082*^9, 3.8266891551567373`*^9}, { 3.8266893130797987`*^9, 3.826689323848358*^9}, {3.826689565988503*^9, 3.826689581228674*^9}, {3.826689634565889*^9, 3.826689650102207*^9}, { 3.826689983421033*^9, 3.826689988684514*^9}, {3.826690298234497*^9, 3.826690304258379*^9}, {3.8266903448673897`*^9, 3.826690346835585*^9}, { 3.826690541351234*^9, 3.826690548879322*^9}, 3.8266910071358747`*^9, { 3.82669106486483*^9, 3.826691074849018*^9}, {3.826691445503744*^9, 3.826691458440094*^9}, {3.82669167994809*^9, 3.826691683996052*^9}, { 3.826704702577314*^9, 3.826704712105288*^9}, {3.82670492717354*^9, 3.826704930421282*^9}, {3.827403765410832*^9, 3.827403784866971*^9}, { 3.827404400190401*^9, 3.827404420238784*^9}, {3.8274045097126637`*^9, 3.8274045126565638`*^9}, {3.8274047169724197`*^9, 3.827404723828395*^9}, { 3.827404767149251*^9, 3.827404769613168*^9}, {3.827405559211132*^9, 3.827405561458974*^9}, {3.827406421058803*^9, 3.827406425898838*^9}, { 3.827410007136595*^9, 3.827410024500999*^9}, {3.827468086395525*^9, 3.827468087899349*^9}, {3.8274817111143637`*^9, 3.827481732722485*^9}, { 3.827481932910375*^9, 3.827481942630374*^9}, {3.827484882114504*^9, 3.827484891178834*^9}, {3.82748496838837*^9, 3.827484972428067*^9}, { 3.827554870569126*^9, 3.8275548842255087`*^9}, {3.827554955106474*^9, 3.827554986395269*^9}, {3.827555061348587*^9, 3.827555089773085*^9}, { 3.827555513700951*^9, 3.8275555289410133`*^9}, {3.827558549917939*^9, 3.827558582782239*^9}, {3.827561592644457*^9, 3.8275616094843884`*^9}, { 3.827830458103025*^9, 3.8278304871675167`*^9}, {3.827830599481675*^9, 3.8278306003135023`*^9}, {3.82783063897057*^9, 3.827830646362282*^9}, { 3.827830706235694*^9, 3.827830712059711*^9}, {3.827831315902727*^9, 3.827831321270451*^9}, {3.827833104775069*^9, 3.827833114719193*^9}, { 3.8278331747045517`*^9, 3.827833179136505*^9}, {3.8278334549656887`*^9, 3.827833462445428*^9}, 3.829120829171124*^9, {3.829213838889318*^9, 3.829213883841852*^9}, {3.829214173078923*^9, 3.829214190007135*^9}, { 3.829217677573986*^9, 3.829217686333686*^9}, {3.829217811928056*^9, 3.8292178136720657`*^9}, {3.829218394666704*^9, 3.829218401658337*^9}, { 3.8292188164581223`*^9, 3.82921883122604*^9}, {3.829218950764509*^9, 3.829218957204319*^9}, {3.829220267572093*^9, 3.829220270004106*^9}, { 3.82936259901405*^9, 3.829362614606016*^9}, {3.829370367314437*^9, 3.829370369098258*^9}, {3.82937149074282*^9, 3.829371504006997*^9}, { 3.829371588392646*^9, 3.829371592952486*^9}, {3.829371703474627*^9, 3.829371725714978*^9}, {3.8293841834937067`*^9, 3.829384188373666*^9}, { 3.829384287679748*^9, 3.8293842910074463`*^9}, {3.8293843661210957`*^9, 3.829384372016992*^9}, {3.8293844069057617`*^9, 3.829384407617469*^9}, { 3.829384490603231*^9, 3.8293844949630737`*^9}, {3.829384774360268*^9, 3.829384778992144*^9}, {3.829384939363501*^9, 3.829384940539279*^9}, { 3.829385057917753*^9, 3.8293850885740633`*^9}, {3.8293851940558357`*^9, 3.82938520864007*^9}, {3.829385243712878*^9, 3.829385265113099*^9}, { 3.829385359435005*^9, 3.82938536205903*^9}, {3.8293854930775623`*^9, 3.829385516669804*^9}, {3.829385592767355*^9, 3.829385603743544*^9}, { 3.829385805283429*^9, 3.8293858066272917`*^9}, {3.8296441789890337`*^9, 3.829644182788821*^9}, {3.8296443535841208`*^9, 3.8296443554960938`*^9}, { 3.829644473714408*^9, 3.8296444761702623`*^9}, {3.829644990507839*^9, 3.829644992283627*^9}, {3.8296450810455513`*^9, 3.829645083133322*^9}, { 3.829645633663727*^9, 3.829645635447423*^9}, {3.829646390405294*^9, 3.829646395957156*^9}, {3.8296466570661983`*^9, 3.8296466584660683`*^9}, { 3.829647489657442*^9, 3.8296474909771557`*^9}, {3.829648049259359*^9, 3.829648052195036*^9}, {3.829648124252544*^9, 3.829648126212494*^9}, { 3.829648545868373*^9, 3.829648547468088*^9}, {3.829815925549561*^9, 3.829815927157423*^9}, {3.831199182529437*^9, 3.831199184025214*^9}, { 3.831199555872078*^9, 3.8311995571520443`*^9}, {3.831200372511159*^9, 3.831200375510755*^9}, {3.831200883112361*^9, 3.831200884648239*^9}, { 3.831202244984953*^9, 3.8312022472967157`*^9}, {3.831202303490005*^9, 3.8312023084899607`*^9}, {3.8312025111574802`*^9, 3.831202512989365*^9}, { 3.831202842403379*^9, 3.831202846339692*^9}, {3.8321389414364977`*^9, 3.8321389438202143`*^9}, {3.832139044022344*^9, 3.8321390459501247`*^9}, { 3.832139331571517*^9, 3.832139334051388*^9}, {3.832139429389288*^9, 3.832139429661056*^9}, {3.832139540919005*^9, 3.83213954419108*^9}, { 3.832139593440238*^9, 3.8321395952640944`*^9}, {3.832139841260713*^9, 3.832139861220974*^9}, {3.832140024431809*^9, 3.8321400256558027`*^9}, { 3.8321402850208273`*^9, 3.832140296084632*^9}, {3.8321406237947397`*^9, 3.832140627690679*^9}, {3.832140880727601*^9, 3.832140885559256*^9}, { 3.832145324960071*^9, 3.832145325215494*^9}}, CellLabel->"In[2]:=",ExpressionUUID->"872503c3-0779-4b87-805f-13a088f459e3"], Cell[BoxData[{ RowBox[{ RowBox[{"n1", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"F1", "=", RowBox[{"RF", "[", "n1", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"h1", "=", RowBox[{"h", "[", "0", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sol1", "=", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]c", "\[Rule]", "1.1942649631944824`"}], ",", RowBox[{"\[Theta]0", "\[Rule]", "0.1980115286480415`"}], ",", RowBox[{"B", "\[Rule]", "8.55266640049003`"}], ",", RowBox[{ RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.1942649631944824`"}], ",", RowBox[{"AL", "\[Rule]", RowBox[{"-", "0.09823515561347546`"}]}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.3836528485084885`"}]}], ",", RowBox[{ RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.0766637996073516`"}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.0038100879767504`"}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.22823495175053052`"}]}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.832146779562958*^9, 3.8321467886772203`*^9}}, CellLabel->"In[5]:=",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[{ RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.2182536477764787`"}], ",", RowBox[{"AL", "\[Rule]", RowBox[{"-", "0.03284985793618467`"}]}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.4769028477250044`"}]}], ",", RowBox[{ RowBox[{"A", "[", "0", "]"}], "\[Rule]", "1.3332747716030007`"}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "2.509056520191775`"}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.23349249124973034`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.057959196915142584`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.009724404572707592`"}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.002793025431454722`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0009257841210436311`"}], ",", RowBox[{ RowBox[{"gC", "[", "5", "]"}], "\[Rule]", RowBox[{"-", "0.00034620961738400876`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.0001367074480628476`"}], ",", RowBox[{ RowBox[{"gC", "[", "7", "]"}], "\[Rule]", RowBox[{"-", "0.00005708841894586652`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "0.000024064384256136694`"}], ",", RowBox[{ RowBox[{"gC", "[", "9", "]"}], "\[Rule]", RowBox[{"-", "0.000010116684309320897`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "10", "]"}], "\[Rule]", "4.024896426121343`*^-6"}], ",", RowBox[{ RowBox[{"gC", "[", "11", "]"}], "\[Rule]", RowBox[{"-", "1.4759300964074873`*^-6"}]}], ",", RowBox[{ RowBox[{"gC", "[", "12", "]"}], "\[Rule]", "4.6869971019692115`*^-7"}], ",", RowBox[{ RowBox[{"gC", "[", "13", "]"}], "\[Rule]", RowBox[{"-", "1.2362969368030153`*^-7"}]}], ",", RowBox[{ RowBox[{"gC", "[", "14", "]"}], "\[Rule]", "2.3952772823198148`*^-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"], Cell[BoxData[{ RowBox[{ RowBox[{"\[Theta]0Cas", "=", SqrtBox["1.16951"]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hCas", "[", "\[Theta]_", "]"}], ":=", RowBox[{"h0", RowBox[{"(", RowBox[{"1", "-", FractionBox[ SuperscriptBox["\[Theta]", "2"], SuperscriptBox["\[Theta]0Cas", "2"]]}], ")"}], "\[Theta]", RowBox[{"(", RowBox[{"1", "-", RowBox[{"0.222389", " ", SuperscriptBox["\[Theta]", "2"]}], "-", RowBox[{"0.043547", " ", SuperscriptBox["\[Theta]", "4"]}], "-", RowBox[{"0.014809", " ", SuperscriptBox["\[Theta]", "6"]}], "-", RowBox[{"0.007168", " ", 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"], Cell[BoxData[ RowBox[{ RowBox[{"coeffCas", "[", "n_", "]"}], ":=", RowBox[{ RowBox[{"NestList", "[", RowBox[{ RowBox[{"dd\[Xi]", "[", "hCas", "]"}], ",", RowBox[{"m0", " ", FractionBox["\[Theta]", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["\[Theta]", "2"], "-", "1"}], ")"}], RowBox[{"1", "/", "8"}]]]}], ",", "n"}], "]"}], "/.", RowBox[{"\[Theta]", "->", "\[Theta]0Cas"}]}]}]], "Input", CellChangeTimes->{{3.8321456376315823`*^9, 3.83214564961337*^9}, { 3.8321456871660624`*^9, 3.832145718870708*^9}, {3.832145767359564*^9, 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"], Cell[BoxData[ RowBox[{ RowBox[{"coeffCasMid", "[", "n_", "]"}], ":=", RowBox[{ RowBox[{"NestList", "[", RowBox[{ RowBox[{"dd\[Eta]", "[", "hCas", "]"}], ",", RowBox[{"m0", " ", FractionBox["\[Theta]", SuperscriptBox[ RowBox[{"hCas", "[", "\[Theta]", "]"}], RowBox[{"1", "/", RowBox[{"\[Delta]", "[", "2", "]"}]}]]]}], ",", "n"}], "]"}], "/.", RowBox[{"\[Theta]", "->", "1"}]}]}]], "Input", 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"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"datNum", "[", RowBox[{"[", "2", "]"}], "]"}]], "Input", CellChangeTimes->{{3.83214601815701*^9, 3.832146022692172*^9}}, CellLabel->"In[45]:=",ExpressionUUID->"50295a31-c985-47a1-ab52-8a5871504ed9"], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", InterpretationBox[ TemplateBox[{"1.3578383417065", "95", "10"}, "AroundSeq"], Around[1.357838341706595496`18.132848067820845, 1.*^-14]]}], "}"}]], "Output", CellChangeTimes->{{3.832146019765203*^9, 3.832146023509615*^9}, 3.832146068422765*^9, 3.832146460247183*^9}, CellLabel->"Out[45]=",ExpressionUUID->"bc09ed81-20b7-4e22-a63a-1d663336b1b5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m0rule", "=", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"coeffCas", "[", "1", "]"}], "==", RowBox[{"datNum", "[", RowBox[{"[", RowBox[{ RowBox[{"2", ";;", "3"}], ",", "2"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m0", ",", "h0"}], "}"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.8321459908444443`*^9, 3.8321460752131433`*^9}, { 3.8321464716527967`*^9, 3.8321464718044024`*^9}, {3.8321466387696667`*^9, 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"], 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"}, "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}}, CellLabel-> "During evaluation of \ In[78]:=",ExpressionUUID->"75f15d00-cd9d-4490-bad8-9aa7435b52e6"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"m0", "\[Rule]", InterpretationBox[ TemplateBox[{"1.00576267284062", "0", "7"}, "AroundSeq"], Around[1.0057626728406195`, 7.407086999594733*^-15]]}], ",", RowBox[{"h0", "\[Rule]", InterpretationBox[ TemplateBox[{"0.2591817983", "42", "11"}, "AroundSeq"], Around[0.2591817983420855, 1.0588943216503216`*^-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"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"m0", "/", SuperscriptBox[ RowBox[{"hCas", "[", "1", "]"}], "15"]}], "/.", "m0rule"}]], "Input", CellChangeTimes->{{3.832239524531241*^9, 3.8322395731787653`*^9}}, CellLabel->"In[88]:=",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"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"coeffCasMid", "[", "5", "]"}], "/", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "5"}], "]"}], "!"}]}], "/.", "m0rule"}]], "Input", CellChangeTimes->{{3.832239286022997*^9, 3.83223928776565*^9}, { 3.832239333006241*^9, 3.83223933347838*^9}, {3.832239464537035*^9, 3.832239465688715*^9}, {3.832239596747369*^9, 3.832239610347269*^9}, { 3.832239661037331*^9, 3.83223966189207*^9}}, CellLabel->"In[93]:=",ExpressionUUID->"f42f7737-f59e-4289-8153-b78626e30f0e"], Cell[BoxData[ RowBox[{"{", RowBox[{ InterpretationBox[ TemplateBox[{"1.28038403638", "02", "35"}, "AroundSeq"], Around[1.280384036380197, 3.4873754010149197`*^-12]], ",", InterpretationBox[ TemplateBox[{"0.16625752423", "7", "4"}, "AroundSeq"], Around[0.16625752423710902`, 3.65085742707853*^-12]], ",", InterpretationBox[ TemplateBox[{"-0.03998986398", "4", "4"}, "AroundSeq"], Around[-0.03998986398383036, 4.214923021493555*^-12]], ",", InterpretationBox[ TemplateBox[{"0.00793393859", "4", "6"}, "AroundSeq"], Around[0.0079339385941567, 5.5085778849645144`*^-12]], ",", InterpretationBox[ TemplateBox[{"-0.00027904634", "6", "9"}, "AroundSeq"], Around[-0.0002790463457692103, 8.678222971301997*^-12]], ",", InterpretationBox[ TemplateBox[{"-0.0006680802", "61", "14"}, "AroundSeq"], Around[-0.0006680802614227734, 1.449046104189115*^-11]]}], "}"}]], "Output", CellChangeTimes->{ 3.832239333786672*^9, {3.8322394618672743`*^9, 3.832239465919291*^9}, { 3.83223957814188*^9, 3.832239613896473*^9}, 3.83223966232157*^9}, CellLabel->"Out[93]=",ExpressionUUID->"554f67c9-f7db-464a-bb28-41d81dcbec1c"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"datNum", "=", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "11"}], "]"}], ",", RowBox[{ RowBox[{"Abs", "[", "Gls", "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Range", "[", RowBox[{"Length", "[", "Gls", "]"}], "]"}], "-", "1"}], ")"}], "!"}], ")"}]}]}], "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.832146079469277*^9, 3.832146080085175*^9}, { 3.832146220615906*^9, 3.832146230663995*^9}}, CellLabel->"In[72]:=",ExpressionUUID->"ec8b9383-61d6-44c2-b776-3d651fc19660"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"datCas", "=", RowBox[{ RowBox[{ RowBox[{"NestList", "[", RowBox[{ RowBox[{"dd\[Xi]", "[", "hCas", "]"}], ",", RowBox[{"m0", " ", FractionBox["\[Theta]", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["\[Theta]", "2"], "-", "1"}], ")"}], RowBox[{"1", "/", "8"}]]]}], ",", "10"}], "]"}], "/.", RowBox[{"\[Theta]", "->", "\[Theta]0Cas"}]}], "/.", "m0rule"}]}]], "Input",\ CellChangeTimes->{{3.832146080982091*^9, 3.832146136030287*^9}, { 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"], Cell[BoxData[ RowBox[{"{", RowBox[{ InterpretationBox[ TemplateBox[{"1.3578383417065", "96", "10"}, "AroundSeq"], Around[1.3578383417065958`, 1.0000000000000002`*^-14]], ",", InterpretationBox[ TemplateBox[{"0.09790657944", "0", "4"}, "AroundSeq"], Around[0.09790657944000002, 4.0000001299773315`*^-12]], ",", InterpretationBox[ TemplateBox[{"-0.2150219943", "3", "5"}, "AroundSeq"], Around[-0.21502199433323033`, 4.8460698478892806`*^-11]], ",", InterpretationBox[ TemplateBox[{"1.275438112", "0", "9"}, "AroundSeq"], Around[1.275438111980478, 8.99846810474221*^-10]], ",", InterpretationBox[ TemplateBox[{"-13.1943759", "67", "24"}, "AroundSeq"], Around[-13.194375967404621`, 2.4265468926938108`*^-8]], ",", InterpretationBox[ TemplateBox[{"199.409126", "0", "9"}, "AroundSeq"], Around[199.40912595141498`, 8.737534828617298*^-7]], ",", InterpretationBox[ TemplateBox[{"-4004.42550", "0.00004"}, "Around"], Around[-4004.4254982941143`, 0.000039083263678372897`]], ",", InterpretationBox[ TemplateBox[{"100787.9920", "0.0021"}, "Around"], Around[100787.99199788233`, 0.0020814305200299167`]], ",", InterpretationBox[ TemplateBox[{"-3.057071", "42", "13", SuperscriptBox["10", "6"]}, "AroundSeqExp"], Around[-3.0570714230898526`*^6, 0.1286182540195812]], ",", InterpretationBox[ TemplateBox[{"1.0865807", "0", "9", SuperscriptBox["10", "8"]}, "AroundSeqExp"], Around[1.0865806967349882`*^8, 9.049523786749958]], ",", InterpretationBox[ TemplateBox[{"-4.431930", "7", "7", SuperscriptBox["10", "9"]}, "AroundSeqExp"], Around[-4.431930709816816*^9, 714.318351497395]]}], "}"}]], "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"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"datOurs", "=", RowBox[{"Chop", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{ 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"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLogPlot", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"datNum", ",", RowBox[{"Abs", "@", "datCas"}], ",", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", RowBox[{ RowBox[{"Length", "[", "datOurs", "]"}], "-", "1"}]}], "]"}], ",", "datOurs"}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input", CellChangeTimes->{{3.8291280118781147`*^9, 3.829128118103051*^9}, { 3.829128192513464*^9, 3.82912819312051*^9}, {3.829128371940607*^9, 3.829128493270048*^9}, {3.8291285364471493`*^9, 3.8291285366627502`*^9}, { 3.829128816403723*^9, 3.829128817219697*^9}, {3.829212218892186*^9, 3.829212225564254*^9}, {3.8292122694048777`*^9, 3.829212364606584*^9}, { 3.829212422415756*^9, 3.8292124291194887`*^9}, {3.8292138886103983`*^9, 3.829213892914075*^9}, {3.829214258440802*^9, 3.829214267624782*^9}, { 3.829218996805491*^9, 3.829219001117147*^9}, 3.832145386241276*^9, 3.832145427201569*^9, {3.8321459818994417`*^9, 3.832145984739521*^9}, { 3.8321461019658613`*^9, 3.832146103005608*^9}, {3.83214636465071*^9, 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"], Cell[BoxData[ GraphicsBox[{{{{ {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{1., 0.3058939805973312}, {1., 0.3058939805973386}}], LineBox[{{1., 0.3058939805973386}, {1., 0.3058939805973459}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{2., -2.3237415260246084`}, {2., -2.323741525983753}}], LineBox[{{2., -2.323741525983753}, {2., -2.3237415259428977`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{3., -1.4559292669525052`}, {3., -1.4559292643794253`}}], LineBox[{{3., -1.4559292643794253`}, {3., -1.4559292618063453`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{4., 0.49511742142021525`}, {4., 0.4951174360481992}}], LineBox[{{4., 0.4951174360481992}, {4., 0.4951174506761829}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{5., 3.0940399563540724`}, {5., 3.09404001073627}}], LineBox[{{5., 3.09404001073627}, {5., 3.094040065118465}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{6., 6.1624758838184075`}, {6., 6.16247740087889}}], LineBox[{{6., 6.16247740087889}, {6., 6.162478917937071}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{7., 9.602775387951214}, {7., 9.60277640917097}}], LineBox[{{7., 9.60277640917097}, {7., 9.602777430389681}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{8., 13.351873817000742`}, {8., 13.352514637272591`}}], LineBox[{{8., 13.352514637272591`}, {8., 13.35315504715679}}]}}, Antialiasing->False]}}, { {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{1., 0.30589398059733136`}, {1., 0.30589398059733874`}}], LineBox[{{1., 0.30589398059733874`}, {1., 0.30589398059734607`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{2., -2.3237415260246084`}, {2., -2.323741525983753}}], LineBox[{{2., -2.323741525983753}, {2., -2.3237415259428977`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{3., -1.5370149570877314`}, {3., -1.537014956862356}}], LineBox[{{3., -1.537014956862356}, {3., -1.5370149566369802`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{4., 0.2432897361215771}, {4., 0.2432897368270969}}], LineBox[{{4., 0.2432897368270969}, {4., 0.24328973753261673`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{5., 2.5797906738871794`}, {5., 2.5797906757262563`}}], LineBox[{{5., 2.5797906757262563`}, {5., 2.579790677565333}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{6., 5.295358619156995}, {6., 5.295358623538708}}], LineBox[{{6., 5.295358623538708}, {6., 5.295358627920421}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{7., 8.29515539333424}, {7., 8.295155403094258}}], LineBox[{{7., 8.295155403094258}, {7., 8.295155412854276}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{8., 11.520774479866512`}, {8., 11.520774500518085`}}], LineBox[{{8., 11.520774500518085`}, {8., 11.520774521169658`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], 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.}}]}, 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]}}}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., 0.3058939805973386}, {2., -2.323741525983753}, { 3., -1.4559292643794253`}, {4., 0.4951174360481992}, {5., 3.09404001073627}, {6., 6.16247740087889}, {7., 9.60277640917097}, {8., 13.352514637272591`}, {9., 17.374061165823296`}, {10., 21.625033700634212`}, {11., 26.085288777828126`}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., 0.30589398059733874`}, {2., -2.323741525983753}, { 3., -1.537014956862356}, {4., 0.2432897368270969}, {5., 2.5797906757262563`}, {6., 5.295358623538708}, {7., 8.295155403094258}, {8., 11.520774500518085`}, {9., 14.932967964384751`}}]}, {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`}}]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., -4.546909369396598}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{ Charting`ScaledTicks[{Log, Exp}], Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->{414.0000000000002, Automatic}, Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, PlotRange->{{0., 11.}, {-4.546909369396598, 26.085288777828126`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->FrontEndValueCache[{Automatic, Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{2.302585092994046, FormBox["10", TraditionalForm], {0.01, 0.}}, {11.512925464970229`, FormBox[ TemplateBox[{"10", "5"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {20.72326583694641, FormBox[ TemplateBox[{"10", "9"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {-6.907755278982137, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-4.605170185988091, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-2.3025850929940455`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 4.605170185988092, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 6.907755278982137, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 9.210340371976184, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 13.815510557964274`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 16.11809565095832, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 18.420680743952367`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 23.025850929940457`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 25.328436022934504`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 27.631021115928547`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 29.933606208922594`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}]]], "Output", CellChangeTimes->{ 3.8292190385400677`*^9, 3.829219088509445*^9, 3.8292203752304993`*^9, 3.829362528741741*^9, 3.832145985334715*^9, {3.83214610321945*^9, 3.832146139205316*^9}, 3.832146173390081*^9, 3.832146239819025*^9, { 3.832146343090296*^9, 3.832146365218691*^9}, 3.832146512787468*^9, 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"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "i"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "i", "]"}], "]"}], "/", RowBox[{"#", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}]}], "/", "i"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", RowBox[{"Length", "[", "#", "]"}]}], "}"}]}], "]"}], "&"}], "@", RowBox[{"Abs", "[", RowBox[{"Rest", "@", RowBox[{"datNum", "[", RowBox[{"[", RowBox[{"All", ",", "2"}], "]"}], "]"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "i"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "i", "]"}], "]"}], "/", RowBox[{"#", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}]}], "/", "i"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", RowBox[{"Length", "[", "#", "]"}]}], "}"}]}], "]"}], "&"}], "@", RowBox[{"Abs", "[", "datCas", "]"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"1", "/", "i"}], ",", RowBox[{ RowBox[{ RowBox[{"#", "[", RowBox[{"[", "i", "]"}], "]"}], "/", RowBox[{"#", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}]}], "/", "i"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "2", ",", RowBox[{"Length", "[", "#", "]"}]}], "}"}]}], "]"}], "&"}], "@", RowBox[{"Rest", "[", "datOurs", "]"}]}]}], "\[IndentingNewLine]", "}"}], ",", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.5"}], "}"}], ",", "All"}], "}"}]}]}], "]"}]], "Input", 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"], Cell[BoxData[ GraphicsBox[{{{{ {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{0.5, 0.036052369574770725`}, {0.5, 0.03605236957624365}}], LineBox[{{0.5, 0.03605236957624365}, {0.5, 0.03605236957771658}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{0.3333333333333333, 0.7938982062753881}, { 0.3333333333333333, 0.7938982083184092}}], LineBox[{{0.3333333333333333, 0.7938982083184092}, { 0.3333333333333333, 0.7938982103614303}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{0.25, 1.7590120644942315`}, {0.25, 1.7590120906200708`}}], LineBox[{{0.25, 1.7590120906200708`}, {0.25, 1.75901211674591}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{0.2, 2.689847783461152}, {0.2, 2.6898479349404627`}}], LineBox[{{0.2, 2.6898479349404627`}, {0.2, 2.6898480864197736`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{0.16666666666666666`, 3.584705786922063}, { 0.16666666666666666`, 3.5847112286346623`}}], LineBox[{{0.16666666666666666`, 3.5847112286346623`}, { 0.16666666666666666`, 3.5847166703472615`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{0.14285714285714285`, 4.456603953031978}, { 0.14285714285714285`, 4.456612103099352}}], LineBox[{{0.14285714285714285`, 4.456612103099352}, { 0.14285714285714285`, 4.456620253166726}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{0.125, 5.310340010618592}, {0.125, 5.313744079055986}}], LineBox[{{0.125, 5.313744079055986}, {0.125, 5.317148147493379}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{0.1111111111111111, 6.194619736933364}, { 0.1111111111111111, 6.198590647021142}}], LineBox[{{0.1111111111111111, 6.198590647021142}, { 0.1111111111111111, 6.202561557108919}}]}}, Antialiasing->False]}}, { {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{0.5, 0.03605236957477072}, {0.5, 0.03605236957624365}}], LineBox[{{0.5, 0.03605236957624365}, {0.5, 0.036052369577716584`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{0.3333333333333333, 0.7320651840215073}, { 0.3333333333333333, 0.7320651841891859}}], LineBox[{{0.3333333333333333, 0.7320651841891859}, { 0.3333333333333333, 0.7320651843568644}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{0.25, 1.4829158698286737`}, {0.25, 1.4829158709269852`}}], LineBox[{{0.25, 1.4829158709269852`}, {0.25, 1.4829158720252966`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{0.2, 2.0689950876451153`}, {0.2, 2.0689950917205424`}}], LineBox[{{0.2, 2.0689950917205424`}, {0.2, 2.0689950957959695`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{0.16666666666666666`, 2.5188651778156697`}, { 0.16666666666666666`, 2.5188651897853447`}}], LineBox[{{0.16666666666666666`, 2.5188651897853447`}, { 0.16666666666666666`, 2.5188652017550197`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{0.14285714285714285`, 2.8687793330471236`}, { 0.14285714285714285`, 2.868779363738686}}], LineBox[{{0.14285714285714285`, 2.868779363738686}, { 0.14285714285714285`, 2.868779394430248}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{0.125, 3.146143864414641}, {0.125, 3.146143936278064}}], LineBox[{{0.125, 3.146143936278064}, {0.125, 3.1461440081414866`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{0.1111111111111111, 3.37018904645845}, { 0.1111111111111111, 3.3701892044111372`}}], LineBox[{{0.1111111111111111, 3.3701892044111372`}, { 0.1111111111111111, 3.3701893623638246`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{0.1, 3.5543186434620817`}, {0.1, 3.554318975108394}}], LineBox[{{0.1, 3.554318975108394}, {0.1, 3.554319306754706}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{0.09090909090909091, 3.707987082017035}, { 0.09090909090909091, 3.707987754726281}}], LineBox[{{0.09090909090909091, 3.707987754726281}, { 0.09090909090909091, 3.7079884274355273`}}]}}, Antialiasing->False]}}}, {{ {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{0.5, 0.03605236957771658}, Offset[{3, 0}, {0.5, 0.03605236957771658}]}, {{0.5, 0.03605236957771658}, Offset[{-3, 0}, {0.5, 0.03605236957771658}]}, {{0.5, 0.036052369574770725`}, Offset[{3, 0}, {0.5, 0.036052369574770725`}]}, {{0.5, 0.036052369574770725`}, Offset[{-3, 0}, {0.5, 0.036052369574770725`}]}}], {{{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[{{{0.3333333333333333, 0.7938982103614303}, Offset[{3, 0}, {0.3333333333333333, 0.7938982103614303}]}, {{ 0.3333333333333333, 0.7938982103614303}, Offset[{-3, 0}, {0.3333333333333333, 0.7938982103614303}]}, {{ 0.3333333333333333, 0.7938982062753881}, Offset[{3, 0}, {0.3333333333333333, 0.7938982062753881}]}, {{ 0.3333333333333333, 0.7938982062753881}, Offset[{-3, 0}, {0.3333333333333333, 0.7938982062753881}]}}], {{{ 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[{{{0.25, 1.75901211674591}, Offset[{3, 0}, {0.25, 1.75901211674591}]}, {{0.25, 1.75901211674591}, Offset[{-3, 0}, {0.25, 1.75901211674591}]}, {{ 0.25, 1.7590120644942315`}, Offset[{3, 0}, {0.25, 1.7590120644942315`}]}, {{0.25, 1.7590120644942315`}, Offset[{-3, 0}, {0.25, 1.7590120644942315`}]}}], {{{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[{{{0.2, 2.6898480864197736`}, Offset[{3, 0}, {0.2, 2.6898480864197736`}]}, {{0.2, 2.6898480864197736`}, Offset[{-3, 0}, {0.2, 2.6898480864197736`}]}, {{0.2, 2.689847783461152}, Offset[{3, 0}, {0.2, 2.689847783461152}]}, {{ 0.2, 2.689847783461152}, Offset[{-3, 0}, {0.2, 2.689847783461152}]}}], {{{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[{{{0.16666666666666666`, 3.5847166703472615`}, Offset[{3, 0}, {0.16666666666666666`, 3.5847166703472615`}]}, {{ 0.16666666666666666`, 3.5847166703472615`}, Offset[{-3, 0}, {0.16666666666666666`, 3.5847166703472615`}]}, {{ 0.16666666666666666`, 3.584705786922063}, Offset[{3, 0}, {0.16666666666666666`, 3.584705786922063}]}, {{ 0.16666666666666666`, 3.584705786922063}, Offset[{-3, 0}, {0.16666666666666666`, 3.584705786922063}]}}], {{{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[{{{0.14285714285714285`, 4.456620253166726}, Offset[{3, 0}, {0.14285714285714285`, 4.456620253166726}]}, {{ 0.14285714285714285`, 4.456620253166726}, Offset[{-3, 0}, {0.14285714285714285`, 4.456620253166726}]}, {{ 0.14285714285714285`, 4.456603953031978}, Offset[{3, 0}, {0.14285714285714285`, 4.456603953031978}]}, {{ 0.14285714285714285`, 4.456603953031978}, Offset[{-3, 0}, {0.14285714285714285`, 4.456603953031978}]}}], {{{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[{{{0.125, 5.317148147493379}, Offset[{3, 0}, {0.125, 5.317148147493379}]}, {{0.125, 5.317148147493379}, Offset[{-3, 0}, {0.125, 5.317148147493379}]}, {{0.125, 5.310340010618592}, Offset[{3, 0}, {0.125, 5.310340010618592}]}, {{0.125, 5.310340010618592}, Offset[{-3, 0}, {0.125, 5.310340010618592}]}}], {{{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[{{{0.1111111111111111, 6.202561557108919}, Offset[{3, 0}, {0.1111111111111111, 6.202561557108919}]}, {{ 0.1111111111111111, 6.202561557108919}, Offset[{-3, 0}, {0.1111111111111111, 6.202561557108919}]}, {{ 0.1111111111111111, 6.194619736933364}, Offset[{3, 0}, {0.1111111111111111, 6.194619736933364}]}, {{ 0.1111111111111111, 6.194619736933364}, Offset[{-3, 0}, {0.1111111111111111, 6.194619736933364}]}}], {{{ 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[{{{0.5, 0.036052369577716584`}, Offset[{3, 0}, {0.5, 0.036052369577716584`}]}, {{0.5, 0.036052369577716584`}, Offset[{-3, 0}, {0.5, 0.036052369577716584`}]}, {{0.5, 0.03605236957477072}, Offset[{3, 0}, {0.5, 0.03605236957477072}]}, {{0.5, 0.03605236957477072}, Offset[{-3, 0}, {0.5, 0.03605236957477072}]}}], {{{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[{{{0.3333333333333333, 0.7320651843568644}, Offset[{3, 0}, {0.3333333333333333, 0.7320651843568644}]}, {{ 0.3333333333333333, 0.7320651843568644}, Offset[{-3, 0}, {0.3333333333333333, 0.7320651843568644}]}, {{ 0.3333333333333333, 0.7320651840215073}, Offset[{3, 0}, {0.3333333333333333, 0.7320651840215073}]}, {{ 0.3333333333333333, 0.7320651840215073}, Offset[{-3, 0}, {0.3333333333333333, 0.7320651840215073}]}}], {{{ 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[{{{0.25, 1.4829158720252966`}, Offset[{3, 0}, {0.25, 1.4829158720252966`}]}, {{0.25, 1.4829158720252966`}, Offset[{-3, 0}, {0.25, 1.4829158720252966`}]}, {{0.25, 1.4829158698286737`}, Offset[{3, 0}, {0.25, 1.4829158698286737`}]}, {{0.25, 1.4829158698286737`}, Offset[{-3, 0}, {0.25, 1.4829158698286737`}]}}], {{{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[{{{0.2, 2.0689950957959695`}, Offset[{3, 0}, {0.2, 2.0689950957959695`}]}, {{0.2, 2.0689950957959695`}, Offset[{-3, 0}, {0.2, 2.0689950957959695`}]}, {{0.2, 2.0689950876451153`}, Offset[{3, 0}, {0.2, 2.0689950876451153`}]}, {{0.2, 2.0689950876451153`}, Offset[{-3, 0}, {0.2, 2.0689950876451153`}]}}], {{{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[{{{0.16666666666666666`, 2.5188652017550197`}, Offset[{3, 0}, {0.16666666666666666`, 2.5188652017550197`}]}, {{ 0.16666666666666666`, 2.5188652017550197`}, Offset[{-3, 0}, {0.16666666666666666`, 2.5188652017550197`}]}, {{ 0.16666666666666666`, 2.5188651778156697`}, Offset[{3, 0}, {0.16666666666666666`, 2.5188651778156697`}]}, {{ 0.16666666666666666`, 2.5188651778156697`}, Offset[{-3, 0}, {0.16666666666666666`, 2.5188651778156697`}]}}], {{{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[{{{0.14285714285714285`, 2.868779394430248}, Offset[{3, 0}, {0.14285714285714285`, 2.868779394430248}]}, {{ 0.14285714285714285`, 2.868779394430248}, Offset[{-3, 0}, {0.14285714285714285`, 2.868779394430248}]}, {{ 0.14285714285714285`, 2.8687793330471236`}, Offset[{3, 0}, {0.14285714285714285`, 2.8687793330471236`}]}, {{ 0.14285714285714285`, 2.8687793330471236`}, Offset[{-3, 0}, {0.14285714285714285`, 2.8687793330471236`}]}}], {{{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[{{{0.125, 3.1461440081414866`}, Offset[{3, 0}, {0.125, 3.1461440081414866`}]}, {{0.125, 3.1461440081414866`}, Offset[{-3, 0}, {0.125, 3.1461440081414866`}]}, {{0.125, 3.146143864414641}, Offset[{3, 0}, {0.125, 3.146143864414641}]}, {{0.125, 3.146143864414641}, Offset[{-3, 0}, {0.125, 3.146143864414641}]}}], {{{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[{{{0.1111111111111111, 3.3701893623638246`}, Offset[{3, 0}, {0.1111111111111111, 3.3701893623638246`}]}, {{ 0.1111111111111111, 3.3701893623638246`}, Offset[{-3, 0}, {0.1111111111111111, 3.3701893623638246`}]}, {{ 0.1111111111111111, 3.37018904645845}, Offset[{3, 0}, {0.1111111111111111, 3.37018904645845}]}, {{ 0.1111111111111111, 3.37018904645845}, Offset[{-3, 0}, {0.1111111111111111, 3.37018904645845}]}}], {{{ 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[{{{0.1, 3.554319306754706}, Offset[{3, 0}, {0.1, 3.554319306754706}]}, {{0.1, 3.554319306754706}, Offset[{-3, 0}, {0.1, 3.554319306754706}]}, {{0.1, 3.5543186434620817`}, Offset[{3, 0}, {0.1, 3.5543186434620817`}]}, {{0.1, 3.5543186434620817`}, Offset[{-3, 0}, {0.1, 3.5543186434620817`}]}}], {{{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[{{{0.09090909090909091, 3.7079884274355273`}, Offset[{3, 0}, {0.09090909090909091, 3.7079884274355273`}]}, {{ 0.09090909090909091, 3.7079884274355273`}, Offset[{-3, 0}, {0.09090909090909091, 3.7079884274355273`}]}, {{ 0.09090909090909091, 3.707987082017035}, Offset[{3, 0}, {0.09090909090909091, 3.707987082017035}]}, {{ 0.09090909090909091, 3.707987082017035}, Offset[{-3, 0}, {0.09090909090909091, 3.707987082017035}]}}], {{{ 1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}}}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{0.5, 0.03605236957624365}, {0.3333333333333333, 0.7938982083184092}, {0.25, 1.7590120906200708`}, {0.2, 2.6898479349404627`}, {0.16666666666666666`, 3.5847112286346623`}, { 0.14285714285714285`, 4.456612103099352}, {0.125, 5.313744079055986}, { 0.1111111111111111, 6.198590647021142}, {0.1, 7.017362546506821}, { 0.09090909090909091, 7.864506627393225}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{0.5, 0.03605236957624365}, {0.3333333333333333, 0.7320651841891859}, {0.25, 1.4829158709269852`}, {0.2, 2.0689950917205424`}, {0.16666666666666666`, 2.5188651897853447`}, { 0.14285714285714285`, 2.868779363738686}, {0.125, 3.146143936278064}, { 0.1111111111111111, 3.3701892044111372`}, {0.1, 3.554318975108394}, { 0.09090909090909091, 3.707987754726281}}]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{0.5, 0.03605236957624275}, {0.3333333333333333, 0.7882894953005081}, {0.25, 1.7205994529805817`}, {0.2, 2.602909307908811}, {0.16666666666666666`, 3.461385001061308}, { 0.14285714285714285`, 4.318948250741116}, {0.125, 5.180857308662023}, { 0.1111111111111111, 6.045444943508941}}]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0, 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0, 0.5}, {0, 7.864506627393225}}, PlotRangeClipping->True, PlotRangePadding->{{0, 0}, { Scaled[0.02], Scaled[0.05]}}, 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"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"datOurs", "=", RowBox[{"Chop", "[", RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"dFd\[Xi]HighList", "[", RowBox[{"n1", ",", "h1"}], "]"}], "[", "12", "]"}], "]"}], "/.", "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.832151549200243*^9, 3.8321515522247057`*^9}, {3.8321522853402777`*^9, 3.8321523108375397`*^9}}, CellLabel->"In[92]:=",ExpressionUUID->"80c6c675-eade-40e1-8d0f-13a6578b30ff"], Cell[BoxData[ RowBox[{ RowBox[{"datNumHigh", "=", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", RowBox[{ RowBox[{"Length", "[", "Ghs", "]"}], "-", "1"}]}], "]"}], ",", RowBox[{ RowBox[{"Abs", "[", "Ghs", "]"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Range", "[", RowBox[{"Length", "[", "Ghs", "]"}], "]"}], "-", "1"}], ")"}], "!"}], ")"}]}]}], "}"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.8321514933506927`*^9, 3.832151511975079*^9}, { 3.8321516136331882`*^9, 3.8321516208732758`*^9}}, CellLabel->"In[70]:=",ExpressionUUID->"d8847f2e-21fe-4fb7-84ae-676f83acdf5a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"datCasHigh", "=", RowBox[{ RowBox[{ RowBox[{"NestList", "[", RowBox[{ RowBox[{"dd\[Xi]", "[", "hCas", "]"}], ",", RowBox[{"m0", " ", FractionBox["\[Theta]", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[Theta]", "2"]}], ")"}], RowBox[{"1", "/", "8"}]]]}], ",", "11"}], "]"}], "/.", RowBox[{"\[Theta]", "->", "0"}]}], "/.", "m0rule"}]}]], "Input", CellChangeTimes->{{3.83215152426346*^9, 3.8321515377758512`*^9}, { 3.832152099866603*^9, 3.8321521038257008`*^9}}, CellLabel->"In[87]:=",ExpressionUUID->"15d60f60-2f87-40da-a2c6-66d640111d75"], Cell[BoxData[ RowBox[{"{", RowBox[{"0", ",", InterpretationBox[ TemplateBox[{"3.880529725", "75", "16"}, "AroundSeq"], Around[3.8805297257531435`, 1.5854010523272218`*^-10]], ",", "0.`", ",", InterpretationBox[ TemplateBox[{"-233.1090657", "77", "29"}, "AroundSeq"], Around[-233.10906577746226`, 2.867554290133348*^-8]], ",", "0.`", ",", InterpretationBox[ TemplateBox[{"88518.948785", "0.000021"}, "Around"], Around[88518.94878487791, 0.000021388770252100324`]], ",", "0.`", ",", InterpretationBox[ TemplateBox[{"-8.41494659", "4", "4", SuperscriptBox["10", "7"]}, "AroundSeqExp"], Around[-8.414946593571003*^7, 0.04123893899074724]], ",", "0.`", ",", InterpretationBox[ TemplateBox[{"1.49073647", "91", "15", SuperscriptBox["10", "11"]}, "AroundSeqExp"], Around[1.490736479125683*^11, 152.87259164270972`]], ",", "0.`", ",", InterpretationBox[ TemplateBox[{"-4.24347172", "8", "9", SuperscriptBox["10", "14"]}, "AroundSeqExp"], Around[-4.2434717282285725`*^14, 909981.6588191775]]}], "}"}]], "Output", CellChangeTimes->{3.832151572013042*^9, 3.832152114955359*^9, 3.832152262145925*^9}, CellLabel->"Out[87]=",ExpressionUUID->"6f1d902a-0431-4a99-adc2-97eb3c423317"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLogPlot", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Abs", "@", "datNumHigh"}], ",", RowBox[{"Abs", "@", "datCasHigh"}], ",", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", RowBox[{ RowBox[{"Length", "[", "datOurs", "]"}], "-", "1"}]}], "]"}], ",", "datOurs"}], "}"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input", CellChangeTimes->{{3.8321515752734756`*^9, 3.8321515972726097`*^9}, { 3.832151974881402*^9, 3.832152024153109*^9}, {3.8321522889336777`*^9, 3.832152299270874*^9}}, CellLabel->"In[91]:=",ExpressionUUID->"bec4c929-c1a6-4fd0-be18-caf3643ba3a4"], Cell[BoxData[ GraphicsBox[{{{{ {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{2., 1.3057500700435951`}, {2., 1.3057500700490146`}}], LineBox[{{2., 1.3057500700490146`}, {2., 1.305750070054434}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{4., 5.2983627756010305`}, {4., 5.29836277561303}}], LineBox[{{4., 5.29836277561303}, {4., 5.298362775625029}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{6., 11.134905050221258`}, {6., 11.13490515529753}}], LineBox[{{6., 11.13490515529753}, {6., 11.13490526037379}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{8., 17.889142568634654`}, {8., 17.88916315034232}}], LineBox[{{8., 17.88916315034232}, {8., 17.889183731626385`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{10., 25.265986020123417`}, {10., 25.266063270026894`}}], LineBox[{{10., 25.266063270026894`}, {10., 25.266140513963283`}}]}}, Antialiasing->False]}}, { {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{2., 1.355971671531294}, {2., 1.3559716715721493`}}], LineBox[{{2., 1.3559716715721493`}, {2., 1.3559716716130046`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{4., 5.45150643738662}, {4., 5.451506437509634}}], LineBox[{{4., 5.451506437509634}, {4., 5.451506437632648}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{6., 11.390971918399588`}, {6., 11.390971918641217`}}], LineBox[{{6., 11.390971918641217`}, {6., 11.390971918882846`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{8., 18.248105131515835`}, {8., 18.248105132005904`}}], LineBox[{{8., 18.248105132005904`}, {8., 18.248105132495972`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{10., 25.72770630104203}, {10., 25.727706302067514`}}], LineBox[{{10., 25.727706302067514`}, {10., 25.727706303092997`}}]}}, Antialiasing->False]}, {RGBColor[0.880722, 0.611041, 0.142051], StyleBox[{{}, { LineBox[{{12., 33.681573037806594`}, {12., 33.68157303995102}}], LineBox[{{12., 33.68157303995102}, {12., 33.681573042095444`}}]}}, Antialiasing->False]}}}, {{ {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{2., 1.305750070054434}, Offset[{3, 0}, {2., 1.305750070054434}]}, {{2., 1.305750070054434}, Offset[{-3, 0}, {2., 1.305750070054434}]}, {{ 2., 1.3057500700435951`}, Offset[{3, 0}, {2., 1.3057500700435951`}]}, {{2., 1.3057500700435951`}, Offset[{-3, 0}, {2., 1.3057500700435951`}]}}], {{{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., 5.298362775625029}, Offset[{3, 0}, {4., 5.298362775625029}]}, {{4., 5.298362775625029}, Offset[{-3, 0}, {4., 5.298362775625029}]}, {{ 4., 5.2983627756010305`}, Offset[{3, 0}, {4., 5.2983627756010305`}]}, {{4., 5.2983627756010305`}, Offset[{-3, 0}, {4., 5.2983627756010305`}]}}], {{{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., 11.13490526037379}, Offset[{3, 0}, {6., 11.13490526037379}]}, {{6., 11.13490526037379}, Offset[{-3, 0}, {6., 11.13490526037379}]}, {{ 6., 11.134905050221258`}, Offset[{3, 0}, {6., 11.134905050221258`}]}, {{6., 11.134905050221258`}, Offset[{-3, 0}, {6., 11.134905050221258`}]}}], {{{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., 17.889183731626385`}, Offset[{3, 0}, {8., 17.889183731626385`}]}, {{8., 17.889183731626385`}, Offset[{-3, 0}, {8., 17.889183731626385`}]}, {{8., 17.889142568634654`}, Offset[{3, 0}, {8., 17.889142568634654`}]}, {{8., 17.889142568634654`}, Offset[{-3, 0}, {8., 17.889142568634654`}]}}], {{{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[{{{10., 25.266140513963283`}, Offset[{3, 0}, {10., 25.266140513963283`}]}, {{10., 25.266140513963283`}, Offset[{-3, 0}, {10., 25.266140513963283`}]}, {{10., 25.265986020123417`}, Offset[{3, 0}, {10., 25.265986020123417`}]}, {{10., 25.265986020123417`}, Offset[{-3, 0}, {10., 25.265986020123417`}]}}], {{{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., 1.3559716716130046`}, Offset[{3, 0}, {2., 1.3559716716130046`}]}, {{2., 1.3559716716130046`}, Offset[{-3, 0}, {2., 1.3559716716130046`}]}, {{2., 1.355971671531294}, Offset[{3, 0}, {2., 1.355971671531294}]}, {{ 2., 1.355971671531294}, Offset[{-3, 0}, {2., 1.355971671531294}]}}], {{{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., 5.451506437632648}, Offset[{3, 0}, {4., 5.451506437632648}]}, {{4., 5.451506437632648}, Offset[{-3, 0}, {4., 5.451506437632648}]}, {{ 4., 5.45150643738662}, Offset[{3, 0}, {4., 5.45150643738662}]}, {{4., 5.45150643738662}, Offset[{-3, 0}, {4., 5.45150643738662}]}}], {{{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., 11.390971918882846`}, Offset[{3, 0}, {6., 11.390971918882846`}]}, {{6., 11.390971918882846`}, Offset[{-3, 0}, {6., 11.390971918882846`}]}, {{6., 11.390971918399588`}, Offset[{3, 0}, {6., 11.390971918399588`}]}, {{6., 11.390971918399588`}, Offset[{-3, 0}, {6., 11.390971918399588`}]}}], {{{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., 18.248105132495972`}, Offset[{3, 0}, {8., 18.248105132495972`}]}, {{8., 18.248105132495972`}, Offset[{-3, 0}, {8., 18.248105132495972`}]}, {{8., 18.248105131515835`}, Offset[{3, 0}, {8., 18.248105131515835`}]}, {{8., 18.248105131515835`}, Offset[{-3, 0}, {8., 18.248105131515835`}]}}], {{{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[{{{10., 25.727706303092997`}, Offset[{3, 0}, {10., 25.727706303092997`}]}, {{10., 25.727706303092997`}, Offset[{-3, 0}, {10., 25.727706303092997`}]}, {{10., 25.72770630104203}, Offset[{3, 0}, {10., 25.72770630104203}]}, {{ 10., 25.72770630104203}, Offset[{-3, 0}, {10., 25.72770630104203}]}}], {{{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[{{{12., 33.681573042095444`}, Offset[{3, 0}, {12., 33.681573042095444`}]}, {{12., 33.681573042095444`}, Offset[{-3, 0}, {12., 33.681573042095444`}]}, {{12., 33.681573037806594`}, Offset[{3, 0}, {12., 33.681573037806594`}]}, {{12., 33.681573037806594`}, Offset[{-3, 0}, {12., 33.681573037806594`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}}}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{2., 1.3057500700490146`}, {4., 5.29836277561303}, {6., 11.13490515529753}, {8., 17.88916315034232}, {10., 25.266063270026894`}, {12., 33.113569894335754`}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{2., 1.3559716715721493`}, {4., 5.451506437509634}, {6., 11.390971918641217`}, {8., 18.248105132005904`}, {10., 25.727706302067514`}, {12., 33.68157303995102}}]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{2., 1.3057500700490148`}, {4., 5.288752737747116}, {6., 11.11449127939783}, {8., 17.862389218907886`}}]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., -1.2278418112818485`}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{ Charting`ScaledTicks[{Log, Exp}], Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, PlotRange->{{0., 12.}, {-1.2278418112818485`, 33.681573042095444`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->FrontEndValueCache[{Automatic, Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{0., FormBox["1", TraditionalForm], {0.01, 0.}}, {6.907755278982137, FormBox["1000", TraditionalForm], {0.01, 0.}}, {13.815510557964274`, FormBox[ TemplateBox[{"10", "6"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {20.72326583694641, FormBox[ TemplateBox[{"10", "9"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {27.631021115928547`, FormBox[ TemplateBox[{"10", "12"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {34.538776394910684`, FormBox[ TemplateBox[{"10", "15"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {2.302585092994046, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 4.605170185988092, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 9.210340371976184, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 11.512925464970229`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 16.11809565095832, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 18.420680743952367`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 23.025850929940457`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 25.328436022934504`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 29.933606208922594`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 32.23619130191664, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 36.841361487904734`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}]]], "Output", CellChangeTimes->{{3.832151589069502*^9, 3.8321516241260233`*^9}, { 3.832151978424953*^9, 3.832152024537464*^9}, 3.8321521150139637`*^9, { 3.832152276526582*^9, 3.832152299585641*^9}}, 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)", StyleDefinitions->"Default.nb", ExpressionUUID->"d257fbda-2be1-4221-9ac8-5153716cfc00" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex 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[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"] }, Open ]], 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"] }, 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"] }, 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"] }, Open ]], Cell[20640, 461, 684, 19, 22, "Input",ExpressionUUID->"ec8b9383-61d6-44c2-b776-3d651fc19660"], 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"] }, 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"] }, 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"] }, 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[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"] }, 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"] }, Open ]] } ] *)