diff options
Diffstat (limited to 'caselle_compare.nb')
| -rw-r--r-- | caselle_compare.nb | 2089 |
1 files changed, 2089 insertions, 0 deletions
diff --git a/caselle_compare.nb b/caselle_compare.nb new file mode 100644 index 0000000..4b46c34 --- /dev/null +++ b/caselle_compare.nb @@ -0,0 +1,2089 @@ +(* 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 ]] +} +] +*) + |