From a0fb23f86c3db7eecd9ea34876f2ff800b3bd1ee Mon Sep 17 00:00:00 2001 From: Jaron Kent-Dobias Date: Mon, 27 Sep 2021 22:00:05 +0200 Subject: Work. --- new_schofield.nb | 12524 +++++++++++------------------------------------------ schofield.wl | 90 +- 2 files changed, 2481 insertions(+), 10133 deletions(-) diff --git a/new_schofield.nb b/new_schofield.nb index a5a5d1e..5ad1c12 100644 --- a/new_schofield.nb +++ b/new_schofield.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] -NotebookDataLength[ 653051, 14042] -NotebookOptionsPosition[ 515736, 11796] -NotebookOutlinePosition[ 516134, 11812] -CellTagsIndexPosition[ 516091, 11809] +NotebookDataLength[ 275314, 6362] +NotebookOptionsPosition[ 198348, 5099] +NotebookOutlinePosition[ 198747, 5115] +CellTagsIndexPosition[ 198704, 5112] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -32,7 +32,7 @@ Cell[BoxData[ 3.839479110850239*^9}, {3.839569665835891*^9, 3.839569666219857*^9}, { 3.83957102205329*^9, 3.8395710222207737`*^9}, {3.841389917784724*^9, 3.841389919112598*^9}}, - CellLabel->"In[1]:=",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"], + CellLabel->"In[97]:=",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"], Cell[BoxData[{ RowBox[{ @@ -2117,14 +2117,14 @@ Cell[BoxData[ Cell[BoxData[ RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.156987340333381`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19768210229031466`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.1120377373597354`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.1971549502375235`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.427824715603306`"}]}], ",", + RowBox[{"-", "2.4883291591781007`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.58917744416713`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.6912317371455714`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5252563218119131`"}]}], + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.5691325561076399`"}]}], "}"}]], "Output", CellChangeTimes->{{3.841213667298201*^9, 3.841213680834222*^9}, { 3.841225528753489*^9, 3.8412255307639217`*^9}, 3.841297785004229*^9, @@ -2135,8 +2135,9 @@ Cell[BoxData[ 3.841390187817034*^9, 3.8413902178695107`*^9, 3.841390251177702*^9, 3.841390293298427*^9, 3.8413904792944736`*^9, 3.8413905777348013`*^9, 3.841391289327278*^9, 3.841392157175344*^9, 3.841392285420888*^9, - 3.841392335464444*^9}, - CellLabel->"Out[6]=",ExpressionUUID->"70871aaf-527e-4770-b146-5c4981ef7aab"] + 3.841392335464444*^9, 3.8414635899813747`*^9, 3.841464592139812*^9, + 3.841727568283511*^9, 3.841733129163908*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"ffe70bdb-bdff-4796-aa96-f06cb79c73c4"] }, Open ]], Cell[CellGroupData[{ @@ -2162,21 +2163,24 @@ Cell[BoxData[ Cell[BoxData[ RowBox[{"{", - RowBox[{"0.182527`", ",", + RowBox[{"0.181767`", ",", RowBox[{"{", - RowBox[{"7.993605777301127`*^-15", ",", - RowBox[{"-", "1.357838341706589`"}], ",", - RowBox[{"-", "0.02643228601684977`"}], ",", "0.007711786544303341`", ",", - RowBox[{"-", "0.0035340884143536594`"}], ",", "0.001891740909746985`", + RowBox[{ + RowBox[{"-", "1.164346397075633`*^-14"}], ",", + RowBox[{"-", "1.3578383417066024`"}], ",", + RowBox[{"-", "0.027443643097221748`"}], ",", "0.008026420135759505`", + ",", + RowBox[{"-", "0.003607707953337816`"}], ",", "0.0019028472009814607`", ",", - RowBox[{"-", "0.001102929288396478`"}]}], "}"}]}], "}"}]], "Output", + RowBox[{"-", "0.0011023771191924913`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.841389868403063*^9, 3.8413899704214067`*^9, 3.841390191376688*^9, 3.841390222192317*^9, 3.8413902544921722`*^9, {3.841390296630432*^9, 3.841390322266429*^9}, 3.841390481156994*^9, 3.841390578185719*^9, 3.841391289835928*^9, 3.8413921581798*^9, 3.841392286032384*^9, - 3.84139233625907*^9}, - CellLabel->"Out[7]=",ExpressionUUID->"077ca1f3-c633-40f1-8e6b-c50988b37c5c"] + 3.84139233625907*^9, 3.841463590768024*^9, 3.8414645923911953`*^9, + 3.84172756896039*^9, 3.8417331294742737`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"101d44d7-b88e-4a66-9f25-d057b2d4f782"] }, Open ]], Cell[CellGroupData[{ @@ -2400,9 +2404,9 @@ Cell[BoxData[ 13.008074231002201`}, {15., 15.354526006101828`}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], - PointBox[{{2., 0.30589398059733364`}, {3., -2.9400218802867752`}, { - 4., -3.073245931212794}, {5., -2.467246056839773}, { - 6., -1.482766014827555}, {7., -0.23053443719044758`}}]}}, {{}, {}}}, + PointBox[{{2., 0.30589398059733547`}, {3., -2.939991449502729}, { + 4., -3.0732313079230256`}, {5., -2.4672415968455867`}, { + 6., -1.4827631892187632`}, {7., -0.2305312490425864}}]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, @@ -2569,8 +2573,9 @@ Cell[BoxData[ 3.841305194151207*^9}, 3.84130523777777*^9, 3.8413053474536552`*^9, 3.84131085931179*^9, 3.841316307349918*^9, {3.841390485438642*^9, 3.84139049061092*^9}, 3.841390578562212*^9, 3.841391291253233*^9, - 3.841392160241373*^9, 3.841392337222522*^9}, - CellLabel->"Out[8]=",ExpressionUUID->"95089226-2ba6-4f9c-98bc-1c7782d43a13"] + 3.841392160241373*^9, 3.841392337222522*^9, 3.841463592218527*^9, + 3.841464593325774*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"50732af7-406a-47af-b446-2d2e30f9e4ac"] }, Open ]], Cell[CellGroupData[{ @@ -2732,12 +2737,12 @@ Cell[BoxData[ 16.1573163641116}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], - PointBox[{{3., 0.6126028894906075}, {5., 2.1138156013097817`}, {7., - 4.5414907581231745`}}]}}, {{}, {}}}, + PointBox[{{3., 0.6126028894906071}, {5., 2.1136506467491194`}, {7., + 4.5410854526110125`}}]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0., -0.6038591566117526}, + AxesOrigin->{0., -0.6038591566117528}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -2759,7 +2764,7 @@ Cell[BoxData[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, - PlotRange->{{0., 15.}, {-0.6038591566117526, 16.1573163641116}}, + PlotRange->{{0., 15.}, {-0.6038591566117528, 16.1573163641116}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -2876,134 +2881,174 @@ Cell[BoxData[ 3.84139049061092*^9}, {3.841390578562212*^9, 3.841390608215399*^9}, 3.8413906429454*^9, 3.841390808978589*^9, {3.841390952687045*^9, 3.841390955726741*^9}, 3.841391292844046*^9, 3.841392160458399*^9, - 3.841392337553176*^9}, - CellLabel->"Out[9]=",ExpressionUUID->"14b3bd55-57d0-4a00-a631-f713a73d05bc"] + 3.841392337553176*^9, 3.841463592414769*^9, 3.8414645935303507`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"d5be2d93-8799-4554-97ed-a66db4df9e0a"] }, Open ]], +Cell[BoxData["42492.10772459181`"], "Input",ExpressionUUID->"d8f49b29-f847-451a-a460-2535964a9a0a"], + Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m0", "=", - RowBox[{"levenburgMarquardt", "[", + RowBox[{"annealFit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", - RowBox[{"h", "[", "0", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "6"}]]}], "]"}], "[", "2", "]"}], "//.", + RowBox[{"h", "[", "0", "]"}], ",", "d"}], "]"}], "[", "2", "]"}], "//.", RowBox[{"rules", "[", - RowBox[{"h", "[", "0", "]"}], "]"}]}], ",", "s0"}], "]"}]}]], "Input", - CellChangeTimes->{{3.8412250847237253`*^9, 3.841225118681777*^9}, { - 3.8412275970890017`*^9, 3.841227614991867*^9}, 3.841227675051137*^9, { - 3.8412277116986523`*^9, 3.841227726601953*^9}, 3.841227930681506*^9, { - 3.8412282161646967`*^9, 3.841228216994878*^9}, {3.841228335558779*^9, - 3.8412283371731586`*^9}, {3.8412977929735603`*^9, - 3.8412977971162252`*^9}, {3.8412983581454687`*^9, 3.841298373809663*^9}, { - 3.841298453898157*^9, 3.8412984609058332`*^9}, 3.841298533971696*^9, { - 3.841304447391898*^9, 3.841304450862473*^9}, {3.841304884831572*^9, - 3.841304884902335*^9}, {3.841304972457095*^9, 3.8413049798731422`*^9}, { - 3.8413051629234247`*^9, 3.84130516448349*^9}, {3.841305206276229*^9, - 3.8413052071483097`*^9}, {3.84130535628071*^9, 3.841305363727271*^9}, { - 3.841311292510655*^9, 3.8413112928044567`*^9}, {3.8413125568782463`*^9, - 3.841312584871149*^9}, {3.8413923432865343`*^9, 3.841392364373399*^9}}, - CellLabel->"In[38]:=",ExpressionUUID->"cc4ab2fd-0d89-42e1-b108-dc27a925ed22"], + RowBox[{"h", "[", "0", "]"}], "]"}]}], ",", "d", ",", "s0", ",", + SuperscriptBox["10", + RowBox[{"-", "5"}]], ",", + SuperscriptBox["10", + RowBox[{"-", "13"}]], ",", "100", ",", "1", ",", "2"}], "]"}]}]], "Input",\ + + CellChangeTimes->{{3.84146414095971*^9, 3.841464175798479*^9}, { + 3.841464380993734*^9, 3.841464386312539*^9}, {3.841464731456504*^9, + 3.8414647327580833`*^9}, {3.8414659180452547`*^9, 3.841465925914133*^9}, { + 3.8417325952371683`*^9, 3.841732596483498*^9}, {3.8417326274288807`*^9, + 3.841732641972403*^9}, 3.841732857201058*^9}, + CellLabel->"In[19]:=",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"], Cell[BoxData[ - RowBox[{"{", - RowBox[{"73592.14637736938`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.2461606537227092`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.18305367524890062`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.117412617482035`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2057028343481568`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.47373866865903014`"}]}], - "}"}]}], "}"}]], "Output", - CellChangeTimes->{{3.8413112902726507`*^9, 3.841311293275539*^9}, { - 3.841312557643627*^9, 3.8413125858529778`*^9}, 3.8413163193794537`*^9, - 3.841390503911847*^9, 3.8413907076690807`*^9, 3.841390776202223*^9, - 3.841390840301409*^9, 3.841390985502033*^9, 3.841391295827018*^9, - 3.841392114280148*^9, 3.841392162614223*^9, 3.841392289271028*^9, { - 3.841392338361618*^9, 3.841392364900275*^9}, 3.84139266914161*^9, { - 3.841392781371149*^9, 3.841392807161502*^9}, 3.8413928840798903`*^9}, - CellLabel->"Out[38]=",ExpressionUUID->"ebd89666-1836-4f79-87e7-a5c66b34a940"] -}, Open ]], + TemplateBox[{ + "CompiledFunction", "cfn", + "\"Numerical error encountered at instruction \ +\\!\\(\\*RowBox[{\\\"73\\\"}]\\); proceeding with uncompiled evaluation.\"", + 2, 19, 21, 31639540942853778054, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.8417334474339247`*^9, 3.8417335312336073`*^9}}, + CellLabel-> + "During evaluation of \ +In[19]:=",ExpressionUUID->"145a915d-c9de-419a-a397-38dc59eab2c7"], Cell[CellGroupData[{ +Cell[BoxData["42492.10772458571`"], "Print", + CellChangeTimes->{{3.8417334477070303`*^9, 3.8417335314689503`*^9}}, + CellLabel-> + "During evaluation of \ +In[19]:=",ExpressionUUID->"be68b0fa-b764-4a79-981c-0db832ce234e"], + +Cell[BoxData["74081.16445564825`"], "Print", + CellChangeTimes->{{3.8417334477070303`*^9, 3.8417335315542803`*^9}}, + CellLabel-> + "During evaluation of \ +In[19]:=",ExpressionUUID->"d73c9787-d9f9-4c27-a1a6-47c8d8b036e8"] +}, Open ]], + Cell[BoxData[ - RowBox[{"m01", "=", - RowBox[{"levenburgMarquardt", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"res", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "0", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], "]"}], "[", "2", "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "0", "]"}], "]"}]}], ",", - RowBox[{"m0", "[", - RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.8412250847237253`*^9, 3.841225118681777*^9}, { - 3.8412275970890017`*^9, 3.841227614991867*^9}, 3.841227675051137*^9, { - 3.8412277116986523`*^9, 3.841227726601953*^9}, 3.841227930681506*^9, { - 3.8412282161646967`*^9, 3.841228216994878*^9}, {3.841228335558779*^9, - 3.8412283371731586`*^9}, {3.8412977929735603`*^9, - 3.8412977971162252`*^9}, {3.8412983581454687`*^9, 3.841298373809663*^9}, { - 3.841298453898157*^9, 3.8412984609058332`*^9}, {3.841298533971696*^9, - 3.8412985793559513`*^9}, {3.8413014423771887`*^9, 3.841301442887185*^9}, { - 3.8413112998446283`*^9, 3.8413113001005087`*^9}}, - CellLabel->"In[39]:=",ExpressionUUID->"ba20cc11-1fde-437c-a25b-08dea90e9536"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ +\"-\\\", \\\"1.628011494235214`*^-307\\\"}], \\\")\\\"}]}]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 19, + 22, 31639540942853778054, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.8417334474339247`*^9, 3.8417335317966948`*^9}}, + CellLabel-> + "During evaluation of \ +In[19]:=",ExpressionUUID->"c085af60-db2d-486b-91d9-f33d8538b8d6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \ +\\\"1.229143099790264`*^-307\\\"}]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 19, 23, + 31639540942853778054, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.8417334474339247`*^9, 3.841733531825667*^9}}, + CellLabel-> + "During evaluation of \ +In[19]:=",ExpressionUUID->"810005ce-02df-4791-aa0a-3ff2f96d433b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ +\"-\\\", \\\"8.14005747117607`*^-308\\\"}], \\\")\\\"}]}]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 19, + 24, 31639540942853778054, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.8417334474339247`*^9, 3.8417335318534718`*^9}}, + CellLabel-> + "During evaluation of \ +In[19]:=",ExpressionUUID->"cfedbf8e-3bc5-43fc-96b4-afbcbadc9ae3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 19, 25, 31639540942853778054, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{{3.8417334474339247`*^9, 3.841733531881534*^9}}, + CellLabel-> + "During evaluation of \ +In[19]:=",ExpressionUUID->"6cff49d4-8a37-4eb1-b4dd-0f5f5c028b78"], + +Cell[CellGroupData[{ + +Cell[BoxData["74086.12879529072`"], "Print", + CellChangeTimes->{{3.8417334477070303`*^9, 3.841733531910404*^9}}, + CellLabel-> + "During evaluation of \ +In[19]:=",ExpressionUUID->"115e28bc-9283-43eb-9baa-35f0d69097d9"], + +Cell[BoxData["74086.12937881389`"], "Print", + CellChangeTimes->{{3.8417334477070303`*^9, 3.841733531970107*^9}}, + CellLabel-> + "During evaluation of \ +In[19]:=",ExpressionUUID->"ad2a1321-05cf-495e-89e5-7397abe25fdb"], + +Cell[BoxData["74086.99388272122`"], "Print", + CellChangeTimes->{{3.8417334477070303`*^9, 3.841733532123475*^9}}, + CellLabel-> + "During evaluation of \ +In[19]:=",ExpressionUUID->"b2b22fbf-0722-4677-8953-36ea71d7e4d8"] +}, Open ]], Cell[BoxData[ RowBox[{"{", - RowBox[{"74092.35557781521`", ",", + RowBox[{"74086.99388272122`", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.2457526415742437`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.18294762987000726`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.2463996135882647`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.18295265467468708`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.1166681783664707`"}]}], ",", + RowBox[{"-", "2.1159117138915575`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2052735974907876`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.204032414425079`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4740901252507976`"}]}], + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4736754614923709`"}]}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{{3.84122830871743*^9, 3.841228338552495*^9}, { - 3.841297788777759*^9, 3.8412977978071632`*^9}, 3.8412979034729347`*^9, { - 3.8412983504965553`*^9, 3.8412983621775627`*^9}, 3.8412984061411858`*^9, { - 3.841298446656764*^9, 3.841298461505335*^9}, {3.841298534624462*^9, - 3.8412985803449593`*^9}, 3.841299001627008*^9, 3.841299087291976*^9, { - 3.8413014319559393`*^9, 3.841301443833624*^9}, 3.841304540968071*^9, - 3.8413046361822653`*^9, 3.8413046752417917`*^9, 3.8413113009823017`*^9, { - 3.841312572810692*^9, 3.841312586696334*^9}, 3.841316321538192*^9, - 3.841390993729501*^9, 3.841391296929008*^9, 3.841392290802103*^9, { - 3.8413923471876383`*^9, 3.841392365228574*^9}, 3.841392885640149*^9}, - CellLabel->"Out[39]=",ExpressionUUID->"7c1ac454-11c4-427c-92a0-d68a92db8af7"] + CellChangeTimes->{{3.841466076959186*^9, 3.841466095449538*^9}, + 3.841466158855105*^9, {3.8417276079091053`*^9, 3.841727615377058*^9}, + 3.84173249550154*^9, {3.841732565454404*^9, 3.841732607895466*^9}, + 3.841732643471121*^9, 3.841732758169614*^9, {3.841732855577588*^9, + 3.841732881121413*^9}, {3.841733013813401*^9, 3.8417330428195066`*^9}, + 3.841733111440667*^9, 3.8417331607886677`*^9, 3.8417332580263147`*^9, { + 3.841733448394301*^9, 3.841733532125449*^9}}, + CellLabel->"Out[19]=",ExpressionUUID->"559af747-c121-49f5-a7d6-3cc986cf4792"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m1", "=", - RowBox[{"levenburgMarquardt", "[", + RowBox[{"annealFit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", - RowBox[{"h", "[", "1", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "7"}]]}], "]"}], "[", "3", "]"}], "//.", + RowBox[{"h", "[", "1", "]"}], ",", "\[Delta]"}], "]"}], "[", "3", + "]"}], "//.", RowBox[{"rules", "[", - RowBox[{"h", "[", "1", "]"}], "]"}]}], ",", + RowBox[{"h", "[", "1", "]"}], "]"}]}], ",", "\[Delta]", ",", RowBox[{"Append", "[", RowBox[{ RowBox[{"m0", "[", @@ -3011,103 +3056,90 @@ Cell[BoxData[ RowBox[{ RowBox[{"gC", "[", "1", "]"}], "->", "0"}]}], "]"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841228339736465*^9, 3.841228391406146*^9}, { - 3.8412978203090363`*^9, 3.841297820820709*^9}, 3.841298324576181*^9, { - 3.841301658540979*^9, 3.841301660155224*^9}, {3.8413113090689287`*^9, - 3.841311309140801*^9}, {3.841312593894927*^9, 3.841312596724723*^9}, { - 3.841392373886546*^9, 3.841392374485568*^9}}, - CellLabel->"In[40]:=",ExpressionUUID->"e41c6d03-9f41-4844-a23e-7af68d6520cd"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"9.451942442148708`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.3362286115717956`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19907020730501399`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.255973000010725`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.305571390725796`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3924438441258547`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.01600882372535488`"}]}]}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{{3.841228362976776*^9, 3.8412283969708433`*^9}, { - 3.84129781705159*^9, 3.84129782399235*^9}, 3.8412979068546886`*^9, - 3.841298334763795*^9, 3.841299108228035*^9, 3.841301676133851*^9, - 3.841311321791176*^9, 3.841312604520914*^9, 3.841316339397689*^9, - 3.841390999902731*^9, 3.841391301577962*^9, 3.841392295230185*^9, { - 3.8413923684669647`*^9, 3.841392375511942*^9}, 3.8413928872507*^9}, - CellLabel->"Out[40]=",ExpressionUUID->"484d3e7b-366c-491e-9f5e-0a5660a655c1"] -}, Open ]], + CellChangeTimes->{{3.8414646994225616`*^9, 3.841464738150351*^9}}, + CellLabel->"In[98]:=",ExpressionUUID->"29398383-9203-4cf6-aabb-1d3fe15a5894"], Cell[CellGroupData[{ -Cell[BoxData[ - RowBox[{"m11", "=", - RowBox[{"levenburgMarquardt", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"res", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "1", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], "]"}], "[", "3", "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "1", "]"}], "]"}]}], ",", - RowBox[{"m1", "[", - RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841228339736465*^9, 3.841228391406146*^9}, { - 3.8412978203090363`*^9, 3.841297820820709*^9}, 3.841298324576181*^9, { - 3.841299122156514*^9, 3.841299133332666*^9}, {3.8413016801890287`*^9, - 3.841301722916197*^9}, {3.841311328997622*^9, 3.8413113326931467`*^9}}, - CellLabel->"In[41]:=",ExpressionUUID->"9842ee72-352b-450e-bb82-d4b680ba9aed"], +Cell[BoxData["9.449430444392366`"], "Print", + CellChangeTimes->{{3.84146472167447*^9, 3.841464739046789*^9}, + 3.841466102601021*^9, 3.8414661640538692`*^9, 3.841727618703388*^9, + 3.841733575217207*^9, 3.841735119492049*^9}, + CellLabel-> + "During evaluation of \ +In[98]:=",ExpressionUUID->"43b5ed9d-e166-4ef1-b4bc-e5feed6c7d40"], + +Cell[BoxData["9.451942442165477`"], "Print", + CellChangeTimes->{{3.84146472167447*^9, 3.841464739046789*^9}, + 3.841466102601021*^9, 3.8414661640538692`*^9, 3.841727618703388*^9, + 3.841733575217207*^9, 3.841735119657433*^9}, + CellLabel-> + "During evaluation of \ +In[98]:=",ExpressionUUID->"527fb39e-ac1e-4e42-9ef7-fda664ac66d1"], + +Cell[BoxData["9.451942739441876`"], "Print", + CellChangeTimes->{{3.84146472167447*^9, 3.841464739046789*^9}, + 3.841466102601021*^9, 3.8414661640538692`*^9, 3.841727618703388*^9, + 3.841733575217207*^9, 3.841735119786071*^9}, + CellLabel-> + "During evaluation of \ +In[98]:=",ExpressionUUID->"65b303aa-bf05-4587-9a83-012d553521bc"], + +Cell[BoxData["9.452238194992772`"], "Print", + CellChangeTimes->{{3.84146472167447*^9, 3.841464739046789*^9}, + 3.841466102601021*^9, 3.8414661640538692`*^9, 3.841727618703388*^9, + 3.841733575217207*^9, 3.841735119849766*^9}, + CellLabel-> + "During evaluation of \ +In[98]:=",ExpressionUUID->"1fced350-2162-4d24-b48f-85b2ffbab446"], + +Cell[BoxData["12.36138570064008`"], "Print", + CellChangeTimes->{{3.84146472167447*^9, 3.841464739046789*^9}, + 3.841466102601021*^9, 3.8414661640538692`*^9, 3.841727618703388*^9, + 3.841733575217207*^9, 3.841735119911714*^9}, + CellLabel-> + "During evaluation of \ +In[98]:=",ExpressionUUID->"8f0ad46a-2395-463d-9e76-0c7c781ffd27"] +}, Open ]], Cell[BoxData[ RowBox[{"{", - RowBox[{"9.825945132221358`", ",", + RowBox[{"12.36138570064008`", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.3362286115902198`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19907020733554612`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.3362286141843425`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19907020759642768`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.255973000085061`"}]}], ",", + RowBox[{"-", "2.255973001300171`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.305571390673654`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.3055713907517208`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.39244384417253525`"}], ",", - + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3924438424191965`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.01600882366765249`"}]}]}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{{3.841228362976776*^9, 3.8412283969708433`*^9}, { - 3.84129781705159*^9, 3.84129782399235*^9}, 3.8412979068546886`*^9, - 3.841298334763795*^9, 3.841299108228035*^9, 3.841299142755342*^9, { - 3.8413016883995447`*^9, 3.8413017240029078`*^9}, 3.841311335569056*^9, - 3.841312608655279*^9, 3.84131634282432*^9, 3.841391018559971*^9, - 3.841391305366624*^9, 3.8413922964806547`*^9, {3.841392369756781*^9, - 3.841392376838704*^9}, 3.8413928901493*^9}, - CellLabel->"Out[41]=",ExpressionUUID->"89531f82-39d2-427d-b680-757a27f7c7bb"] + RowBox[{"-", "0.0160088240149966`"}]}]}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{{3.841464725026127*^9, 3.8414647403021297`*^9}, + 3.8414661034706583`*^9, 3.841466164507646*^9, 3.8417276199972258`*^9, + 3.841733575639007*^9, 3.8417351199137087`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"199db095-4a77-417c-9ecf-d6b1726a2dd4"] }, Open ]], +Cell[BoxData["4.1024051372699795`"], "Input",ExpressionUUID->"1cfc7180-9002-442b-be6f-5161a5266210"], + Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m2", "=", - RowBox[{"levenburgMarquardt", "[", + RowBox[{"annealFit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", - RowBox[{"h", "[", "3", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "6"}]]}], "]"}], "[", "4", "]"}], "//.", + RowBox[{"h", "[", "3", "]"}], ",", "\[Delta]"}], "]"}], "[", "4", + "]"}], "//.", RowBox[{"rules", "[", - RowBox[{"h", "[", "3", "]"}], "]"}]}], ",", + RowBox[{"h", "[", "3", "]"}], "]"}]}], ",", "\[Delta]", ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"m1", "[", @@ -3119,876 +3151,1506 @@ Cell[BoxData[ RowBox[{ RowBox[{"gC", "[", "3", "]"}], "->", "0"}]}], "}"}]}], "]"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841228339736465*^9, 3.841228391406146*^9}, { - 3.841228542777034*^9, 3.8412285565292*^9}, {3.841228600579276*^9, - 3.841228610938241*^9}, {3.841297838845373*^9, 3.841297840029146*^9}, { - 3.841299178463154*^9, 3.841299180037448*^9}, {3.841301754118503*^9, - 3.84130175460581*^9}, 3.841312616919138*^9, {3.841392382967269*^9, - 3.841392383061636*^9}, {3.8413924183982353`*^9, 3.8413924323024797`*^9}}, - CellLabel->"In[42]:=",ExpressionUUID->"d7f9c8af-d1af-4c7b-9b64-333afaf638ba"], + CellChangeTimes->{{3.841464800663937*^9, 3.8414648092082663`*^9}, { + 3.841485136434773*^9, 3.841485139912166*^9}}, + CellLabel->"In[99]:=",ExpressionUUID->"c364dda0-78f5-4a76-94b1-e8f7c84b3bff"], + +Cell[BoxData["0.051772281426138704`"], "Print", + CellChangeTimes->{3.841464811189674*^9, 3.841466113596136*^9, + 3.841466174231003*^9, 3.841485157234458*^9, 3.841727625120616*^9, + 3.841733644791923*^9, 3.841733719112348*^9, 3.841735123248308*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"bcc4cca1-2f58-43d3-ab54-f687ea9c0515"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ +\"-\\\", \\\"2.1071029116333298`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 99, + 60, 31639540942853778054, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.84146481246984*^9, 3.8414661127914667`*^9, + 3.8414661755505667`*^9, 3.84148515649649*^9, 3.841727624402594*^9, + 3.841733646144292*^9, 3.841733720332137*^9, 3.841735124988158*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"44472613-6417-493b-8650-a7076d0a75ac"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ +\"-\\\", \\\"1.4047352744222199`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 99, + 61, 31639540942853778054, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.84146481246984*^9, 3.8414661127914667`*^9, + 3.8414661755505667`*^9, 3.84148515649649*^9, 3.841727624402594*^9, + 3.841733646144292*^9, 3.841733720332137*^9, 3.8417351252267513`*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"8753bbc0-714a-4b51-887f-34e9294a5b8c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ +\"-\\\", \\\"9.364901829481466`*^-308\\\"}], \\\")\\\"}]}]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 99, + 62, 31639540942853778054, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.84146481246984*^9, 3.8414661127914667`*^9, + 3.8414661755505667`*^9, 3.84148515649649*^9, 3.841727624402594*^9, + 3.841733646144292*^9, 3.841733720332137*^9, 3.841735125463619*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"5a465db8-95f6-4272-9fed-7ef77831e4db"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 99, 63, 31639540942853778054, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.84146481246984*^9, 3.8414661127914667`*^9, + 3.8414661755505667`*^9, 3.84148515649649*^9, 3.841727624402594*^9, + 3.841733646144292*^9, 3.841733720332137*^9, 3.841735125698503*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"c20e2cc8-1d67-4a03-97f4-d1ef651cf1a9"], + +Cell[CellGroupData[{ + +Cell[BoxData["0.05177711329159192`"], "Print", + CellChangeTimes->{3.841464811189674*^9, 3.841466113596136*^9, + 3.841466174231003*^9, 3.841485157234458*^9, 3.841727625120616*^9, + 3.841733644791923*^9, 3.841733719112348*^9, 3.841735125782292*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"4863edb1-4f3d-4584-b981-d3621f014c31"], + +Cell[BoxData["0.051780251946902306`"], "Print", + CellChangeTimes->{3.841464811189674*^9, 3.841466113596136*^9, + 3.841466174231003*^9, 3.841485157234458*^9, 3.841727625120616*^9, + 3.841733644791923*^9, 3.841733719112348*^9, 3.8417351258795233`*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"043306d6-320e-4ea3-90d3-473014faa5e6"], + +Cell[BoxData["0.05196230522214141`"], "Print", + CellChangeTimes->{3.841464811189674*^9, 3.841466113596136*^9, + 3.841466174231003*^9, 3.841485157234458*^9, 3.841727625120616*^9, + 3.841733644791923*^9, 3.841733719112348*^9, 3.8417351272200737`*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"aa6cae97-26ad-48c7-b7ae-f94a27c84707"], + +Cell[BoxData["0.4302641155658531`"], "Print", + CellChangeTimes->{3.841464811189674*^9, 3.841466113596136*^9, + 3.841466174231003*^9, 3.841485157234458*^9, 3.841727625120616*^9, + 3.841733644791923*^9, 3.841733719112348*^9, 3.84173512732479*^9}, + CellLabel-> + "During evaluation of \ +In[99]:=",ExpressionUUID->"629a89d7-d085-4397-8c33-76f82e1ddf6e"] +}, Open ]], Cell[BoxData[ RowBox[{"{", - RowBox[{"0.05177706533596269`", ",", + RowBox[{"0.4302641155658531`", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.329441778715294`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19851634096257578`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.3294417509632024`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19851634079386207`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.391692733060362`"}]}], ",", + RowBox[{"-", "2.3916927470405005`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.50097979779829`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5009798213060475`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.35472586721926685`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.35472588423239304`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.07229560320372273`"}]}], ",", + RowBox[{"-", "0.07229559945484686`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.020014789696198958`"}], + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.020014791515157802`"}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.003196784916804126`"}]}]}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{{3.841228362976776*^9, 3.8412283969708433`*^9}, - 3.841228594323098*^9, 3.84122866057066*^9, 3.8412978364513702`*^9, - 3.8412978869034157`*^9, 3.841297933645952*^9, 3.841299446190192*^9, - 3.841301996097804*^9, 3.841311560285726*^9, 3.841312830884354*^9, - 3.841316560651977*^9, 3.841391074686833*^9, 3.841391366769762*^9, - 3.841392386102236*^9, {3.841392424694882*^9, 3.841392435478035*^9}, - 3.841392901604973*^9}, - CellLabel->"Out[42]=",ExpressionUUID->"59114213-710f-44c6-981a-272013d68637"] + RowBox[{"-", "0.003196785629318136`"}]}]}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{3.841464815669158*^9, 3.841466117830838*^9, + 3.8414661767800817`*^9, 3.841485159686406*^9, 3.841727626690813*^9, + 3.841733647995943*^9, 3.841733723021474*^9, 3.841735127497295*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"3fe6261d-a73b-4535-aa50-3f64a6b0b220"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"m21", "=", - RowBox[{"levenburgMarquardt", "[", + RowBox[{"m3", "=", + RowBox[{"annealFit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", - RowBox[{"h", "[", "3", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], "]"}], "[", "4", "]"}], "//.", + RowBox[{"h", "[", "3", "]"}], ",", "\[Delta]"}], "]"}], "[", "5", + "]"}], "//.", RowBox[{"rules", "[", - RowBox[{"h", "[", "3", "]"}], "]"}]}], ",", + RowBox[{"h", "[", "3", "]"}], "]"}]}], ",", "\[Delta]", ",", RowBox[{"Join", "[", - RowBox[{"m2", "[", - RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841228339736465*^9, 3.841228391406146*^9}, { - 3.841228542777034*^9, 3.8412285565292*^9}, {3.841228600579276*^9, - 3.841228610938241*^9}, {3.841297838845373*^9, 3.841297840029146*^9}, { - 3.841299178463154*^9, 3.841299180037448*^9}, {3.841299471250798*^9, - 3.8412994836831703`*^9}, {3.841302008252509*^9, 3.841302015473659*^9}, { - 3.8413020885567093`*^9, 3.841302092371107*^9}, {3.841302135349826*^9, - 3.8413021805566874`*^9}, {3.8413022603516483`*^9, 3.841302262422188*^9}, { - 3.8413023057288647`*^9, 3.8413023390716476`*^9}, {3.841302385074452*^9, - 3.841302385976347*^9}, {3.84131156688986*^9, 3.841311569297545*^9}}, - CellLabel->"In[43]:=",ExpressionUUID->"7c83e575-aca3-478d-8a5f-c98886c80b63"], + RowBox[{ + RowBox[{"m2", "[", + RowBox[{"[", "2", "]"}], "]"}], ",", + RowBox[{"{", "}"}]}], "]"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.841464843337102*^9, 3.841464855633377*^9}, { + 3.841485164363418*^9, 3.8414851683768*^9}}, + CellLabel-> + "In[100]:=",ExpressionUUID->"549433df-adc9-4102-a29c-48e725ec49b3"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ +\"-\\\", \\\"5.211677837921835`*^-308\\\"}], \\\")\\\"}]}]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 64, 31639540942853778054, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.841464863330677*^9, 3.841466204154407*^9, + 3.841485174897429*^9, 3.841727633841527*^9, 3.841733771817769*^9, + 3.841735135212792*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"1608e2b9-405b-4d6b-b52c-690dd9748913"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ +\"-\\\", \\\"2.1762947162336376`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 100, 65, 31639540942853778054, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.841464863330677*^9, 3.841466204154407*^9, + 3.841485174897429*^9, 3.841727633841527*^9, 3.841733771817769*^9, + 3.8417351356574497`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"5ae0efa0-83ab-4ef1-aa59-cd8468a952d2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ +\"-\\\", \\\"6.216479424555848`*^-308\\\"}], \\\")\\\"}]}]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 100, + 66, 31639540942853778054, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.841464863330677*^9, 3.841466204154407*^9, + 3.841485174897429*^9, 3.841727633841527*^9, 3.841733771817769*^9, + 3.841735136088743*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"e2af9227-1724-475c-9fb7-a71cf43a5cea"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 100, 67, 31639540942853778054, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.841464863330677*^9, 3.841466204154407*^9, + 3.841485174897429*^9, 3.841727633841527*^9, 3.841733771817769*^9, + 3.841735136525104*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"b8551c8d-a092-44f4-98d0-41ce3a5508ce"], + +Cell[CellGroupData[{ + +Cell[BoxData["489.46962882407826`"], "Print", + CellChangeTimes->{3.8414648601920137`*^9, 3.8414662057577333`*^9, + 3.8414851717359543`*^9, 3.841727635202511*^9, 3.841733773189451*^9, + 3.841735136655308*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"6129a4b5-6532-47c6-b231-9309e021d751"], + +Cell[BoxData["7544.032623585022`"], "Print", + CellChangeTimes->{3.8414648601920137`*^9, 3.8414662057577333`*^9, + 3.8414851717359543`*^9, 3.841727635202511*^9, 3.841733773189451*^9, + 3.841735139366598*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"f471eab5-283e-4e06-93b6-94580078ed1f"], + +Cell[BoxData["7547.622201186624`"], "Print", + CellChangeTimes->{3.8414648601920137`*^9, 3.8414662057577333`*^9, + 3.8414851717359543`*^9, 3.841727635202511*^9, 3.841733773189451*^9, + 3.841735142046685*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"da7ce15e-9cae-4a67-ad15-c7665320945f"], + +Cell[BoxData["7547.622485551897`"], "Print", + CellChangeTimes->{3.8414648601920137`*^9, 3.8414662057577333`*^9, + 3.8414851717359543`*^9, 3.841727635202511*^9, 3.841733773189451*^9, + 3.8417351446156597`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"b7494ad3-c437-4c64-b909-c3531567b031"], + +Cell[BoxData["7548.772127651333`"], "Print", + CellChangeTimes->{3.8414648601920137`*^9, 3.8414662057577333`*^9, + 3.8414851717359543`*^9, 3.841727635202511*^9, 3.841733773189451*^9, + 3.8417351446940527`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"42d1a0f1-c797-4c3b-b707-92375f4c52a5"] +}, Open ]], Cell[BoxData[ RowBox[{"{", - RowBox[{"0.9917130339287876`", ",", + RowBox[{"7548.772127651333`", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.329441778716015`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19851634096887916`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.4671952415891112`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.1945701651233681`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.391692733066394`"}]}], ",", + RowBox[{"-", "2.1398128154693823`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5009797977934771`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.1552015877446733`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3547258672236194`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3254579294173121`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.07229560327893486`"}]}], ",", + RowBox[{"-", "0.04359535730165105`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.02001478970934786`"}], ",", + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.004727401642516886`"}], + ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.0031967848999262466`"}]}]}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{{3.841228362976776*^9, 3.8412283969708433`*^9}, - 3.841228594323098*^9, 3.84122866057066*^9, 3.8412978364513702`*^9, - 3.8412978869034157`*^9, 3.841297933645952*^9, 3.841299446190192*^9, - 3.8412995549060802`*^9, 3.84130208174654*^9, {3.8413021318600903`*^9, - 3.8413021777721043`*^9}, 3.8413022559648647`*^9, {3.841302300890864*^9, - 3.841302346988908*^9}, 3.841302394801835*^9, 3.8413115787707*^9, - 3.841312847049676*^9, 3.841316578802157*^9, 3.841391137631403*^9, - 3.841391371597744*^9, 3.84139239151644*^9, {3.841392427495845*^9, - 3.841392437925909*^9}, 3.841392904517622*^9}, - CellLabel->"Out[43]=",ExpressionUUID->"e3c1565f-bfd7-49c7-9035-be7cad990be5"] + RowBox[{"-", "0.000429442122232698`"}]}]}], "}"}]}], "}"}]], "Output", + CellChangeTimes->{3.8414648792576437`*^9, 3.841466213483655*^9, + 3.841485177503057*^9, 3.841727640264741*^9, 3.841733779145525*^9, + 3.8417351450580807`*^9}, + CellLabel-> + "Out[100]=",ExpressionUUID->"f068743f-4998-47db-9ecd-b887f047e68c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"m3", "=", - RowBox[{"levenburgMarquardt", "[", + RowBox[{"m4", "=", + RowBox[{"annealFit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", - RowBox[{"h", "[", "4", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}], "[", "5", "]"}], "//.", + RowBox[{"h", "[", "4", "]"}], ",", "\[Delta]"}], "]"}], "[", "6", + "]"}], "//.", RowBox[{"rules", "[", - RowBox[{"h", "[", "4", "]"}], "]"}]}], ",", + RowBox[{"h", "[", "4", "]"}], "]"}]}], ",", "\[Delta]", ",", RowBox[{"Join", "[", RowBox[{ - RowBox[{"m2", "[", + RowBox[{"m3", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"gC", "[", "4", "]"}], "->", "0"}], "}"}]}], "]"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841228339736465*^9, 3.841228391406146*^9}, { - 3.841228542777034*^9, 3.8412285565292*^9}, {3.841228600579276*^9, - 3.841228610938241*^9}, {3.84122872113229*^9, 3.841228734972561*^9}, { - 3.84129795067979*^9, 3.841297951167116*^9}, {3.841299585094645*^9, - 3.841299588221032*^9}, {3.841302403546569*^9, 3.8413024041689157`*^9}, - 3.841302735835353*^9, 3.84131239839491*^9, {3.841312852915447*^9, - 3.8413128595615997`*^9}, {3.8413160348672667`*^9, 3.841316041660673*^9}, { - 3.841391715604878*^9, 3.8413917196497087`*^9}, {3.841392442912541*^9, - 3.841392443030732*^9}, 3.841392925586076*^9}, - CellLabel->"In[45]:=",ExpressionUUID->"79734076-6780-4044-ac4d-d4b9e78fc564"], + CellChangeTimes->{{3.8414649234989033`*^9, 3.841464929562983*^9}, + 3.8414650365927067`*^9, {3.841466519588132*^9, 3.8414665280647097`*^9}, { + 3.841466604931347*^9, 3.8414666419938307`*^9}, {3.8414666855258636`*^9, + 3.841466727221444*^9}, {3.84146676121622*^9, 3.8414667820495234`*^9}, { + 3.84148396767577*^9, 3.8414839726025257`*^9}, {3.84148521082797*^9, + 3.8414853154915857`*^9}, {3.841733796562776*^9, 3.841733797057767*^9}, { + 3.841735203005892*^9, 3.841735209699418*^9}}, + CellLabel-> + "In[112]:=",ExpressionUUID->"d22ce325-6b7f-4f46-b453-76866b23bb27"], + +Cell[BoxData["5376.719700163934`"], "Print", + CellChangeTimes->{3.841733814067276*^9, 3.841735157616345*^9, + 3.841735219557222*^9}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"310770ec-86f5-44b6-9850-cdeb2dd915f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"1.94612960226366`*^-307\\\ +\"}]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 112, 72, 31639540942853778054, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.84173381086263*^9, 3.8417351675859528`*^9, + 3.8417352270858*^9}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"3fe60794-fe7e-41bd-ac26-9efc9aa63a00"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"1.29741973484244`*^-307\\\ +\"}]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 112, 73, 31639540942853778054, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.84173381086263*^9, 3.8417351675859528`*^9, + 3.8417352280915737`*^9}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"72d9992d-f37f-4c49-b6a2-a2c66433b1ad"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \ +\\\"8.6494648989496`*^-308\\\"}]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 112, 74, 31639540942853778054, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.84173381086263*^9, 3.8417351675859528`*^9, + 3.841735229097624*^9}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"a534f03c-582b-4ba1-b096-bdb41a922154"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 112, 75, 31639540942853778054, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.84173381086263*^9, 3.8417351675859528`*^9, + 3.841735230098316*^9}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"a967a5a1-4448-4786-80a8-38f35d409bbd"], + +Cell[CellGroupData[{ + +Cell[BoxData["4.135634749291011`*^7"], "Print", + CellChangeTimes->{3.841733814067276*^9, 3.841735157616345*^9, + 3.841735230357402*^9}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"28e13ff9-f7bc-40e8-bc19-b17b3285579a"], + +Cell[BoxData["2.1759800188955674`*^9"], "Print", + CellChangeTimes->{3.841733814067276*^9, 3.841735157616345*^9, + 3.841735235454823*^9}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"485d97ff-88b9-460e-9e25-9e1795082fe9"], + +Cell[BoxData["2.2198592018450456`*^9"], "Print", + CellChangeTimes->{3.841733814067276*^9, 3.841735157616345*^9, + 3.841735242440422*^9}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"64c68ea5-38f6-4644-bd72-a9a48cdd1529"], + +Cell[BoxData["2.219708907351722`*^9"], "Print", + CellChangeTimes->{3.841733814067276*^9, 3.841735157616345*^9, + 3.841735247234091*^9}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"2746afd7-1cf3-4a5d-8e64-b586b47e0fa2"] +}, Open ]], Cell[BoxData[ RowBox[{"{", - RowBox[{"404.94205275643293`", ",", + RowBox[{"2.219708907351722`*^9", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.3850759941391741`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19859285569547577`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.4562353668473222`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19523822227467516`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.368102287417803`"}]}], ",", + RowBox[{"-", "2.174488177368305`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.4626838941152562`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2017020808357974`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3218842306045391`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3238374339223154`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.08697525429720578`"}]}], ",", + RowBox[{"-", "0.05102001771536777`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.02415673841887016`"}], ",", + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.007902650755089571`"}], + ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.004991804692532881`"}]}], ",", + RowBox[{"-", "0.0011831512872748835`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.000404407534282698`"}]}], - "}"}]}], "}"}]], "Output", + RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.00007165263553866614`"}]}], + "}"}]}], "}"}]], "Output", CellChangeTimes->{ - 3.841312401167676*^9, 3.8413124994833117`*^9, 3.841315534130548*^9, - 3.841316186174054*^9, 3.841391250597348*^9, 3.841391713221397*^9, - 3.841392045455113*^9, 3.841392458538834*^9, {3.841392923442487*^9, - 3.8413929324403887`*^9}}, - CellLabel->"Out[45]=",ExpressionUUID->"dd8488ae-448c-4ef4-a3ea-b24dec7348cd"] + 3.841465025789603*^9, 3.8414651161396313`*^9, 3.841466522687828*^9, + 3.841466555475013*^9, 3.841466668800694*^9, {3.841466708777321*^9, + 3.841466735908298*^9}, {3.841466779836482*^9, 3.8414667940802307`*^9}, + 3.841466824528336*^9, 3.841483997419278*^9, {3.841485225140195*^9, + 3.84148530730641*^9}, 3.841485346491642*^9, 3.841727678198784*^9, { + 3.841733795931508*^9, 3.841733821796796*^9}, 3.8417351720463753`*^9, + 3.8417352475906267`*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"12af84ad-07b2-46b3-b49e-548dd1145fef"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"m31", "=", - RowBox[{"levenburgMarquardt", "[", + RowBox[{"m5", "=", + RowBox[{"annealFit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", - RowBox[{"h", "[", "4", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "7"}]]}], "]"}], "[", "5", "]"}], "//.", + RowBox[{"h", "[", "5", "]"}], ",", "\[Delta]"}], "]"}], "[", "7", + "]"}], "//.", RowBox[{"rules", "[", - RowBox[{"h", "[", "4", "]"}], "]"}]}], ",", + RowBox[{"h", "[", "5", "]"}], "]"}]}], ",", "\[Delta]", ",", RowBox[{"Join", "[", - RowBox[{"m3", "[", - RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841228339736465*^9, 3.841228391406146*^9}, { - 3.841228542777034*^9, 3.8412285565292*^9}, {3.841228600579276*^9, - 3.841228610938241*^9}, {3.84122872113229*^9, 3.841228734972561*^9}, { - 3.84129795067979*^9, 3.841297951167116*^9}, {3.841299585094645*^9, - 3.841299588221032*^9}, {3.841302403546569*^9, 3.8413024041689157`*^9}, - 3.841302735835353*^9, 3.84131239839491*^9, {3.841312852915447*^9, - 3.8413128595615997`*^9}, {3.841315543156219*^9, 3.841315548787353*^9}, - 3.8413929927232637`*^9}, - CellLabel->"In[47]:=",ExpressionUUID->"cffa7e8f-18ea-43f5-8438-92832454f17f"], + RowBox[{ + RowBox[{"m4", "[", + RowBox[{"[", "2", "]"}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"gC", "[", "5", "]"}], "->", "0"}], "}"}]}], "]"}]}], + "]"}]}]], "Input", + CellChangeTimes->CompressedData[" +1:eJxTTMoPSmViYGAQA2IQLT+x/Fj/vDeOav/fnAHRZXdv3AfRpu8nPATReZ1C +z0G0EFvcCxC9w1rlG4i2kL//HUQ/3tarNwFIiySIGIDotoLb63cBaZ0rjzaB +6EOd1x6AaLaN/8C0/bV6991AeoVbrxeI/iSy1+0BkOZKK/UA0cfDKtpAtGio +dDuItu29Oh9E3377C0xfe+q68xGQfu3KvQtEn2UqOQCipwicPgKi14pW5DDP +f+N4rLokF0TfUdpswwKkOaS8bUH0l4cBniA6wW26L4g+vTY3BETrxkaEguhj +My+68ALpE+9z3EC0Sdi8Bc1A+vhnycUg2u6Xz5I2IG10/R6YfrMoyK8dSGfO +FfYH0VtkdkWC6OvG92NBNABLc8NZ + "], + CellLabel-> + "In[135]:=",ExpressionUUID->"11802c33-e902-4c87-b4ea-a0ce5f2dcdff"], + +Cell[BoxData["640.6786681275212`"], "Print", + CellChangeTimes->{3.8417354284961843`*^9}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"3a95b21c-b439-4347-9f27-2421ae191069"], Cell[BoxData[ - RowBox[{"{", - RowBox[{"7406.0999562031975`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.4837791397372622`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19465962395596045`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.138777657794135`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.1527167115842964`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.31697799435302465`"}], ",", - - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.04877673753152031`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.006053230241187879`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.0007523181366236078`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", - "0.000036388067820459716`"}]}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{3.841392573177092*^9, 3.84139298985989*^9, - 3.8413930338256207`*^9}, - CellLabel->"Out[47]=",ExpressionUUID->"d8cf7467-d843-4995-9a63-b06c97829202"] -}, Open ]], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ +\"-\\\", \\\"2.0245361560334895`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 135, 87, 31639540942853778054, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.841733963748535*^9, 3.841735325334972*^9, + 3.841735380183619*^9, 3.8417354442440033`*^9}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"d01ae657-fd68-4c5a-a5a4-9bc6d05ac2f6"], -Cell[CellGroupData[{ +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ +\"-\\\", \\\"1.349690770688993`*^-307\\\"}], \\\")\\\"}]}]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 135, + 88, 31639540942853778054, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.841733963748535*^9, 3.841735325334972*^9, + 3.841735380183619*^9, 3.841735445254198*^9}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"307456fb-500d-49b9-a746-81d7042966da"], Cell[BoxData[ - RowBox[{"m32", "=", - RowBox[{"levenburgMarquardt", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"res", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "4", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "9"}]]}], "]"}], "[", "5", "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "4", "]"}], "]"}]}], ",", - RowBox[{"Join", "[", - RowBox[{"m31", "[", - RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841228339736465*^9, 3.841228391406146*^9}, { - 3.841228542777034*^9, 3.8412285565292*^9}, {3.841228600579276*^9, - 3.841228610938241*^9}, {3.84122872113229*^9, 3.841228734972561*^9}, { - 3.84129795067979*^9, 3.841297951167116*^9}, {3.841299585094645*^9, - 3.841299588221032*^9}, {3.841302403546569*^9, 3.8413024041689157`*^9}, - 3.841302735835353*^9, 3.84131239839491*^9, {3.841312852915447*^9, - 3.8413128595615997`*^9}, {3.841315543156219*^9, 3.841315548787353*^9}, - 3.8413929927232637`*^9, {3.841393042225665*^9, 3.841393071924444*^9}}, - CellLabel->"In[50]:=",ExpressionUUID->"8fbe1304-51d7-43cc-98c4-42730a9a3a25"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ +\"-\\\", \\\"8.997938471259954`*^-308\\\"}], \\\")\\\"}]}]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 135, + 89, 31639540942853778054, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.841733963748535*^9, 3.841735325334972*^9, + 3.841735380183619*^9, 3.841735446266193*^9}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"c0aa3875-2d27-49d5-9da8-57fac6b8e5a2"], Cell[BoxData[ - RowBox[{"{", - RowBox[{"7410.0081621767495`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.483890782109245`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19465756414267654`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.1386499981530083`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.152541334855295`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3169480832003207`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.04877287402397241`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.0060480097957964505`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.0007511559720495908`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.00003630108540819207`"}]}], - "}"}]}], "}"}]], "Output", - CellChangeTimes->{ - 3.841392573177092*^9, 3.84139298985989*^9, {3.8413930338256207`*^9, - 3.841393083409178*^9}}, - CellLabel->"Out[50]=",ExpressionUUID->"30c2843c-2776-40e1-b176-31efb61eb462"] -}, Open ]], + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 135, 90, 31639540942853778054, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.841733963748535*^9, 3.841735325334972*^9, + 3.841735380183619*^9, 3.841735447277504*^9}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"233e7964-0f93-46e8-8009-aac0b7ad58bc"], Cell[CellGroupData[{ -Cell[BoxData[ - RowBox[{"m33", "=", - RowBox[{"levenburgMarquardt", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"res", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "4", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], "]"}], "[", "5", "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "4", "]"}], "]"}]}], ",", - RowBox[{"Join", "[", - RowBox[{"m32", "[", - RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841228339736465*^9, 3.841228391406146*^9}, { - 3.841228542777034*^9, 3.8412285565292*^9}, {3.841228600579276*^9, - 3.841228610938241*^9}, {3.84122872113229*^9, 3.841228734972561*^9}, { - 3.84129795067979*^9, 3.841297951167116*^9}, {3.841299585094645*^9, - 3.841299588221032*^9}, {3.841302403546569*^9, 3.8413024041689157`*^9}, - 3.841302735835353*^9, 3.84131239839491*^9, {3.841312852915447*^9, - 3.8413128595615997`*^9}, {3.841315543156219*^9, 3.841315548787353*^9}, - 3.8413929927232637`*^9, {3.841393042225665*^9, 3.8413931098428917`*^9}}, - CellLabel->"In[54]:=",ExpressionUUID->"b1a5fc2a-654a-4a8e-ba0b-5d846aacc0cf"], +Cell[BoxData["127757.7861858379`"], "Print", + CellChangeTimes->{3.841735447728888*^9}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"36b2353b-1d99-4f27-bd64-8438c033f263"], + +Cell[BoxData["1.9678063004549514`*^6"], "Print", + CellChangeTimes->{3.841735461834778*^9}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"28d45a89-118a-49ab-bd04-b9c99ecc7ee9"], + +Cell[BoxData["1.9680452126478755`*^6"], "Print", + CellChangeTimes->{3.8417354773686113`*^9}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"b4c4e710-7f4a-43d7-bd5f-a5b32687c3a4"], + +Cell[BoxData["1.968045828456689`*^6"], "Print", + CellChangeTimes->{3.841735488526353*^9}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"571f7cd7-89e5-4bb3-a1bf-d845c6ad74bf"] +}, Open ]], Cell[BoxData[ RowBox[{"{", - RowBox[{"7410.306211058639`", ",", + RowBox[{"1.968045828456689`*^6", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.4838907821092542`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19465756414305466`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.4542141660459234`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19767782507026657`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.1386499981536105`"}]}], ",", + RowBox[{"-", "2.309825618825891`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.1525413348548044`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.3817432728219592`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.31694808320059664`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.29448124432069284`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.04877287402510986`"}]}], ",", + RowBox[{"-", "0.1007920716554413`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.006048009796002987`"}], - ",", + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.03414202823238159`"}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.0007511559719133409`"}]}], ",", + RowBox[{"-", "0.011422692265965937`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.00003630108546819166`"}]}], - "}"}]}], "}"}]], "Output", - CellChangeTimes->{{3.841393095175541*^9, 3.841393114042441*^9}}, - CellLabel->"Out[54]=",ExpressionUUID->"3655bff9-e722-4f79-bcda-6312b673cc51"] + RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.002296673333378011`"}], + ",", + RowBox[{ + RowBox[{"gC", "[", "5", "]"}], "\[Rule]", + RowBox[{"-", "0.00020139927455219456`"}]}]}], "}"}]}], "}"}]], "Output",\ + + CellChangeTimes->{3.8413939151770983`*^9, 3.841398118546665*^9, + 3.841398237839446*^9, 3.8413995587444963`*^9, 3.8414653249934998`*^9, + 3.841466926914564*^9, 3.841466986860621*^9, 3.841467043482155*^9, + 3.84146709424573*^9, 3.841485467638752*^9, 3.841727748862999*^9, + 3.841727845501019*^9, 3.8417339203216867`*^9, 3.841734014800623*^9, + 3.841735351995893*^9, 3.8417353959882593`*^9, 3.8417354896902313`*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"1e2d341a-35ef-40da-a6a6-fe14ef18db31"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"m4", "=", - RowBox[{"levenburgMarquardt", "[", + RowBox[{"m6", "=", + RowBox[{"annealFit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", - RowBox[{"h", "[", "6", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}], "[", "6", "]"}], "//.", + RowBox[{"h", "[", "6", "]"}], ",", "\[Delta]"}], "]"}], "[", "8", + "]"}], "//.", RowBox[{"rules", "[", - RowBox[{"h", "[", "6", "]"}], "]"}]}], ",", + RowBox[{"h", "[", "6", "]"}], "]"}]}], ",", "\[Delta]", ",", RowBox[{"Join", "[", RowBox[{ - RowBox[{"m31", "[", + RowBox[{"m5", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "->", "0"}], ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "->", "0"}]}], "}"}]}], "]"}]}], + RowBox[{"gC", "[", "6", "]"}], "->", "0"}], "}"}]}], "]"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841228339736465*^9, 3.841228391406146*^9}, { - 3.841228542777034*^9, 3.8412285565292*^9}, {3.841228600579276*^9, - 3.841228610938241*^9}, {3.84122872113229*^9, 3.841228734972561*^9}, { - 3.841229172428575*^9, 3.8412291846367283`*^9}, {3.841316222857486*^9, - 3.8413162470884*^9}, {3.841316614704316*^9, 3.8413166159591093`*^9}, { - 3.841317435994903*^9, 3.841317460414875*^9}}, - CellLabel->"In[62]:=",ExpressionUUID->"e3ecbe8e-7e58-415a-ba9c-63c237fc50e1"], + CellChangeTimes->CompressedData[" +1:eJwdz00ow3EAxvE128pGac17GiWvy0YptWZpjJYcVsRFrMjFzLtymNWMHda2 +mnJYRAmnjczLRIwoL4ctlizMFpZNymEi4ff8D0+f49M3T9Wn7KLTaLQcMsi3 +jp6Y52I1BX+xCzhyd/MAK98tj1Bt5L5ALqs9ArfF+XFYxX/4hOFNU5mFyOvg +iaBBE3C4iYKr0Dr0GP1ByFr7pZT6tfW7xBW5SQE/eHvyIJHdPdwAT1vGDDC1 +OXsKSkzX8zDw9k3pf6rbCRGjdRw3vKQPHUBbyvkxvLWIXGEi876C0mnOdMPc +L+0+DMqXJxLmSWdGXAfHG9s6GUT7T5MKpln9A3BDzB6EPd4EPSxmSiirHb5D +uOrUeWCtcMGWRDwLLVLap2c5yUSrrygJqsrlrVCgGKNMDy8864lZGkYEKpf0 +7ElioizKgTGfTAgLmUIRLI32uwz4lW5R2sYdXthRcuSDdvtM7xTxVWBRw39b +TfvF + "], + CellLabel-> + "In[146]:=",ExpressionUUID->"bacf1c86-2f2d-48d5-884c-81947e6029a1"], Cell[BoxData[ - RowBox[{"{", - RowBox[{"176.05498458600596`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.3894644137576784`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19802300565962877`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.416559600911216`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5344044541237856`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.30349545154558855`"}], ",", - - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.13821599940050389`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.08697901721816592`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.050819805624969336`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.01826327514868347`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.0034956166692937897`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.0002677447735559104`"}]}], - "}"}]}], "}"}]], "Output", - CellChangeTimes->{3.841393195633897*^9}, - CellLabel->"Out[62]=",ExpressionUUID->"e619aafe-02ac-45dc-b798-a049ddda566f"] -}, Open ]], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \ +\\\"1.843923824757237`*^-307\\\"}]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 146, 91, + 31639540942853778054, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.841484781815405*^9, 3.841485035631184*^9, + 3.841485667685237*^9, 3.8417305190559053`*^9, 3.841730812520755*^9, + 3.841731093503634*^9, 3.841734216675662*^9, 3.841734609606453*^9, + 3.841735655554984*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"281ccd8d-b05e-42c3-a4f7-f6115ccd4902"], -Cell[CellGroupData[{ +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"1.2292825498381579`*^-307\ +\\\"}]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 146, 92, 31639540942853778054, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.841484781815405*^9, 3.841485035631184*^9, + 3.841485667685237*^9, 3.8417305190559053`*^9, 3.841730812520755*^9, + 3.841731093503634*^9, 3.841734216675662*^9, 3.841734609606453*^9, + 3.8417356565602837`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"a2ece7af-be37-49a1-bf23-cfd395a83cbf"], Cell[BoxData[ - RowBox[{"m41", "=", - RowBox[{"levenburgMarquardt", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"res", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "6", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "9"}]]}], "]"}], "[", "6", "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "6", "]"}], "]"}]}], ",", - RowBox[{"Join", "[", - RowBox[{ - RowBox[{"m4", "[", - RowBox[{"[", "2", "]"}], "]"}], ",", - RowBox[{"{", "}"}]}], "]"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841228339736465*^9, 3.841228391406146*^9}, { - 3.841228542777034*^9, 3.8412285565292*^9}, {3.841228600579276*^9, - 3.841228610938241*^9}, {3.84122872113229*^9, 3.841228734972561*^9}, { - 3.841229172428575*^9, 3.8412291846367283`*^9}, {3.841316222857486*^9, - 3.8413162470884*^9}, {3.841316614704316*^9, 3.8413166159591093`*^9}, { - 3.841317435994903*^9, 3.841317460414875*^9}, {3.841393205908807*^9, - 3.841393219668706*^9}, {3.841393715760593*^9, 3.841393720854136*^9}, { - 3.841393918673491*^9, 3.841393919841535*^9}}, - CellLabel->"In[73]:=",ExpressionUUID->"19f19720-783c-4e96-a95d-76c867186fc5"], + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"8.1952169989210535`*^-308\ +\\\"}]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 146, 93, 31639540942853778054, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.841484781815405*^9, 3.841485035631184*^9, + 3.841485667685237*^9, 3.8417305190559053`*^9, 3.841730812520755*^9, + 3.841731093503634*^9, 3.841734216675662*^9, 3.841734609606453*^9, + 3.8417356575851393`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"ba89323f-fb09-429e-a7df-5f294213effb"], Cell[BoxData[ - RowBox[{"{", - RowBox[{"529.7762967860393`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.4638671203320655`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.1977218158501816`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.3125141183706766`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.3850379589121993`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.2887670455846471`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.1066942011365415`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.03841110306931204`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.01440328232576226`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0035620792864702825`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.0004895422686390404`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", - "0.000027182084327655974`"}]}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{3.8413939151770983`*^9, 3.841398118546665*^9}, - CellLabel->"Out[73]=",ExpressionUUID->"3ac8305d-16b0-42e0-8ad9-03a1f3bb2fd6"] -}, Open ]], + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 146, 94, 31639540942853778054, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.841484781815405*^9, 3.841485035631184*^9, + 3.841485667685237*^9, 3.8417305190559053`*^9, 3.841730812520755*^9, + 3.841731093503634*^9, 3.841734216675662*^9, 3.841734609606453*^9, + 3.8417356585860157`*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"6b9f87a0-364a-4e02-9594-24fc2e7e087a"], Cell[CellGroupData[{ -Cell[BoxData[ - RowBox[{"m42", "=", - RowBox[{"levenburgMarquardt", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"res", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "6", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], "]"}], "[", "6", "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "6", "]"}], "]"}]}], ",", - RowBox[{"Join", "[", - RowBox[{ - RowBox[{"m41", "[", - RowBox[{"[", "2", "]"}], "]"}], ",", - RowBox[{"{", "}"}]}], "]"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841228339736465*^9, 3.841228391406146*^9}, { - 3.841228542777034*^9, 3.8412285565292*^9}, {3.841228600579276*^9, - 3.841228610938241*^9}, {3.84122872113229*^9, 3.841228734972561*^9}, { - 3.841229172428575*^9, 3.8412291846367283`*^9}, {3.841316222857486*^9, - 3.8413162470884*^9}, {3.841316614704316*^9, 3.8413166159591093`*^9}, { - 3.841317435994903*^9, 3.841317460414875*^9}, {3.841393205908807*^9, - 3.841393219668706*^9}, {3.841393715760593*^9, 3.841393720854136*^9}, { - 3.841393918673491*^9, 3.841393919841535*^9}, {3.841398218184306*^9, - 3.841398224352285*^9}}, - CellLabel->"In[83]:=",ExpressionUUID->"8b77c4d9-9fd9-4118-9ccc-8090bc6272b7"], +Cell[BoxData["4375.290913751359`"], "Print", + CellChangeTimes->{3.841484699362032*^9, 3.841484988573545*^9, + 3.8414855798334913`*^9, 3.841730523009612*^9, 3.841730816457052*^9, + 3.841731097466299*^9, 3.841734184466147*^9, 3.841734614120433*^9, + 3.841735659634392*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"94a46ade-16e7-4394-b4f5-fa2140097d92"], -Cell[BoxData[ - RowBox[{"{", - RowBox[{"533.7732124148733`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.4638671203320672`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.1977218158501566`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.3125141183706512`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.3850379589122206`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.28876704558463395`"}], ",", - - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.10669420113646703`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.03841110306930909`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.014403282325766775`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.003562079286467998`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.0004895422686400564`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", - "0.000027182084327218143`"}]}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{3.8413939151770983`*^9, 3.841398118546665*^9, - 3.841398237839446*^9}, - CellLabel->"Out[83]=",ExpressionUUID->"110af606-eb78-46cf-a343-3f7f750b4f2e"] -}, Open ]], +Cell[BoxData["149920.41133860027`"], "Print", + CellChangeTimes->{3.841484699362032*^9, 3.841484988573545*^9, + 3.8414855798334913`*^9, 3.841730523009612*^9, 3.841730816457052*^9, + 3.841731097466299*^9, 3.841734184466147*^9, 3.841734614120433*^9, + 3.841735778928644*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"76d273d0-1786-4034-9a75-d7fcf740cd53"], -Cell[CellGroupData[{ +Cell[BoxData["1.8756762465605086`*^6"], "Print", + CellChangeTimes->{3.841484699362032*^9, 3.841484988573545*^9, + 3.8414855798334913`*^9, 3.841730523009612*^9, 3.841730816457052*^9, + 3.841731097466299*^9, 3.841734184466147*^9, 3.841734614120433*^9, + 3.841735825708802*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"e49f4cba-85ae-478b-ab09-6c6d78e5c3b7"], -Cell[BoxData[ - RowBox[{"m5", "=", - RowBox[{"levenburgMarquardt", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"res", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "7", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}], "[", "7", "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "7", "]"}], "]"}]}], ",", - RowBox[{"Join", "[", - RowBox[{ - RowBox[{"m4", "[", - RowBox[{"[", "2", "]"}], "]"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{"gC", "[", "7", "]"}], "->", "0"}], "}"}]}], "]"}]}], - "]"}]}]], "Input", - CellChangeTimes->{{3.841228339736465*^9, 3.841228391406146*^9}, { - 3.841228542777034*^9, 3.8412285565292*^9}, {3.841228600579276*^9, - 3.841228610938241*^9}, {3.84122872113229*^9, 3.841228734972561*^9}, { - 3.841229172428575*^9, 3.8412291846367283`*^9}, {3.841316222857486*^9, - 3.8413162470884*^9}, {3.841316614704316*^9, 3.8413166159591093`*^9}, { - 3.841317435994903*^9, 3.841317460414875*^9}, {3.841393205908807*^9, - 3.841393219668706*^9}, {3.841393715760593*^9, 3.841393720854136*^9}, { - 3.841393918673491*^9, 3.841393919841535*^9}, {3.841398218184306*^9, - 3.841398224352285*^9}, {3.841398275625342*^9, 3.8413983103457737`*^9}}, - CellLabel->"In[92]:=",ExpressionUUID->"11802c33-e902-4c87-b4ea-a0ce5f2dcdff"], +Cell[BoxData["1.8759303703736914`*^6"], "Print", + CellChangeTimes->{3.841484699362032*^9, 3.841484988573545*^9, + 3.8414855798334913`*^9, 3.841730523009612*^9, 3.841730816457052*^9, + 3.841731097466299*^9, 3.841734184466147*^9, 3.841734614120433*^9, + 3.841735841138866*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"dd2d6f00-396d-4803-8f74-1dbd4ea1472b"], + +Cell[BoxData["1.8759351826695893`*^6"], "Print", + CellChangeTimes->{3.841484699362032*^9, 3.841484988573545*^9, + 3.8414855798334913`*^9, 3.841730523009612*^9, 3.841730816457052*^9, + 3.841731097466299*^9, 3.841734184466147*^9, 3.841734614120433*^9, + 3.841735869375949*^9}, + CellLabel-> + "During evaluation of \ +In[146]:=",ExpressionUUID->"c70d6a63-f498-4689-b7a8-b8bced6c326c"] +}, Open ]], Cell[BoxData[ RowBox[{"{", - RowBox[{"1.9017425705133395`", ",", + RowBox[{"1.8759351826695893`*^6", ",", RowBox[{"{", RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.4205660602855785`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19819854132109802`"}], ",", + RowBox[{"\[Theta]c", "\[Rule]", "1.4692215040029069`"}], ",", + RowBox[{"\[Theta]0", "\[Rule]", "0.19772104516948574`"}], ",", RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.4450078675776648`"}]}], ",", + RowBox[{"-", "2.3095612298616612`"}]}], ",", RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5723900032479108`"}], ",", + RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.3806857340420622`"}], ",", RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.2774470302292178`"}], ",", + RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.2867811854830681`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.17288287974478225`"}]}], ",", + RowBox[{"-", "0.10713077760456652`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.13146623874166138`"}], ",", + RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.03778187254907053`"}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.10479974533776427`"}]}], ",", + RowBox[{"-", "0.013838211590936261`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.05727932658366424`"}], ",", + RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.00332550795963632`"}], ",", RowBox[{ RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.019428278795753182`"}]}], ",", + RowBox[{"-", "0.0004407074615141035`"}]}], ",", RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.003684613297584252`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "7", "]"}], "\[Rule]", - RowBox[{"-", "0.0002991412844663506`"}]}]}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{3.8413939151770983`*^9, 3.841398118546665*^9, - 3.841398237839446*^9, 3.8413995587444963`*^9}, - CellLabel->"Out[92]=",ExpressionUUID->"69efb9ea-6de8-44ad-8939-a52173d3fb72"] + RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00002324015633597342`"}]}], + "}"}]}], "}"}]], "Output", + CellChangeTimes->{3.841465826176421*^9, 3.841467284377163*^9, + 3.8414674263534927`*^9, 3.8414678229339647`*^9, 3.841468206103485*^9, + 3.841483963491498*^9, 3.84148484662928*^9, 3.84148510063456*^9, + 3.841485697534642*^9, 3.841730622567933*^9, 3.8417308963540287`*^9, + 3.841731197261178*^9, 3.841734255592373*^9, 3.84173468607911*^9, + 3.8417358735234423`*^9}, + CellLabel-> + "Out[146]=",ExpressionUUID->"89db88fc-0608-455a-92e4-e96046987fce"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"m51", "=", - RowBox[{"levenburgMarquardt", "[", + RowBox[{"ListPlot", "[", "\[IndentingNewLine]", + RowBox[{ RowBox[{ + RowBox[{"If", "[", + RowBox[{ + RowBox[{ + RowBox[{"Head", "[", "#", "]"}], "===", "Around"}], ",", + RowBox[{"#", "/", + RowBox[{"#", "[", "\"\\"", "]"}]}], ",", + RowBox[{"Around", "[", + RowBox[{ + RowBox[{"#", "/", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], ",", "1"}], "]"}]}], "]"}], "&"}], "/@", + RowBox[{"(", RowBox[{ RowBox[{ - RowBox[{"res", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "7", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "9"}]]}], "]"}], "[", "7", "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "7", "]"}], "]"}]}], ",", - RowBox[{"Join", "[", - RowBox[{ - RowBox[{"m5", "[", - RowBox[{"[", "2", "]"}], "]"}], ",", - RowBox[{"{", "}"}]}], "]"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841228339736465*^9, 3.841228391406146*^9}, { - 3.841228542777034*^9, 3.8412285565292*^9}, {3.841228600579276*^9, - 3.841228610938241*^9}, {3.84122872113229*^9, 3.841228734972561*^9}, { - 3.841229172428575*^9, 3.8412291846367283`*^9}, {3.841316222857486*^9, - 3.8413162470884*^9}, {3.841316614704316*^9, 3.8413166159591093`*^9}, { - 3.841317435994903*^9, 3.841317460414875*^9}, {3.841393205908807*^9, - 3.841393219668706*^9}, {3.841393715760593*^9, 3.841393720854136*^9}, { - 3.841393918673491*^9, 3.841393919841535*^9}, {3.841398218184306*^9, - 3.841398224352285*^9}, {3.841398275625342*^9, 3.8413983103457737`*^9}, { - 3.841398487229424*^9, 3.8413985091175823`*^9}}, + RowBox[{"Abs", "[", + RowBox[{ + RowBox[{"Ghs", "[", + RowBox[{"[", + RowBox[{";;", + RowBox[{"7", "+", "1"}]}], "]"}], "]"}], "-", + RowBox[{ + RowBox[{"dFd\[Xi]HighList", "[", + RowBox[{"nAs", ",", + RowBox[{"h", "[", "5", "]"}]}], "]"}], "[", "7", "]"}]}], "]"}], "//.", + RowBox[{"rules", "[", + RowBox[{"h", "[", "5", "]"}], "]"}]}], "/.", + RowBox[{"m4", "[", + RowBox[{"[", "2", "]"}], "]"}]}], ")"}]}], "\[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.8371574167259398`*^9, + 3.83715742501366*^9}, {3.838872732879181*^9, 3.8388727537664413`*^9}, { + 3.838873204703073*^9, 3.8388732099027357`*^9}, {3.838873255752236*^9, + 3.8388732834641113`*^9}, {3.8388734328271227`*^9, 3.8388734358267*^9}, { + 3.838874157024147*^9, 3.8388741604719753`*^9}, {3.839307790346795*^9, + 3.839307797698661*^9}, {3.8393093420874243`*^9, 3.839309343767222*^9}, { + 3.83940985668435*^9, 3.8394098593718357`*^9}, {3.839479308878851*^9, + 3.8394793092698917`*^9}, {3.839479351678846*^9, 3.839479359894719*^9}, { + 3.839484132822569*^9, 3.83948413582975*^9}, {3.839484417835371*^9, + 3.839484422402855*^9}, {3.8394844606917543`*^9, 3.8394845443653107`*^9}, { + 3.839485068790997*^9, 3.839485069686892*^9}, {3.839485153592383*^9, + 3.839485166081131*^9}, {3.8394852464151793`*^9, 3.8394852711790447`*^9}, { + 3.839485306757688*^9, 3.8394853151639977`*^9}, {3.8394853654853773`*^9, + 3.839485432894374*^9}, 3.839485523256114*^9, {3.839485578601307*^9, + 3.839485649138336*^9}, {3.8394857007256727`*^9, 3.839485723219755*^9}, { + 3.839485936266061*^9, 3.839486030177397*^9}, {3.839486075309197*^9, + 3.839486142116439*^9}, {3.839486179828413*^9, 3.839486218245903*^9}, { + 3.83948626754249*^9, 3.8394862713893957`*^9}, {3.8394864169524717`*^9, + 3.8394864816965714`*^9}, {3.839486986826584*^9, 3.8394869896504993`*^9}, { + 3.8394870445001507`*^9, 3.839487076477178*^9}, {3.839487130772867*^9, + 3.839487144740963*^9}, {3.8394876124142523`*^9, 3.83948761275005*^9}, { + 3.839487645182592*^9, 3.839487645638852*^9}, {3.839488048646216*^9, + 3.839488090182976*^9}, {3.839488424581703*^9, 3.8394884272211113`*^9}, { + 3.8394892409164047`*^9, 3.839489242332054*^9}, {3.839489275213091*^9, + 3.839489292188744*^9}, {3.839489492289144*^9, 3.839489571665984*^9}, { + 3.8394896094678373`*^9, 3.839489713796721*^9}, {3.839489762837819*^9, + 3.839489797445959*^9}, {3.839489857544436*^9, 3.839489893848106*^9}, { + 3.8394903055442333`*^9, 3.839490366136724*^9}, {3.839490881170803*^9, + 3.8394908814338083`*^9}, {3.839490914539504*^9, 3.839490928595656*^9}, { + 3.839492144689028*^9, 3.839492147329255*^9}, {3.839493141315516*^9, + 3.8394931647319393`*^9}, {3.839493641949576*^9, 3.83949364210872*^9}, { + 3.839494014823594*^9, 3.839494050556492*^9}, {3.8394955822727327`*^9, + 3.8394956194090643`*^9}, {3.839495922911708*^9, 3.839495935527544*^9}, { + 3.839496282949663*^9, 3.8394963032934713`*^9}, {3.839572033112393*^9, + 3.8395720353280907`*^9}, {3.839572166843008*^9, 3.839572169346869*^9}, { + 3.839586112218432*^9, 3.8395861234262123`*^9}, {3.839586281734277*^9, + 3.8395862878848553`*^9}, {3.839586416192438*^9, 3.839586419599288*^9}, { + 3.839658669660975*^9, 3.8396586751241493`*^9}, 3.839664357017618*^9, { + 3.839664563809626*^9, 3.8396646004174013`*^9}, {3.840528591761121*^9, + 3.8405285944877768`*^9}, {3.8405288185331697`*^9, 3.8405288189559*^9}, { + 3.840875796597721*^9, 3.840875807414563*^9}, {3.841134596143955*^9, + 3.841134611103293*^9}, {3.841135733956856*^9, 3.84113574469188*^9}, { + 3.841213686096504*^9, 3.841213700287394*^9}, {3.841390489772376*^9, + 3.841390490115335*^9}, {3.841466253710223*^9, 3.8414662964943447`*^9}, { + 3.841466368519874*^9, 3.841466399143363*^9}, {3.8414664657685127`*^9, + 3.841466482072263*^9}, {3.841466579721918*^9, 3.841466581697276*^9}, { + 3.841467822982641*^9, 3.841467887060186*^9}, {3.841484003411813*^9, + 3.8414840895729713`*^9}, {3.84148427696859*^9, 3.8414842809922123`*^9}}, CellLabel-> - "In[102]:=",ExpressionUUID->"2c7c3b5e-d41f-476f-ab68-909319b9e007"], + "In[335]:=",ExpressionUUID->"aee89b99-c52c-426f-9380-809683f9fe8d"], Cell[BoxData[ - RowBox[{"{", - RowBox[{"1.9021396559069992`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.4204596265379152`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19819805658473086`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.4449990949540368`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5723843509940674`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.27750778400993403`"}], ",", - - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.1728292701409841`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.13145516347208175`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.10482998716029633`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.057320490056466326`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.01945073497427055`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.003690444493002748`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "7", "]"}], "\[Rule]", - RowBox[{"-", "0.0002997377480849746`"}]}]}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{3.841399959706993*^9}, + GraphicsBox[{{{ + {RGBColor[0.368417, 0.506779, 0.709798], + StyleBox[{{}, {LineBox[{{1., -1.}, {1., 0.}}], + LineBox[{{1., 0.}, {1., 1.}}]}}, + Antialiasing->False]}, + {RGBColor[0.368417, 0.506779, 0.709798], + StyleBox[{{}, {LineBox[{{2., -1.}, {2., 0.}}], + LineBox[{{2., 0.}, {2., 1.}}]}}, + Antialiasing->False]}, + {RGBColor[0.368417, 0.506779, 0.709798], + StyleBox[{{}, { + LineBox[{{3., -0.7157829056959599}, {3., 0.2842170943040401}}], + LineBox[{{3., 0.2842170943040401}, {3., 1.28421709430404}}]}}, + Antialiasing->False]}, + {RGBColor[0.368417, 0.506779, 0.709798], + StyleBox[{{}, {LineBox[{{4., -1.}, {4., 0.}}], + LineBox[{{4., 0.}, {4., 1.}}]}}, + Antialiasing->False]}, + {RGBColor[0.368417, 0.506779, 0.709798], + StyleBox[{{}, { + LineBox[{{5., -0.9999754862756163}, {5., 0.000024513724383723456`}}], + LineBox[{{5., 0.000024513724383723456`}, {5., + 1.0000245137243837`}}]}}, + Antialiasing->False]}, + {RGBColor[0.368417, 0.506779, 0.709798], + StyleBox[{{}, {LineBox[{{6., -1.}, {6., 0.}}], + LineBox[{{6., 0.}, {6., 1.}}]}}, + Antialiasing->False]}, + {RGBColor[0.368417, 0.506779, 0.709798], + StyleBox[{{}, { + LineBox[{{7., -0.9702601324239973}, {7., 0.029739867576002624`}}], + LineBox[{{7., 0.029739867576002624`}, {7., 1.0297398675760026`}}]}}, + Antialiasing->False]}, + {RGBColor[0.368417, 0.506779, 0.709798], + StyleBox[{{}, {LineBox[{{8., -1.}, {8., 0.}}], + LineBox[{{8., 0.}, {8., 1.}}]}}, + Antialiasing->False]}}, { + {RGBColor[0.368417, 0.506779, 0.709798], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{1., 1.}, Offset[{3, 0}, {1., 1.}]}, {{1., 1.}, + Offset[{-3, 0}, {1., 1.}]}, {{1., -1.}, + Offset[{3, 0}, {1., -1.}]}, {{1., -1.}, + Offset[{-3, 0}, {1., -1.}]}}], {{{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., 1.}, Offset[{3, 0}, {2., 1.}]}, {{2., 1.}, + Offset[{-3, 0}, {2., 1.}]}, {{2., -1.}, + Offset[{3, 0}, {2., -1.}]}, {{2., -1.}, + Offset[{-3, 0}, {2., -1.}]}}], {{{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.28421709430404}, + Offset[{3, 0}, {3., 1.28421709430404}]}, {{3., 1.28421709430404}, + Offset[{-3, 0}, {3., 1.28421709430404}]}, {{ + 3., -0.7157829056959599}, + Offset[{3, 0}, {3., -0.7157829056959599}]}, {{ + 3., -0.7157829056959599}, + Offset[{-3, 0}, {3., -0.7157829056959599}]}}], {{{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., 1.}, Offset[{3, 0}, {4., 1.}]}, {{4., 1.}, + Offset[{-3, 0}, {4., 1.}]}, {{4., -1.}, + Offset[{3, 0}, {4., -1.}]}, {{4., -1.}, + Offset[{-3, 0}, {4., -1.}]}}], {{{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., 1.0000245137243837`}, + Offset[{3, 0}, {5., 1.0000245137243837`}]}, {{5., + 1.0000245137243837`}, + Offset[{-3, 0}, {5., 1.0000245137243837`}]}, {{ + 5., -0.9999754862756163}, + Offset[{3, 0}, {5., -0.9999754862756163}]}, {{ + 5., -0.9999754862756163}, + Offset[{-3, 0}, {5., -0.9999754862756163}]}}], {{{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., 1.}, Offset[{3, 0}, {6., 1.}]}, {{6., 1.}, + Offset[{-3, 0}, {6., 1.}]}, {{6., -1.}, + Offset[{3, 0}, {6., -1.}]}, {{6., -1.}, + Offset[{-3, 0}, {6., -1.}]}}], {{{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., 1.0297398675760026`}, + Offset[{3, 0}, {7., 1.0297398675760026`}]}, {{7., + 1.0297398675760026`}, + Offset[{-3, 0}, {7., 1.0297398675760026`}]}, {{ + 7., -0.9702601324239973}, + Offset[{3, 0}, {7., -0.9702601324239973}]}, {{ + 7., -0.9702601324239973}, + Offset[{-3, 0}, {7., -0.9702601324239973}]}}], {{{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., 1.}, Offset[{3, 0}, {8., 1.}]}, {{8., 1.}, + Offset[{-3, 0}, {8., 1.}]}, {{8., -1.}, + Offset[{3, 0}, {8., -1.}]}, {{8., -1.}, + Offset[{-3, 0}, {8., -1.}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, + + Antialiasing->False]}}}, + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], + AbsoluteThickness[1.6], + PointBox[{{1., 0.}, {2., 0.}, {3., 0.2842170943040401}, {4., 0.}, {5., + 0.000024513724383723456`}, {6., 0.}, {7., 0.029739867576002624`}, {8., + 0.}}]}, {{}, {}}}, + 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., 8.}, {-0.4263256414560601, 0.7105427357601002}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.8394864302572823`*^9, 3.839486485737481*^9}, { + 3.8394868108920527`*^9, 3.839486833544271*^9}, {3.839486968169405*^9, + 3.839486994739235*^9}, {3.839487050609737*^9, 3.839487081545911*^9}, { + 3.839487139032605*^9, 3.839487149734391*^9}, 3.8394880559648848`*^9, + 3.839488095210012*^9, 3.839488432022138*^9, 3.839488966485567*^9, + 3.839489132907782*^9, 3.8394891742679043`*^9, {3.83948923216856*^9, + 3.839489247298073*^9}, {3.8394892811100388`*^9, 3.839489297255623*^9}, { + 3.839489518429874*^9, 3.839489576749642*^9}, 3.839489614460577*^9, { + 3.839489646744204*^9, 3.839489717916*^9}, {3.839489779953936*^9, + 3.839489797877178*^9}, {3.839489858269053*^9, 3.839489894400456*^9}, + 3.83948999298129*^9, 3.839490039302783*^9, 3.839490198501548*^9, { + 3.8394903145949183`*^9, 3.839490366668486*^9}, 3.839490410230691*^9, + 3.83949068744411*^9, 3.839490882032105*^9, {3.839490915087521*^9, + 3.8394909440773563`*^9}, {3.839491208442045*^9, 3.839491227913024*^9}, + 3.839491282583577*^9, 3.83949138318426*^9, 3.839491847872534*^9, + 3.839491922779976*^9, {3.83949214072232*^9, 3.839492147793445*^9}, + 3.839492703416108*^9, {3.8394930877867403`*^9, 3.839493111348575*^9}, + 3.839493159337824*^9, 3.839493260745894*^9, 3.8394938495813704`*^9, { + 3.839494015878335*^9, 3.839494051166876*^9}, 3.839494155707307*^9, { + 3.839494232008819*^9, 3.8394942817479143`*^9}, {3.8394955838062563`*^9, + 3.839495620912838*^9}, {3.839495892980287*^9, 3.839495961352178*^9}, + 3.839495996781355*^9, 3.8394960290995007`*^9, {3.8394961117034683`*^9, + 3.839496132210868*^9}, {3.839496233750821*^9, 3.839496247464304*^9}, { + 3.839496287823802*^9, 3.839496304224265*^9}, 3.83949641106695*^9, + 3.839496651844782*^9, 3.839569714442939*^9, 3.839570692350816*^9, + 3.839571037545631*^9, 3.8395710776956797`*^9, 3.8395711376334047`*^9, + 3.839571186222416*^9, 3.839571351854351*^9, 3.8395716431049433`*^9, + 3.8395716961263447`*^9, 3.8395719356619263`*^9, 3.839571975466508*^9, { + 3.8395720292576017`*^9, 3.839572038127006*^9}, {3.83957217256413*^9, + 3.83957219391011*^9}, 3.839572236054682*^9, {3.839572276306333*^9, + 3.839572287892969*^9}, 3.839572342583872*^9, 3.839572572560753*^9, + 3.839572613884104*^9, {3.839572830197351*^9, 3.839572867853582*^9}, { + 3.839572962859436*^9, 3.839572978399377*^9}, 3.839573191565909*^9, + 3.83957323416776*^9, 3.839574190974876*^9, {3.839574358418882*^9, + 3.839574363836178*^9}, 3.839577688193771*^9, {3.839577931409347*^9, + 3.839577940725779*^9}, {3.839579623692398*^9, 3.839579641583359*^9}, + 3.839580176251998*^9, {3.839580243310802*^9, 3.839580260058309*^9}, + 3.83958034038577*^9, 3.839581557584*^9, {3.83958160487352*^9, + 3.839581615679512*^9}, 3.839581993151758*^9, 3.839582040886951*^9, + 3.839582108820992*^9, 3.839582559973913*^9, 3.839582771424386*^9, { + 3.839583107834976*^9, 3.839583154778919*^9}, {3.8395842000019083`*^9, + 3.839584229236342*^9}, 3.839584319284484*^9, 3.8395843940434847`*^9, + 3.839584572371277*^9, 3.839584947067206*^9, 3.839585081305537*^9, + 3.839586137503179*^9, 3.8395862976249247`*^9, 3.839586429104487*^9, + 3.839587842464167*^9, 3.839647990219092*^9, 3.8396572711023006`*^9, + 3.839658508039483*^9, 3.839658567146755*^9, {3.8396586610674477`*^9, + 3.8396586758654203`*^9}, 3.839659271097528*^9, 3.839661799778942*^9, { + 3.839664337728752*^9, 3.8396643582360373`*^9}, {3.839664548980212*^9, + 3.839664603837595*^9}, 3.839664641104356*^9, 3.8396691346008053`*^9, + 3.8396700455490303`*^9, 3.839670127013689*^9, 3.8405260833413677`*^9, { + 3.840527418121812*^9, 3.840527428230318*^9}, 3.840528597876438*^9, { + 3.84052880585203*^9, 3.840528823602725*^9}, 3.840610810412817*^9, + 3.8408694556097403`*^9, 3.840872804624278*^9, {3.840875797574889*^9, + 3.8408758121424313`*^9}, {3.840877666763609*^9, 3.840877677233533*^9}, + 3.840878067793683*^9, {3.840880830069907*^9, 3.84088085023195*^9}, { + 3.840880881407505*^9, 3.840880885369958*^9}, 3.840880931429838*^9, + 3.840880983523183*^9, 3.840882901582034*^9, 3.8411116534753313`*^9, + 3.841111732347678*^9, 3.841112335446682*^9, 3.8411123976633244`*^9, + 3.8411142717862453`*^9, 3.841114943143334*^9, 3.841115089052647*^9, + 3.841115194051117*^9, 3.8411159468161507`*^9, 3.841116777994376*^9, + 3.841117271305902*^9, {3.841118706967044*^9, 3.841118717367868*^9}, { + 3.8411193655082083`*^9, 3.84111937034937*^9}, 3.8411197766851873`*^9, + 3.8411198234566708`*^9, 3.841119866102133*^9, 3.841120115400488*^9, + 3.841121153260182*^9, 3.841121472842341*^9, 3.841121535767632*^9, + 3.8411219087701063`*^9, 3.841121980800602*^9, 3.841130166199669*^9, + 3.8411305965940332`*^9, {3.841130719276822*^9, 3.8411307399666243`*^9}, + 3.8411312190210743`*^9, 3.841134375147834*^9, 3.8411344263576813`*^9, { + 3.8411344705668488`*^9, 3.841134479867544*^9}, {3.8411346037463017`*^9, + 3.8411346144767933`*^9}, 3.8411356496009407`*^9, 3.841135748390747*^9, + 3.8412137046354218`*^9, 3.841225535005499*^9, 3.8413034028742332`*^9, + 3.841304441693802*^9, 3.841304530951276*^9, {3.841305187833931*^9, + 3.841305194151207*^9}, 3.84130523777777*^9, 3.8413053474536552`*^9, + 3.84131085931179*^9, 3.841316307349918*^9, {3.841390485438642*^9, + 3.84139049061092*^9}, 3.841390578562212*^9, 3.841391291253233*^9, + 3.841392160241373*^9, 3.841392337222522*^9, 3.841463592218527*^9, + 3.841464593325774*^9, {3.84146629539501*^9, 3.841466301656163*^9}, { + 3.841466384639339*^9, 3.841466402526952*^9}, {3.841466472723971*^9, + 3.8414664828370647`*^9}, 3.8414665824436007`*^9, 3.841466673870327*^9, + 3.841467838433302*^9, {3.841467883576232*^9, 3.8414678912410383`*^9}, { + 3.841484010972992*^9, 3.841484090971327*^9}, 3.841484283040318*^9}, CellLabel-> - "Out[102]=",ExpressionUUID->"9dc12880-4f12-455f-a9af-c6f48bc694f4"] + "Out[335]=",ExpressionUUID->"094fdff7-23ff-47ac-8b46-a640d633a3bd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"m52", "=", - RowBox[{"levenburgMarquardt", "[", + RowBox[{"ListPlot", "[", "\[IndentingNewLine]", + RowBox[{ RowBox[{ + RowBox[{"If", "[", + RowBox[{ + RowBox[{ + RowBox[{"Head", "[", "#", "]"}], "===", "Around"}], ",", + RowBox[{"#", "/", + RowBox[{"#", "[", "\"\\"", "]"}]}], ",", + RowBox[{"Around", "[", + RowBox[{ + RowBox[{"#", "/", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], ",", "1"}], "]"}]}], "]"}], "&"}], "/@", + RowBox[{"(", RowBox[{ + RowBox[{ + RowBox[{"Abs", "[", + RowBox[{ + RowBox[{"Gls", "[", + RowBox[{"[", + RowBox[{";;", + RowBox[{"4", "+", "1"}]}], "]"}], "]"}], "-", + RowBox[{ + RowBox[{"dFd\[Xi]LowList", "[", + RowBox[{"nAs", ",", + RowBox[{"h", "[", "3", "]"}]}], "]"}], "[", "4", "]"}]}], "]"}], "//.", + RowBox[{"rules", "[", + RowBox[{"h", "[", "3", "]"}], "]"}]}], "/.", + RowBox[{"m2", "[", + RowBox[{"[", "2", "]"}], "]"}]}], ")"}]}], "\[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.8371574167259398`*^9, + 3.83715742501366*^9}, {3.838872732879181*^9, 3.8388727537664413`*^9}, { + 3.838873204703073*^9, 3.8388732099027357`*^9}, {3.838873255752236*^9, + 3.8388732834641113`*^9}, {3.8388734328271227`*^9, 3.8388734358267*^9}, { + 3.838874157024147*^9, 3.8388741604719753`*^9}, {3.839307790346795*^9, + 3.839307797698661*^9}, {3.8393093420874243`*^9, 3.839309343767222*^9}, { + 3.83940985668435*^9, 3.8394098593718357`*^9}, {3.839479308878851*^9, + 3.8394793092698917`*^9}, {3.839479351678846*^9, 3.839479359894719*^9}, { + 3.839484132822569*^9, 3.83948413582975*^9}, {3.839484417835371*^9, + 3.839484422402855*^9}, {3.8394844606917543`*^9, 3.8394845443653107`*^9}, { + 3.839485068790997*^9, 3.839485069686892*^9}, {3.839485153592383*^9, + 3.839485166081131*^9}, {3.8394852464151793`*^9, 3.8394852711790447`*^9}, { + 3.839485306757688*^9, 3.8394853151639977`*^9}, {3.8394853654853773`*^9, + 3.839485432894374*^9}, 3.839485523256114*^9, {3.839485578601307*^9, + 3.839485649138336*^9}, {3.8394857007256727`*^9, 3.839485723219755*^9}, { + 3.839485936266061*^9, 3.839486030177397*^9}, {3.839486075309197*^9, + 3.839486142116439*^9}, {3.839486179828413*^9, 3.839486218245903*^9}, { + 3.83948626754249*^9, 3.8394862713893957`*^9}, {3.8394864169524717`*^9, + 3.8394864816965714`*^9}, {3.839486986826584*^9, 3.8394869896504993`*^9}, { + 3.8394870445001507`*^9, 3.839487076477178*^9}, {3.839487130772867*^9, + 3.839487144740963*^9}, {3.8394876124142523`*^9, 3.83948761275005*^9}, { + 3.839487645182592*^9, 3.839487645638852*^9}, {3.839488048646216*^9, + 3.839488090182976*^9}, {3.839488424581703*^9, 3.8394884272211113`*^9}, { + 3.8394892409164047`*^9, 3.839489242332054*^9}, {3.839489275213091*^9, + 3.839489292188744*^9}, {3.839489492289144*^9, 3.839489571665984*^9}, { + 3.8394896094678373`*^9, 3.839489713796721*^9}, {3.839489762837819*^9, + 3.839489797445959*^9}, {3.839489857544436*^9, 3.839489893848106*^9}, { + 3.8394903055442333`*^9, 3.839490366136724*^9}, {3.839490881170803*^9, + 3.8394908814338083`*^9}, {3.839490914539504*^9, 3.839490928595656*^9}, { + 3.839492144689028*^9, 3.839492147329255*^9}, {3.839493141315516*^9, + 3.8394931647319393`*^9}, {3.839493641949576*^9, 3.83949364210872*^9}, { + 3.839494014823594*^9, 3.839494050556492*^9}, {3.8394955822727327`*^9, + 3.8394956194090643`*^9}, {3.839495922911708*^9, 3.839495935527544*^9}, { + 3.839496282949663*^9, 3.8394963032934713`*^9}, {3.839572033112393*^9, + 3.8395720353280907`*^9}, {3.839572166843008*^9, 3.839572169346869*^9}, { + 3.839586112218432*^9, 3.8395861234262123`*^9}, {3.839586281734277*^9, + 3.8395862878848553`*^9}, {3.839586416192438*^9, 3.839586419599288*^9}, { + 3.839658669660975*^9, 3.8396586751241493`*^9}, 3.839664357017618*^9, { + 3.839664563809626*^9, 3.8396646004174013`*^9}, {3.840528591761121*^9, + 3.8405285944877768`*^9}, {3.8405288185331697`*^9, 3.8405288189559*^9}, { + 3.840875796597721*^9, 3.840875807414563*^9}, {3.841134596143955*^9, + 3.841134611103293*^9}, {3.841135733956856*^9, 3.84113574469188*^9}, { + 3.841213686096504*^9, 3.841213700287394*^9}, {3.841390489772376*^9, + 3.841390490115335*^9}, {3.841466253710223*^9, 3.8414662964943447`*^9}, { + 3.841466368519874*^9, 3.841466399143363*^9}, {3.8414664657685127`*^9, + 3.841466482072263*^9}, {3.841466579721918*^9, 3.841466581697276*^9}, { + 3.841467822982641*^9, 3.841467887060186*^9}, {3.841484003411813*^9, + 3.8414840895729713`*^9}, {3.841733546733794*^9, 3.841733599750197*^9}, { + 3.841733657807919*^9, 3.841733679959672*^9}}, + CellLabel->"In[28]:=",ExpressionUUID->"86e28df3-e9b9-4c9d-b376-e2250a73da96"], + +Cell[BoxData[ + GraphicsBox[{{{ + {RGBColor[0.368417, 0.506779, 0.709798], + StyleBox[{{}, { + LineBox[{{1., -0.5815500031248746}, {1., 0.4184499968751254}}], + LineBox[{{1., 0.4184499968751254}, {1., 1.4184499968751254`}}]}}, + Antialiasing->False]}, + {RGBColor[0.368417, 0.506779, 0.709798], + StyleBox[{{}, { + LineBox[{{2., -0.44932937978592236`}, {2., 0.5506706202140776}}], + LineBox[{{2., 0.5506706202140776}, {2., 1.5506706202140776`}}]}}, + Antialiasing->False]}, + {RGBColor[0.368417, 0.506779, 0.709798], + StyleBox[{{}, { + LineBox[{{3., -0.7633143289377244}, {3., 0.23668567106227556`}}], + LineBox[{{3., 0.23668567106227556`}, {3., 1.2366856710622756`}}]}}, + Antialiasing->False]}, + {RGBColor[0.368417, 0.506779, 0.709798], + StyleBox[{{}, { + LineBox[{{4., -0.9980687277282657}, {4., 0.0019312722717342485`}}], + LineBox[{{4., 0.0019312722717342485`}, {4., 1.0019312722717342`}}]}}, + + Antialiasing->False]}, + {RGBColor[0.368417, 0.506779, 0.709798], + StyleBox[{{}, { + LineBox[{{5., -0.9939901615397807}, {5., 0.006009838460219185}}], + LineBox[{{5., 0.006009838460219185}, {5., 1.006009838460219}}]}}, + Antialiasing->False]}}, { + {RGBColor[0.368417, 0.506779, 0.709798], + StyleBox[{ + GeometricTransformationBox[ + LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], + GeometricTransformationBox[ + LineBox[{{{1., 1.4184499968751254`}, + Offset[{3, 0}, {1., 1.4184499968751254`}]}, {{1., + 1.4184499968751254`}, + Offset[{-3, 0}, {1., 1.4184499968751254`}]}, {{ + 1., -0.5815500031248746}, + Offset[{3, 0}, {1., -0.5815500031248746}]}, {{ + 1., -0.5815500031248746}, + Offset[{-3, 0}, {1., -0.5815500031248746}]}}], {{{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., 1.5506706202140776`}, + Offset[{3, 0}, {2., 1.5506706202140776`}]}, {{2., + 1.5506706202140776`}, + Offset[{-3, 0}, {2., 1.5506706202140776`}]}, {{ + 2., -0.44932937978592236`}, + Offset[{3, 0}, {2., -0.44932937978592236`}]}, {{ + 2., -0.44932937978592236`}, + Offset[{-3, 0}, {2., -0.44932937978592236`}]}}], {{{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.2366856710622756`}, + Offset[{3, 0}, {3., 1.2366856710622756`}]}, {{3., + 1.2366856710622756`}, + Offset[{-3, 0}, {3., 1.2366856710622756`}]}, {{ + 3., -0.7633143289377244}, + Offset[{3, 0}, {3., -0.7633143289377244}]}, {{ + 3., -0.7633143289377244}, + Offset[{-3, 0}, {3., -0.7633143289377244}]}}], {{{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., 1.0019312722717342`}, + Offset[{3, 0}, {4., 1.0019312722717342`}]}, {{4., + 1.0019312722717342`}, + Offset[{-3, 0}, {4., 1.0019312722717342`}]}, {{ + 4., -0.9980687277282657}, + Offset[{3, 0}, {4., -0.9980687277282657}]}, {{ + 4., -0.9980687277282657}, + Offset[{-3, 0}, {4., -0.9980687277282657}]}}], {{{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., 1.006009838460219}, + Offset[{3, 0}, {5., 1.006009838460219}]}, {{5., + 1.006009838460219}, Offset[{-3, 0}, {5., 1.006009838460219}]}, {{ + 5., -0.9939901615397807}, + Offset[{3, 0}, {5., -0.9939901615397807}]}, {{ + 5., -0.9939901615397807}, + Offset[{-3, 0}, {5., -0.9939901615397807}]}}], {{{1., 0.}, {0., + 1.}}, {0., 0.}}]}, + Antialiasing->False]}}}, + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], + AbsoluteThickness[1.6], + PointBox[{{1., 0.4184499968751254}, {2., 0.5506706202140776}, {3., + 0.23668567106227556`}, {4., 0.0019312722717342485`}, {5., + 0.006009838460219185}}]}, {{}, {}}}, + 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., 5.}, {-0.9980687277282657, 1.5506706202140776`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.8394864302572823`*^9, 3.839486485737481*^9}, { + 3.8394868108920527`*^9, 3.839486833544271*^9}, {3.839486968169405*^9, + 3.839486994739235*^9}, {3.839487050609737*^9, 3.839487081545911*^9}, { + 3.839487139032605*^9, 3.839487149734391*^9}, 3.8394880559648848`*^9, + 3.839488095210012*^9, 3.839488432022138*^9, 3.839488966485567*^9, + 3.839489132907782*^9, 3.8394891742679043`*^9, {3.83948923216856*^9, + 3.839489247298073*^9}, {3.8394892811100388`*^9, 3.839489297255623*^9}, { + 3.839489518429874*^9, 3.839489576749642*^9}, 3.839489614460577*^9, { + 3.839489646744204*^9, 3.839489717916*^9}, {3.839489779953936*^9, + 3.839489797877178*^9}, {3.839489858269053*^9, 3.839489894400456*^9}, + 3.83948999298129*^9, 3.839490039302783*^9, 3.839490198501548*^9, { + 3.8394903145949183`*^9, 3.839490366668486*^9}, 3.839490410230691*^9, + 3.83949068744411*^9, 3.839490882032105*^9, {3.839490915087521*^9, + 3.8394909440773563`*^9}, {3.839491208442045*^9, 3.839491227913024*^9}, + 3.839491282583577*^9, 3.83949138318426*^9, 3.839491847872534*^9, + 3.839491922779976*^9, {3.83949214072232*^9, 3.839492147793445*^9}, + 3.839492703416108*^9, {3.8394930877867403`*^9, 3.839493111348575*^9}, + 3.839493159337824*^9, 3.839493260745894*^9, 3.8394938495813704`*^9, { + 3.839494015878335*^9, 3.839494051166876*^9}, 3.839494155707307*^9, { + 3.839494232008819*^9, 3.8394942817479143`*^9}, {3.8394955838062563`*^9, + 3.839495620912838*^9}, {3.839495892980287*^9, 3.839495961352178*^9}, + 3.839495996781355*^9, 3.8394960290995007`*^9, {3.8394961117034683`*^9, + 3.839496132210868*^9}, {3.839496233750821*^9, 3.839496247464304*^9}, { + 3.839496287823802*^9, 3.839496304224265*^9}, 3.83949641106695*^9, + 3.839496651844782*^9, 3.839569714442939*^9, 3.839570692350816*^9, + 3.839571037545631*^9, 3.8395710776956797`*^9, 3.8395711376334047`*^9, + 3.839571186222416*^9, 3.839571351854351*^9, 3.8395716431049433`*^9, + 3.8395716961263447`*^9, 3.8395719356619263`*^9, 3.839571975466508*^9, { + 3.8395720292576017`*^9, 3.839572038127006*^9}, {3.83957217256413*^9, + 3.83957219391011*^9}, 3.839572236054682*^9, {3.839572276306333*^9, + 3.839572287892969*^9}, 3.839572342583872*^9, 3.839572572560753*^9, + 3.839572613884104*^9, {3.839572830197351*^9, 3.839572867853582*^9}, { + 3.839572962859436*^9, 3.839572978399377*^9}, 3.839573191565909*^9, + 3.83957323416776*^9, 3.839574190974876*^9, {3.839574358418882*^9, + 3.839574363836178*^9}, 3.839577688193771*^9, {3.839577931409347*^9, + 3.839577940725779*^9}, {3.839579623692398*^9, 3.839579641583359*^9}, + 3.839580176251998*^9, {3.839580243310802*^9, 3.839580260058309*^9}, + 3.83958034038577*^9, 3.839581557584*^9, {3.83958160487352*^9, + 3.839581615679512*^9}, 3.839581993151758*^9, 3.839582040886951*^9, + 3.839582108820992*^9, 3.839582559973913*^9, 3.839582771424386*^9, { + 3.839583107834976*^9, 3.839583154778919*^9}, {3.8395842000019083`*^9, + 3.839584229236342*^9}, 3.839584319284484*^9, 3.8395843940434847`*^9, + 3.839584572371277*^9, 3.839584947067206*^9, 3.839585081305537*^9, + 3.839586137503179*^9, 3.8395862976249247`*^9, 3.839586429104487*^9, + 3.839587842464167*^9, 3.839647990219092*^9, 3.8396572711023006`*^9, + 3.839658508039483*^9, 3.839658567146755*^9, {3.8396586610674477`*^9, + 3.8396586758654203`*^9}, 3.839659271097528*^9, 3.839661799778942*^9, { + 3.839664337728752*^9, 3.8396643582360373`*^9}, {3.839664548980212*^9, + 3.839664603837595*^9}, 3.839664641104356*^9, 3.8396691346008053`*^9, + 3.8396700455490303`*^9, 3.839670127013689*^9, 3.8405260833413677`*^9, { + 3.840527418121812*^9, 3.840527428230318*^9}, 3.840528597876438*^9, { + 3.84052880585203*^9, 3.840528823602725*^9}, 3.840610810412817*^9, + 3.8408694556097403`*^9, 3.840872804624278*^9, {3.840875797574889*^9, + 3.8408758121424313`*^9}, {3.840877666763609*^9, 3.840877677233533*^9}, + 3.840878067793683*^9, {3.840880830069907*^9, 3.84088085023195*^9}, { + 3.840880881407505*^9, 3.840880885369958*^9}, 3.840880931429838*^9, + 3.840880983523183*^9, 3.840882901582034*^9, 3.8411116534753313`*^9, + 3.841111732347678*^9, 3.841112335446682*^9, 3.8411123976633244`*^9, + 3.8411142717862453`*^9, 3.841114943143334*^9, 3.841115089052647*^9, + 3.841115194051117*^9, 3.8411159468161507`*^9, 3.841116777994376*^9, + 3.841117271305902*^9, {3.841118706967044*^9, 3.841118717367868*^9}, { + 3.8411193655082083`*^9, 3.84111937034937*^9}, 3.8411197766851873`*^9, + 3.8411198234566708`*^9, 3.841119866102133*^9, 3.841120115400488*^9, + 3.841121153260182*^9, 3.841121472842341*^9, 3.841121535767632*^9, + 3.8411219087701063`*^9, 3.841121980800602*^9, 3.841130166199669*^9, + 3.8411305965940332`*^9, {3.841130719276822*^9, 3.8411307399666243`*^9}, + 3.8411312190210743`*^9, 3.841134375147834*^9, 3.8411344263576813`*^9, { + 3.8411344705668488`*^9, 3.841134479867544*^9}, {3.8411346037463017`*^9, + 3.8411346144767933`*^9}, 3.8411356496009407`*^9, 3.841135748390747*^9, + 3.8412137046354218`*^9, 3.841225535005499*^9, 3.8413034028742332`*^9, + 3.841304441693802*^9, 3.841304530951276*^9, {3.841305187833931*^9, + 3.841305194151207*^9}, 3.84130523777777*^9, 3.8413053474536552`*^9, + 3.84131085931179*^9, 3.841316307349918*^9, {3.841390485438642*^9, + 3.84139049061092*^9}, 3.841390578562212*^9, 3.841391291253233*^9, + 3.841392160241373*^9, 3.841392337222522*^9, 3.841463592218527*^9, + 3.841464593325774*^9, {3.84146629539501*^9, 3.841466301656163*^9}, { + 3.841466384639339*^9, 3.841466402526952*^9}, {3.841466472723971*^9, + 3.8414664828370647`*^9}, 3.8414665824436007`*^9, 3.841466673870327*^9, + 3.841467838433302*^9, {3.841467883576232*^9, 3.8414678912410383`*^9}, { + 3.841484010972992*^9, 3.841484090971327*^9}, {3.8417335944855137`*^9, + 3.84173360078579*^9}, {3.8417336641871347`*^9, 3.8417336809514713`*^9}, + 3.841733732414792*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"b6b92c28-1fd8-4208-80f6-dc297afdca9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + SuperscriptBox[ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", - RowBox[{"h", "[", "7", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], "]"}], "[", "7", "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "7", "]"}], "]"}]}], ",", - RowBox[{"Join", "[", - RowBox[{ - RowBox[{"m51", "[", - RowBox[{"[", "2", "]"}], "]"}], ",", - RowBox[{"{", "}"}]}], "]"}], ",", "1", ",", "2", ",", - SuperscriptBox["10", - RowBox[{"-", "16"}]]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841228339736465*^9, 3.841228391406146*^9}, { - 3.841228542777034*^9, 3.8412285565292*^9}, {3.841228600579276*^9, - 3.841228610938241*^9}, {3.84122872113229*^9, 3.841228734972561*^9}, { - 3.841229172428575*^9, 3.8412291846367283`*^9}, {3.841316222857486*^9, - 3.8413162470884*^9}, {3.841316614704316*^9, 3.8413166159591093`*^9}, { - 3.841317435994903*^9, 3.841317460414875*^9}, {3.841393205908807*^9, - 3.841393219668706*^9}, {3.841393715760593*^9, 3.841393720854136*^9}, { - 3.841393918673491*^9, 3.841393919841535*^9}, {3.841398218184306*^9, - 3.841398224352285*^9}, {3.841398275625342*^9, 3.8413983103457737`*^9}, { - 3.841398487229424*^9, 3.8413985091175823`*^9}, {3.8413996342097187`*^9, - 3.841399642170405*^9}, {3.841400180285033*^9, 3.841400183652734*^9}}, + RowBox[{"h", "[", "5", "]"}], ",", "\[Delta]"}], "]"}], "[", "7", + "]"}], "2"], "//.", + RowBox[{"rules", "[", + RowBox[{"h", "[", "5", "]"}], "]"}]}], "/.", + RowBox[{"m5", "[", + RowBox[{"[", "2", "]"}], "]"}]}], "/.", + RowBox[{"\[Delta]", "->", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]}]], "Input", + CellChangeTimes->{{3.841484363307539*^9, 3.8414843901158257`*^9}, { + 3.841484477837139*^9, 3.841484478027885*^9}, {3.841737234056855*^9, + 3.841737236584674*^9}, {3.841737343483218*^9, 3.841737356282648*^9}}, CellLabel-> - "In[119]:=",ExpressionUUID->"6096679b-6643-4008-997f-3d750c430491"], + "In[160]:=",ExpressionUUID->"c18b0b40-ab1a-45cd-ade8-999f04490358"], Cell[BoxData[ RowBox[{"{", - RowBox[{"4.139071598503173`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.4204596265379152`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19819805658473086`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.4449990949540368`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5723843509940674`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.27750778400993403`"}], ",", - - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.1728292701409842`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.13145516347208172`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.10482998716029633`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.057320490056466326`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.01945073497427055`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.003690444493002748`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "7", "]"}], "\[Rule]", - RowBox[{"-", "0.00029973774808497456`"}]}]}], "}"}]}], "}"}]], "Output",\ - - CellChangeTimes->{3.841400007462675*^9, 3.841400166617161*^9, - 3.841400210384927*^9}, + RowBox[{ + "0.441310905172147`", ",", "0.0008332343311396938`", ",", + "0.1030812065608729`", ",", "10859.411015830416`", ",", + "2722.4893253608857`", ",", "7735.828570029304`", ",", + "1.8866762650938586`*^6", ",", "59144.69478736928`", ",", + "0.040828482225844995`", ",", "0.01157714264349952`", ",", + "341.5071548002231`", ",", "560.8131405032736`", ",", + RowBox[{"4.212955762099026`", "\[VeryThinSpace]", "+", + RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], "}"}]], "Output", + CellChangeTimes->{{3.841484380853382*^9, 3.841484391296424*^9}, + 3.841484479328834*^9, {3.8417372314526987`*^9, 3.8417372372839403`*^9}, + 3.841737358030662*^9}, CellLabel-> - "Out[119]=",ExpressionUUID->"54eeb4f0-c3d0-4499-a71b-8206a387f0dd"] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"m5", "=", - RowBox[{"{", - RowBox[{"1.9017425705133395`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.4205660602855785`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19819854132109802`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.4450078675776648`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5723900032479108`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.2774470302292178`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.17288287974478225`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.13146623874166138`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.10479974533776427`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.05727932658366424`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.019428278795753182`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.003684613297584252`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "7", "]"}], "\[Rule]", - RowBox[{"-", "0.0002991412844663506`"}]}]}], "}"}]}], "}"}]}], - ";"}]], "Input", - CellChangeTimes->{{3.841400266686124*^9, 3.84140028255048*^9}}, - CellLabel->"In[6]:=",ExpressionUUID->"317176ac-5ab3-47ad-96fa-b325cbf246cc"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"m6", "=", - RowBox[{"levenburgMarquardt", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"res", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "9", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}], "[", "8", "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "9", "]"}], "]"}]}], ",", - RowBox[{"Join", "[", - RowBox[{ - RowBox[{"m5", "[", - RowBox[{"[", "2", "]"}], "]"}], ",", - RowBox[{"{", - RowBox[{ - RowBox[{ - RowBox[{"gC", "[", "8", "]"}], "->", "0"}], ",", - RowBox[{ - RowBox[{"gC", "[", "9", "]"}], "->", "0"}]}], "}"}]}], "]"}]}], - "]"}]}]], "Input", - CellChangeTimes->{{3.841228339736465*^9, 3.841228391406146*^9}, { - 3.841228542777034*^9, 3.8412285565292*^9}, {3.841228600579276*^9, - 3.841228610938241*^9}, {3.84122872113229*^9, 3.841228734972561*^9}, { - 3.841229172428575*^9, 3.8412291846367283`*^9}, {3.841316222857486*^9, - 3.8413162470884*^9}, {3.841316614704316*^9, 3.8413166159591093`*^9}, { - 3.841317435994903*^9, 3.841317460414875*^9}, {3.841393205908807*^9, - 3.841393219668706*^9}, {3.841393715760593*^9, 3.841393720854136*^9}, { - 3.841393918673491*^9, 3.841393919841535*^9}, {3.841398218184306*^9, - 3.841398224352285*^9}, {3.841398275625342*^9, 3.8413983103457737`*^9}, { - 3.841400233517682*^9, 3.841400233589602*^9}, {3.84140027279879*^9, - 3.841400307999161*^9}}, - CellLabel->"In[7]:=",ExpressionUUID->"bacf1c86-2f2d-48d5-884c-81947e6029a1"], - -Cell[CellGroupData[{ - -Cell[BoxData["\<\"Compiling the Jacobian...\"\>"], "PrintTemporary", - CellChangeTimes->{3.841400314942622*^9}, - CellLabel-> - "During evaluation of \ -In[7]:=",ExpressionUUID->"4da17f95-2820-490c-9163-c496c50a8266"], - -Cell[BoxData["\<\"Beginning the algorithm.\"\>"], "PrintTemporary", - CellChangeTimes->{3.84140039750663*^9}, - CellLabel-> - "During evaluation of \ -In[7]:=",ExpressionUUID->"0006dce5-196c-42d2-a546-c5a240c96c2a"], - -Cell[BoxData[ - InterpretationBox[ - RowBox[{"\<\"Current cost value: \"\>", "\[InvisibleSpace]", - DynamicBox[ToBoxes[Schofield`oldC$8952, StandardForm], - ImageSizeCache->{37.734375, {0., 6.}}]}], - SequenceForm["Current cost value: ", - Dynamic[Schofield`oldC$8952]], - Editable->False]], "PrintTemporary", - CellChangeTimes->{3.841400407998604*^9}, - CellLabel-> - "During evaluation of \ -In[7]:=",ExpressionUUID->"6555d570-5cca-49b6-8d68-d8c045c03714"] -}, Open ]] + "Out[160]=",ExpressionUUID->"48b90621-bf10-4874-b6da-7d12189becdb"] }, Open ]], Cell[BoxData[ @@ -4033,7 +4695,7 @@ Cell[BoxData[{ RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "0", "]"}], "]"}]}], "/.", - RowBox[{"m01", "[", + RowBox[{"m0", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"our\[CapitalPhi]2", "=", @@ -4051,7 +4713,7 @@ Cell[BoxData[{ RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "1", "]"}], "]"}]}], "/.", - RowBox[{"m11", "[", + RowBox[{"m1", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"our\[CapitalPhi]3", "=", @@ -4069,7 +4731,7 @@ Cell[BoxData[{ RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "3", "]"}], "]"}]}], "/.", - RowBox[{"m21", "[", + RowBox[{"m2", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"our\[CapitalPhi]4", "=", @@ -4080,14 +4742,14 @@ Cell[BoxData[{ RowBox[{ RowBox[{"dFd\[Eta]List", "[", RowBox[{"n1", ",", - RowBox[{"h", "[", "4", "]"}]}], "]"}], "[", "ntest", "]"}], "[", + RowBox[{"h", "[", "3", "]"}]}], "]"}], "[", "ntest", "]"}], "[", "1", "]"}], "/", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "//.", RowBox[{"rules", "[", - RowBox[{"h", "[", "4", "]"}], "]"}]}], "/.", - RowBox[{"m33", "[", + RowBox[{"h", "[", "3", "]"}], "]"}]}], "/.", + RowBox[{"m3", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"our\[CapitalPhi]5", "=", @@ -4098,14 +4760,14 @@ Cell[BoxData[{ RowBox[{ RowBox[{"dFd\[Eta]List", "[", RowBox[{"n1", ",", - RowBox[{"h", "[", "6", "]"}]}], "]"}], "[", "ntest", "]"}], "[", + RowBox[{"h", "[", "4", "]"}]}], "]"}], "[", "ntest", "]"}], "[", "1", "]"}], "/", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "//.", RowBox[{"rules", "[", - RowBox[{"h", "[", "6", "]"}], "]"}]}], "/.", - RowBox[{"m42", "[", + RowBox[{"h", "[", "4", "]"}], "]"}]}], "/.", + RowBox[{"m4", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"our\[CapitalPhi]6", "=", @@ -4116,36 +4778,57 @@ Cell[BoxData[{ RowBox[{ RowBox[{"dFd\[Eta]List", "[", RowBox[{"n1", ",", - RowBox[{"h", "[", "7", "]"}]}], "]"}], "[", "ntest", "]"}], "[", + RowBox[{"h", "[", "5", "]"}]}], "]"}], "[", "ntest", "]"}], "[", "1", "]"}], "/", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "//.", RowBox[{"rules", "[", - RowBox[{"h", "[", "7", "]"}], "]"}]}], "/.", - RowBox[{"m52", "[", + RowBox[{"h", "[", "5", "]"}], "]"}]}], "/.", + RowBox[{"m5", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ - RowBox[{"test", "=", + RowBox[{"our\[CapitalPhi]7", "=", RowBox[{ RowBox[{ RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"dFd\[Eta]List", "[", + RowBox[{"n1", ",", + RowBox[{"h", "[", "6", "]"}]}], "]"}], "[", "ntest", "]"}], "[", + "1", "]"}], "/", + RowBox[{ + RowBox[{"Range", "[", + RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "//.", + RowBox[{"rules", "[", + RowBox[{"h", "[", "6", "]"}], "]"}]}], "/.", + RowBox[{"m6", "[", + RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", + RowBox[{ + RowBox[{"test", "=", + RowBox[{ + RowBox[{ + RowBox[{"(", RowBox[{"(", RowBox[{ RowBox[{"\[CapitalPhi]s", "[", RowBox[{"[", RowBox[{";;", RowBox[{"ntest", "+", "1"}]}], "]"}], "]"}], "-", "#"}], ")"}], - "/", - RowBox[{"\[CapitalPhi]s", "[", - RowBox[{"[", - RowBox[{";;", - RowBox[{"ntest", "+", "1"}]}], "]"}], "]"}]}], "&"}], "/@", + RowBox[{"(*", + RowBox[{"/", + RowBox[{"\[CapitalPhi]s", "[", + RowBox[{"[", + RowBox[{";;", + RowBox[{"ntest", "+", "1"}]}], "]"}], "]"}]}], "*)"}], ")"}], + "&"}], "/@", RowBox[{"{", RowBox[{ "our\[CapitalPhi]1", ",", "our\[CapitalPhi]2", ",", "our\[CapitalPhi]3", ",", "our\[CapitalPhi]4", ",", "our\[CapitalPhi]5", ",", - "our\[CapitalPhi]6"}], "}"}]}]}], ";"}]}], "Input", + "our\[CapitalPhi]6", ",", "our\[CapitalPhi]7"}], "}"}]}]}], + ";"}]}], "Input", CellChangeTimes->{{3.8322388835042*^9, 3.832238885982521*^9}, { 3.832238918751101*^9, 3.832238980544174*^9}, {3.832239034801425*^9, 3.8322390392969837`*^9}, {3.832239749854486*^9, 3.832239844064394*^9}, { @@ -4198,9 +4881,25 @@ Cell[BoxData[{ 3.841393121755248*^9}, {3.841393249153199*^9, 3.841393273790092*^9}, 3.841393700421857*^9, 3.841398192512566*^9, {3.841398248217105*^9, 3.841398248368924*^9}, {3.841399566779069*^9, 3.8413995828254623`*^9}, - 3.841399972537139*^9, {3.8414001770689287`*^9, 3.841400177212687*^9}}, + 3.841399972537139*^9, {3.8414001770689287`*^9, 3.841400177212687*^9}, { + 3.841464749238928*^9, 3.841464785841058*^9}, 3.841464824834222*^9, + 3.841464891539579*^9, 3.841465158808465*^9, 3.841465331579411*^9, { + 3.8414658328897333`*^9, 3.841465852857485*^9}, {3.841466561097473*^9, + 3.8414665630973454`*^9}, {3.841466932485777*^9, 3.8414669341900043`*^9}, { + 3.841467101315713*^9, 3.841467104995029*^9}, {3.841472547040936*^9, + 3.8414725544327183`*^9}, {3.8414733744967413`*^9, 3.841473388856886*^9}, { + 3.841473450698228*^9, 3.8414734807303057`*^9}, {3.841485108824091*^9, + 3.841485111280056*^9}, {3.841485185017519*^9, 3.841485187193397*^9}, { + 3.841485484679089*^9, 3.841485487671123*^9}, {3.841485702195181*^9, + 3.841485704778964*^9}, {3.841730916100902*^9, 3.841730925141005*^9}, { + 3.841731203522408*^9, 3.8417312109703093`*^9}, {3.841734018910133*^9, + 3.84173402362984*^9}, {3.841734714315658*^9, 3.8417347201469107`*^9}, { + 3.841734973441475*^9, 3.841734989319797*^9}, {3.841735266172834*^9, + 3.8417352681888866`*^9}, {3.841735347206047*^9, 3.841735349750581*^9}, { + 3.8417355136010637`*^9, 3.841735515537148*^9}, {3.841736151366416*^9, + 3.841736154252789*^9}}, CellLabel-> - "In[120]:=",ExpressionUUID->"696e8dad-b679-4cff-9df9-7fa32582e84f"], + "In[147]:=",ExpressionUUID->"696e8dad-b679-4cff-9df9-7fa32582e84f"], Cell[CellGroupData[{ @@ -4212,47 +4911,52 @@ Cell[BoxData[ RowBox[{"Transpose", "[", "test", "]"}]}]}], ",", RowBox[{"Joined", "->", "True"}]}], "]"}]], "Input", CellChangeTimes->CompressedData[" -1:eJwdxWtIUwEYBuC1RYxqGYEZXTfcZGChqN2OjLHQgkljjJglRDlLm5rDucZk -2souLsGjDEnGSEwkwQrKZoiCkX8UGU5RPBUUKLb8cSqikjKKvvf78fDoXB7H -ZaVCoTASPPXhyXJ1u2yZzd6Uwk2PJr7izuAcf/DnYkMNfcT8hbdP23XVMdmi -fnOFz1KKBvy6fU8WLl55vlRHJ8wS35KWsEboyvF9p7HarA0tP5AtddNHecd8 -TzdeVLZGsTU9PI8nfSK/dG/XKj5k+MaXvgraVuh3kxG+5WGf5iN98UdwG85I -04ZwX790B08kTUKK3n4z14S7GvO78I2i9Pt4c6dL/4k2HnbzObad2Vi06fjA -/rO5uFdO8im5SsRFcTcf9+d1Y93GYb4gWf4HSzWFilVa/lyxBetPDmnwsQNt -Vvy37EwJLlmbacYdMet17BRUrdgoqMJYu7f+t7NHtvhP/FrHt3vHg6V0PKRv -wpWSu+EcrTJofNghnm/EW2/NNWN5qHgE71C/GMO+U2/ry2jT7nwvXotuqC2n -vbUeD456Z67h9YDdj58VzjpcdCqywOdcKLhaQRv/Hef7HycGLtGJAYkXMofv -hulRYZQfcT5930EHBsf4NmXsO57KfMn/Bw7VXRE= +1:eJwd0FtIk3Ech/G1SSxrGYEVHTfcZLBESTv4yhgLDzFrjCGzhChnWXPmcK4x +m7ayg0tw2pBkjEyHKHSAshkyQWkRigynGK6EAsWWF29FVFJG0e/7v3j43D8y +s814XigQCFQUnPzweKmmndfOqNYnYdNA9CvsdM8y9/+cb7CShzRfmIYpg6wm +yGvFby8yM4U+BXzZvisTFi0/W6wjY5oEsyUtpvOT1WN7TkCxRupZus9r66YO +M41zPd1wXtgagLp07xyccPiYi3d2rMAsxTdm+bhbv0wuTPiZLX0hyUfy7A/3 +Zrg9TeqBof7ELRiNq7kkueV6jhp2NeZ2wWuF6fdgaqdZ/olUHrQws/XbVNCn +lzFde0/mwF4+zkzyF3ywMGxhhp0HuqEsZZiZF6/8AxPWAsEKyX+u2gjlxUMS +eGRfmw7+rSgrhaWr082wI6i7Ck2cqBUqOZEXSnfX/zb18Frn0V9r8GbvmLuc +DHvkTbA6YWk4RYoUEgc0+k43wk03ZpshP1Q0AreKn49CR8m7+gpSvTPXDlcD +62orSXutzQYD9unLcM1lcMKnBTNGM5n0v2Fmn8m7VEUq/+Uz+x/FBs+RscEE +k8sYvu0lI1yEOWJ68r6DdD0cZbYJg9/hZMYLZt/x1KjoAX2xRl5B793XJSlk +qDj/GCwzbhBLyAXnFeZ/mApx9A== "], CellLabel-> - "In[128]:=",ExpressionUUID->"0f44ea2f-bcb6-4b65-a37b-65515908d127"], + "In[156]:=",ExpressionUUID->"0f44ea2f-bcb6-4b65-a37b-65515908d127"], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], - LineBox[{{1., -6.422013049538068}, {2., -7.423369008951228}, { - 3., -7.704913704675918}, {4., -9.049671022039428}, { - 5., -9.210900658206365}, {6., -8.652889648924754}}]}, + LineBox[{{1., -6.247359076479978}, {2., -7.242937992360614}, { + 3., -7.52448368207854}, {4., -8.789682404120374}, { + 5., -10.735805430250753`}, {6., -8.799623669185006}, { + 7., -8.898803387262491}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], - LineBox[{{1., -4.696720326279715}, {2., -5.416371957017735}, { - 3., -5.588312556211115}, {4., -6.757042904610599}, { - 5., -6.88148815835223}, {6., -6.250432766055982}}]}, + LineBox[{{1., -5.846052253810104}, {2., -6.559531467899653}, { + 3., -6.731472544141299}, {4., -7.82363850631869}, { + 5., -9.22089135141456}, {6., -7.841090825708919}, { + 7., -7.934853169283033}}]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], - LineBox[{{1., -4.238603683835067}, {2., -4.577713410897189}, { - 3., -4.778255674298056}, {4., -5.583520118022219}, { - 5., -5.7565911003628845`}, {6., -5.112545003994313}}]}, + LineBox[{{1., -6.443486217907122}, {2., -6.776964236048059}, { + 3., -6.97750639900824}, {4., -7.717571460329335}, { + 5., -8.209643413129147}, {6., -7.847049485992655}, { + 7., -7.921852483339238}}]}, {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], - LineBox[{{1., -4.261458040697065}, {2., -4.38828246855019}, { - 3., -4.931177717974402}, {4., -4.444776695649337}, { - 5., -5.233638536182329}, {6., -5.530359138178448}}]}}, {{}, {}}}, + LineBox[{{1., -8.390382480137571}, {2., -8.497117912021226}, { + 3., -9.04001730933629}, {4., -8.53544826931185}, { + 5., -8.253464948302488}, {6., -9.748271625035686}, { + 7., -9.59846713817507}}]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0., -9.600011114384765}, + AxesOrigin->{0., -11.118456365802563`}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -4262,7 +4966,7 @@ Cell[BoxData[ GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], - ImageSize->{610., Automatic}, + ImageSize->{573.0000000000002, Automatic}, Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ @@ -4274,7 +4978,7 @@ Cell[BoxData[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, - PlotRange->{{0., 6.}, {-9.600011114384765, -4.238603683835067}}, + PlotRange->{{0., 7.}, {-11.118456365802563`, -5.846052253810104}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -4282,7 +4986,13 @@ Cell[BoxData[ Scaled[0.02], Scaled[0.05]}}, Ticks->FrontEndValueCache[{Automatic, - Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-9.210340371976182, + Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-9.903487552536127, + FormBox[ + TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`", + TemplateBox[{"10", + RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> + SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, + 0.}}, {-9.210340371976182, FormBox[ TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`", TemplateBox[{"10", @@ -4295,21 +5005,16 @@ Cell[BoxData[ RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 0.}}, {-6.907755278982137, - FormBox["0.001`", TraditionalForm], {0.01, 0.}}, {-5.298317366548036, + FormBox["0.001`", TraditionalForm], {0.01, 0.}}, {-11.512925464970229`, FormBox[ - TagBox[ - InterpretationBox[ - StyleBox["\"0.005\"", ShowStringCharacters -> False], 0.005, - AutoDelete -> True], NumberForm[#, { - DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, - 0.}}, {-4.605170185988091, + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-10.819778284410283`, FormBox[ - TagBox[ - InterpretationBox[ - StyleBox["\"0.010\"", ShowStringCharacters -> False], 0.01, - AutoDelete -> True], NumberForm[#, { - DirectedInfinity[1], 3}]& ], TraditionalForm], {0.01, - 0.}}, {-9.903487552536127, + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-10.41431317630212, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-10.126631103850338`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-9.721165995742174, @@ -4349,9701 +5054,1316 @@ Cell[BoxData[ FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-5.809142990314028, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-5.521460917862246, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-5.115995809754082, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-4.961845129926823, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-4.8283137373023015`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-4.710530701645918, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.912023005428146, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.506557897319982, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.2188758248682006`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-2.995732273553991, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-2.8134107167600364`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-2.659260036932778, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-2.5257286443082556`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-2.4079456086518722`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-2.3025850929940455`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}}}]]], "Output", - CellChangeTimes->{{3.832239903804017*^9, 3.832239920412857*^9}, { - 3.832239998691607*^9, 3.832240059049746*^9}, {3.8322410458066597`*^9, - 3.832241055601955*^9}, 3.837157910503243*^9, 3.839578316453404*^9, - 3.839578379494871*^9, {3.839578413476359*^9, 3.839578417043734*^9}, - 3.839578507781254*^9, 3.839579529893626*^9, 3.839580526694091*^9, - 3.839580609623364*^9, 3.839581130179451*^9, 3.8395819023237257`*^9, - 3.83958217847613*^9, 3.839585321441502*^9, 3.839585715092175*^9, - 3.839586006674038*^9, 3.839586093327594*^9, 3.8395878655963697`*^9, { - 3.839588056051696*^9, 3.839588076066236*^9}, 3.839588110889903*^9, { - 3.839660619537862*^9, 3.839660649760831*^9}, 3.8396607565652857`*^9, - 3.839662194745378*^9, 3.839663554409479*^9, 3.8408734195899487`*^9, { - 3.840873451450173*^9, 3.840873465971734*^9}, {3.8408736537801847`*^9, - 3.8408736766221046`*^9}, {3.840874134494512*^9, 3.840874140657117*^9}, { - 3.840874271827503*^9, 3.8408743118388233`*^9}, 3.840874373185952*^9, - 3.840874631531498*^9, 3.840874913324492*^9, 3.840874966764852*^9, - 3.8408750340552797`*^9, 3.840876373358275*^9, 3.840876433468811*^9, - 3.840876536818931*^9, {3.840876700967971*^9, 3.840876708757535*^9}, - 3.84087717289139*^9, 3.8408777127004757`*^9, 3.840877766932683*^9, - 3.840877874346624*^9, 3.840877963928136*^9, 3.840877997695804*^9, - 3.840878039611127*^9, 3.840878121422373*^9, 3.8408781594622297`*^9, - 3.840878415874292*^9, 3.840878572021145*^9, {3.840878696025858*^9, - 3.840878708105095*^9}, 3.840878882569436*^9, 3.840878917888465*^9, - 3.840879057311639*^9, 3.8408790959778233`*^9, 3.840879284430146*^9, - 3.840879320868002*^9, {3.840879602188963*^9, 3.8408796629805326`*^9}, - 3.840879825431025*^9, 3.840880713980446*^9, {3.840881095720086*^9, - 3.840881129722478*^9}, 3.84088122555374*^9, {3.840881806924676*^9, - 3.840881841063381*^9}, {3.8408829730694427`*^9, 3.840882979478904*^9}, { - 3.8408830244562283`*^9, 3.840883033253084*^9}, {3.840883067199441*^9, - 3.840883078726142*^9}, {3.8408838002342567`*^9, 3.840883850145111*^9}, { - 3.84088389340377*^9, 3.840883902025799*^9}, {3.840884021410758*^9, - 3.840884049187661*^9}, 3.840884463638029*^9, 3.840884562093292*^9, - 3.8408845964069147`*^9, {3.8408846742221937`*^9, 3.840884738003304*^9}, { - 3.840884824142879*^9, 3.840884845851544*^9}, 3.840885251367969*^9, - 3.8408853015534973`*^9, {3.840885332965733*^9, 3.840885338899041*^9}, - 3.840885407366198*^9, 3.840885479009674*^9, {3.840885730523286*^9, - 3.840885746564313*^9}, {3.840885811487978*^9, 3.840885824280175*^9}, { - 3.841111972951388*^9, 3.841112023997375*^9}, {3.841113045047536*^9, - 3.841113057389456*^9}, 3.841113435197783*^9, 3.8411135203454723`*^9, - 3.841114618408491*^9, 3.841115067549041*^9, 3.841115272832362*^9, - 3.841115304710442*^9, 3.841115455233508*^9, {3.841115633308082*^9, - 3.841115651048374*^9}, 3.841115689563676*^9, 3.841115725266127*^9, - 3.8411157984542*^9, 3.841115845372593*^9, 3.841115963024252*^9, - 3.841116189842844*^9, 3.84111670779735*^9, 3.84111687214373*^9, - 3.841117011673092*^9, {3.841117068899222*^9, 3.841117166686358*^9}, - 3.841117210349154*^9, 3.8411175774128838`*^9, {3.841117623766148*^9, - 3.8411176621180773`*^9}, 3.8411177476681957`*^9, 3.84111787344593*^9, - 3.841118105928174*^9, {3.841118145031301*^9, 3.841118159491106*^9}, - 3.841118394689548*^9, 3.841118628409964*^9, {3.841119109811392*^9, - 3.841119151101738*^9}, 3.841119963259544*^9, 3.8411217925278463`*^9, - 3.841121893735611*^9, 3.841121925466076*^9, 3.841121962861126*^9, - 3.8411333711197042`*^9, {3.841133408675865*^9, 3.841133446048077*^9}, { - 3.841133486813095*^9, 3.841133490876711*^9}, 3.841134277254603*^9, - 3.841135069208427*^9, 3.841135129424903*^9, 3.84113521724557*^9, { - 3.84113525055762*^9, 3.841135254999543*^9}, 3.8411354111425333`*^9, - 3.8411355323212223`*^9, 3.8411356975129223`*^9, 3.841136171107736*^9, - 3.841136402551268*^9, 3.841136494316279*^9, {3.8411366979557343`*^9, - 3.8411367258876343`*^9}, {3.841137504421116*^9, 3.841137521603923*^9}, - 3.841140122738893*^9, {3.8411969698315372`*^9, 3.841196979430739*^9}, - 3.841198299948873*^9, 3.841198363593047*^9, 3.8411984506328697`*^9, - 3.841198754673311*^9, 3.8411987968253393`*^9, 3.841198968203133*^9, - 3.841199068869388*^9, 3.841199122891159*^9, 3.84119947009195*^9, - 3.841201354717688*^9, 3.841202847224366*^9, {3.841202935052396*^9, - 3.841202944007532*^9}, 3.841203055282708*^9, 3.8412031568141623`*^9, { - 3.841204018471751*^9, 3.841204064486342*^9}, 3.841204238164918*^9, - 3.8412045833935843`*^9, {3.8412053323285313`*^9, 3.84120534369011*^9}, - 3.8412059834920597`*^9, {3.841206580471108*^9, 3.8412065883295393`*^9}, - 3.841206667428892*^9, 3.8412071410819597`*^9, 3.841207425664865*^9, { - 3.8412134893004913`*^9, 3.841213510731887*^9}, {3.8412161960445766`*^9, - 3.84121621225712*^9}, 3.8412163147004642`*^9, {3.84121685745619*^9, - 3.841216863452536*^9}, 3.841217082506439*^9, 3.841217227907885*^9, - 3.8412175974685593`*^9, 3.841220362664833*^9, {3.841228510428768*^9, - 3.8412285260099916`*^9}, {3.841228697413404*^9, 3.841228701902772*^9}, - 3.841229132294285*^9, 3.841298188126503*^9, 3.841299161243771*^9, - 3.8412995695151*^9, 3.841301360018614*^9, 3.841301628520013*^9, - 3.841301733650939*^9, 3.841302360318157*^9, 3.841312535024551*^9, - 3.841315638182317*^9, 3.841316605784*^9, 3.841391147446971*^9, - 3.841393123655943*^9, 3.841393701727313*^9, 3.841398194521573*^9, - 3.84139824965923*^9, 3.841399585084799*^9, 3.841399974771194*^9, - 3.8414002152948008`*^9}, - CellLabel-> - "Out[128]=",ExpressionUUID->"00f7b59c-b920-4cf2-b77e-7bef856c422c"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"min0", "=", - RowBox[{"FindMinimum", "[", - RowBox[{ - RowBox[{"Evaluate", "[", - RowBox[{ - RowBox[{ - RowBox[{"chiSquared", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "0", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "6"}]]}], "]"}], "[", "2", "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "0", "]"}], "]"}]}], "]"}], ",", - RowBox[{"s0", "/.", - RowBox[{"Rule", "->", "List"}]}], ",", - RowBox[{"Method", "->", "\"\\""}]}], - "]"}]}]], "Input", - CellChangeTimes->{{3.841130597609497*^9, 3.841130620653933*^9}, { - 3.841130722625242*^9, 3.841130798033312*^9}, {3.841130851107401*^9, - 3.841130889402828*^9}, {3.841131067918955*^9, 3.841131094030652*^9}, - 3.841131144287809*^9, {3.841131229138278*^9, 3.841131229313192*^9}, { - 3.841131290418725*^9, 3.841131295026565*^9}, {3.841131345972011*^9, - 3.84113134911509*^9}, {3.841131461621436*^9, 3.841131490309593*^9}, { - 3.8411315704565697`*^9, 3.8411316222404747`*^9}, 3.841131678121153*^9, - 3.841131751003498*^9, {3.841131940758955*^9, 3.841131940878192*^9}, { - 3.8411323195416737`*^9, 3.841132324781311*^9}, {3.84113294187257*^9, - 3.841132942648679*^9}, 3.841133523092483*^9, {3.841134497949284*^9, - 3.8411345469101133`*^9}, {3.8412037507687674`*^9, 3.841203774408815*^9}, { - 3.841215041594046*^9, 3.8412150458647213`*^9}, {3.8412153012613363`*^9, - 3.8412153248618526`*^9}, {3.841215388744207*^9, 3.8412153907830963`*^9}, { - 3.841220544118886*^9, 3.841220578354147*^9}, {3.841221036407989*^9, - 3.84122107858416*^9}}, - CellLabel->"In[51]:=",ExpressionUUID->"3d52f0ab-99e4-4c0a-a9d7-b670a1f3c5d5"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"73592.14637740955`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.2461606498454028`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.1830536752224611`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.1174126220633696`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2057028418344014`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.473738671139352`"}]}], - "}"}]}], "}"}]], "Output", - CellChangeTimes->{ - 3.8411306167235003`*^9, {3.8411306947216597`*^9, 3.84113075889436*^9}, - 3.84113079836438*^9, {3.841130851775154*^9, 3.8411308767675743`*^9}, - 3.841131001962682*^9, {3.841131072213916*^9, 3.841131088157425*^9}, - 3.841131130207449*^9, 3.841131226932292*^9, 3.8411312617222233`*^9, - 3.8411312998630333`*^9, 3.841131333112967*^9, 3.841131373331435*^9, { - 3.841131467959248*^9, 3.841131488415524*^9}, 3.84113156097838*^9, - 3.8411315915893497`*^9, 3.841131741181746*^9, 3.841131918902851*^9, - 3.841132115301302*^9, 3.841132493137188*^9, 3.841132959754125*^9, { - 3.841134507836158*^9, 3.841134547307192*^9}, 3.841135652656229*^9, - 3.8412027507226753`*^9, 3.8412029601684027`*^9, {3.841203740834663*^9, - 3.841203775034113*^9}, 3.841215325256854*^9, 3.8412153912259808`*^9, - 3.841220551751877*^9, 3.841220582681814*^9, {3.841221040014762*^9, - 3.841221080049737*^9}, 3.841298902365406*^9}, - CellLabel->"Out[51]=",ExpressionUUID->"0bf0fb3f-41a0-463a-b271-1d00ee1b662d"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"min1", "=", - RowBox[{"FindMinimum", "[", - RowBox[{ - RowBox[{"Evaluate", "[", - RowBox[{ - RowBox[{ - RowBox[{"chiSquared", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "0", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], "]"}], "[", "2", "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "0", "]"}], "]"}]}], "]"}], ",", - RowBox[{ - RowBox[{"min0", "[", - RowBox[{"[", "2", "]"}], "]"}], "/.", - RowBox[{"Rule", "->", "List"}]}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841130597609497*^9, 3.841130620653933*^9}, { - 3.841130722625242*^9, 3.841130798033312*^9}, {3.841130851107401*^9, - 3.841130889402828*^9}, {3.841131067918955*^9, 3.841131094030652*^9}, - 3.841131144287809*^9, {3.841131229138278*^9, 3.841131229313192*^9}, { - 3.841131290418725*^9, 3.841131295026565*^9}, {3.841131345972011*^9, - 3.84113134911509*^9}, {3.841131461621436*^9, 3.841131490309593*^9}, { - 3.8411315704565697`*^9, 3.8411316222404747`*^9}, 3.841131678121153*^9, - 3.841131751003498*^9, {3.841131940758955*^9, 3.841131940878192*^9}, { - 3.8411323195416737`*^9, 3.841132324781311*^9}, {3.84113294187257*^9, - 3.841132942648679*^9}, 3.841133523092483*^9, {3.841134497949284*^9, - 3.841134576302401*^9}, {3.841134691921998*^9, 3.841134747089505*^9}, { - 3.841203735529089*^9, 3.841203747616384*^9}, {3.8412037811206083`*^9, - 3.841203782496846*^9}, {3.841215344126958*^9, 3.8412153865428743`*^9}}, - CellLabel->"In[52]:=",ExpressionUUID->"ba49a7a4-055f-423a-b959-211c1c83a98d"], - -Cell[BoxData[ - TemplateBox[{ - "FindMinimum", "sszero", - "\"The step size in the search has become less than the tolerance \ -prescribed by the PrecisionGoal option, but the gradient is larger than the \ -tolerance specified by the AccuracyGoal option. There is a possibility that \ -the method has stalled at a point that is not a local minimum.\"", 2, 52, 153, - 31636683416057461786, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{ - 3.841203747868849*^9, 3.841203782861238*^9, {3.8412153776441936`*^9, - 3.841215391942984*^9}, 3.841298906823886*^9}, - CellLabel-> - "During evaluation of \ -In[52]:=",ExpressionUUID->"59162e70-8c05-4547-a4c4-39a41c2d7ae2"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"74086.86056203276`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.2463571655246564`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.18295236375922846`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.1159617945446594`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2041142760013437`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.4737026044070743`"}]}], - "}"}]}], "}"}]], "Output", - CellChangeTimes->{ - 3.841203747877265*^9, 3.8412037828675537`*^9, {3.841215377652196*^9, - 3.8412153919493732`*^9}, 3.841298906829422*^9}, - CellLabel->"Out[52]=",ExpressionUUID->"363d39f7-c18c-45a4-af73-5c9a8a0c45d0"] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{ - RowBox[{"sol", "[", "2", "]"}], "=", - RowBox[{"min1", "[", - RowBox[{"[", "2", "]"}], "]"}]}], ";", - RowBox[{ - RowBox[{"hf", "[", "2", "]"}], "=", - RowBox[{"h", "[", "0", "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.841215396193576*^9, 3.8412154157033873`*^9}}, - CellLabel->"In[15]:=",ExpressionUUID->"69d3e67e-7bb0-4e28-b79a-246af6c9ffd4"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"min3", "=", - RowBox[{"FindMinimum", "[", - RowBox[{ - RowBox[{"Evaluate", "[", - RowBox[{ - RowBox[{ - RowBox[{"chiSquared", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "0", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "6"}]]}], "]"}], "[", "3", "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "0", "]"}], "]"}]}], "]"}], ",", - RowBox[{"Join", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{"#1", ",", - RowBox[{"Re", "[", "#2", "]"}]}], "}"}], "&"}], "@@@", - RowBox[{"min0", "[", - RowBox[{"[", "2", "]"}], "]"}]}], ",", - RowBox[{"{", "}"}]}], "]"}], ",", - RowBox[{"MaxIterations", "\[Rule]", "1000"}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841130597609497*^9, 3.841130620653933*^9}, { - 3.841130722625242*^9, 3.841130798033312*^9}, {3.841130851107401*^9, - 3.841130889402828*^9}, {3.841131067918955*^9, 3.841131094030652*^9}, - 3.841131144287809*^9, {3.841131229138278*^9, 3.841131229313192*^9}, { - 3.841131290418725*^9, 3.841131295026565*^9}, {3.841131345972011*^9, - 3.84113134911509*^9}, {3.841131461621436*^9, 3.841131490309593*^9}, { - 3.8411315704565697`*^9, 3.8411316222404747`*^9}, 3.841131678121153*^9, - 3.841131751003498*^9, {3.841131940758955*^9, 3.841131940878192*^9}, { - 3.8411323195416737`*^9, 3.841132324781311*^9}, {3.84113294187257*^9, - 3.841132942648679*^9}, 3.841133523092483*^9, {3.841134959678486*^9, - 3.8411350197826633`*^9}, {3.8411980099538116`*^9, 3.841198041657716*^9}, { - 3.841198904290859*^9, 3.8411989044732018`*^9}, 3.841202970411274*^9, { - 3.841203788241562*^9, 3.8412037883288918`*^9}, {3.841215432296402*^9, - 3.841215462216382*^9}}, - CellLabel->"In[18]:=",ExpressionUUID->"d74e8c1f-5c18-45bf-b267-4684b5de4efc"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"2.664308855504709`*^6", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.3151705000370677`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.1737163916688471`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "1.9303958785455455`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "0.972155782281472`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.441673977301296`"}]}], - "}"}]}], "}"}]], "Output", - CellChangeTimes->{ - 3.8411306167235003`*^9, {3.8411306947216597`*^9, 3.84113075889436*^9}, - 3.84113079836438*^9, {3.841130851775154*^9, 3.8411308767675743`*^9}, - 3.841131001962682*^9, {3.841131072213916*^9, 3.841131088157425*^9}, - 3.841131130207449*^9, 3.841131226932292*^9, 3.8411312617222233`*^9, - 3.8411312998630333`*^9, 3.841131333112967*^9, 3.841131373331435*^9, { - 3.841131467959248*^9, 3.841131488415524*^9}, 3.84113156097838*^9, - 3.8411315915893497`*^9, 3.841131741181746*^9, 3.841131918902851*^9, - 3.841132115301302*^9, 3.841132493137188*^9, 3.841132959754125*^9, { - 3.8411350065871696`*^9, 3.841135020251267*^9}, 3.841135879201187*^9, { - 3.841198023471703*^9, 3.8411980420259438`*^9}, {3.8411988981091423`*^9, - 3.841198906903593*^9}, 3.841202761907584*^9, 3.841202971748459*^9, - 3.841203789099234*^9, {3.841215454246585*^9, 3.8412154629115143`*^9}}, - CellLabel->"Out[18]=",ExpressionUUID->"ee47f1ce-c693-44af-b250-166cc06da777"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"min4", "=", - RowBox[{"FindMinimum", "[", - RowBox[{ - RowBox[{"Evaluate", "[", - RowBox[{ - RowBox[{ - RowBox[{"chiSquared", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "1", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "6"}]]}], "]"}], "[", "3", "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "1", "]"}], "]"}]}], "]"}], ",", - RowBox[{"Join", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{"#1", ",", - RowBox[{"Re", "[", "#2", "]"}]}], "}"}], "&"}], "@@@", - RowBox[{"min3", "[", - RowBox[{"[", "2", "]"}], "]"}]}], ",", - RowBox[{"{", - RowBox[{"{", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], ",", "0"}], "}"}], "}"}]}], "]"}], - ",", - RowBox[{"MaxIterations", "->", - SuperscriptBox["10", "5"]}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841198045188076*^9, 3.841198070186248*^9}, { - 3.841198783576604*^9, 3.841198783775285*^9}, {3.841198855809721*^9, - 3.841198855888392*^9}, {3.84119894657014*^9, 3.8411989466496696`*^9}, - 3.841202974219116*^9, {3.8412037973051987`*^9, 3.841203803993094*^9}, { - 3.841215467048574*^9, 3.8412154912326727`*^9}}, - CellLabel->"In[20]:=",ExpressionUUID->"d34261e1-f762-4995-9793-a31c15f9fead"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"9.451921572590429`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.336228309150996`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19907020522807523`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.25597331133315`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.3055718729467005`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3924439916048286`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.016008810861956328`"}]}]}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{ - 3.841198070651116*^9, 3.841198784570643*^9, 3.841198881930832*^9, { - 3.841198944939857*^9, 3.841198947149514*^9}, 3.841202763092544*^9, - 3.8412029778452597`*^9, {3.841203796583583*^9, 3.84120380871152*^9}, { - 3.841215486764949*^9, 3.841215494692823*^9}}, - CellLabel->"Out[20]=",ExpressionUUID->"31088d5f-ac30-42b4-a056-e08dc2a6efcf"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"min5", "=", - RowBox[{"FindMinimum", "[", - RowBox[{ - RowBox[{"Evaluate", "[", - RowBox[{ - RowBox[{ - RowBox[{"chiSquared", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "1", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], "]"}], "[", "3", "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "1", "]"}], "]"}]}], "]"}], ",", - RowBox[{"Join", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{"#1", ",", - RowBox[{"Re", "[", "#2", "]"}]}], "}"}], "&"}], "@@@", - RowBox[{"min4", "[", - RowBox[{"[", "2", "]"}], "]"}]}], ",", - RowBox[{"{", "}"}]}], "]"}], ",", - RowBox[{"MaxIterations", "->", - SuperscriptBox["10", "5"]}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841198821855804*^9, 3.841198836616012*^9}, { - 3.84120298962706*^9, 3.8412029918826113`*^9}, {3.841206517363558*^9, - 3.841206525978866*^9}, {3.841215505954143*^9, 3.841215528665515*^9}}, - CellLabel->"In[22]:=",ExpressionUUID->"d3e16e23-c1fd-4fda-8c6f-8eecfd39117f"], - -Cell[BoxData[ - TemplateBox[{ - "FindMinimum", "sszero", - "\"The step size in the search has become less than the tolerance \ -prescribed by the PrecisionGoal option, but the gradient is larger than the \ -tolerance specified by the AccuracyGoal option. There is a possibility that \ -the method has stalled at a point that is not a local minimum.\"", 2, 22, 11, - 31636136082338725658, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{{3.841198828869714*^9, 3.8411988530398617`*^9}, { - 3.841202764278028*^9, 3.8412027694291487`*^9}, 3.841202992531249*^9, - 3.841203818976041*^9, {3.8412065192696333`*^9, 3.8412065264741993`*^9}, - 3.841206607735134*^9, {3.841215530466309*^9, 3.841215542149357*^9}}, - CellLabel-> - "During evaluation of \ -In[22]:=",ExpressionUUID->"4ee72e35-a73c-410c-8556-b30173fa6ed9"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"10.883004972950616`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.33622865930819`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.1990701968876678`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.2559727976695814`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.305571154302293`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.39244383691245627`"}], ",", - - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.016008819446766128`"}]}]}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{{3.8411988288779488`*^9, 3.841198853046158*^9}, { - 3.84120276428433*^9, 3.841202769435474*^9}, 3.841202992539172*^9, - 3.841203818985148*^9, {3.841206519278619*^9, 3.841206526482051*^9}, - 3.841206607742628*^9, {3.841215530474574*^9, 3.8412155421561127`*^9}}, - CellLabel->"Out[22]=",ExpressionUUID->"b6513273-6fab-4e44-966b-058a4909a7cd"] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{ - RowBox[{"sol", "[", "3", "]"}], "=", - RowBox[{"min5", "[", - RowBox[{"[", "2", "]"}], "]"}]}], ";", - RowBox[{ - RowBox[{"hf", "[", "3", "]"}], "=", - RowBox[{"h", "[", "1", "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.841215545828228*^9, 3.841215557185924*^9}}, - CellLabel->"In[23]:=",ExpressionUUID->"b9e1c71b-797a-4bc7-b085-cbe017cae354"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"min6", "=", - RowBox[{"FindMinimum", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"chiSquared", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "1", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "6"}]]}], "]"}], "[", "4", "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "1", "]"}], "]"}]}], ",", - RowBox[{"Join", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{"#1", ",", - RowBox[{"Re", "[", "#2", "]"}]}], "}"}], "&"}], "@@@", - RowBox[{"min4", "[", - RowBox[{"[", "2", "]"}], "]"}]}], ",", - RowBox[{"{", "}"}]}], "]"}], ",", - RowBox[{"MaxIterations", "->", - SuperscriptBox["10", "5"]}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841130597609497*^9, 3.841130620653933*^9}, { - 3.841130722625242*^9, 3.841130798033312*^9}, {3.841130851107401*^9, - 3.841130889402828*^9}, {3.841131067918955*^9, 3.841131094030652*^9}, - 3.841131144287809*^9, {3.841131229138278*^9, 3.841131229313192*^9}, { - 3.841131290418725*^9, 3.841131295026565*^9}, {3.841131388748147*^9, - 3.841131416660483*^9}, {3.8411326529160147`*^9, 3.841132665051569*^9}, { - 3.841133077444091*^9, 3.841133141383827*^9}, {3.841133181342457*^9, - 3.841133183421053*^9}, {3.841135155842046*^9, 3.841135176561595*^9}, { - 3.8411352335393887`*^9, 3.8411352353468447`*^9}, {3.8411359135600157`*^9, - 3.841135913798993*^9}, {3.841198192205803*^9, 3.84119820459739*^9}, { - 3.841198975883656*^9, 3.841198976066595*^9}, 3.8412029996440573`*^9, { - 3.8412038251857*^9, 3.841203836963256*^9}, {3.841215868432362*^9, - 3.841215881088188*^9}}, - CellLabel->"In[24]:=",ExpressionUUID->"7144f9ed-4a86-4ffd-9a61-8ac2605bee22"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"191096.51469502883`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.397218201006332`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19337793454385854`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.118363121896839`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.1342731062381544`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3719962334621446`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.01629311325222786`"}]}]}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{ - 3.8411306167235003`*^9, {3.8411306947216597`*^9, 3.84113075889436*^9}, - 3.84113079836438*^9, {3.841130851775154*^9, 3.8411308767675743`*^9}, - 3.841131001962682*^9, {3.841131072213916*^9, 3.841131088157425*^9}, - 3.841131130207449*^9, 3.841131226932292*^9, 3.8411312617222233`*^9, - 3.8411312998630333`*^9, 3.841131333112967*^9, 3.841131436342507*^9, - 3.8411326676759853`*^9, {3.841133087516758*^9, 3.8411331505282593`*^9}, - 3.841133197273109*^9, 3.841135181104412*^9, 3.841135236588089*^9, { - 3.841135915405456*^9, 3.8411359234252987`*^9}, {3.8411982000762053`*^9, - 3.841198205383966*^9}, 3.841198976821248*^9, 3.8412027720015173`*^9, - 3.841203000658931*^9, {3.841203831821206*^9, 3.841203841066231*^9}, - 3.8412158859643297`*^9}, - CellLabel->"Out[24]=",ExpressionUUID->"52f51cc1-05ad-46ff-8d92-4b4f2a860412"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"min7", "=", - RowBox[{"FindMinimum", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"chiSquared", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "2", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}], "[", "4", "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "2", "]"}], "]"}]}], ",", - RowBox[{"Join", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{"#1", ",", - RowBox[{"Re", "[", "#2", "]"}]}], "}"}], "&"}], "@@@", - RowBox[{"min6", "[", - RowBox[{"[", "2", "]"}], "]"}]}], ",", - RowBox[{"{", - RowBox[{"{", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], ",", "0"}], "}"}], "}"}]}], "]"}], - ",", - RowBox[{"MaxIterations", "->", - SuperscriptBox["10", "5"]}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841135927225821*^9, 3.841135993368535*^9}, { - 3.841136041771162*^9, 3.841136130378972*^9}, {3.841136195133636*^9, - 3.841136223572813*^9}, {3.841198239742043*^9, 3.84119826105376*^9}, { - 3.841198326479616*^9, 3.841198329599112*^9}, {3.8411987410158443`*^9, - 3.841198741206443*^9}, {3.84119877644757*^9, 3.8411987765507727`*^9}, { - 3.8411990022274857`*^9, 3.8411990022907343`*^9}, {3.8412027899835653`*^9, - 3.841202800095216*^9}, 3.8412030038840303`*^9, {3.8412038624755993`*^9, - 3.841203889586904*^9}, {3.8412158888083878`*^9, 3.841215898112523*^9}, { - 3.841215944273321*^9, 3.841215944320937*^9}}, - CellLabel->"In[27]:=",ExpressionUUID->"e51937d3-7f21-4e58-b4c0-a232bb86cffa"], - -Cell[BoxData[ - TemplateBox[{ - "FindMinimum", "sszero", - "\"The step size in the search has become less than the tolerance \ -prescribed by the PrecisionGoal option, but the gradient is larger than the \ -tolerance specified by the AccuracyGoal option. There is a possibility that \ -the method has stalled at a point that is not a local minimum.\"", 2, 27, 13, - 31636136082338725658, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.841215950993573*^9}, - CellLabel-> - "During evaluation of \ -In[27]:=",ExpressionUUID->"b632ecb3-cccf-439e-9acf-10506600d6c2"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"12655.489054037942`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.405459132100021`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.193421988215169`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.1163502222292223`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.1305666595112027`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3670682077439834`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.01823668537290188`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.0001998057433069313`"}]}], - "}"}]}], "}"}]], "Output", - CellChangeTimes->{{3.8411360464500523`*^9, 3.841136131375966*^9}, { - 3.8411361994338923`*^9, 3.8411362246696043`*^9}, 3.841136278855253*^9, { - 3.841198248642047*^9, 3.841198262090579*^9}, 3.841198330978508*^9, - 3.841198742659699*^9, 3.8411987777105417`*^9, {3.841198980083727*^9, - 3.841199003544334*^9}, {3.841202775833261*^9, 3.841202801282927*^9}, - 3.8412030440879297`*^9, {3.8412038582719097`*^9, 3.841203896912424*^9}, - 3.84121590383221*^9, 3.841215950999899*^9}, - CellLabel->"Out[27]=",ExpressionUUID->"31051fb0-f739-4969-a2f7-bd8d6727ae67"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"min8", "=", - RowBox[{"FindMinimum", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"chiSquared", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "3", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}], "[", "4", "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "3", "]"}], "]"}]}], ",", - RowBox[{"Join", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{"#1", ",", - RowBox[{"Re", "[", "#2", "]"}]}], "}"}], "&"}], "@@@", - RowBox[{"min7", "[", - RowBox[{"[", "2", "]"}], "]"}]}], ",", - RowBox[{"{", - RowBox[{"{", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], ",", "0"}], "}"}], "}"}]}], "]"}], - ",", - RowBox[{"MaxIterations", "->", - SuperscriptBox["10", "5"]}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841198997994816*^9, 3.841199055027618*^9}, { - 3.841202781503417*^9, 3.841202805639299*^9}, {3.8412039017006903`*^9, - 3.841203917691593*^9}, {3.841215908618018*^9, 3.841215924464602*^9}, { - 3.841216243022428*^9, 3.841216244046546*^9}}, - CellLabel->"In[49]:=",ExpressionUUID->"ff474b7b-6c32-4093-b1f1-d040d5885631"], - -Cell[BoxData[ - TemplateBox[{ - "FindMinimum", "sszero", - "\"The step size in the search has become less than the tolerance \ -prescribed by the PrecisionGoal option, but the gradient is larger than the \ -tolerance specified by the AccuracyGoal option. There is a possibility that \ -the method has stalled at a point that is not a local minimum.\"", 2, 49, 25, - 31636136082338725658, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{{3.841199019139744*^9, 3.8411990585086927`*^9}, { - 3.8412027826033983`*^9, 3.841202808490313*^9}, 3.841203959982874*^9, - 3.8412159283513317`*^9, 3.8412159905706863`*^9, 3.8412162825926857`*^9}, - CellLabel-> - "During evaluation of \ -In[49]:=",ExpressionUUID->"b2d9f72d-d0ea-4323-b7b3-ada02237a187"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"0.051774305605308595`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.3294432369028986`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19851635028469294`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.391691942612221`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5009784800629997`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3547249924618289`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.07229574927838082`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.0200146611878354`"}], ",", - - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.00319674033715485`"}]}]}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{{3.841199020012394*^9, 3.841199058515315*^9}, { - 3.8412027826095257`*^9, 3.841202808496828*^9}, 3.841203959991336*^9, - 3.841215928360648*^9, 3.841215990577017*^9, 3.84121628259902*^9}, - CellLabel->"Out[49]=",ExpressionUUID->"3b040127-4a9e-4d9f-b17b-d28180b74a94"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"min9", "=", - RowBox[{"FindMinimum", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"chiSquared", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "3", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], "]"}], "[", "4", "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "3", "]"}], "]"}]}], ",", - RowBox[{"Join", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{"#1", ",", - RowBox[{"Re", "[", "#2", "]"}]}], "}"}], "&"}], "@@@", - RowBox[{"min8", "[", - RowBox[{"[", "2", "]"}], "]"}]}], ",", - RowBox[{"{", "}"}]}], "]"}], ",", - RowBox[{"MaxIterations", "->", - SuperscriptBox["10", "5"]}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841198997994816*^9, 3.841199055027618*^9}, { - 3.841202781503417*^9, 3.841202805639299*^9}, {3.8412039017006903`*^9, - 3.841203917691593*^9}, {3.8412065352273483`*^9, 3.8412065468995132`*^9}, { - 3.841216017322764*^9, 3.841216037714707*^9}, {3.841216232942553*^9, - 3.8412162398625183`*^9}}, - CellLabel->"In[50]:=",ExpressionUUID->"400634c7-c0fe-4a48-ad30-471c2f3a36f7"], - -Cell[BoxData[ - TemplateBox[{ - "FindMinimum", "sszero", - "\"The step size in the search has become less than the tolerance \ -prescribed by the PrecisionGoal option, but the gradient is larger than the \ -tolerance specified by the AccuracyGoal option. There is a possibility that \ -the method has stalled at a point that is not a local minimum.\"", 2, 50, 26, - 31636136082338725658, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{{3.841199019139744*^9, 3.8411990585086927`*^9}, { - 3.8412027826033983`*^9, 3.841202808490313*^9}, 3.841203959982874*^9, { - 3.8412065485096827`*^9, 3.841206562691083*^9}, 3.841206616467799*^9, { - 3.8412160268346*^9, 3.841216038839349*^9}, {3.8412162343097363`*^9, - 3.8412162410391006`*^9}, 3.841216297179501*^9}, - CellLabel-> - "During evaluation of \ -In[50]:=",ExpressionUUID->"dba2fe13-9f85-43a1-89ea-2ace99621ed6"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"124.58712661359785`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.3294423184159014`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19851629926463787`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.3916902513841665`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.500976466871591`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.35472607787505794`"}], ",", - - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.07229504852009726`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.02001457076411913`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.003196745913020244`"}]}]}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{{3.841199020012394*^9, 3.841199058515315*^9}, { - 3.8412027826095257`*^9, 3.841202808496828*^9}, 3.841203959991336*^9, { - 3.84120654851865*^9, 3.8412065626977177`*^9}, 3.841206616474883*^9, { - 3.841216026842843*^9, 3.841216038845701*^9}, {3.8412162343162117`*^9, - 3.841216241045678*^9}, 3.841216297185713*^9}, - CellLabel->"Out[50]=",ExpressionUUID->"8c3639a7-269f-4154-9a07-311d3e360bb3"] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{ - RowBox[{"sol", "[", "4", "]"}], "=", - RowBox[{"min9", "[", - RowBox[{"[", "2", "]"}], "]"}]}], ";", - RowBox[{ - RowBox[{"hf", "[", "4", "]"}], "=", - RowBox[{"h", "[", "3", "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.841216042997466*^9, 3.841216053267021*^9}}, - CellLabel->"In[51]:=",ExpressionUUID->"99b9c456-f12f-4ac8-9250-306f78fd5028"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"min10", "=", - RowBox[{"FindMinimum", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"chiSquared", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "3", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}], "[", "5", "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "3", "]"}], "]"}]}], ",", - RowBox[{"Join", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{"#1", ",", - RowBox[{"Re", "[", "#2", "]"}]}], "}"}], "&"}], "@@@", - RowBox[{"min8", "[", - RowBox[{"[", "2", "]"}], "]"}]}], ",", - RowBox[{"{", "}"}]}], "]"}], ",", - RowBox[{"MaxIterations", "->", - SuperscriptBox["10", "5"]}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841130597609497*^9, 3.841130620653933*^9}, { - 3.841130722625242*^9, 3.841130798033312*^9}, {3.841130851107401*^9, - 3.841130889402828*^9}, {3.841131067918955*^9, 3.841131094030652*^9}, - 3.841131144287809*^9, {3.841131229138278*^9, 3.841131229313192*^9}, { - 3.841131290418725*^9, 3.841131295026565*^9}, {3.841131388748147*^9, - 3.841131416660483*^9}, {3.8411326529160147`*^9, 3.841132700852157*^9}, { - 3.841133232855455*^9, 3.841133234437826*^9}, {3.841135280923848*^9, - 3.841135328924511*^9}, {3.841135371686771*^9, 3.8411353845575314`*^9}, { - 3.841136320703375*^9, 3.841136371135272*^9}, {3.8411983882655582`*^9, - 3.841198398328127*^9}, {3.841198599501163*^9, 3.841198599659956*^9}, - 3.8412030737176657`*^9, {3.841203971244913*^9, 3.8412039825577908`*^9}, { - 3.841216339145029*^9, 3.8412163475766783`*^9}}, - CellLabel->"In[56]:=",ExpressionUUID->"72103d32-4f62-40c6-81f4-b58adeb371e8"], - -Cell[BoxData[ - TemplateBox[{ - "FindMinimum", "sszero", - "\"The step size in the search has become less than the tolerance \ -prescribed by the PrecisionGoal option, but the gradient is larger than the \ -tolerance specified by the AccuracyGoal option. There is a possibility that \ -the method has stalled at a point that is not a local minimum.\"", 2, 56, 27, - 31636136082338725658, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.841203995693149*^9, 3.841216363350975*^9}, - CellLabel-> - "During evaluation of \ -In[56]:=",ExpressionUUID->"ef4cd860-3180-4a5c-b303-02813e2f0121"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"1498.479694984822`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.376936604518121`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.1980546775953391`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.3358982220720175`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.4205132437729109`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3351908371691482`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.07018382648507963`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.015421044116270398`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.002038818650870124`"}]}]}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{ - 3.8411306167235003`*^9, {3.8411306947216597`*^9, 3.84113075889436*^9}, - 3.84113079836438*^9, {3.841130851775154*^9, 3.8411308767675743`*^9}, - 3.841131001962682*^9, {3.841131072213916*^9, 3.841131088157425*^9}, - 3.841131130207449*^9, 3.841131226932292*^9, 3.8411312617222233`*^9, - 3.8411312998630333`*^9, 3.841131333112967*^9, 3.841131436342507*^9, - 3.8411326676759853`*^9, 3.8411327037631598`*^9, 3.841133245793139*^9, { - 3.8411353066256332`*^9, 3.841135335025053*^9}, {3.84113537432078*^9, - 3.841135386062565*^9}, {3.8411363271041937`*^9, 3.841136378637917*^9}, - 3.841198402672852*^9, 3.841198603774029*^9, 3.841199083592428*^9, - 3.841199161648356*^9, {3.84120281570994*^9, 3.841202830000196*^9}, - 3.841203096455986*^9, {3.841203985085718*^9, 3.841203995702812*^9}, - 3.841216363359152*^9}, - CellLabel->"Out[56]=",ExpressionUUID->"dfda16cd-2b28-4fa2-bf49-0613a7955039"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"min11", "=", - RowBox[{"FindMinimum", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"chiSquared", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "4", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}], "[", "5", "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "4", "]"}], "]"}]}], ",", - RowBox[{"Join", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{"#1", ",", - RowBox[{"Re", "[", "#2", "]"}]}], "}"}], "&"}], "@@@", - RowBox[{"min10", "[", - RowBox[{"[", "2", "]"}], "]"}]}], ",", - RowBox[{"{", - RowBox[{"{", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], ",", "0"}], "}"}], "}"}]}], "]"}], - ",", - RowBox[{"MaxIterations", "->", - SuperscriptBox["10", "5"]}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841130597609497*^9, 3.841130620653933*^9}, { - 3.841130722625242*^9, 3.841130798033312*^9}, {3.841130851107401*^9, - 3.841130889402828*^9}, {3.841131067918955*^9, 3.841131094030652*^9}, - 3.841131144287809*^9, {3.841131229138278*^9, 3.841131229313192*^9}, { - 3.841131290418725*^9, 3.841131295026565*^9}, {3.841131388748147*^9, - 3.841131416660483*^9}, {3.8411326529160147`*^9, 3.841132700852157*^9}, { - 3.841133232855455*^9, 3.841133234437826*^9}, {3.841135280923848*^9, - 3.841135328924511*^9}, {3.841135371686771*^9, 3.8411353845575314`*^9}, { - 3.841135431214365*^9, 3.841135507743826*^9}, {3.8411984082728148`*^9, - 3.841198413424551*^9}, {3.841198481345834*^9, 3.8411984993542*^9}, { - 3.8411985470760307`*^9, 3.841198549002404*^9}, {3.8411985910838947`*^9, - 3.8411985911797256`*^9}, {3.8412028627208014`*^9, 3.84120290797703*^9}, { - 3.841203106093121*^9, 3.8412031063325577`*^9}, {3.841203206767825*^9, - 3.841203207006341*^9}, {3.841204075422728*^9, 3.841204087646577*^9}, { - 3.841216405842787*^9, 3.84121640919384*^9}}, - CellLabel->"In[57]:=",ExpressionUUID->"0b48a6eb-7bc6-4ef2-8676-c38756eebd58"], - -Cell[BoxData[ - TemplateBox[{ - "FindMinimum", "sszero", - "\"The step size in the search has become less than the tolerance \ -prescribed by the PrecisionGoal option, but the gradient is larger than the \ -tolerance specified by the AccuracyGoal option. There is a possibility that \ -the method has stalled at a point that is not a local minimum.\"", 2, 57, 28, - 31636136082338725658, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.8412041436393023`*^9, 3.841216459148901*^9}, - CellLabel-> - "During evaluation of \ -In[57]:=",ExpressionUUID->"7eb3df74-b175-455c-9133-7c5c1324e5e4"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"1220.4706415469132`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.4039605676169953`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19827850387403909`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.3403016507217775`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.4238803225500072`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3168311518059554`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.08390430079534987`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.021403985238575104`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.004182917128034661`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0003274395950446366`"}]}], - "}"}]}], "}"}]], "Output", - CellChangeTimes->{ - 3.8411306167235003`*^9, {3.8411306947216597`*^9, 3.84113075889436*^9}, - 3.84113079836438*^9, {3.841130851775154*^9, 3.8411308767675743`*^9}, - 3.841131001962682*^9, {3.841131072213916*^9, 3.841131088157425*^9}, - 3.841131130207449*^9, 3.841131226932292*^9, 3.8411312617222233`*^9, - 3.8411312998630333`*^9, 3.841131333112967*^9, 3.841131436342507*^9, - 3.8411326676759853`*^9, 3.8411327037631598`*^9, 3.841133245793139*^9, { - 3.8411353066256332`*^9, 3.841135335025053*^9}, {3.84113537432078*^9, - 3.841135386062565*^9}, {3.841135439389893*^9, 3.841135513524791*^9}, - 3.84119842214398*^9, {3.841198487678856*^9, 3.841198503696013*^9}, { - 3.8411985894418716`*^9, 3.841198595567628*^9}, 3.841199092367319*^9, - 3.841202820709991*^9, {3.841202868545973*^9, 3.841202913128574*^9}, - 3.8412031545475397`*^9, 3.841203204884197*^9, 3.841203248050109*^9, - 3.8412040906639557`*^9, 3.841204143648875*^9, 3.841216459157028*^9}, - CellLabel->"Out[57]=",ExpressionUUID->"860263ec-f1a7-4099-ae81-dc41bc75260c"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"min12", "=", - RowBox[{"FindMinimum", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"chiSquared", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "5", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}], "[", "5", "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "5", "]"}], "]"}]}], ",", - RowBox[{"Join", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{"#1", ",", - RowBox[{"Re", "[", "#2", "]"}]}], "}"}], "&"}], "@@@", - RowBox[{"min11", "[", - RowBox[{"[", "2", "]"}], "]"}]}], ",", - RowBox[{"{", - RowBox[{"{", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], ",", "0"}], "}"}], "}"}]}], "]"}], - ",", - RowBox[{"MaxIterations", "->", - SuperscriptBox["10", "5"]}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.84119850920216*^9, 3.841198529610516*^9}, { - 3.841203321946538*^9, 3.841203359673271*^9}, {3.841204156591919*^9, - 3.841204156639677*^9}, {3.84120649558753*^9, 3.841206497306438*^9}, - 3.841206630749983*^9, {3.8412164673630943`*^9, 3.841216471042966*^9}}, - CellLabel->"In[58]:=",ExpressionUUID->"bd67c32f-e5e0-4af5-b855-ddc96fb434e1"], - -Cell[BoxData[ - TemplateBox[{ - "FindMinimum", "sszero", - "\"The step size in the search has become less than the tolerance \ -prescribed by the PrecisionGoal option, but the gradient is larger than the \ -tolerance specified by the AccuracyGoal option. There is a possibility that \ -the method has stalled at a point that is not a local minimum.\"", 2, 58, 29, - 31636136082338725658, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.841204563353746*^9, 3.841216777532013*^9}, - CellLabel-> - "During evaluation of \ -In[58]:=",ExpressionUUID->"309303a3-5834-4fd3-9f66-666c69776fb9"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"0.0011381581223634093`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.4813747494334302`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.1989415187155121`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.368483564999145`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.457519995177002`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.2683328233932167`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.13049397072408778`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.04584836122090063`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.015034235026346881`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0029003384609583896`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.00024049816867789258`"}]}]}], "}"}]}], "}"}]], "Output",\ - - CellChangeTimes->{{3.841198525334651*^9, 3.8411985339541073`*^9}, { - 3.8412033386184387`*^9, 3.841203347474493*^9}, 3.8412037291172037`*^9, - 3.84120415440296*^9, 3.841204235890016*^9, 3.8412045633618507`*^9, - 3.8412167775402203`*^9}, - CellLabel->"Out[58]=",ExpressionUUID->"c2c01b83-76e4-46ca-9316-a03c2dfc091b"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"min13", "=", - RowBox[{"FindMinimum", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"chiSquared", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "5", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], "]"}], "[", "5", "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "5", "]"}], "]"}]}], ",", - RowBox[{"Join", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{"#1", ",", - RowBox[{"Re", "[", "#2", "]"}]}], "}"}], "&"}], "@@@", - RowBox[{"min12", "[", - RowBox[{"[", "2", "]"}], "]"}]}], ",", - RowBox[{"{", "}"}]}], "]"}], ",", - RowBox[{"MaxIterations", "->", - SuperscriptBox["10", "5"]}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.84119850920216*^9, 3.841198529610516*^9}, { - 3.841203321946538*^9, 3.841203359673271*^9}, {3.841204156591919*^9, - 3.841204156639677*^9}, {3.841206486722414*^9, 3.8412064921624737`*^9}, { - 3.841206632644546*^9, 3.8412066384848843`*^9}, {3.841216783617918*^9, - 3.84121678950467*^9}}, - CellLabel->"In[59]:=",ExpressionUUID->"c42991a7-72da-419c-8267-913486b59b23"], - -Cell[BoxData[ - TemplateBox[{ - "FindMinimum", "sszero", - "\"The step size in the search has become less than the tolerance \ -prescribed by the PrecisionGoal option, but the gradient is larger than the \ -tolerance specified by the AccuracyGoal option. There is a possibility that \ -the method has stalled at a point that is not a local minimum.\"", 2, 59, 30, - 31636136082338725658, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{ - 3.841204563353746*^9, {3.841206645466675*^9, 3.841206657978228*^9}, - 3.841216794510215*^9}, - CellLabel-> - "During evaluation of \ -In[59]:=",ExpressionUUID->"7ebcef47-80f3-4f9b-b1c9-09157547f7e8"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"2439.0338254174276`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.4813769840374733`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19894151717774033`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.368482998498253`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.457519151725496`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.2683318921584828`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.1304946669954303`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.04584862946391081`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.01503433715361403`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.002900358966181708`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.00024049973527528784`"}]}]}], "}"}]}], "}"}]], "Output",\ - - CellChangeTimes->{{3.841198525334651*^9, 3.8411985339541073`*^9}, { - 3.8412033386184387`*^9, 3.841203347474493*^9}, 3.8412037291172037`*^9, - 3.84120415440296*^9, 3.841204235890016*^9, 3.8412045633618507`*^9, { - 3.841206645475856*^9, 3.8412066579863*^9}, 3.841216794518258*^9}, - CellLabel->"Out[59]=",ExpressionUUID->"7cd8aaae-1e3b-4634-b621-86ad33a5efbe"] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{ - RowBox[{"sol", "[", "5", "]"}], "=", - RowBox[{"min13", "[", - RowBox[{"[", "2", "]"}], "]"}]}], ";", - RowBox[{ - RowBox[{"hf", "[", "5", "]"}], "=", - RowBox[{"h", "[", "5", "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.841216831803754*^9, 3.8412168424894743`*^9}}, - CellLabel->"In[60]:=",ExpressionUUID->"e8bb3e31-71d6-4a73-9f41-f9a2cc1a0ee2"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"min14", "=", - RowBox[{"FindMinimum", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"chiSquared", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "5", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}], "[", "6", "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "5", "]"}], "]"}]}], ",", - RowBox[{"Join", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{"#1", ",", - RowBox[{"Re", "[", "#2", "]"}]}], "}"}], "&"}], "@@@", - RowBox[{"min12", "[", - RowBox[{"[", "2", "]"}], "]"}]}], ",", - RowBox[{"{", "}"}]}], "]"}], ",", - RowBox[{"MaxIterations", "->", - SuperscriptBox["10", "5"]}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841130597609497*^9, 3.841130620653933*^9}, { - 3.841130722625242*^9, 3.841130798033312*^9}, {3.841130851107401*^9, - 3.841130889402828*^9}, {3.841131067918955*^9, 3.841131094030652*^9}, - 3.841131144287809*^9, {3.841131229138278*^9, 3.841131229313192*^9}, { - 3.841131290418725*^9, 3.841131295026565*^9}, {3.841131388748147*^9, - 3.841131416660483*^9}, {3.8411326529160147`*^9, 3.841132700852157*^9}, { - 3.841132772061672*^9, 3.8411327929898977`*^9}, {3.8411332535031157`*^9, - 3.841133254766263*^9}, {3.8411364241372843`*^9, 3.8411364440408583`*^9}, { - 3.841199170959041*^9, 3.841199181525959*^9}, {3.8412046107205687`*^9, - 3.841204627696431*^9}, {3.841216885275737*^9, 3.841216888858569*^9}}, - CellLabel->"In[68]:=",ExpressionUUID->"a8c3b62d-31fb-44de-aec6-ca9545f7c876"], - -Cell[BoxData[ - TemplateBox[{ - "FindMinimum", "sszero", - "\"The step size in the search has become less than the tolerance \ -prescribed by the PrecisionGoal option, but the gradient is larger than the \ -tolerance specified by the AccuracyGoal option. There is a possibility that \ -the method has stalled at a point that is not a local minimum.\"", 2, 68, 31, - 31636136082338725658, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.841204786993408*^9, 3.841217037641098*^9}, - CellLabel-> - "During evaluation of \ -In[68]:=",ExpressionUUID->"60cc6c46-5de3-462e-83e0-e198123fe662"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"446.9931431472276`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.4170521395257734`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19773196444573943`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.340495687446489`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.426545013487355`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.30729489132791254`"}], ",", - - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.10323334975076268`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.043061848232802985`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.017263501512695234`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.004072791985939392`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.0004112988399204627`"}]}]}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{ - 3.8411306167235003`*^9, {3.8411306947216597`*^9, 3.84113075889436*^9}, - 3.84113079836438*^9, {3.841130851775154*^9, 3.8411308767675743`*^9}, - 3.841131001962682*^9, {3.841131072213916*^9, 3.841131088157425*^9}, - 3.841131130207449*^9, 3.841131226932292*^9, 3.8411312617222233`*^9, - 3.8411312998630333`*^9, 3.841131333112967*^9, 3.841131436342507*^9, - 3.8411326676759853`*^9, 3.8411327037631598`*^9, 3.841132791420726*^9, - 3.84113288719923*^9, 3.841133268574415*^9, 3.841136473417314*^9, { - 3.841199179115109*^9, 3.8411991958921413`*^9}, 3.841204787006227*^9, - 3.841217037651698*^9}, - CellLabel->"Out[68]=",ExpressionUUID->"b644d6ed-6ed1-4dda-ba59-b478f9ef549a"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"min16", "=", - RowBox[{"FindMinimum", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"chiSquared", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "6", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], "]"}], "[", "6", "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "6", "]"}], "]"}]}], ",", - RowBox[{"Join", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{"#1", ",", - RowBox[{"Re", "[", "#2", "]"}]}], "}"}], "&"}], "@@@", - RowBox[{"min15", "[", - RowBox[{"[", "2", "]"}], "]"}]}], ",", - RowBox[{"{", "}"}]}], "]"}], ",", - RowBox[{"MaxIterations", "->", - SuperscriptBox["10", "5"]}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841199205638359*^9, 3.841199233374795*^9}, - 3.841199272112762*^9, {3.8411993022005243`*^9, 3.841199304088297*^9}, { - 3.8411993574743958`*^9, 3.841199358361107*^9}, {3.841204794604018*^9, - 3.841204813364493*^9}, {3.841206723414618*^9, 3.841206730630772*^9}, - 3.8412068012652597`*^9, {3.841207017667906*^9, 3.8412070184679937`*^9}, { - 3.8412071537752237`*^9, 3.841207158534552*^9}, {3.841207328899042*^9, - 3.841207329033997*^9}, {3.841207369347946*^9, 3.841207370450136*^9}, { - 3.8412171387362633`*^9, 3.841217149624463*^9}, {3.841217483470063*^9, - 3.841217506230301*^9}}, - CellLabel->"In[80]:=",ExpressionUUID->"44461443-de7c-4307-a685-40a7438e02ce"], - -Cell[BoxData[ - TemplateBox[{ - "FindMinimum", "sszero", - "\"The step size in the search has become less than the tolerance \ -prescribed by the PrecisionGoal option, but the gradient is larger than the \ -tolerance specified by the AccuracyGoal option. There is a possibility that \ -the method has stalled at a point that is not a local minimum.\"", 2, 80, 34, - 31636136082338725658, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.84120730988581*^9, 3.841207356398201*^9, - 3.841207397696518*^9, 3.841217176027319*^9, 3.841217561152968*^9}, - CellLabel-> - "During evaluation of \ -In[80]:=",ExpressionUUID->"73496fef-3d73-422f-aab4-c90cbfa568b4"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"9.330379712865204`*^6", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.5038082855172494`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19778640338595674`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.30385528424114`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.371427313634089`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.2716132839202784`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.1179132892298994`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.04204276316043394`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.016156127105420224`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.004213732501998062`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.0006349792312350677`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00004138861515153784`"}]}], - "}"}]}], "}"}]], "Output", - CellChangeTimes->{ - 3.8411992472309647`*^9, 3.841199290766985*^9, 3.8411993250293818`*^9, - 3.841199380356269*^9, 3.84120481152087*^9, 3.8412050222924433`*^9, - 3.84120528606061*^9, 3.841206756605773*^9, {3.841207014043088*^9, - 3.841207023657546*^9}, 3.841207309897574*^9, 3.841207356409906*^9, - 3.8412073977077227`*^9, 3.841217176038128*^9, 3.841217561164404*^9}, - CellLabel->"Out[80]=",ExpressionUUID->"bde133f5-9325-4765-8518-f894d010f6eb"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"min15", "=", - RowBox[{"FindMinimum", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"chiSquared", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "6", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}], "[", "6", "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "6", "]"}], "]"}]}], ",", - RowBox[{"Join", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{"#1", ",", - RowBox[{"Re", "[", "#2", "]"}]}], "}"}], "&"}], "@@@", - RowBox[{"min14", "[", - RowBox[{"[", "2", "]"}], "]"}]}], ",", - RowBox[{"{", - RowBox[{"{", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], ",", "0"}], "}"}], "}"}]}], "]"}], - ",", - RowBox[{"MaxIterations", "->", - SuperscriptBox["10", "5"]}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841199205638359*^9, 3.841199233374795*^9}, - 3.841199272112762*^9, {3.8411993022005243`*^9, 3.841199304088297*^9}, { - 3.8411993574743958`*^9, 3.841199358361107*^9}, {3.841204794604018*^9, - 3.841204813364493*^9}, {3.841207025229292*^9, 3.841207027107983*^9}, { - 3.841217098871291*^9, 3.841217111686454*^9}}, - CellLabel->"In[79]:=",ExpressionUUID->"766ab0e0-d040-4598-a728-7125209faeb2"], - -Cell[BoxData[ - TemplateBox[{ - "FindMinimum", "sszero", - "\"The step size in the search has become less than the tolerance \ -prescribed by the PrecisionGoal option, but the gradient is larger than the \ -tolerance specified by the AccuracyGoal option. There is a possibility that \ -the method has stalled at a point that is not a local minimum.\"", 2, 79, 33, - 31636136082338725658, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.841217454119505*^9}, - CellLabel-> - "During evaluation of \ -In[79]:=",ExpressionUUID->"6a670210-441d-463a-9057-770218945398"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"415.5593471104076`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.4341232848794823`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19781162537982722`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.3453578922277356`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.4323021709286516`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.2962516218647268`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.11423528110468836`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.05144787624656161`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.023556065242353475`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.006984352260579619`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.001138744190129965`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00007561555755874298`"}]}], - "}"}]}], "}"}]], "Output", - CellChangeTimes->{3.8411992472309647`*^9, 3.841199290766985*^9, - 3.8411993250293818`*^9, 3.841199380356269*^9, 3.84120481152087*^9, - 3.8412050222924433`*^9, 3.84120528606061*^9, 3.841207137122484*^9, - 3.84121713664469*^9, 3.8412174541300907`*^9}, - CellLabel->"Out[79]=",ExpressionUUID->"5661e97f-7626-497e-a74a-dcc986707e39"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"min16", "=", - RowBox[{"FindMinimum", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"chiSquared", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "7", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}], "[", "6", "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "7", "]"}], "]"}]}], ",", - RowBox[{"Join", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{"#1", ",", - RowBox[{"Re", "[", "#2", "]"}]}], "}"}], "&"}], "@@@", - RowBox[{"min42", "[", - RowBox[{"[", "2", "]"}], "]"}]}], ",", - RowBox[{"{", - RowBox[{"{", - RowBox[{ - RowBox[{"gC", "[", "7", "]"}], ",", "0"}], "}"}], "}"}]}], "]"}], - ",", - RowBox[{"MaxIterations", "->", - SuperscriptBox["10", "5"]}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841199205638359*^9, 3.841199233374795*^9}, - 3.841199272112762*^9, {3.8411993022005243`*^9, 3.841199304088297*^9}, { - 3.8411993574743958`*^9, 3.841199358361107*^9}, {3.841204794604018*^9, - 3.841204813364493*^9}, {3.841205051816448*^9, 3.841205082082039*^9}, { - 3.841217486797985*^9, - 3.841217487101807*^9}},ExpressionUUID->"08251920-ed86-4dae-9d28-\ -592b516afd2d"], - -Cell[BoxData["$Aborted"], "Output", - CellChangeTimes->{3.8411992472309647`*^9, 3.841199290766985*^9, - 3.8411993250293818`*^9, 3.841199380356269*^9, 3.84120481152087*^9, - 3.8412050222924433`*^9, 3.84120506592243*^9, 3.8412053147567453`*^9}, - CellLabel-> - "Out[859]=",ExpressionUUID->"64e027b4-955d-4430-99a7-3f0e6f9b5d14"] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{ - RowBox[{"sol", "[", "6", "]"}], "=", - RowBox[{"min15", "[", - RowBox[{"[", "2", "]"}], "]"}]}], ";", - RowBox[{ - RowBox[{"hf", "[", "6", "]"}], "=", - RowBox[{"h", "[", "6", "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.841217064576129*^9, 3.841217073405828*^9}, { - 3.841217220808518*^9, 3.8412172209043922`*^9}, {3.841217588207645*^9, - 3.8412175894556837`*^9}}, - CellLabel->"In[81]:=",ExpressionUUID->"b3e0a7d9-0f31-47c6-b44f-1198c44b72cd"], - -Cell[BoxData[ - RowBox[{ - RowBox[{"h5", "=", - RowBox[{"h", "[", "5", "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.841199369443321*^9, 3.841199378537052*^9}}, - CellLabel-> - "In[622]:=",ExpressionUUID->"3953145f-6208-42a6-b63d-57cbdb19dd32"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"ListLogPlot", "[", - RowBox[{"{", "\[IndentingNewLine]", - RowBox[{ - RowBox[{ - RowBox[{"Abs", "[", - RowBox[{ - RowBox[{"Gls", "[", - RowBox[{"[", - RowBox[{";;", "8"}], "]"}], "]"}], "-", - RowBox[{ - RowBox[{ - RowBox[{"dFd\[Xi]LowList", "[", - RowBox[{"2", ",", "h5"}], "]"}], "[", "7", "]"}], "/", - RowBox[{"(", - RowBox[{ - RowBox[{"Range", "[", - RowBox[{"0", ",", "7"}], "]"}], "!"}], ")"}]}]}], "]"}], "//.", - RowBox[{"rules", "[", "h5", "]"}]}], "/.", - RowBox[{"min42", "[", - RowBox[{"[", "2", "]"}], "]"}]}], "\[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.8371574167259398`*^9, - 3.83715742501366*^9}, {3.838872732879181*^9, 3.8388727537664413`*^9}, { - 3.838873204703073*^9, 3.8388732099027357`*^9}, {3.838873255752236*^9, - 3.8388732834641113`*^9}, {3.8388734328271227`*^9, 3.8388734358267*^9}, { - 3.838874157024147*^9, 3.8388741604719753`*^9}, {3.839307790346795*^9, - 3.839307797698661*^9}, {3.8393093420874243`*^9, 3.839309343767222*^9}, { - 3.83940985668435*^9, 3.8394098593718357`*^9}, {3.839479308878851*^9, - 3.8394793092698917`*^9}, {3.839479351678846*^9, 3.839479359894719*^9}, { - 3.839484132822569*^9, 3.83948413582975*^9}, {3.839484417835371*^9, - 3.839484422402855*^9}, {3.8394844606917543`*^9, 3.8394845443653107`*^9}, { - 3.839485068790997*^9, 3.839485069686892*^9}, {3.839485153592383*^9, - 3.839485166081131*^9}, {3.8394852464151793`*^9, 3.8394852711790447`*^9}, { - 3.839485306757688*^9, 3.8394853151639977`*^9}, {3.8394853654853773`*^9, - 3.839485432894374*^9}, 3.839485523256114*^9, {3.839485578601307*^9, - 3.839485649138336*^9}, {3.8394857007256727`*^9, 3.839485723219755*^9}, { - 3.839485936266061*^9, 3.839486030177397*^9}, {3.839486075309197*^9, - 3.839486142116439*^9}, {3.839486179828413*^9, 3.839486218245903*^9}, { - 3.83948626754249*^9, 3.8394862713893957`*^9}, {3.8394864169524717`*^9, - 3.8394864816965714`*^9}, {3.839486986826584*^9, 3.8394869896504993`*^9}, { - 3.8394870445001507`*^9, 3.839487076477178*^9}, {3.839487130772867*^9, - 3.839487144740963*^9}, {3.8394876124142523`*^9, 3.83948761275005*^9}, { - 3.839487645182592*^9, 3.839487645638852*^9}, {3.839488048646216*^9, - 3.839488090182976*^9}, {3.839488424581703*^9, 3.8394884272211113`*^9}, { - 3.8394892409164047`*^9, 3.839489242332054*^9}, {3.839489275213091*^9, - 3.839489292188744*^9}, {3.839489492289144*^9, 3.839489571665984*^9}, { - 3.8394896094678373`*^9, 3.839489713796721*^9}, {3.839489762837819*^9, - 3.839489797445959*^9}, {3.839489857544436*^9, 3.839489893848106*^9}, { - 3.8394903055442333`*^9, 3.839490366136724*^9}, {3.839490881170803*^9, - 3.8394908814338083`*^9}, {3.839490914539504*^9, 3.839490928595656*^9}, { - 3.839492144689028*^9, 3.839492147329255*^9}, {3.839493141315516*^9, - 3.8394931647319393`*^9}, {3.839493641949576*^9, 3.83949364210872*^9}, { - 3.839494014823594*^9, 3.839494050556492*^9}, {3.8394955822727327`*^9, - 3.8394956194090643`*^9}, {3.839495922911708*^9, 3.839495935527544*^9}, { - 3.839496282949663*^9, 3.8394963032934713`*^9}, {3.839572033112393*^9, - 3.8395720353280907`*^9}, {3.839572166843008*^9, 3.839572169346869*^9}, { - 3.839586112218432*^9, 3.8395861234262123`*^9}, {3.839586281734277*^9, - 3.8395862878848553`*^9}, {3.839586416192438*^9, 3.839586419599288*^9}, { - 3.839658669660975*^9, 3.8396586751241493`*^9}, 3.839664357017618*^9, { - 3.839664563809626*^9, 3.8396646004174013`*^9}, {3.840528591761121*^9, - 3.8405285944877768`*^9}, {3.8405288185331697`*^9, 3.8405288189559*^9}, { - 3.840873305948681*^9, 3.840873312420223*^9}, 3.840873708508609*^9, - 3.8408832195487127`*^9, {3.841201571665058*^9, 3.841201599713805*^9}, { - 3.841201728979814*^9, 3.841201759620566*^9}, {3.841204932766361*^9, - 3.84120493989393*^9}},ExpressionUUID->"327880e8-53d4-4b4b-9c6c-\ -2181013cd61a"], - -Cell[BoxData[ - GraphicsBox[{{{{}, {}, {}, {}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{{}, { - LineBox[{{8., -3.7367757624112956`}, {8., -3.7366498829099717`}}], - LineBox[{{8., -3.7366498829099717`}, {8., -3.736524019252302}}]}}, - Antialiasing->False]}}, {}}, - {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], - AbsoluteThickness[1.6], PointBox[{{8., -3.7366498829099717`}}]}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., -3.7367954627421374`}, - 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., 8.}, {-3.7367954627421374`, -3.736524019252302}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.02], - Scaled[0.05]}}, - Ticks->FrontEndValueCache[{Automatic, - Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-3.73676802484091, - FormBox[ - TagBox[ - InterpretationBox[ - StyleBox["\"0.023831\"", ShowStringCharacters -> False], 0.023831, - AutoDelete -> True], NumberForm[#, { - DirectedInfinity[1], 6}]& ], TraditionalForm], {0.01, - 0.}}, {-3.736726063571156, - FormBox[ - TagBox[ - InterpretationBox[ - StyleBox["\"0.023832\"", ShowStringCharacters -> False], 0.023832, - AutoDelete -> True], NumberForm[#, { - DirectedInfinity[1], 6}]& ], TraditionalForm], {0.01, - 0.}}, {-3.736684104062076, - FormBox[ - TagBox[ - InterpretationBox[ - StyleBox["\"0.023833\"", ShowStringCharacters -> False], 0.023833, - AutoDelete -> True], NumberForm[#, { - DirectedInfinity[1], 6}]& ], TraditionalForm], {0.01, - 0.}}, {-3.7366421463135224`, - FormBox[ - TagBox[ - InterpretationBox[ - StyleBox["\"0.023834\"", ShowStringCharacters -> False], 0.023834, - AutoDelete -> True], NumberForm[#, { - DirectedInfinity[1], 6}]& ], TraditionalForm], {0.01, - 0.}}, {-3.736600190325348, - FormBox[ - TagBox[ - InterpretationBox[ - StyleBox["\"0.023835\"", ShowStringCharacters -> False], 0.023835, - AutoDelete -> True], NumberForm[#, { - DirectedInfinity[1], 6}]& ], TraditionalForm], {0.01, - 0.}}, {-3.736558236097405, - FormBox[ - TagBox[ - InterpretationBox[ - StyleBox["\"0.023836\"", ShowStringCharacters -> False], 0.023836, - AutoDelete -> True], NumberForm[#, { - DirectedInfinity[1], 6}]& ], TraditionalForm], {0.01, - 0.}}, {-3.7365162836295447`, - FormBox[ - TagBox[ - InterpretationBox[ - StyleBox["\"0.023837\"", ShowStringCharacters -> False], 0.023837, - AutoDelete -> True], NumberForm[#, { - DirectedInfinity[1], 6}]& ], TraditionalForm], {0.01, - 0.}}, {-3.7368099878714864`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.7368015951244984`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.7367932024479478`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.7367848098418337`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.736776417306155, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.7367596324460983`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.736751240121718, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.7367428478677684`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.736734455684248, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.7367176715284907`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.7367092795562513`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.7367008876544365`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.736692495823045, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.736675712371528, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.7366673207514, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.73665892920169, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.736650537722398, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.7366337549750623`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.7366253637070157`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.7366169725093816`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.7366085813821597`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.7365917993389455`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.736583408422951, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.7365750175773638`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.736566626802182, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.736549845463031, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.7365414548990588`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.736533064405488, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.736524673982317, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.7365078933471696`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.7364995031351906`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.736491112993607, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.736482722922417, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}, {-3.73647433292162, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}}}]]], "Output", - CellChangeTimes->{{3.8394864302572823`*^9, 3.839486485737481*^9}, { - 3.8394868108920527`*^9, 3.839486833544271*^9}, {3.839486968169405*^9, - 3.839486994739235*^9}, {3.839487050609737*^9, 3.839487081545911*^9}, { - 3.839487139032605*^9, 3.839487149734391*^9}, 3.8394880559648848`*^9, - 3.839488095210012*^9, 3.839488432022138*^9, 3.839488966485567*^9, - 3.839489132907782*^9, 3.8394891742679043`*^9, {3.83948923216856*^9, - 3.839489247298073*^9}, {3.8394892811100388`*^9, 3.839489297255623*^9}, { - 3.839489518429874*^9, 3.839489576749642*^9}, 3.839489614460577*^9, { - 3.839489646744204*^9, 3.839489717916*^9}, {3.839489779953936*^9, - 3.839489797877178*^9}, {3.839489858269053*^9, 3.839489894400456*^9}, - 3.83948999298129*^9, 3.839490039302783*^9, 3.839490198501548*^9, { - 3.8394903145949183`*^9, 3.839490366668486*^9}, 3.839490410230691*^9, - 3.83949068744411*^9, 3.839490882032105*^9, {3.839490915087521*^9, - 3.8394909440773563`*^9}, {3.839491208442045*^9, 3.839491227913024*^9}, - 3.839491282583577*^9, 3.83949138318426*^9, 3.839491847872534*^9, - 3.839491922779976*^9, {3.83949214072232*^9, 3.839492147793445*^9}, - 3.839492703416108*^9, {3.8394930877867403`*^9, 3.839493111348575*^9}, - 3.839493159337824*^9, 3.839493260745894*^9, 3.8394938495813704`*^9, { - 3.839494015878335*^9, 3.839494051166876*^9}, 3.839494155707307*^9, { - 3.839494232008819*^9, 3.8394942817479143`*^9}, {3.8394955838062563`*^9, - 3.839495620912838*^9}, {3.839495892980287*^9, 3.839495961352178*^9}, - 3.839495996781355*^9, 3.8394960290995007`*^9, {3.8394961117034683`*^9, - 3.839496132210868*^9}, {3.839496233750821*^9, 3.839496247464304*^9}, { - 3.839496287823802*^9, 3.839496304224265*^9}, 3.83949641106695*^9, - 3.839496651844782*^9, 3.839569714442939*^9, 3.839570692350816*^9, - 3.839571037545631*^9, 3.8395710776956797`*^9, 3.8395711376334047`*^9, - 3.839571186222416*^9, 3.839571351854351*^9, 3.8395716431049433`*^9, - 3.8395716961263447`*^9, 3.8395719356619263`*^9, 3.839571975466508*^9, { - 3.8395720292576017`*^9, 3.839572038127006*^9}, {3.83957217256413*^9, - 3.83957219391011*^9}, 3.839572236054682*^9, {3.839572276306333*^9, - 3.839572287892969*^9}, 3.839572342583872*^9, 3.839572572560753*^9, - 3.839572613884104*^9, {3.839572830197351*^9, 3.839572867853582*^9}, { - 3.839572962859436*^9, 3.839572978399377*^9}, 3.839573191565909*^9, - 3.83957323416776*^9, 3.839574190974876*^9, {3.839574358418882*^9, - 3.839574363836178*^9}, 3.839577688193771*^9, {3.839577931409347*^9, - 3.839577940725779*^9}, {3.839579623692398*^9, 3.839579641583359*^9}, - 3.839580176251998*^9, {3.839580243310802*^9, 3.839580260058309*^9}, - 3.83958034038577*^9, 3.839581557584*^9, {3.83958160487352*^9, - 3.839581615679512*^9}, 3.839581993151758*^9, 3.839582040886951*^9, - 3.839582108820992*^9, 3.839582559973913*^9, 3.839582771424386*^9, { - 3.839583107834976*^9, 3.839583154778919*^9}, {3.8395842000019083`*^9, - 3.839584229236342*^9}, 3.839584319284484*^9, 3.8395843940434847`*^9, - 3.839584572371277*^9, 3.839584947067206*^9, 3.839585081305537*^9, - 3.839586137503179*^9, 3.8395862976249247`*^9, 3.839586429104487*^9, - 3.839587842464167*^9, 3.839647990219092*^9, 3.8396572711023006`*^9, - 3.839658508039483*^9, 3.839658567146755*^9, {3.8396586610674477`*^9, - 3.8396586758654203`*^9}, 3.839659271097528*^9, 3.839661799778942*^9, { - 3.839664337728752*^9, 3.8396643582360373`*^9}, {3.839664548980212*^9, - 3.839664603837595*^9}, 3.839664641104356*^9, 3.8396691346008053`*^9, - 3.8396700455490303`*^9, 3.839670127013689*^9, 3.8405260833413677`*^9, { - 3.840527418121812*^9, 3.840527428230318*^9}, 3.840528597876438*^9, { - 3.84052880585203*^9, 3.840528823602725*^9}, 3.840610810412817*^9, - 3.8408694556097403`*^9, 3.840872804624278*^9, 3.840873318607501*^9, - 3.8408737146428013`*^9, {3.840876034501457*^9, 3.8408760567374563`*^9}, { - 3.840876105690199*^9, 3.840876121133092*^9}, {3.840883219169812*^9, - 3.8408832337272387`*^9}, 3.840883457378954*^9, 3.8411117649872*^9, - 3.841114994789463*^9, 3.8411187742637053`*^9, 3.841119379551421*^9, - 3.8411199453545218`*^9, 3.841120189487606*^9, 3.84112117377914*^9, - 3.84112149235848*^9, 3.8411222069437113`*^9, 3.841201622825588*^9, - 3.841201755613459*^9, 3.84120179048372*^9}, - CellLabel-> - "Out[654]=",ExpressionUUID->"dee28450-2e32-4aa7-ba3c-bc235920cb73"] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"h6", "=", - RowBox[{"h", "[", "6", "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.841131384646043*^9, 3.8411313862116756`*^9}, { - 3.8411326867078114`*^9, 3.841132687891733*^9}, {3.841132760381133*^9, - 3.8411327614851437`*^9}, {3.841133568595826*^9, 3.841133569619952*^9}, { - 3.841136506593787*^9, 3.841136508649869*^9}, {3.8411367368703213`*^9, - 3.8411367372059727`*^9}, 3.841137059804308*^9, 3.841137298472457*^9, - 3.841137483379951*^9, {3.841140621030678*^9, 3.841140621254442*^9}, { - 3.841199493787445*^9, 3.8411994938513393`*^9}}, - CellLabel-> - "In[634]:=",ExpressionUUID->"97f07ac1-b2ac-4f1e-9bad-da863401cc55"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"min51", "=", - RowBox[{"FindMinimum", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"chiSquared", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "5", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}], "[", "7", "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "5", "]"}], "]"}]}], ",", - RowBox[{"Join", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{"#1", ",", - RowBox[{"Re", "[", "#2", "]"}]}], "}"}], "&"}], "@@@", - RowBox[{"min41", "[", - RowBox[{"[", "2", "]"}], "]"}]}], ",", - RowBox[{"{", "}"}]}], "]"}], ",", - RowBox[{"MaxIterations", "->", - SuperscriptBox["10", "5"]}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841130597609497*^9, 3.841130620653933*^9}, { - 3.841130722625242*^9, 3.841130798033312*^9}, {3.841130851107401*^9, - 3.841130889402828*^9}, {3.841131067918955*^9, 3.841131094030652*^9}, - 3.841131144287809*^9, {3.841131229138278*^9, 3.841131229313192*^9}, { - 3.841131290418725*^9, 3.841131295026565*^9}, {3.841131388748147*^9, - 3.841131416660483*^9}, {3.8411326529160147`*^9, 3.841132700852157*^9}, { - 3.841132772061672*^9, 3.8411327929898977`*^9}, {3.8411332535031157`*^9, - 3.841133254766263*^9}, {3.841133573100376*^9, 3.84113358718857*^9}, { - 3.841133815049304*^9, 3.8411338177444773`*^9}, {3.841134008557439*^9, - 3.841134033828574*^9}, {3.841136514522915*^9, 3.8411365288664837`*^9}, { - 3.8411367519672937`*^9, 3.841136754302226*^9}, {3.841137062820982*^9, - 3.8411370761256638`*^9}, {3.841137300865457*^9, 3.841137306880753*^9}, { - 3.841137486541193*^9, 3.841137488388105*^9}, {3.841139948274831*^9, - 3.841139948353917*^9}, {3.8411406241833897`*^9, 3.84114063082279*^9}, { - 3.841199499764308*^9, 3.8411995315562553`*^9}, {3.8412053712548447`*^9, - 3.8412053790140457`*^9}, {3.841205820095179*^9, 3.8412058239582453`*^9}}, - CellLabel-> - "In[879]:=",ExpressionUUID->"be7dae59-0c34-40bb-83e4-897bb1e021f3"], - -Cell[BoxData[ - TemplateBox[{ - "FindMinimum", "sszero", - "\"The step size in the search has become less than the tolerance \ -prescribed by the PrecisionGoal option, but the gradient is larger than the \ -tolerance specified by the AccuracyGoal option. There is a possibility that \ -the method has stalled at a point that is not a local minimum.\"", 2, 879, - 429, 31635592826216417540, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.8412059522012577`*^9}, - CellLabel-> - "During evaluation of \ -In[879]:=",ExpressionUUID->"616fbcc8-78fe-497d-9859-bf7515325aad"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"800.9596689135345`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.4867601342813088`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19766649883095674`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.291178143394349`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.3543519247695304`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.28267228316061477`"}], ",", - - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.10291710180303158`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.03067153287610778`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.009065011189301435`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0016115667440039694`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.00012536518638549474`"}]}]}], "}"}]}], "}"}]], "Output",\ - - CellChangeTimes->{ - 3.8411306167235003`*^9, {3.8411306947216597`*^9, 3.84113075889436*^9}, - 3.84113079836438*^9, {3.841130851775154*^9, 3.8411308767675743`*^9}, - 3.841131001962682*^9, {3.841131072213916*^9, 3.841131088157425*^9}, - 3.841131130207449*^9, 3.841131226932292*^9, 3.8411312617222233`*^9, - 3.8411312998630333`*^9, 3.841131333112967*^9, 3.841131436342507*^9, - 3.8411326676759853`*^9, 3.8411327037631598`*^9, 3.841132791420726*^9, - 3.84113288719923*^9, 3.841133268574415*^9, 3.841133604328535*^9, - 3.841133836330724*^9, {3.84113402718235*^9, 3.841134051580722*^9}, - 3.841136570405583*^9, 3.8411369794286633`*^9, 3.8411370746487207`*^9, - 3.8411372534384937`*^9, 3.841137480313588*^9, 3.8411377128802013`*^9, - 3.84114012268575*^9, 3.841142006533914*^9, 3.841199634930439*^9, - 3.8412058177606783`*^9, 3.841205952215618*^9}, - CellLabel-> - "Out[879]=",ExpressionUUID->"824a001d-c983-4f99-9525-e83e7721cd24"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"min52", "=", - RowBox[{"FindMinimum", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"chiSquared", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "6", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}], "[", "7", "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "6", "]"}], "]"}]}], ",", - RowBox[{"Join", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{"#1", ",", - RowBox[{"Re", "[", "#2", "]"}]}], "}"}], "&"}], "@@@", - RowBox[{"min51", "[", - RowBox[{"[", "2", "]"}], "]"}]}], ",", - RowBox[{"{", - RowBox[{"{", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], ",", "0"}], "}"}], "}"}]}], "]"}], - ",", - RowBox[{"MaxIterations", "->", - SuperscriptBox["10", "5"]}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841130597609497*^9, 3.841130620653933*^9}, { - 3.841130722625242*^9, 3.841130798033312*^9}, {3.841130851107401*^9, - 3.841130889402828*^9}, {3.841131067918955*^9, 3.841131094030652*^9}, - 3.841131144287809*^9, {3.841131229138278*^9, 3.841131229313192*^9}, { - 3.841131290418725*^9, 3.841131295026565*^9}, {3.841131388748147*^9, - 3.841131416660483*^9}, {3.8411326529160147`*^9, 3.841132700852157*^9}, { - 3.841132772061672*^9, 3.8411327929898977`*^9}, {3.8411332535031157`*^9, - 3.841133254766263*^9}, {3.841133573100376*^9, 3.84113358718857*^9}, { - 3.841133815049304*^9, 3.8411338177444773`*^9}, {3.841134008557439*^9, - 3.841134033828574*^9}, {3.841136514522915*^9, 3.8411365288664837`*^9}, { - 3.8411367519672937`*^9, 3.841136754302226*^9}, {3.841137062820982*^9, - 3.8411370761256638`*^9}, {3.841137300865457*^9, 3.841137306880753*^9}, { - 3.841137486541193*^9, 3.841137488388105*^9}, {3.841139948274831*^9, - 3.841139948353917*^9}, {3.8411406241833897`*^9, 3.84114063082279*^9}, { - 3.841199499764308*^9, 3.841199502683804*^9}, {3.8411995627015343`*^9, - 3.841199568444839*^9}, {3.841199840713798*^9, 3.841199840793442*^9}, { - 3.841201392086339*^9, 3.8412013922137117`*^9}, {3.841206000075226*^9, - 3.841206009033431*^9}, {3.841207453276133*^9, 3.841207468116643*^9}, { - 3.841207589055626*^9, 3.841207607159031*^9}}, - CellLabel-> - "In[963]:=",ExpressionUUID->"2ffc2895-d476-46d3-9347-7d6d2ae619d3"], - -Cell[BoxData[ - TemplateBox[{ - "FindMinimum", "sszero", - "\"The step size in the search has become less than the tolerance \ -prescribed by the PrecisionGoal option, but the gradient is larger than the \ -tolerance specified by the AccuracyGoal option. There is a possibility that \ -the method has stalled at a point that is not a local minimum.\"", 2, 963, - 446, 31635592826216417540, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.8412075767555323`*^9, 3.841208056854374*^9}, - CellLabel-> - "During evaluation of \ -In[963]:=",ExpressionUUID->"9942c662-cc26-460a-b816-226485a3365d"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"764.191283692335`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.506991098275652`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.1977193020678212`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.2907071079557055`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.352988806155268`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.27333110360415724`"}], ",", - - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.1108866619899816`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.034814955923184975`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.011504914129486232`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0025279298729839325`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.000313927885944924`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", - "0.000016272995467083493`"}]}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{ - 3.8411306167235003`*^9, {3.8411306947216597`*^9, 3.84113075889436*^9}, - 3.84113079836438*^9, {3.841130851775154*^9, 3.8411308767675743`*^9}, - 3.841131001962682*^9, {3.841131072213916*^9, 3.841131088157425*^9}, - 3.841131130207449*^9, 3.841131226932292*^9, 3.8411312617222233`*^9, - 3.8411312998630333`*^9, 3.841131333112967*^9, 3.841131436342507*^9, - 3.8411326676759853`*^9, 3.8411327037631598`*^9, 3.841132791420726*^9, - 3.84113288719923*^9, 3.841133268574415*^9, 3.841133604328535*^9, - 3.841133836330724*^9, {3.84113402718235*^9, 3.841134051580722*^9}, - 3.841136570405583*^9, 3.8411369794286633`*^9, 3.8411370746487207`*^9, - 3.8411372534384937`*^9, 3.841137480313588*^9, 3.8411377128802013`*^9, - 3.84114012268575*^9, 3.841142006533914*^9, 3.841199517493897*^9, - 3.841199838489519*^9, 3.841200011184155*^9, 3.841206436810231*^9, - 3.8412075767716084`*^9, 3.841208056868552*^9}, - CellLabel-> - "Out[963]=",ExpressionUUID->"ebe33558-e057-40e2-9fca-80a6fd30ffa3"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"min53", "=", - RowBox[{"FindMinimum", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"chiSquared", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "7", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}], "[", "7", "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "7", "]"}], "]"}]}], ",", - RowBox[{"Join", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{"#1", ",", - RowBox[{"Re", "[", "#2", "]"}]}], "}"}], "&"}], "@@@", - RowBox[{"min52", "[", - RowBox[{"[", "2", "]"}], "]"}]}], ",", - RowBox[{"{", - RowBox[{"{", - RowBox[{ - RowBox[{"gC", "[", "7", "]"}], ",", "0"}], "}"}], "}"}]}], "]"}], - ",", - RowBox[{"MaxIterations", "->", - SuperscriptBox["10", "5"]}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841130597609497*^9, 3.841130620653933*^9}, { - 3.841130722625242*^9, 3.841130798033312*^9}, {3.841130851107401*^9, - 3.841130889402828*^9}, {3.841131067918955*^9, 3.841131094030652*^9}, - 3.841131144287809*^9, {3.841131229138278*^9, 3.841131229313192*^9}, { - 3.841131290418725*^9, 3.841131295026565*^9}, {3.841131388748147*^9, - 3.841131416660483*^9}, {3.8411326529160147`*^9, 3.841132700852157*^9}, { - 3.841132772061672*^9, 3.8411327929898977`*^9}, {3.8411332535031157`*^9, - 3.841133254766263*^9}, {3.841133573100376*^9, 3.84113358718857*^9}, { - 3.841133815049304*^9, 3.8411338177444773`*^9}, {3.841134008557439*^9, - 3.841134033828574*^9}, {3.841136514522915*^9, 3.8411365288664837`*^9}, { - 3.8411367519672937`*^9, 3.841136754302226*^9}, {3.841137062820982*^9, - 3.8411370761256638`*^9}, {3.841137300865457*^9, 3.841137306880753*^9}, { - 3.841137486541193*^9, 3.841137488388105*^9}, {3.841139948274831*^9, - 3.841139948353917*^9}, {3.8411406241833897`*^9, 3.84114063082279*^9}, { - 3.841199499764308*^9, 3.841199502683804*^9}, {3.8411995627015343`*^9, - 3.841199568444839*^9}, {3.841199840713798*^9, 3.841199840793442*^9}, { - 3.841201392086339*^9, 3.8412013922137117`*^9}, {3.841206000075226*^9, - 3.841206009033431*^9}, {3.841207453276133*^9, 3.841207468116643*^9}, { - 3.841207589055626*^9, 3.841207607159031*^9}, {3.841210667271735*^9, - 3.841210690911846*^9}}, - CellLabel-> - "In[970]:=",ExpressionUUID->"fd4adab1-b2fe-4095-acde-f64aabc1f88e"], - -Cell[BoxData["$Aborted"], "Output", - CellChangeTimes->{ - 3.8411306167235003`*^9, {3.8411306947216597`*^9, 3.84113075889436*^9}, - 3.84113079836438*^9, {3.841130851775154*^9, 3.8411308767675743`*^9}, - 3.841131001962682*^9, {3.841131072213916*^9, 3.841131088157425*^9}, - 3.841131130207449*^9, 3.841131226932292*^9, 3.8411312617222233`*^9, - 3.8411312998630333`*^9, 3.841131333112967*^9, 3.841131436342507*^9, - 3.8411326676759853`*^9, 3.8411327037631598`*^9, 3.841132791420726*^9, - 3.84113288719923*^9, 3.841133268574415*^9, 3.841133604328535*^9, - 3.841133836330724*^9, {3.84113402718235*^9, 3.841134051580722*^9}, - 3.841136570405583*^9, 3.8411369794286633`*^9, 3.8411370746487207`*^9, - 3.8411372534384937`*^9, 3.841137480313588*^9, 3.8411377128802013`*^9, - 3.84114012268575*^9, 3.841142006533914*^9, 3.841199517493897*^9, - 3.841199838489519*^9, 3.841200011184155*^9, 3.841206436810231*^9, - 3.8412075767716084`*^9, 3.841208056868552*^9, 3.8412117925845013`*^9, - 3.8412122529073668`*^9}, - CellLabel-> - "Out[970]=",ExpressionUUID->"0ed3009d-b7e9-43ea-86c5-e04d0414971d"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"min54", "=", - RowBox[{"FindMinimum", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"chiSquared", "[", - RowBox[{"2", ",", - RowBox[{"h", "[", "6", "]"}], ",", - SuperscriptBox["10", - RowBox[{"-", "4"}]]}], "]"}], "[", "7", "]"}], "//.", - RowBox[{"rules", "[", - RowBox[{"h", "[", "6", "]"}], "]"}]}], ",", - RowBox[{"Join", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{"#1", ",", - RowBox[{"Re", "[", "#2", "]"}]}], "}"}], "&"}], "@@@", - RowBox[{"min51", "[", - RowBox[{"[", "2", "]"}], "]"}]}], ",", - RowBox[{"{", - RowBox[{"{", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], ",", "0"}], "}"}], "}"}]}], "]"}], - ",", - RowBox[{"MaxIterations", "->", - SuperscriptBox["10", "5"]}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841130597609497*^9, 3.841130620653933*^9}, { - 3.841130722625242*^9, 3.841130798033312*^9}, {3.841130851107401*^9, - 3.841130889402828*^9}, {3.841131067918955*^9, 3.841131094030652*^9}, - 3.841131144287809*^9, {3.841131229138278*^9, 3.841131229313192*^9}, { - 3.841131290418725*^9, 3.841131295026565*^9}, {3.841131388748147*^9, - 3.841131416660483*^9}, {3.8411326529160147`*^9, 3.841132700852157*^9}, { - 3.841132772061672*^9, 3.8411327929898977`*^9}, {3.8411332535031157`*^9, - 3.841133254766263*^9}, {3.841133573100376*^9, 3.84113358718857*^9}, { - 3.841133815049304*^9, 3.8411338177444773`*^9}, {3.841134008557439*^9, - 3.841134033828574*^9}, {3.841136514522915*^9, 3.8411365288664837`*^9}, { - 3.8411367519672937`*^9, 3.841136754302226*^9}, {3.841137062820982*^9, - 3.8411370761256638`*^9}, {3.841137300865457*^9, 3.841137306880753*^9}, { - 3.841137486541193*^9, 3.841137488388105*^9}, {3.841139948274831*^9, - 3.841139948353917*^9}, {3.8411406241833897`*^9, 3.84114063082279*^9}, { - 3.841199499764308*^9, 3.841199502683804*^9}, {3.8411995627015343`*^9, - 3.841199568444839*^9}, {3.841199840713798*^9, 3.841199840793442*^9}, { - 3.841201392086339*^9, 3.841201408637909*^9}, {3.841210296657085*^9, - 3.8412103069929533`*^9}, {3.8412103660833073`*^9, 3.8412103670658827`*^9}, - 3.84121048026165*^9, {3.841211282507225*^9, 3.841211282634695*^9}, { - 3.8412117981724787`*^9, 3.8412118024043703`*^9}, {3.841212057465785*^9, - 3.841212057601233*^9}, 3.841212255614192*^9, {3.841212390656*^9, - 3.8412124021757927`*^9}}, - CellLabel-> - "In[973]:=",ExpressionUUID->"539c7a02-d05e-4353-8090-2aae252722e7"], - -Cell[BoxData[ - TemplateBox[{ - "FindMinimum", "sszero", - "\"The step size in the search has become less than the tolerance \ -prescribed by the PrecisionGoal option, but the gradient is larger than the \ -tolerance specified by the AccuracyGoal option. There is a possibility that \ -the method has stalled at a point that is not a local minimum.\"", 2, 973, - 469, 31635592826216417540, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.841212936209498*^9}, - CellLabel-> - "During evaluation of \ -In[973]:=",ExpressionUUID->"438271ee-4d2b-469d-9706-a9a79d41da8a"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"624.9708570809778`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.5003554503042076`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19779440866879938`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.3034482632382502`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.3715260116454862`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.2730393510137838`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.11563152327090495`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.03824544294637637`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.013013311014860836`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.00291837168990724`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.00036788773749019403`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00001927734632848523`"}]}], - "}"}]}], "}"}]], "Output", - CellChangeTimes->{ - 3.8411306167235003`*^9, {3.8411306947216597`*^9, 3.84113075889436*^9}, - 3.84113079836438*^9, {3.841130851775154*^9, 3.8411308767675743`*^9}, - 3.841131001962682*^9, {3.841131072213916*^9, 3.841131088157425*^9}, - 3.841131130207449*^9, 3.841131226932292*^9, 3.8411312617222233`*^9, - 3.8411312998630333`*^9, 3.841131333112967*^9, 3.841131436342507*^9, - 3.8411326676759853`*^9, 3.8411327037631598`*^9, 3.841132791420726*^9, - 3.84113288719923*^9, 3.841133268574415*^9, 3.841133604328535*^9, - 3.841133836330724*^9, {3.84113402718235*^9, 3.841134051580722*^9}, - 3.841136570405583*^9, 3.8411369794286633`*^9, 3.8411370746487207`*^9, - 3.8411372534384937`*^9, 3.841137480313588*^9, 3.8411377128802013`*^9, - 3.84114012268575*^9, 3.841142006533914*^9, 3.841199517493897*^9, - 3.841199838489519*^9, 3.841200011184155*^9, 3.841201523588093*^9, - 3.841210344097245*^9, 3.841210442264317*^9, 3.84121065062248*^9, - 3.8412119421217613`*^9, 3.84121221553503*^9, {3.841212371303117*^9, - 3.841212398273896*^9}, 3.841212936222468*^9}, - CellLabel-> - "Out[973]=",ExpressionUUID->"9ad4a86f-04e5-4140-8961-18759d75713c"] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"h7", "=", - RowBox[{"h", "[", "7", "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.8412000693122187`*^9, 3.841200071829755*^9}}, - CellLabel-> - "In[639]:=",ExpressionUUID->"e7d6f2f3-1976-4e35-b716-1013a6ae4e42"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"min53", "=", - RowBox[{"FindMinimum", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"chiSquared", "[", - RowBox[{"2", ",", "h7", ",", - SuperscriptBox["10", - RowBox[{"-", "13"}]]}], "]"}], "[", "7", "]"}], "//.", - RowBox[{"rules", "[", "h7", "]"}]}], ",", - RowBox[{"Join", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{"#1", ",", - RowBox[{"Re", "[", "#2", "]"}]}], "}"}], "&"}], "@@@", - RowBox[{"min52", "[", - RowBox[{"[", "2", "]"}], "]"}]}], ",", - RowBox[{"{", - RowBox[{"{", - RowBox[{ - RowBox[{"gC", "[", "7", "]"}], ",", "0"}], "}"}], "}"}]}], "]"}], - ",", - RowBox[{"MaxIterations", "->", - SuperscriptBox["10", "5"]}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841130597609497*^9, 3.841130620653933*^9}, { - 3.841130722625242*^9, 3.841130798033312*^9}, {3.841130851107401*^9, - 3.841130889402828*^9}, {3.841131067918955*^9, 3.841131094030652*^9}, - 3.841131144287809*^9, {3.841131229138278*^9, 3.841131229313192*^9}, { - 3.841131290418725*^9, 3.841131295026565*^9}, {3.841131388748147*^9, - 3.841131416660483*^9}, {3.8411326529160147`*^9, 3.841132700852157*^9}, { - 3.841132772061672*^9, 3.8411327929898977`*^9}, {3.8411332535031157`*^9, - 3.841133254766263*^9}, {3.841133573100376*^9, 3.84113358718857*^9}, { - 3.841133815049304*^9, 3.8411338177444773`*^9}, {3.841134008557439*^9, - 3.841134033828574*^9}, {3.841136514522915*^9, 3.8411365288664837`*^9}, { - 3.8411367519672937`*^9, 3.841136754302226*^9}, {3.841137062820982*^9, - 3.8411370761256638`*^9}, {3.841137300865457*^9, 3.841137306880753*^9}, { - 3.841137486541193*^9, 3.841137488388105*^9}, {3.841139948274831*^9, - 3.841139948353917*^9}, {3.8411406241833897`*^9, 3.84114063082279*^9}, { - 3.841199499764308*^9, 3.841199502683804*^9}, {3.8411995627015343`*^9, - 3.841199568444839*^9}, {3.841199840713798*^9, 3.841199840793442*^9}, { - 3.841200074437996*^9, 3.8412000869178877`*^9}}, - CellLabel-> - "In[640]:=",ExpressionUUID->"e2d11cb6-a412-4999-9036-1a1205f29541"], - -Cell[BoxData[ - TemplateBox[{ - "FindMinimum", "sszero", - "\"The step size in the search has become less than the tolerance \ -prescribed by the PrecisionGoal option, but the gradient is larger than the \ -tolerance specified by the AccuracyGoal option. There is a possibility that \ -the method has stalled at a point that is not a local minimum.\"", 2, 640, - 309, 31635592826216417540, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.841200011170767*^9, 3.841201319201539*^9}, - CellLabel-> - "During evaluation of \ -In[640]:=",ExpressionUUID->"0efedada-e9bc-49dd-9cbf-c04f05b35e18"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"1.5895446561654858`*^11", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.6210182041674246`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19794247108182123`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.284544664438995`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.3419904418941042`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.23126585745699346`"}], ",", - - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.1492152840429252`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.05237149357508523`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.02166418877456297`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.006580329346567686`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.001310512545187577`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00015182869272546354`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "7", "]"}], "\[Rule]", - RowBox[{"-", "7.741872032309987`*^-6"}]}]}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{ - 3.8411306167235003`*^9, {3.8411306947216597`*^9, 3.84113075889436*^9}, - 3.84113079836438*^9, {3.841130851775154*^9, 3.8411308767675743`*^9}, - 3.841131001962682*^9, {3.841131072213916*^9, 3.841131088157425*^9}, - 3.841131130207449*^9, 3.841131226932292*^9, 3.8411312617222233`*^9, - 3.8411312998630333`*^9, 3.841131333112967*^9, 3.841131436342507*^9, - 3.8411326676759853`*^9, 3.8411327037631598`*^9, 3.841132791420726*^9, - 3.84113288719923*^9, 3.841133268574415*^9, 3.841133604328535*^9, - 3.841133836330724*^9, {3.84113402718235*^9, 3.841134051580722*^9}, - 3.841136570405583*^9, 3.8411369794286633`*^9, 3.8411370746487207`*^9, - 3.8411372534384937`*^9, 3.841137480313588*^9, 3.8411377128802013`*^9, - 3.84114012268575*^9, 3.841142006533914*^9, 3.841199517493897*^9, - 3.841199838489519*^9, 3.841200011184155*^9, 3.84120131921577*^9}, - CellLabel-> - "Out[640]=",ExpressionUUID->"e5e6c8ad-5a73-4fe7-a12f-8674c5733837"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"min52", "=", - RowBox[{"FindMinimum", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"chiSquared", "[", - RowBox[{"2", ",", "h6", ",", - SuperscriptBox["10", - RowBox[{"-", "11"}]]}], "]"}], "[", "7", "]"}], "//.", - RowBox[{"rules", "[", "h6", "]"}]}], ",", - RowBox[{"Join", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{"#1", ",", - RowBox[{"Re", "[", "#2", "]"}]}], "}"}], "&"}], "@@@", - RowBox[{"min51", "[", - RowBox[{"[", "2", "]"}], "]"}]}], ",", - RowBox[{"{", "}"}]}], "]"}], ",", - RowBox[{"MaxIterations", "->", - SuperscriptBox["10", "5"]}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841137546716942*^9, 3.841137566725152*^9}, { - 3.8411378521083097`*^9, 3.8411378707792387`*^9}, {3.841140171063685*^9, - 3.841140199534622*^9}, {3.84114041702024*^9, 3.841140425242947*^9}}, - CellLabel-> - "In[440]:=",ExpressionUUID->"2fa54d4f-5117-47f6-b275-ef0d78b9c6be"], - -Cell[BoxData[ - TemplateBox[{ - "FindMinimum", "sszero", - "\"The step size in the search has become less than the tolerance \ -prescribed by the PrecisionGoal option, but the gradient is larger than the \ -tolerance specified by the AccuracyGoal option. There is a possibility that \ -the method has stalled at a point that is not a local minimum.\"", 2, 440, - 220, 31635592826216417540, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.8411377557613297`*^9, 3.8411380072132196`*^9, - 3.8411402295303307`*^9, 3.8411405401108637`*^9}, - CellLabel-> - "During evaluation of \ -In[440]:=",ExpressionUUID->"db1fb50d-704c-4c06-a597-8260ed118fa9"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"1.0908282070443434`*^13", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.4982046669945146`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.1977350809759678`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.2974700444387843`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.3627045593794946`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.2757284683534861`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.11159015454258313`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.03687618177216249`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.012829963227215227`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0029699449665717315`"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.00038883056893439634`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", - "0.000021325989022569798`"}]}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{3.841137838703927*^9, 3.8411380072308083`*^9, - 3.841140401153776*^9, 3.8411405401248503`*^9}, - CellLabel-> - "Out[440]=",ExpressionUUID->"b149e004-1c60-4b5f-8791-45633b7f983b"] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"h6", "=", - RowBox[{"h", "[", "6", "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.841131384646043*^9, 3.8411313862116756`*^9}, { - 3.8411326867078114`*^9, 3.841132687891733*^9}, {3.841132760381133*^9, - 3.8411327614851437`*^9}, {3.841133568595826*^9, 3.841133569619952*^9}, { - 3.841133626196992*^9, 3.841133627308902*^9}}, - CellLabel-> - "In[113]:=",ExpressionUUID->"8fdda2e0-aa4e-47df-9ab6-ec9df35429e9"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"min61", "=", - RowBox[{"FindMinimum", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"chiSquared", "[", - RowBox[{"2", ",", "h6", ",", - SuperscriptBox["10", - RowBox[{"-", "11"}]]}], "]"}], "[", "6", "]"}], "//.", - RowBox[{"rules", "[", "h6", "]"}]}], ",", - RowBox[{"Join", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{"#1", ",", - RowBox[{"Re", "[", "#2", "]"}]}], "}"}], "&"}], "@@@", - RowBox[{"min51", "[", - RowBox[{"[", "2", "]"}], "]"}]}], ",", - RowBox[{"{", - RowBox[{"{", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], ",", "0"}], "}"}], "}"}]}], "]"}], - ",", - RowBox[{"MaxIterations", "->", - SuperscriptBox["10", "5"]}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841130597609497*^9, 3.841130620653933*^9}, { - 3.841130722625242*^9, 3.841130798033312*^9}, {3.841130851107401*^9, - 3.841130889402828*^9}, {3.841131067918955*^9, 3.841131094030652*^9}, - 3.841131144287809*^9, {3.841131229138278*^9, 3.841131229313192*^9}, { - 3.841131290418725*^9, 3.841131295026565*^9}, {3.841131388748147*^9, - 3.841131416660483*^9}, {3.8411326529160147`*^9, 3.841132700852157*^9}, { - 3.841132772061672*^9, 3.8411327929898977`*^9}, {3.8411332535031157`*^9, - 3.841133254766263*^9}, {3.841133573100376*^9, 3.84113358718857*^9}, { - 3.841133629397388*^9, 3.841133724456193*^9}, {3.841133859017898*^9, - 3.841133887042042*^9}, {3.841134092054965*^9, 3.841134092181652*^9}}, - CellLabel-> - "In[127]:=",ExpressionUUID->"bdbdc2b9-4230-40c6-b45a-b646b32856f7"], - -Cell[BoxData[ - TemplateBox[{ - "FindMinimum", "sszero", - "\"The step size in the search has become less than the tolerance \ -prescribed by the PrecisionGoal option, but the gradient is larger than the \ -tolerance specified by the AccuracyGoal option. There is a possibility that \ -the method has stalled at a point that is not a local minimum.\"", 2, 127, 52, - 31635592826216417540, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{ - 3.8411336043189907`*^9, 3.8411336577336082`*^9, 3.841133715208077*^9, - 3.841133752492087*^9, {3.8411338764937162`*^9, 3.841133903664166*^9}, - 3.841134109061503*^9}, - CellLabel-> - "During evaluation of \ -In[127]:=",ExpressionUUID->"0f719f90-be37-4d0e-9443-c5c4912e617a"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"542.9919673206099`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.4468281072104576`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19767409777511022`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.3131387446538216`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.3867292909389015`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.29759525786977004`"}], ",", - - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.30170007542375976`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.21804349199303802`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.1555243566187196`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.06673275379113562`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.012502293891719023`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", - "1.3865634095783422`*^-11"}]}], "}"}]}], "}"}]], "Output", - CellChangeTimes->{ - 3.8411306167235003`*^9, {3.8411306947216597`*^9, 3.84113075889436*^9}, - 3.84113079836438*^9, {3.841130851775154*^9, 3.8411308767675743`*^9}, - 3.841131001962682*^9, {3.841131072213916*^9, 3.841131088157425*^9}, - 3.841131130207449*^9, 3.841131226932292*^9, 3.8411312617222233`*^9, - 3.8411312998630333`*^9, 3.841131333112967*^9, 3.841131436342507*^9, - 3.8411326676759853`*^9, 3.8411327037631598`*^9, 3.841132791420726*^9, - 3.84113288719923*^9, 3.841133268574415*^9, 3.841133604328535*^9, - 3.841133657742324*^9, 3.8411337152176237`*^9, 3.8411337525022383`*^9, { - 3.841133876504364*^9, 3.841133903674032*^9}, 3.841134109071773*^9}, - CellLabel-> - "Out[127]=",ExpressionUUID->"a84d3456-497a-4a0c-a29b-28b338564bb8"] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"h7", "=", - RowBox[{"h", "[", "7", "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.841131384646043*^9, 3.8411313862116756`*^9}, { - 3.8411326867078114`*^9, 3.841132687891733*^9}, {3.841132760381133*^9, - 3.8411327614851437`*^9}, {3.841133568595826*^9, 3.841133569619952*^9}, { - 3.841133626196992*^9, 3.841133627308902*^9}, {3.841133918434527*^9, - 3.841133920218367*^9}}, - CellLabel-> - "In[123]:=",ExpressionUUID->"27623217-ce19-40ca-9797-b3b4114e2e75"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"min71", "=", - RowBox[{"FindMinimum", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"chiSquared", "[", - RowBox[{"2", ",", "h7", ",", - SuperscriptBox["10", - RowBox[{"-", "11"}]]}], "]"}], "[", "6", "]"}], "//.", - RowBox[{"rules", "[", "h7", "]"}]}], ",", - RowBox[{"Join", "[", - RowBox[{ - RowBox[{ - RowBox[{ - RowBox[{"{", - RowBox[{"#1", ",", - RowBox[{"Re", "[", "#2", "]"}]}], "}"}], "&"}], "@@@", - RowBox[{"min61", "[", - RowBox[{"[", "2", "]"}], "]"}]}], ",", - RowBox[{"{", - RowBox[{"{", - RowBox[{ - RowBox[{"gC", "[", "7", "]"}], ",", "0"}], "}"}], "}"}]}], "]"}], - ",", - RowBox[{"MaxIterations", "->", - SuperscriptBox["10", "5"]}]}], "]"}]}]], "Input", - CellChangeTimes->{{3.841130597609497*^9, 3.841130620653933*^9}, { - 3.841130722625242*^9, 3.841130798033312*^9}, {3.841130851107401*^9, - 3.841130889402828*^9}, {3.841131067918955*^9, 3.841131094030652*^9}, - 3.841131144287809*^9, {3.841131229138278*^9, 3.841131229313192*^9}, { - 3.841131290418725*^9, 3.841131295026565*^9}, {3.841131388748147*^9, - 3.841131416660483*^9}, {3.8411326529160147`*^9, 3.841132700852157*^9}, { - 3.841132772061672*^9, 3.8411327929898977`*^9}, {3.8411332535031157`*^9, - 3.841133254766263*^9}, {3.841133573100376*^9, 3.84113358718857*^9}, { - 3.841133629397388*^9, 3.841133724456193*^9}, {3.841133859017898*^9, - 3.841133887042042*^9}, {3.841133922714579*^9, 3.84113393365864*^9}, { - 3.841134123150687*^9, 3.841134123221993*^9}}, - CellLabel-> - "In[128]:=",ExpressionUUID->"488660d4-e09e-4036-b9dd-c6f80e513dc8"], - -Cell[BoxData[ - TemplateBox[{ - "FindMinimum", "sszero", - "\"The step size in the search has become less than the tolerance \ -prescribed by the PrecisionGoal option, but the gradient is larger than the \ -tolerance specified by the AccuracyGoal option. There is a possibility that \ -the method has stalled at a point that is not a local minimum.\"", 2, 128, 53, - 31635592826216417540, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{ - 3.8411336043189907`*^9, 3.8411336577336082`*^9, 3.841133715208077*^9, - 3.841133752492087*^9, {3.8411338764937162`*^9, 3.841133903664166*^9}, { - 3.841133937939424*^9, 3.841133963432382*^9}, 3.841134141528742*^9}, - CellLabel-> - "During evaluation of \ -In[128]:=",ExpressionUUID->"ac301f9e-7ba1-4f7f-a5c8-9a2f57b0184a"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{"542.9919673205583`", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", "1.4468281072104576`"}], ",", - RowBox[{"\[Theta]0", "\[Rule]", "0.19767409777511022`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.3131387446538216`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.3867292909389015`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.29759525786977004`"}], ",", - - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.30170007542375976`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.21804349199303802`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.1555243566187196`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.06673275379113562`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.012502293891719023`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "1.3865634095783422`*^-11"}], - ",", - RowBox[{ - RowBox[{"gC", "[", "7", "]"}], "\[Rule]", "0.`"}]}], "}"}]}], - "}"}]], "Output", - CellChangeTimes->{ - 3.8411306167235003`*^9, {3.8411306947216597`*^9, 3.84113075889436*^9}, - 3.84113079836438*^9, {3.841130851775154*^9, 3.8411308767675743`*^9}, - 3.841131001962682*^9, {3.841131072213916*^9, 3.841131088157425*^9}, - 3.841131130207449*^9, 3.841131226932292*^9, 3.8411312617222233`*^9, - 3.8411312998630333`*^9, 3.841131333112967*^9, 3.841131436342507*^9, - 3.8411326676759853`*^9, 3.8411327037631598`*^9, 3.841132791420726*^9, - 3.84113288719923*^9, 3.841133268574415*^9, 3.841133604328535*^9, - 3.841133657742324*^9, 3.8411337152176237`*^9, 3.8411337525022383`*^9, { - 3.841133876504364*^9, 3.841133903674032*^9}, {3.841133941905285*^9, - 3.841133963442326*^9}, 3.8411341415382147`*^9}, - CellLabel-> - "Out[128]=",ExpressionUUID->"bcf209e5-bb1a-4a83-84a0-a39776458e1c"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"h1", "'"}], "[", "0", "]"}]], "Input", - CellChangeTimes->{{3.8411310492318563`*^9, 3.841131052037732*^9}}, - CellLabel->"In[19]:=",ExpressionUUID->"1d1eae46-26d0-4ce3-a49d-19b51f089c0c"], - -Cell[BoxData[ - RowBox[{ - FractionBox[ - RowBox[{"gC", "[", "0", "]"}], "\[Theta]c"], "-", - FractionBox[ - RowBox[{"3", " ", - RowBox[{"gC", "[", "1", "]"}]}], - RowBox[{"2", " ", "\[Theta]c"}]]}]], "Output", - CellChangeTimes->{3.841131052324314*^9}, - CellLabel->"Out[19]=",ExpressionUUID->"89bf3b75-cacb-457d-8945-a763bebc4743"] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"sol1s", "=", - RowBox[{"Table", "[", - RowBox[{ - RowBox[{"untilSuccess", "[", - RowBox[{"newSol", "[", - RowBox[{ - RowBox[{"randomEval", "[", "eq1", "]"}], ",", "sol1", ",", - RowBox[{"{", "}"}], ",", "0", ",", - SuperscriptBox["10", - RowBox[{"-", "3"}]]}], "]"}], "]"}], ",", - RowBox[{"{", "200", "}"}]}], "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.8408793638081923`*^9, 3.840879373342231*^9}, { - 3.8408796939632607`*^9, 3.840879706915855*^9}, {3.840879765501657*^9, - 3.840879793158874*^9}, {3.840880998977593*^9, 3.840881023641852*^9}, { - 3.840884909524377*^9, 3.840884909764217*^9}, {3.8411172883491917`*^9, - 3.8411172884529676`*^9}}, - CellLabel-> - "In[1734]:=",ExpressionUUID->"1c520acc-a463-4b50-bdcf-37db80f4147a"], - -Cell[BoxData[{ - RowBox[{ - RowBox[{"n2", "=", "2"}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{"F2", "=", - RowBox[{"RF", "[", "n2", "]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{"h2", "=", - RowBox[{"h", "[", "2", "]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{"eq2", "=", - RowBox[{ - RowBox[{"eqAround", "[", - RowBox[{"n2", ",", "h2"}], "]"}], "[", - RowBox[{"3", ",", - RowBox[{"-", "1"}], ",", "2"}], "]"}]}], ";"}]}], "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.829216680244032*^9, 3.8292166875078707`*^9}, { - 3.829217356792184*^9, 3.829217363040196*^9}, {3.829217611596777*^9, - 3.829217614180689*^9}, {3.8292179006095667`*^9, 3.82921790960981*^9}, { - 3.829217997675579*^9, 3.829218002163485*^9}, {3.8292181618864193`*^9, - 3.829218166502698*^9}, {3.829218241519663*^9, 3.829218244927868*^9}, { - 3.829218327681534*^9, 3.8292183301052837`*^9}, {3.829219307330814*^9, - 3.829219309722743*^9}, {3.829219364523818*^9, 3.829219376947916*^9}, { - 3.829368028888688*^9, 3.829368032640358*^9}, {3.829368125978788*^9, - 3.829368158786539*^9}, {3.829368489640855*^9, 3.8293685026248217`*^9}, { - 3.829368942512965*^9, 3.829368947281065*^9}, {3.8293690670431423`*^9, - 3.829369070970992*^9}, {3.829370761001676*^9, 3.829370763321416*^9}, { - 3.829371075543243*^9, 3.829371092567361*^9}, {3.829371139368414*^9, - 3.8293711438322983`*^9}, {3.8293839400973167`*^9, 3.829383946329383*^9}, { - 3.831201408297876*^9, 3.831201409905801*^9}, {3.8312015346838837`*^9, - 3.831201554868269*^9}, {3.832238448486864*^9, 3.832238454774919*^9}, { - 3.832238494591732*^9, 3.832238495871544*^9}, {3.837157622241745*^9, - 3.8371576301456223`*^9}, {3.838873189558391*^9, 3.838873189646309*^9}, { - 3.838874086798986*^9, 3.8388741422474823`*^9}, 3.839308214050137*^9, { - 3.8393093638713923`*^9, 3.83930936396739*^9}, {3.839309744886526*^9, - 3.8393097450463467`*^9}, {3.839407454688723*^9, 3.8394074600088387`*^9}, { - 3.839407577530896*^9, 3.839407578674554*^9}, {3.839407748693316*^9, - 3.839407752805767*^9}, {3.839407974881893*^9, 3.839407977433795*^9}, { - 3.839491236760191*^9, 3.839491250119989*^9}, {3.8394927110267878`*^9, - 3.839492750275613*^9}, {3.839496444479315*^9, 3.839496472440023*^9}, { - 3.8394965527692013`*^9, 3.839496561585268*^9}, {3.8394971452203217`*^9, - 3.839497148148279*^9}, {3.83949779015215*^9, 3.839497791752367*^9}, { - 3.839572059664007*^9, 3.8395720798002987`*^9}, {3.839573255133895*^9, - 3.839573261982102*^9}, {3.839577964764845*^9, 3.839577994997319*^9}, { - 3.839580035507483*^9, 3.839580036890873*^9}, {3.839582121617597*^9, - 3.8395821216893263`*^9}, {3.8395825667061577`*^9, - 3.8395825700335617`*^9}, {3.839582781293694*^9, 3.839582781365535*^9}, { - 3.83958509601517*^9, 3.839585096886921*^9}, {3.839585178360592*^9, - 3.8395851827285233`*^9}, {3.839585369860046*^9, 3.839585373235799*^9}, { - 3.839585456421585*^9, 3.839585459453616*^9}, {3.839587979372076*^9, - 3.839587981980048*^9}, {3.839588017140687*^9, 3.839588023684884*^9}, { - 3.840529552049625*^9, 3.8405295622896852`*^9}, {3.840612086756624*^9, - 3.840612090388584*^9}, {3.840875816381258*^9, 3.840875820877166*^9}, - 3.8408758773181963`*^9, {3.840875982758718*^9, 3.840875985750516*^9}, { - 3.840877678238611*^9, 3.840877679014518*^9}, 3.8408829452232656`*^9, { - 3.8408833525589733`*^9, 3.840883358590705*^9}, 3.8411124205777493`*^9, { - 3.841113119965685*^9, 3.84111312174957*^9}, {3.841113582127329*^9, - 3.841113583471464*^9}, {3.841114950499878*^9, 3.841114950595767*^9}, - 3.841118727343367*^9, 3.841121163360854*^9, 3.84112148400618*^9, { - 3.8411215549037*^9, 3.841121556487558*^9}}, - CellLabel-> - "In[1735]:=",ExpressionUUID->"e782fb7b-7593-48a3-89e7-4ffab2f1e362"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"sol2", "=", - RowBox[{"untilSuccess", "[", - RowBox[{"newSol", "[", - RowBox[{ - RowBox[{"randomEval", "[", "eq2", "]"}], ",", "sol1", ",", - RowBox[{"{", - RowBox[{"gC", "[", "2", "]"}], "}"}], ",", - SuperscriptBox["10", - RowBox[{"-", "1"}]], ",", - SuperscriptBox["10", - RowBox[{"-", "2"}]]}], "]"}], "]"}]}]], "Input", - CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, { - 3.8175614038617268`*^9, 3.817561415404965*^9}, {3.817561511096093*^9, - 3.817561563944231*^9}, {3.81756250196518*^9, 3.817562507914916*^9}, { - 3.817562967760625*^9, 3.81756298304041*^9}, 3.817563161460335*^9, { - 3.817563206558021*^9, 3.81756320676147*^9}, {3.817563530710863*^9, - 3.817563550054001*^9}, {3.817563775700533*^9, 3.817563804069632*^9}, { - 3.817563971222761*^9, 3.817564086350409*^9}, {3.817564155680212*^9, - 3.8175641623358994`*^9}, {3.81756424029494*^9, 3.817564240399859*^9}, { - 3.8175645416987743`*^9, 3.817564542202907*^9}, {3.817564715061411*^9, - 3.817564723202471*^9}, {3.8175648450855713`*^9, 3.817564883921851*^9}, { - 3.8175650025642157`*^9, 3.817565074155829*^9}, {3.817565217921039*^9, - 3.817565230520749*^9}, {3.817565359356901*^9, 3.8175654247402163`*^9}, { - 3.817565602697175*^9, 3.817565635407323*^9}, {3.817566059389201*^9, - 3.817566077942937*^9}, {3.817566269837482*^9, 3.817566273547044*^9}, { - 3.8175663066250553`*^9, 3.817566306784181*^9}, {3.817566684914805*^9, - 3.81756668549652*^9}, {3.817566919102108*^9, 3.817566934549343*^9}, { - 3.8175696638331223`*^9, 3.817569664744486*^9}, {3.817579706169273*^9, - 3.8175797767735577`*^9}, {3.817581067506674*^9, 3.8175810689721537`*^9}, { - 3.817581121371869*^9, 3.817581169115347*^9}, {3.817581207766066*^9, - 3.817581270669099*^9}, 3.817581309702499*^9, {3.817581355857291*^9, - 3.817581356026667*^9}, {3.817581392130506*^9, 3.817581416424316*^9}, { - 3.817581457365512*^9, 3.8175814943565397`*^9}, {3.81758152586852*^9, - 3.817581526654297*^9}, {3.8175819155874557`*^9, 3.81758195123713*^9}, { - 3.8175820720836487`*^9, 3.817582073079625*^9}, {3.817582192281794*^9, - 3.8175821927535973`*^9}, {3.8175824979646*^9, 3.817582531058486*^9}, { - 3.817582601242318*^9, 3.817582616669943*^9}, {3.817582763042087*^9, - 3.817582823261053*^9}, {3.817582997786705*^9, 3.817583024595161*^9}, { - 3.817584829987904*^9, 3.817584859074748*^9}, {3.81758494165969*^9, - 3.81758496226119*^9}, {3.81758499940244*^9, 3.8175849995669928`*^9}, { - 3.817585077390765*^9, 3.817585077573927*^9}, {3.817585156651001*^9, - 3.817585156823139*^9}, {3.817585322721836*^9, 3.817585349348461*^9}, { - 3.817585456385895*^9, 3.817585457280986*^9}, {3.817585513558703*^9, - 3.8175855137401114`*^9}, {3.817613675501788*^9, 3.817613676578967*^9}, { - 3.8176168804169617`*^9, 3.81761688926372*^9}, {3.817618774003889*^9, - 3.817618793385603*^9}, {3.8176190151288853`*^9, 3.817619038205636*^9}, - 3.8176190698677187`*^9, {3.817619141079945*^9, 3.8176191871342373`*^9}, { - 3.817619234638775*^9, 3.817619240400311*^9}, {3.817619299848545*^9, - 3.817619332922262*^9}, {3.817619399549685*^9, 3.817619401809965*^9}, { - 3.8176196502657223`*^9, 3.817619664950913*^9}, {3.817619740359915*^9, - 3.8176197551387*^9}, {3.81761980328899*^9, 3.8176198034943733`*^9}, { - 3.817620410694891*^9, 3.817620463869529*^9}, {3.817620674916114*^9, - 3.817620678055534*^9}, {3.817620745057685*^9, 3.817620761178657*^9}, { - 3.817626286376536*^9, 3.8176263645243196`*^9}, {3.817629112637333*^9, - 3.817629115136323*^9}, {3.817629250682312*^9, 3.817629259447815*^9}, { - 3.8176294333109083`*^9, 3.817629436163623*^9}, {3.817641032808353*^9, - 3.817641033101226*^9}, {3.817664188948728*^9, 3.817664189649652*^9}, { - 3.817664815999873*^9, 3.817664819955031*^9}, {3.817665075387652*^9, - 3.8176650759521837`*^9}, {3.817665115247237*^9, 3.817665115392807*^9}, { - 3.817665186844384*^9, 3.817665187022648*^9}, {3.817665325401506*^9, - 3.8176653256436853`*^9}, {3.817665620012444*^9, 3.8176656289311333`*^9}, { - 3.817666022150625*^9, 3.817666032733485*^9}, {3.817666540959165*^9, - 3.817666542789474*^9}, {3.825763749599124*^9, 3.825763789470828*^9}, { - 3.82576405360496*^9, 3.825764054939633*^9}, {3.826007455858286*^9, - 3.8260074763785057`*^9}, {3.8260077526573877`*^9, - 3.8260077642405243`*^9}, {3.826012574971777*^9, 3.826012607731414*^9}, { - 3.826012638420402*^9, 3.826012656916271*^9}, {3.826013377866149*^9, - 3.826013381529332*^9}, {3.8260134248909807`*^9, 3.8260134250580482`*^9}, { - 3.826013471603549*^9, 3.826013479731104*^9}, {3.8260142542578907`*^9, - 3.8260142815694523`*^9}, {3.826103080587652*^9, 3.826103110884009*^9}, { - 3.826272386944799*^9, 3.8262724058568172`*^9}, {3.826272577364773*^9, - 3.8262726301407547`*^9}, {3.8262730964295692`*^9, 3.826273105909152*^9}, { - 3.826273149742629*^9, 3.826273152269898*^9}, 3.826273264736801*^9, { - 3.8262734668440647`*^9, 3.826273466979476*^9}, {3.826273523852948*^9, - 3.8262735239166183`*^9}, {3.826273598326247*^9, 3.826273598414112*^9}, { - 3.8262736403749523`*^9, 3.826273646006681*^9}, {3.826689077467478*^9, - 3.826689117948354*^9}, {3.8266891488769283`*^9, 3.826689165069252*^9}, { - 3.826689316392604*^9, 3.826689327479848*^9}, {3.826689585957643*^9, - 3.8266895892288723`*^9}, {3.826689642374959*^9, 3.8266896530861063`*^9}, { - 3.826689991397007*^9, 3.826690014053174*^9}, {3.826690202392878*^9, - 3.826690203016962*^9}, {3.826690290674961*^9, 3.826690309938636*^9}, { - 3.826690353388789*^9, 3.8266903615409527`*^9}, {3.826690552655903*^9, - 3.826690573871529*^9}, {3.8266910770094233`*^9, 3.826691106753572*^9}, { - 3.826691453953046*^9, 3.826691456704123*^9}, {3.826691566042148*^9, - 3.826691580778328*^9}, 3.826691637140317*^9, {3.826691686196629*^9, - 3.8266916892040443`*^9}, 3.8267024091584463`*^9, {3.826704716161975*^9, - 3.826704719377363*^9}, 3.826704821811655*^9, {3.826704934254529*^9, - 3.82670493514916*^9}, 3.827313139667808*^9, 3.82731344328931*^9, { - 3.827313530930706*^9, 3.827313531074643*^9}, {3.827313648020673*^9, - 3.827313648404454*^9}, 3.827313930601613*^9, {3.827403795859744*^9, - 3.827403799331325*^9}, {3.827404407990917*^9, 3.8274044110385847`*^9}, { - 3.827404515849715*^9, 3.827404516008604*^9}, 3.8274045561855392`*^9, { - 3.827404728540772*^9, 3.827404795461753*^9}, {3.827405566388193*^9, - 3.82740557845172*^9}, 3.82740564622897*^9, {3.82740643693969*^9, - 3.827406439179371*^9}, {3.827410039890891*^9, 3.827410061081759*^9}, { - 3.827410104744341*^9, 3.8274101058397303`*^9}, {3.827468092811961*^9, - 3.8274680953874063`*^9}, {3.827481100871253*^9, 3.827481114943645*^9}, { - 3.8274817272909317`*^9, 3.827481737754497*^9}, {3.827481945727586*^9, - 3.827481949302575*^9}, {3.827484838890389*^9, 3.827484839529801*^9}, { - 3.827484895811178*^9, 3.8274849038187733`*^9}, {3.827484974996828*^9, - 3.827484977452355*^9}, {3.8275548920737123`*^9, 3.827554895257688*^9}, { - 3.82755495846808*^9, 3.827554992403337*^9}, {3.8275550675095177`*^9, - 3.827555094141191*^9}, {3.827555531557931*^9, 3.827555541909574*^9}, { - 3.827558586614328*^9, 3.827558626335005*^9}, {3.827558692856378*^9, - 3.827558718297015*^9}, {3.8275616201177397`*^9, 3.8275616237008038`*^9}, { - 3.8278304666636057`*^9, 3.827830499703677*^9}, {3.827830602882563*^9, - 3.827830606857448*^9}, {3.8278306535627747`*^9, 3.82783065715436*^9}, { - 3.827830716931963*^9, 3.827830726899715*^9}, {3.827831324127943*^9, - 3.8278313248465567`*^9}, {3.8278313735839767`*^9, 3.827831374279758*^9}, { - 3.827833117615872*^9, 3.827833140855818*^9}, {3.827833184112794*^9, - 3.827833212697111*^9}, {3.827833464637803*^9, 3.827833471917515*^9}, - 3.829121222146471*^9, 3.829121418301763*^9, {3.8291247244736977`*^9, - 3.8291247270577908`*^9}, {3.829211844661628*^9, 3.829211854852899*^9}, { - 3.8292126580682793`*^9, 3.829212675524225*^9}, {3.829213854986209*^9, - 3.829213857969493*^9}, {3.829213943083304*^9, 3.829213967523123*^9}, { - 3.829214031268794*^9, 3.829214040157639*^9}, {3.829216649212429*^9, - 3.829216713844104*^9}, {3.829217366544965*^9, 3.829217390512424*^9}, { - 3.829217616820653*^9, 3.829217618716579*^9}, {3.829217913075171*^9, - 3.829217913281975*^9}, {3.8292180058278713`*^9, 3.829218006499639*^9}, { - 3.829218169279408*^9, 3.829218169886425*^9}, {3.829218249408503*^9, - 3.8292182527599*^9}, {3.829218332601268*^9, 3.8292183344651337`*^9}, { - 3.829219312835874*^9, 3.8292193133627453`*^9}, {3.829219381116323*^9, - 3.829219381796111*^9}, {3.829368037970189*^9, 3.829368046808629*^9}, { - 3.829368163195677*^9, 3.829368164218666*^9}, {3.829368508025868*^9, - 3.829368523322445*^9}, {3.8293689509698563`*^9, 3.829368952969119*^9}, { - 3.829369079419671*^9, 3.829369080659419*^9}, {3.82937076952973*^9, - 3.829370770201521*^9}, {3.829371098735732*^9, 3.829371101471711*^9}, { - 3.829371152593144*^9, 3.8293711527685347`*^9}, {3.831201413684575*^9, - 3.8312014148739243`*^9}, {3.8312015445811357`*^9, 3.831201544772146*^9}, { - 3.838873199054694*^9, 3.8388732009024963`*^9}, {3.838874099439412*^9, - 3.838874101246911*^9}, {3.838874145544731*^9, 3.8388741456877937`*^9}, { - 3.83930936544799*^9, 3.8393093723196287`*^9}, {3.83930975281593*^9, - 3.839309753150526*^9}, {3.8394074758177233`*^9, 3.8394074782411823`*^9}, { - 3.839407520003084*^9, 3.8394075330261583`*^9}, {3.839407580635974*^9, - 3.8394075807947617`*^9}, {3.83940775921416*^9, 3.83940775926975*^9}, { - 3.839407979611326*^9, 3.839407980609909*^9}, {3.839491241031789*^9, - 3.8394912529120827`*^9}, {3.839496479704753*^9, 3.8394964996244917`*^9}, { - 3.8394965644502497`*^9, 3.839496565929781*^9}, {3.8394971048685093`*^9, - 3.839497163428607*^9}, {3.839497794809564*^9, 3.8394977953601847`*^9}, { - 3.839572073665447*^9, 3.83957207588835*^9}, {3.839577997206327*^9, - 3.839577997365345*^9}, 3.839580038539879*^9, {3.839585185953146*^9, - 3.8395851869286613`*^9}, {3.839585378180799*^9, 3.839585381292255*^9}, { - 3.839585462342166*^9, 3.839585463421628*^9}, {3.8395879873091927`*^9, - 3.839588030868886*^9}, {3.840526497929941*^9, 3.8405264991372004`*^9}, { - 3.840529569082678*^9, 3.840529573561845*^9}, {3.840612092652615*^9, - 3.84061209530064*^9}, {3.84087582468576*^9, 3.84087582583737*^9}, { - 3.840875993135228*^9, 3.840875994262732*^9}, {3.8408776864814367`*^9, - 3.8408776895274897`*^9}, {3.840877947504772*^9, 3.840877952672089*^9}, { - 3.840878077582295*^9, 3.840878092470656*^9}, {3.840878139184811*^9, - 3.8408781396645527`*^9}, {3.840881045442111*^9, 3.84088104875423*^9}, { - 3.840882954880003*^9, 3.840882955335376*^9}, {3.8408833486071*^9, - 3.8408833630388947`*^9}, {3.840884966381249*^9, 3.840884968509286*^9}, { - 3.841112634160056*^9, 3.8411126341757307`*^9}, {3.8411131280947933`*^9, - 3.841113129805822*^9}, {3.8411135860880623`*^9, 3.841113586671544*^9}, { - 3.841118730576044*^9, 3.841118730671405*^9}, {3.8411211655934973`*^9, - 3.841121165656843*^9}, 3.841121486679549*^9, {3.841121559904056*^9, - 3.841121559983583*^9}}, - CellLabel-> - "In[1744]:=",ExpressionUUID->"7a8f1e83-d257-4a90-8356-930702eca062"], - -Cell[BoxData["$Aborted"], "Output", - CellChangeTimes->{{3.839407570311549*^9, 3.839407604749055*^9}, - 3.8394077545742292`*^9, 3.8394078285197783`*^9, 3.839409682949657*^9, { - 3.839491253126171*^9, 3.8394912898935223`*^9}, {3.839492736929716*^9, - 3.839492750993004*^9}, {3.839496476183217*^9, 3.839496488666973*^9}, - 3.839496551041333*^9, 3.839496636554003*^9, 3.8394967111049128`*^9, { - 3.839497107879695*^9, 3.839497158762897*^9}, 3.839497319818717*^9, - 3.839498179726663*^9, {3.839572069287546*^9, 3.839572080700838*^9}, - 3.83957326486565*^9, {3.839577970394766*^9, 3.839577998249591*^9}, - 3.839579648208268*^9, 3.839580346063476*^9, 3.839581559120728*^9, - 3.839581617580515*^9, 3.8395821223970118`*^9, 3.839582571038711*^9, { - 3.839582778183103*^9, 3.8395827819717617`*^9}, 3.839584277060437*^9, { - 3.839585167966071*^9, 3.8395851873511744`*^9}, 3.8395853757897243`*^9, { - 3.839585454186343*^9, 3.839585463718789*^9}, {3.839588010617137*^9, - 3.8395880310940647`*^9}, 3.8396536967833643`*^9, 3.839657296977125*^9, - 3.839660853706905*^9, 3.839666762147833*^9, 3.839670144224996*^9, - 3.840526334442748*^9, 3.840526412101494*^9, {3.840526500162054*^9, - 3.840526515761035*^9}, 3.840529712010214*^9, 3.84061209561329*^9, - 3.8406155278250093`*^9, 3.840869814826561*^9, 3.8408709652054663`*^9, - 3.840872826556745*^9, 3.840875839785124*^9, 3.840875994650763*^9, - 3.840877690011491*^9, {3.8408779532621098`*^9, 3.84087795510629*^9}, - 3.8408780943312473`*^9, 3.840878141168049*^9, 3.84087886876781*^9, { - 3.840881054097609*^9, 3.8408810580134783`*^9}, 3.840882955466115*^9, { - 3.840883211163693*^9, 3.840883229208362*^9}, 3.840883391511588*^9, - 3.840883427890503*^9, 3.840884962810281*^9, 3.840885032944227*^9, - 3.841111757150782*^9, 3.8411124545140057`*^9, 3.84111258627072*^9, - 3.8411127452533083`*^9, {3.841113124546575*^9, 3.8411131654625893`*^9}, { - 3.841113580483156*^9, 3.841113613392147*^9}, 3.841113691122085*^9, - 3.841114955006637*^9, {3.8411152203731823`*^9, 3.841115233844503*^9}, - 3.841115984140636*^9, {3.8411167824166517`*^9, 3.841116789411907*^9}, { - 3.8411173042953568`*^9, 3.841117330346686*^9}, {3.841118723433168*^9, - 3.841118731747072*^9}, 3.841119374919013*^9, 3.8411201835765257`*^9, { - 3.841121160670154*^9, 3.841121169398386*^9}, 3.8411214870886183`*^9, { - 3.841121615861115*^9, 3.841121640296867*^9}, 3.841121916383071*^9, - 3.8411220753604507`*^9, 3.841122285797716*^9, 3.8411223693564987`*^9, - 3.841122460781207*^9}, - CellLabel-> - "Out[1744]=",ExpressionUUID->"c32eaa7b-7087-462c-81c5-6f42bdd408f2"] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"sol2s", "=", - RowBox[{"Table", "[", - RowBox[{ - RowBox[{"untilSuccess", "[", - RowBox[{"newSol", "[", - RowBox[{ - RowBox[{"randomEval", "[", "eq2", "]"}], ",", "sol2", ",", - RowBox[{"{", "}"}], ",", "0", ",", - SuperscriptBox["10", - RowBox[{"-", "3"}]]}], "]"}], "]"}], ",", - RowBox[{"{", "100", "}"}]}], "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.8408793638081923`*^9, 3.840879373342231*^9}, { - 3.84088106172263*^9, 3.840881076810573*^9}, {3.840883673685082*^9, - 3.84088367409242*^9}, {3.840885043287384*^9, 3.8408850456544847`*^9}, { - 3.841114959044026*^9, 3.841114959139822*^9}, {3.841117351117943*^9, - 3.8411173676619883`*^9}, 3.841118767840411*^9}, - CellLabel-> - "In[1740]:=",ExpressionUUID->"d25e92e2-365d-47b2-93f4-f234cc064acf"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"mt", "=", "8"}], ";", - RowBox[{"ListLogPlot", "[", - RowBox[{"{", "\[IndentingNewLine]", - RowBox[{ - RowBox[{"Abs", "[", "Gls", "]"}], ",", "\[IndentingNewLine]", - RowBox[{"Chop", "[", - RowBox[{ - RowBox[{ - RowBox[{"Abs", "[", - RowBox[{ - RowBox[{ - RowBox[{"dFd\[Xi]LowList", "[", - RowBox[{"n2", ",", "h2"}], "]"}], "[", "6", "]"}], "/", - RowBox[{"(", - RowBox[{ - RowBox[{"Range", "[", - RowBox[{"0", ",", "6"}], "]"}], "!"}], ")"}]}], "]"}], "//.", - RowBox[{"rules", "[", "h2", "]"}]}], "/.", "sol2"}], "]"}]}], - "\[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.8371574167259398`*^9, - 3.83715742501366*^9}, {3.838872732879181*^9, 3.8388727537664413`*^9}, { - 3.838873204703073*^9, 3.8388732099027357`*^9}, {3.838873255752236*^9, - 3.8388732834641113`*^9}, {3.8388734328271227`*^9, 3.8388734358267*^9}, { - 3.838874157024147*^9, 3.8388741604719753`*^9}, {3.839307790346795*^9, - 3.839307797698661*^9}, {3.8393093420874243`*^9, 3.839309343767222*^9}, { - 3.83940985668435*^9, 3.8394098593718357`*^9}, {3.839479308878851*^9, - 3.8394793092698917`*^9}, {3.839479351678846*^9, 3.839479359894719*^9}, { - 3.839484132822569*^9, 3.83948413582975*^9}, {3.839484417835371*^9, - 3.839484422402855*^9}, {3.8394844606917543`*^9, 3.8394845443653107`*^9}, { - 3.839485068790997*^9, 3.839485069686892*^9}, {3.839485153592383*^9, - 3.839485166081131*^9}, {3.8394852464151793`*^9, 3.8394852711790447`*^9}, { - 3.839485306757688*^9, 3.8394853151639977`*^9}, {3.8394853654853773`*^9, - 3.839485432894374*^9}, 3.839485523256114*^9, {3.839485578601307*^9, - 3.839485649138336*^9}, {3.8394857007256727`*^9, 3.839485723219755*^9}, { - 3.839485936266061*^9, 3.839486030177397*^9}, {3.839486075309197*^9, - 3.839486142116439*^9}, {3.839486179828413*^9, 3.839486218245903*^9}, { - 3.83948626754249*^9, 3.8394862713893957`*^9}, {3.8394864169524717`*^9, - 3.8394864816965714`*^9}, {3.839486986826584*^9, 3.8394869896504993`*^9}, { - 3.8394870445001507`*^9, 3.839487076477178*^9}, {3.839487130772867*^9, - 3.839487144740963*^9}, {3.8394876124142523`*^9, 3.83948761275005*^9}, { - 3.839487645182592*^9, 3.839487645638852*^9}, {3.839488048646216*^9, - 3.839488090182976*^9}, {3.839488424581703*^9, 3.8394884272211113`*^9}, { - 3.8394892409164047`*^9, 3.839489242332054*^9}, {3.839489275213091*^9, - 3.839489292188744*^9}, {3.839489492289144*^9, 3.839489571665984*^9}, { - 3.8394896094678373`*^9, 3.839489713796721*^9}, {3.839489762837819*^9, - 3.839489797445959*^9}, {3.839489857544436*^9, 3.839489893848106*^9}, { - 3.8394903055442333`*^9, 3.839490366136724*^9}, {3.839490881170803*^9, - 3.8394908814338083`*^9}, {3.839490914539504*^9, 3.839490928595656*^9}, { - 3.839492144689028*^9, 3.839492147329255*^9}, {3.839493141315516*^9, - 3.8394931647319393`*^9}, {3.839493641949576*^9, 3.83949364210872*^9}, { - 3.839494014823594*^9, 3.839494050556492*^9}, {3.8394955822727327`*^9, - 3.8394956194090643`*^9}, {3.839495922911708*^9, 3.839495935527544*^9}, { - 3.839496282949663*^9, 3.8394963032934713`*^9}, {3.839572033112393*^9, - 3.8395720353280907`*^9}, {3.839572166843008*^9, 3.839572169346869*^9}, { - 3.839586112218432*^9, 3.8395861234262123`*^9}, {3.839586281734277*^9, - 3.8395862878848553`*^9}, {3.839586416192438*^9, 3.839586419599288*^9}, { - 3.839658669660975*^9, 3.8396586751241493`*^9}, 3.839664357017618*^9, { - 3.839664563809626*^9, 3.8396646004174013`*^9}, {3.840528591761121*^9, - 3.8405285944877768`*^9}, {3.8405288185331697`*^9, 3.8405288189559*^9}, { - 3.840873305948681*^9, 3.840873312420223*^9}, 3.840873708508609*^9, - 3.8408832195487127`*^9}, - CellLabel-> - "In[1741]:=",ExpressionUUID->"9b182793-e032-4e26-8ec5-6d73f9a4c7ba"], - -Cell[BoxData[ - GraphicsBox[{{{ - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{{}, { - LineBox[{{4., -3.24768873618056}, {4., -3.2476887336074802`}}], - LineBox[{{4., -3.2476887336074802`}, {4., -3.2476887310344003`}}]}}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{{}, { - LineBox[{{5., -2.6829364089277306`}, {5., -2.6829363942997464`}}], - LineBox[{{5., -2.6829363942997464`}, {5., -2.6829363796717627`}}]}}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{{}, { - LineBox[{{6., -1.6934517864279734`}, {6., -1.6934517320457758`}}], - LineBox[{{6., -1.6934517320457758`}, {6., -1.693451677663581}}]}}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{{}, { - LineBox[{{7., -0.4167753281916941}, {7., -0.41677381113121115`}}], - LineBox[{{7., -0.41677381113121115`}, {7., -0.4167722940730296}}]}}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{{}, { - LineBox[{{8., 1.077614026885801}, {8., 1.077615048105556}}], - LineBox[{{8., 1.077615048105556}, {8., 1.0776160693242682`}}]}}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{{}, { - LineBox[{{9., 2.747270914255491}, {9., 2.7479117345273405`}}], - LineBox[{{9., 2.7479117345273405`}, {9., 2.7485521444115397`}}]}}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{{}, { - LineBox[{{10., 4.572130331909891}, {10., 4.572233685741827}}], - LineBox[{{10., 4.572233685741827}, {10., 4.572337028892852}}]}}, - Antialiasing->False]}}, { - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{ - GeometricTransformationBox[ - LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], - GeometricTransformationBox[ - LineBox[{{{4., -3.2476887310344003`}, - Offset[{3, 0}, {4., -3.2476887310344003`}]}, {{ - 4., -3.2476887310344003`}, - Offset[{-3, 0}, {4., -3.2476887310344003`}]}, {{ - 4., -3.24768873618056}, - Offset[{3, 0}, {4., -3.24768873618056}]}, {{ - 4., -3.24768873618056}, - Offset[{-3, 0}, {4., -3.24768873618056}]}}], {{{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., -2.6829363796717627`}, - Offset[{3, 0}, {5., -2.6829363796717627`}]}, {{ - 5., -2.6829363796717627`}, - Offset[{-3, 0}, {5., -2.6829363796717627`}]}, {{ - 5., -2.6829364089277306`}, - Offset[{3, 0}, {5., -2.6829364089277306`}]}, {{ - 5., -2.6829364089277306`}, - Offset[{-3, 0}, {5., -2.6829364089277306`}]}}], {{{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., -1.693451677663581}, - Offset[{3, 0}, {6., -1.693451677663581}]}, {{ - 6., -1.693451677663581}, - Offset[{-3, 0}, {6., -1.693451677663581}]}, {{ - 6., -1.6934517864279734`}, - Offset[{3, 0}, {6., -1.6934517864279734`}]}, {{ - 6., -1.6934517864279734`}, - Offset[{-3, 0}, {6., -1.6934517864279734`}]}}], {{{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., -0.4167722940730296}, - Offset[{3, 0}, {7., -0.4167722940730296}]}, {{ - 7., -0.4167722940730296}, - Offset[{-3, 0}, {7., -0.4167722940730296}]}, {{ - 7., -0.4167753281916941}, - Offset[{3, 0}, {7., -0.4167753281916941}]}, {{ - 7., -0.4167753281916941}, - Offset[{-3, 0}, {7., -0.4167753281916941}]}}], {{{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., 1.0776160693242682`}, - Offset[{3, 0}, {8., 1.0776160693242682`}]}, {{8., - 1.0776160693242682`}, - Offset[{-3, 0}, {8., 1.0776160693242682`}]}, {{8., - 1.077614026885801}, Offset[{3, 0}, {8., 1.077614026885801}]}, {{ - 8., 1.077614026885801}, - Offset[{-3, 0}, {8., 1.077614026885801}]}}], {{{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[{{{9., 2.7485521444115397`}, - Offset[{3, 0}, {9., 2.7485521444115397`}]}, {{9., - 2.7485521444115397`}, - Offset[{-3, 0}, {9., 2.7485521444115397`}]}, {{9., - 2.747270914255491}, Offset[{3, 0}, {9., 2.747270914255491}]}, {{ - 9., 2.747270914255491}, - Offset[{-3, 0}, {9., 2.747270914255491}]}}], {{{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., 4.572337028892852}, - Offset[{3, 0}, {10., 4.572337028892852}]}, {{10., - 4.572337028892852}, Offset[{-3, 0}, {10., 4.572337028892852}]}, {{ - 10., 4.572130331909891}, - Offset[{3, 0}, {10., 4.572130331909891}]}, {{10., - 4.572130331909891}, - Offset[{-3, 0}, {10., 4.572130331909891}]}}], {{{1., 0.}, {0., - 1.}}, {0., 0.}}]}, - Antialiasing->False]}}}, { - {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], - AbsoluteThickness[1.6], - PointBox[{{2., 0.3058939805973386}, {3., -3.016888706538089}, { - 4., -3.2476887336074802`}, {5., -2.6829363942997464`}, { - 6., -1.6934517320457758`}, {7., -0.41677381113121115`}, {8., - 1.077615048105556}, {9., 2.7479117345273405`}, {10., - 4.572233685741827}, {11., 6.520621127558696}, {12., - 8.582980931954241}, {13., 10.749355820113736`}, {14., - 13.008074231002201`}, {15., 15.354526006101828`}}]}, - {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], - AbsoluteThickness[1.6], - PointBox[{{2., 0.3058939805974398}, {3., -3.0168887065378462`}, { - 4., -3.2476887314035476`}, {5., 2.4485884173397054`}, {6., - 4.545240124230815}, {7., 6.617961468391317}}]}}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., -4.703417607888443}, - 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., 15.}, {-4.703417607888443, 15.354526006101828`}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.02], - Scaled[0.05]}}, - Ticks->FrontEndValueCache[{Automatic, - Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-4.605170185988091, - FormBox[ - TagBox[ - InterpretationBox[ - StyleBox["\"0.01\"", ShowStringCharacters -> False], 0.01, - AutoDelete -> True], NumberForm[#, { - DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 0.}}, { - 2.302585092994046, - FormBox["10", TraditionalForm], {0.01, 0.}}, {9.210340371976184, - FormBox[ - TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], - TraditionalForm], {0.01, 0.}}, {16.11809565095832, - FormBox[ - TemplateBox[{"10", "7"}, "Superscript", SyntaxForm -> SuperscriptBox], - TraditionalForm], {0.01, 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.}}, { - 11.512925464970229`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 13.815510557964274`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 16.811242831518264`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 17.216707939626428`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 17.50439001207821, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 17.72753356339242, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 17.909855120186375`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 18.064005800013632`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 18.197537192638155`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 18.31532022829454, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 18.420680743952367`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}}}]]], "Output", - CellChangeTimes->{{3.8394864302572823`*^9, 3.839486485737481*^9}, { - 3.8394868108920527`*^9, 3.839486833544271*^9}, {3.839486968169405*^9, - 3.839486994739235*^9}, {3.839487050609737*^9, 3.839487081545911*^9}, { - 3.839487139032605*^9, 3.839487149734391*^9}, 3.8394880559648848`*^9, - 3.839488095210012*^9, 3.839488432022138*^9, 3.839488966485567*^9, - 3.839489132907782*^9, 3.8394891742679043`*^9, {3.83948923216856*^9, - 3.839489247298073*^9}, {3.8394892811100388`*^9, 3.839489297255623*^9}, { - 3.839489518429874*^9, 3.839489576749642*^9}, 3.839489614460577*^9, { - 3.839489646744204*^9, 3.839489717916*^9}, {3.839489779953936*^9, - 3.839489797877178*^9}, {3.839489858269053*^9, 3.839489894400456*^9}, - 3.83948999298129*^9, 3.839490039302783*^9, 3.839490198501548*^9, { - 3.8394903145949183`*^9, 3.839490366668486*^9}, 3.839490410230691*^9, - 3.83949068744411*^9, 3.839490882032105*^9, {3.839490915087521*^9, - 3.8394909440773563`*^9}, {3.839491208442045*^9, 3.839491227913024*^9}, - 3.839491282583577*^9, 3.83949138318426*^9, 3.839491847872534*^9, - 3.839491922779976*^9, {3.83949214072232*^9, 3.839492147793445*^9}, - 3.839492703416108*^9, {3.8394930877867403`*^9, 3.839493111348575*^9}, - 3.839493159337824*^9, 3.839493260745894*^9, 3.8394938495813704`*^9, { - 3.839494015878335*^9, 3.839494051166876*^9}, 3.839494155707307*^9, { - 3.839494232008819*^9, 3.8394942817479143`*^9}, {3.8394955838062563`*^9, - 3.839495620912838*^9}, {3.839495892980287*^9, 3.839495961352178*^9}, - 3.839495996781355*^9, 3.8394960290995007`*^9, {3.8394961117034683`*^9, - 3.839496132210868*^9}, {3.839496233750821*^9, 3.839496247464304*^9}, { - 3.839496287823802*^9, 3.839496304224265*^9}, 3.83949641106695*^9, - 3.839496651844782*^9, 3.839569714442939*^9, 3.839570692350816*^9, - 3.839571037545631*^9, 3.8395710776956797`*^9, 3.8395711376334047`*^9, - 3.839571186222416*^9, 3.839571351854351*^9, 3.8395716431049433`*^9, - 3.8395716961263447`*^9, 3.8395719356619263`*^9, 3.839571975466508*^9, { - 3.8395720292576017`*^9, 3.839572038127006*^9}, {3.83957217256413*^9, - 3.83957219391011*^9}, 3.839572236054682*^9, {3.839572276306333*^9, - 3.839572287892969*^9}, 3.839572342583872*^9, 3.839572572560753*^9, - 3.839572613884104*^9, {3.839572830197351*^9, 3.839572867853582*^9}, { - 3.839572962859436*^9, 3.839572978399377*^9}, 3.839573191565909*^9, - 3.83957323416776*^9, 3.839574190974876*^9, {3.839574358418882*^9, - 3.839574363836178*^9}, 3.839577688193771*^9, {3.839577931409347*^9, - 3.839577940725779*^9}, {3.839579623692398*^9, 3.839579641583359*^9}, - 3.839580176251998*^9, {3.839580243310802*^9, 3.839580260058309*^9}, - 3.83958034038577*^9, 3.839581557584*^9, {3.83958160487352*^9, - 3.839581615679512*^9}, 3.839581993151758*^9, 3.839582040886951*^9, - 3.839582108820992*^9, 3.839582559973913*^9, 3.839582771424386*^9, { - 3.839583107834976*^9, 3.839583154778919*^9}, {3.8395842000019083`*^9, - 3.839584229236342*^9}, 3.839584319284484*^9, 3.8395843940434847`*^9, - 3.839584572371277*^9, 3.839584947067206*^9, 3.839585081305537*^9, - 3.839586137503179*^9, 3.8395862976249247`*^9, 3.839586429104487*^9, - 3.839587842464167*^9, 3.839647990219092*^9, 3.8396572711023006`*^9, - 3.839658508039483*^9, 3.839658567146755*^9, {3.8396586610674477`*^9, - 3.8396586758654203`*^9}, 3.839659271097528*^9, 3.839661799778942*^9, { - 3.839664337728752*^9, 3.8396643582360373`*^9}, {3.839664548980212*^9, - 3.839664603837595*^9}, 3.839664641104356*^9, 3.8396691346008053`*^9, - 3.8396700455490303`*^9, 3.839670127013689*^9, 3.8405260833413677`*^9, { - 3.840527418121812*^9, 3.840527428230318*^9}, 3.840528597876438*^9, { - 3.84052880585203*^9, 3.840528823602725*^9}, 3.840610810412817*^9, - 3.8408694556097403`*^9, 3.840872804624278*^9, 3.840873318607501*^9, - 3.8408737146428013`*^9, {3.840876034501457*^9, 3.8408760567374563`*^9}, { - 3.840876105690199*^9, 3.840876121133092*^9}, {3.840883219169812*^9, - 3.8408832337272387`*^9}, 3.840883457378954*^9, 3.8411117649872*^9, - 3.841114994789463*^9, 3.8411187742637053`*^9, 3.841119379551421*^9, - 3.8411199453545218`*^9, 3.841120189487606*^9, 3.84112117377914*^9, - 3.84112149235848*^9, 3.8411222069437113`*^9}, - CellLabel-> - "Out[1741]=",ExpressionUUID->"d54ccf8b-f86b-47dc-b198-e297e7b6abec"] -}, Open ]], - -Cell[BoxData[{ - RowBox[{ - RowBox[{"n3", "=", "2"}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{"F3", "=", - RowBox[{"RF", "[", "n3", "]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{"h3", "=", - RowBox[{"h", "[", "4", "]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{"eq3", "=", - RowBox[{ - RowBox[{"eqAround", "[", - RowBox[{"n3", ",", "h3"}], "]"}], "[", - RowBox[{"4", ",", - RowBox[{"-", "1"}], ",", "4"}], "]"}]}], ";"}]}], "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.8292187191121473`*^9, 3.829218728096401*^9}, {3.829368271117032*^9, - 3.829368275564617*^9}, {3.829368590178836*^9, 3.829368602514616*^9}, { - 3.8293691040200243`*^9, 3.829369115755772*^9}, {3.829371124208045*^9, - 3.829371128112094*^9}, {3.829371172664732*^9, 3.829371175472876*^9}, { - 3.829371420653515*^9, 3.829371423597522*^9}, {3.829384064739922*^9, - 3.829384089259829*^9}, {3.829643407111478*^9, 3.829643411151178*^9}, { - 3.829643514849144*^9, 3.829643518489065*^9}, {3.829643600090665*^9, - 3.8296436026505947`*^9}, {3.8296486222377*^9, 3.829648623181625*^9}, { - 3.8312015948291616`*^9, 3.831201598549038*^9}, {3.831201818353256*^9, - 3.831201820017289*^9}, {3.8312018555459843`*^9, 3.831201914138874*^9}, { - 3.8322384727513437`*^9, 3.832238476815104*^9}, {3.83715764073805*^9, - 3.837157644114128*^9}, {3.837157771404172*^9, 3.8371577736922073`*^9}, - 3.8388732416952*^9, {3.839578040990251*^9, 3.8395780450140142`*^9}, - 3.839582129914302*^9, {3.839582580602171*^9, 3.83958258280977*^9}, { - 3.8395827911257467`*^9, 3.839582791237772*^9}, {3.839583003721686*^9, - 3.8395830043374166`*^9}, {3.839585279498378*^9, 3.8395852923705273`*^9}, { - 3.839585466853951*^9, 3.839585474573823*^9}, {3.839588120582615*^9, - 3.8395881249346313`*^9}, {3.8395884394364033`*^9, 3.839588443652686*^9}, { - 3.839660888517267*^9, 3.839660890837171*^9}, {3.839666798801738*^9, - 3.839666800417699*^9}, {3.840876135111684*^9, 3.84087614072759*^9}, { - 3.840877730618293*^9, 3.840877731210423*^9}, {3.840883000672345*^9, - 3.840883000792232*^9}, {3.840883745533565*^9, 3.8408837729580717`*^9}, { - 3.841112604463173*^9, 3.8411126045269947`*^9}, {3.841113168518607*^9, - 3.84111317763871*^9}, {3.841113454228421*^9, 3.841113456044483*^9}, { - 3.841115000731831*^9, 3.841115010131671*^9}, 3.8411187808643417`*^9, { - 3.841121200193597*^9, 3.841121200297398*^9}, {3.841121654609522*^9, - 3.841121663001295*^9}}, - CellLabel-> - "In[1619]:=",ExpressionUUID->"73e91892-d41c-4d88-b25a-4eb12d081073"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"sol3", "=", - RowBox[{"untilSuccess", "[", - RowBox[{"newSol", "[", - RowBox[{ - RowBox[{"randomEval", "[", "eq3", "]"}], ",", "sol2", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], ",", - RowBox[{"gC", "[", "4", "]"}]}], "}"}], ",", - SuperscriptBox["10", - RowBox[{"-", "2"}]]}], "]"}], "]"}]}]], "Input", - CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, { - 3.8175614038617268`*^9, 3.817561415404965*^9}, {3.817561511096093*^9, - 3.817561563944231*^9}, {3.81756250196518*^9, 3.817562507914916*^9}, { - 3.817562967760625*^9, 3.81756298304041*^9}, 3.817563161460335*^9, { - 3.817563206558021*^9, 3.81756320676147*^9}, {3.817563530710863*^9, - 3.817563550054001*^9}, {3.817563775700533*^9, 3.817563804069632*^9}, { - 3.817563971222761*^9, 3.817564086350409*^9}, {3.817564155680212*^9, - 3.8175641623358994`*^9}, {3.81756424029494*^9, 3.817564240399859*^9}, { - 3.8175645416987743`*^9, 3.817564542202907*^9}, {3.817564715061411*^9, - 3.817564723202471*^9}, {3.8175648450855713`*^9, 3.817564883921851*^9}, { - 3.8175650025642157`*^9, 3.817565074155829*^9}, {3.817565217921039*^9, - 3.817565230520749*^9}, {3.817565359356901*^9, 3.8175654247402163`*^9}, { - 3.817565602697175*^9, 3.817565635407323*^9}, {3.817566059389201*^9, - 3.817566077942937*^9}, {3.817566269837482*^9, 3.817566273547044*^9}, { - 3.8175663066250553`*^9, 3.817566306784181*^9}, {3.817566684914805*^9, - 3.81756668549652*^9}, {3.817566919102108*^9, 3.817566934549343*^9}, { - 3.8175696638331223`*^9, 3.817569664744486*^9}, {3.817579706169273*^9, - 3.8175797767735577`*^9}, {3.817581067506674*^9, 3.8175810689721537`*^9}, { - 3.817581121371869*^9, 3.817581169115347*^9}, {3.817581207766066*^9, - 3.817581270669099*^9}, 3.817581309702499*^9, {3.817581355857291*^9, - 3.817581356026667*^9}, {3.817581392130506*^9, 3.817581416424316*^9}, { - 3.817581457365512*^9, 3.8175814943565397`*^9}, {3.81758152586852*^9, - 3.817581526654297*^9}, {3.8175819155874557`*^9, 3.81758195123713*^9}, { - 3.8175820720836487`*^9, 3.817582073079625*^9}, {3.817582192281794*^9, - 3.8175821927535973`*^9}, {3.8175824979646*^9, 3.817582531058486*^9}, { - 3.817582601242318*^9, 3.817582616669943*^9}, {3.817582763042087*^9, - 3.817582823261053*^9}, {3.817582997786705*^9, 3.817583024595161*^9}, { - 3.817584829987904*^9, 3.817584859074748*^9}, {3.81758494165969*^9, - 3.81758496226119*^9}, {3.81758499940244*^9, 3.8175849995669928`*^9}, { - 3.817585077390765*^9, 3.817585077573927*^9}, {3.817585156651001*^9, - 3.817585156823139*^9}, {3.817585322721836*^9, 3.817585349348461*^9}, { - 3.817585456385895*^9, 3.817585457280986*^9}, {3.817585513558703*^9, - 3.8175855137401114`*^9}, {3.817613675501788*^9, 3.817613676578967*^9}, { - 3.8176168804169617`*^9, 3.81761688926372*^9}, {3.817618774003889*^9, - 3.817618793385603*^9}, {3.8176190151288853`*^9, 3.817619038205636*^9}, - 3.8176190698677187`*^9, {3.817619141079945*^9, 3.8176191871342373`*^9}, { - 3.817619234638775*^9, 3.817619240400311*^9}, {3.817619299848545*^9, - 3.817619332922262*^9}, {3.817619399549685*^9, 3.817619401809965*^9}, { - 3.8176196502657223`*^9, 3.817619664950913*^9}, {3.817619740359915*^9, - 3.8176197551387*^9}, {3.81761980328899*^9, 3.8176198034943733`*^9}, { - 3.817620410694891*^9, 3.817620463869529*^9}, {3.817620674916114*^9, - 3.817620678055534*^9}, {3.817620745057685*^9, 3.817620761178657*^9}, { - 3.817626286376536*^9, 3.8176263645243196`*^9}, {3.817629112637333*^9, - 3.817629115136323*^9}, {3.817629250682312*^9, 3.817629259447815*^9}, { - 3.8176294333109083`*^9, 3.817629436163623*^9}, {3.817641032808353*^9, - 3.817641033101226*^9}, {3.817664188948728*^9, 3.817664189649652*^9}, { - 3.817664815999873*^9, 3.817664819955031*^9}, {3.817665075387652*^9, - 3.8176650759521837`*^9}, {3.817665115247237*^9, 3.817665115392807*^9}, { - 3.817665186844384*^9, 3.817665187022648*^9}, {3.817665325401506*^9, - 3.8176653256436853`*^9}, {3.817665620012444*^9, 3.8176656289311333`*^9}, { - 3.817666022150625*^9, 3.817666032733485*^9}, {3.817666540959165*^9, - 3.817666542789474*^9}, {3.825763749599124*^9, 3.825763789470828*^9}, { - 3.82576405360496*^9, 3.825764054939633*^9}, {3.826007455858286*^9, - 3.8260074763785057`*^9}, {3.8260077526573877`*^9, - 3.8260077642405243`*^9}, {3.826012574971777*^9, 3.826012607731414*^9}, { - 3.826012638420402*^9, 3.826012656916271*^9}, {3.826013377866149*^9, - 3.826013381529332*^9}, {3.8260134248909807`*^9, 3.8260134250580482`*^9}, { - 3.826013471603549*^9, 3.826013479731104*^9}, {3.8260142542578907`*^9, - 3.8260142815694523`*^9}, {3.826103080587652*^9, 3.826103110884009*^9}, { - 3.826272386944799*^9, 3.8262724058568172`*^9}, {3.826272577364773*^9, - 3.8262726301407547`*^9}, {3.8262730964295692`*^9, 3.826273105909152*^9}, { - 3.826273149742629*^9, 3.826273152269898*^9}, 3.826273264736801*^9, { - 3.8262734668440647`*^9, 3.826273466979476*^9}, {3.826273523852948*^9, - 3.8262735239166183`*^9}, {3.826273598326247*^9, 3.826273598414112*^9}, { - 3.8262736403749523`*^9, 3.826273646006681*^9}, {3.826689077467478*^9, - 3.826689117948354*^9}, {3.8266891488769283`*^9, 3.826689165069252*^9}, { - 3.826689316392604*^9, 3.826689327479848*^9}, {3.826689585957643*^9, - 3.8266895892288723`*^9}, {3.826689642374959*^9, 3.8266896530861063`*^9}, { - 3.826689991397007*^9, 3.826690014053174*^9}, {3.826690202392878*^9, - 3.826690203016962*^9}, {3.826690290674961*^9, 3.826690309938636*^9}, { - 3.826690353388789*^9, 3.8266903615409527`*^9}, {3.826690552655903*^9, - 3.826690573871529*^9}, {3.8266910770094233`*^9, 3.826691106753572*^9}, { - 3.826691453953046*^9, 3.826691456704123*^9}, {3.826691566042148*^9, - 3.826691580778328*^9}, 3.826691637140317*^9, {3.826691686196629*^9, - 3.8266916892040443`*^9}, 3.8267024091584463`*^9, {3.826704716161975*^9, - 3.826704719377363*^9}, 3.826704821811655*^9, {3.826704934254529*^9, - 3.82670493514916*^9}, 3.827313139667808*^9, 3.82731344328931*^9, { - 3.827313530930706*^9, 3.827313531074643*^9}, {3.827313648020673*^9, - 3.827313648404454*^9}, 3.827313930601613*^9, {3.827403795859744*^9, - 3.827403799331325*^9}, {3.827404407990917*^9, 3.8274044110385847`*^9}, { - 3.827404515849715*^9, 3.827404516008604*^9}, 3.8274045561855392`*^9, { - 3.827404728540772*^9, 3.827404795461753*^9}, {3.827405566388193*^9, - 3.82740557845172*^9}, 3.82740564622897*^9, {3.82740643693969*^9, - 3.827406439179371*^9}, {3.827410039890891*^9, 3.827410061081759*^9}, { - 3.827410104744341*^9, 3.8274101058397303`*^9}, {3.827468092811961*^9, - 3.8274680953874063`*^9}, {3.827481100871253*^9, 3.827481114943645*^9}, { - 3.8274817272909317`*^9, 3.827481737754497*^9}, {3.827481945727586*^9, - 3.827481949302575*^9}, {3.827484838890389*^9, 3.827484839529801*^9}, { - 3.827484895811178*^9, 3.8274849038187733`*^9}, {3.827484974996828*^9, - 3.827484977452355*^9}, {3.8275548920737123`*^9, 3.827554895257688*^9}, { - 3.82755495846808*^9, 3.827554992403337*^9}, {3.8275550675095177`*^9, - 3.827555094141191*^9}, {3.827555531557931*^9, 3.827555541909574*^9}, { - 3.827558586614328*^9, 3.827558626335005*^9}, {3.827558692856378*^9, - 3.827558718297015*^9}, {3.8275616201177397`*^9, 3.8275616237008038`*^9}, { - 3.8278304666636057`*^9, 3.827830499703677*^9}, {3.827830602882563*^9, - 3.827830606857448*^9}, {3.8278306535627747`*^9, 3.82783065715436*^9}, { - 3.827830716931963*^9, 3.827830726899715*^9}, {3.827831324127943*^9, - 3.8278313248465567`*^9}, {3.8278313735839767`*^9, 3.827831374279758*^9}, { - 3.827833117615872*^9, 3.827833140855818*^9}, {3.827833184112794*^9, - 3.827833212697111*^9}, {3.827833464637803*^9, 3.827833471917515*^9}, - 3.829121222146471*^9, 3.829121418301763*^9, {3.8291247244736977`*^9, - 3.8291247270577908`*^9}, {3.829211844661628*^9, 3.829211854852899*^9}, { - 3.8292126580682793`*^9, 3.829212675524225*^9}, {3.829213854986209*^9, - 3.829213857969493*^9}, {3.829213943083304*^9, 3.829213967523123*^9}, { - 3.829214031268794*^9, 3.829214040157639*^9}, {3.829214194263526*^9, - 3.8292142105916843`*^9}, {3.829217690414138*^9, 3.829217702270501*^9}, { - 3.8292178172969103`*^9, 3.8292178174562902`*^9}, {3.8292178775777473`*^9, - 3.8292178776889153`*^9}, {3.829218414474752*^9, 3.829218438363077*^9}, { - 3.829220129337493*^9, 3.8292201294411983`*^9}, {3.8293682811580133`*^9, - 3.829368281332857*^9}, {3.829368605771906*^9, 3.829368621818864*^9}, { - 3.829369119076646*^9, 3.829369124363988*^9}, {3.829371182626143*^9, - 3.8293711843451643`*^9}, {3.829371313731625*^9, 3.829371313827364*^9}, { - 3.829371427621697*^9, 3.829371428717615*^9}, {3.829384070852407*^9, - 3.829384092643899*^9}, {3.829643418496428*^9, 3.8296434455842133`*^9}, { - 3.829643520753277*^9, 3.829643521713008*^9}, {3.8371576505071573`*^9, - 3.837157650665916*^9}, {3.837157776052775*^9, 3.837157777100462*^9}, { - 3.8388732506235867`*^9, 3.8388732521915503`*^9}, {3.839578050294734*^9, - 3.839578051038322*^9}, {3.8395825963064623`*^9, 3.83958259649821*^9}, { - 3.8395830693390427`*^9, 3.839583069426901*^9}, {3.8395852963389807`*^9, - 3.839585296426599*^9}, {3.83958547866232*^9, 3.8395854803577147`*^9}, { - 3.839588131279149*^9, 3.839588136006947*^9}, {3.839588173951844*^9, - 3.839588173999587*^9}, {3.839588447469577*^9, 3.839588447644541*^9}, { - 3.839660892797814*^9, 3.839660893885312*^9}, {3.8396668026103373`*^9, - 3.839666805105959*^9}, {3.840873258515625*^9, 3.8408732872919407`*^9}, { - 3.840873492488338*^9, 3.8408735597530603`*^9}, {3.840874083251541*^9, - 3.840874083338933*^9}, {3.840876146359902*^9, 3.840876165424849*^9}, - 3.840876452106188*^9, {3.840877739140257*^9, 3.840877743355383*^9}, { - 3.8408780207723093`*^9, 3.840878023027603*^9}, {3.840878104735993*^9, - 3.840878110311626*^9}, 3.84087814372095*^9, {3.84087895519116*^9, - 3.8408789677188272`*^9}, {3.840879004296595*^9, 3.8408790157839212`*^9}, { - 3.840879075809988*^9, 3.840879084120776*^9}, {3.8408811729089813`*^9, - 3.840881178828562*^9}, {3.840883754382674*^9, 3.8408837551575737`*^9}, { - 3.8411125911911716`*^9, 3.841112594830676*^9}, {3.841113175759094*^9, - 3.841113189750741*^9}, {3.841113459093575*^9, 3.841113462972517*^9}, { - 3.841117524056861*^9, 3.841117526696381*^9}, {3.841118782761242*^9, - 3.8411187839365187`*^9}, {3.841121203729806*^9, 3.841121205065709*^9}, { - 3.8411216591300907`*^9, 3.841121666306127*^9}}, - CellLabel-> - "In[1623]:=",ExpressionUUID->"c43246d1-e2a0-4f05-93de-2eea9f4af4d5"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", - RowBox[{"1.2886226463950416`", "\[VeryThinSpace]", "+", - RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", - RowBox[{"\[Theta]0", "\[Rule]", - RowBox[{"0.1986002244336977`", "\[VeryThinSpace]", "+", - RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "0", "]"}], "\[Rule]", - RowBox[{"1.2440500132458563`", "\[VeryThinSpace]", "+", - RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{ - RowBox[{"-", "2.380829963157819`"}], "+", - RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", - RowBox[{"1.4900424983107603`", "\[VeryThinSpace]", "+", - RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", - RowBox[{"0.3930310002682461`", "\[VeryThinSpace]", "+", - RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{ - RowBox[{"-", "0.02691850084879989`"}], "+", - RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", - RowBox[{"0.003049526867390156`", "\[VeryThinSpace]", "+", - RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"0.00031813003996303057`", "\[VeryThinSpace]", "+", - RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", - RowBox[{ - RowBox[{"-", "0.0003360798630406854`"}], "+", - RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}]}], "}"}]], "Output", - CellChangeTimes->{ - 3.831201605199861*^9, 3.831201825134141*^9, {3.8312018720267353`*^9, - 3.831201915036397*^9}, 3.832134253764925*^9, 3.832134528590658*^9, { - 3.8322384926311703`*^9, 3.83223850323409*^9}, 3.837157647362878*^9, - 3.837157742587923*^9, 3.8371577779839277`*^9, 3.838873252487184*^9, - 3.839578056652884*^9, 3.8395796666883802`*^9, 3.8395803511865263`*^9, - 3.839581563336719*^9, 3.839581620994813*^9, 3.8395821350745487`*^9, - 3.839582593114229*^9, 3.8395827407540617`*^9, {3.83958306555308*^9, - 3.839583084195985*^9}, {3.839585293521529*^9, 3.839585296700117*^9}, { - 3.839585480885418*^9, 3.8395854985146217`*^9}, {3.839588154524723*^9, - 3.839588172244381*^9}, {3.839588425469323*^9, 3.839588447864441*^9}, { - 3.8396608865671663`*^9, 3.839660894906348*^9}, 3.839668240633337*^9, - 3.8396702357793503`*^9, {3.840873332724812*^9, 3.8408733466984158`*^9}, - 3.840873492382749*^9, 3.8408736098642282`*^9, 3.84087400915982*^9, - 3.840874084283777*^9, {3.8408742209027557`*^9, 3.840874224667223*^9}, { - 3.840876161482683*^9, 3.840876189976102*^9}, 3.8408764530584507`*^9, { - 3.84087774397515*^9, 3.840877756939452*^9}, {3.8408780240051203`*^9, - 3.8408780307843523`*^9}, {3.8408781070748158`*^9, 3.840878112545322*^9}, - 3.840878146559656*^9, 3.840878910693859*^9, {3.840878950733683*^9, - 3.840878959994423*^9}, {3.8408789975557213`*^9, 3.840879043170164*^9}, { - 3.840879080623784*^9, 3.840879086177207*^9}, {3.840881181161131*^9, - 3.8408811844360228`*^9}, 3.8408830078191032`*^9, {3.8408837605742817`*^9, - 3.840883773947824*^9}, 3.840885260858622*^9, 3.841111770309704*^9, { - 3.841112600395607*^9, 3.8411126052592583`*^9}, {3.841113173610181*^9, - 3.841113192600388*^9}, 3.8411134052680817`*^9, 3.841113463249672*^9, - 3.841114282188375*^9, 3.841115010921794*^9, 3.841115239158383*^9, - 3.841115985841136*^9, 3.841116266250115*^9, 3.84111683090869*^9, - 3.8411175277760677`*^9, {3.841118778320472*^9, 3.841118790587433*^9}, - 3.841119381597702*^9, 3.8411202125078707`*^9, 3.841121205332551*^9, { - 3.841121669933867*^9, 3.8411216713151703`*^9}}, - CellLabel-> - "Out[1623]=",ExpressionUUID->"0fff3327-ed0b-41a7-a869-c0dee6c9981f"] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"sol3s", "=", - RowBox[{"Table", "[", - RowBox[{ - RowBox[{"untilSuccess", "[", - RowBox[{"newSol", "[", - RowBox[{ - RowBox[{"randomEval", "[", "eq3", "]"}], ",", "sol3", ",", - RowBox[{"{", "}"}], ",", "0", ",", - SuperscriptBox["10", - RowBox[{"-", "4"}]]}], "]"}], "]"}], ",", - RowBox[{"{", "100", "}"}]}], "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.8408793638081923`*^9, 3.840879373342231*^9}, { - 3.840879489416232*^9, 3.840879499080167*^9}, {3.840881191421287*^9, - 3.840881203724937*^9}, {3.841113281153489*^9, 3.841113281352509*^9}, { - 3.841113330753521*^9, 3.841113331521584*^9}, {3.841115017091902*^9, - 3.8411150171557093`*^9}, {3.841117521160619*^9, 3.8411175338246*^9}}, - CellLabel-> - "In[1624]:=",ExpressionUUID->"dcd652a3-ec57-446e-aeef-460b34aa6625"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{"mt", "=", "8"}], ";", - RowBox[{"ListLogPlot", "[", - RowBox[{"{", "\[IndentingNewLine]", - RowBox[{ - RowBox[{"Abs", "[", "Gls", "]"}], ",", "\[IndentingNewLine]", - RowBox[{"Chop", "[", - RowBox[{ - RowBox[{ - RowBox[{"Abs", "[", - RowBox[{ - RowBox[{ - RowBox[{"dFd\[Xi]LowList", "[", - RowBox[{"n3", ",", "h3"}], "]"}], "[", "6", "]"}], "/", - RowBox[{"(", - RowBox[{ - RowBox[{"Range", "[", - RowBox[{"0", ",", "6"}], "]"}], "!"}], ")"}]}], "]"}], "//.", - RowBox[{"rules", "[", "h3", "]"}]}], "/.", "sol3"}], "]"}]}], - "\[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.8371574167259398`*^9, - 3.83715742501366*^9}, {3.838872732879181*^9, 3.8388727537664413`*^9}, { - 3.838873204703073*^9, 3.8388732099027357`*^9}, {3.838873255752236*^9, - 3.8388732834641113`*^9}, {3.8388734328271227`*^9, 3.8388734358267*^9}, { - 3.838874157024147*^9, 3.8388741604719753`*^9}, {3.839307790346795*^9, - 3.839307797698661*^9}, {3.8393093420874243`*^9, 3.839309343767222*^9}, { - 3.83940985668435*^9, 3.8394098593718357`*^9}, {3.839479308878851*^9, - 3.8394793092698917`*^9}, {3.839479351678846*^9, 3.839479359894719*^9}, { - 3.839484132822569*^9, 3.83948413582975*^9}, {3.839484417835371*^9, - 3.839484422402855*^9}, {3.8394844606917543`*^9, 3.8394845443653107`*^9}, { - 3.839485068790997*^9, 3.839485069686892*^9}, {3.839485153592383*^9, - 3.839485166081131*^9}, {3.8394852464151793`*^9, 3.8394852711790447`*^9}, { - 3.839485306757688*^9, 3.8394853151639977`*^9}, {3.8394853654853773`*^9, - 3.839485432894374*^9}, 3.839485523256114*^9, {3.839485578601307*^9, - 3.839485649138336*^9}, {3.8394857007256727`*^9, 3.839485723219755*^9}, { - 3.839485936266061*^9, 3.839486030177397*^9}, {3.839486075309197*^9, - 3.839486142116439*^9}, {3.839486179828413*^9, 3.839486218245903*^9}, { - 3.83948626754249*^9, 3.8394862713893957`*^9}, {3.8394864169524717`*^9, - 3.8394864816965714`*^9}, {3.839486986826584*^9, 3.8394869896504993`*^9}, { - 3.8394870445001507`*^9, 3.839487076477178*^9}, {3.839487130772867*^9, - 3.839487144740963*^9}, {3.8394876124142523`*^9, 3.83948761275005*^9}, { - 3.839487645182592*^9, 3.839487645638852*^9}, {3.839488048646216*^9, - 3.839488090182976*^9}, {3.839488424581703*^9, 3.8394884272211113`*^9}, { - 3.8394892409164047`*^9, 3.839489242332054*^9}, {3.839489275213091*^9, - 3.839489292188744*^9}, {3.839489492289144*^9, 3.839489571665984*^9}, { - 3.8394896094678373`*^9, 3.839489713796721*^9}, {3.839489762837819*^9, - 3.839489797445959*^9}, {3.839489857544436*^9, 3.839489893848106*^9}, { - 3.8394903055442333`*^9, 3.839490366136724*^9}, {3.839490881170803*^9, - 3.8394908814338083`*^9}, {3.839490914539504*^9, 3.839490928595656*^9}, { - 3.839492144689028*^9, 3.839492147329255*^9}, {3.839493141315516*^9, - 3.8394931647319393`*^9}, {3.839493641949576*^9, 3.83949364210872*^9}, { - 3.839494014823594*^9, 3.839494050556492*^9}, {3.8394955822727327`*^9, - 3.8394956194090643`*^9}, {3.839495922911708*^9, 3.839495935527544*^9}, { - 3.839496282949663*^9, 3.8394963032934713`*^9}, {3.839572033112393*^9, - 3.8395720353280907`*^9}, {3.839572166843008*^9, 3.839572169346869*^9}, { - 3.839586112218432*^9, 3.8395861234262123`*^9}, {3.839586281734277*^9, - 3.8395862878848553`*^9}, {3.839586416192438*^9, 3.839586419599288*^9}, { - 3.839658669660975*^9, 3.8396586751241493`*^9}, 3.839664357017618*^9, { - 3.839664563809626*^9, 3.8396646004174013`*^9}, {3.840528591761121*^9, - 3.8405285944877768`*^9}, {3.8405288185331697`*^9, 3.8405288189559*^9}, { - 3.840873305948681*^9, 3.840873312420223*^9}, {3.840873708508609*^9, - 3.840873740172477*^9}, {3.840874019546393*^9, 3.8408740218577957`*^9}, { - 3.8408761754239607`*^9, 3.8408761762798634`*^9}}, - CellLabel-> - "In[1214]:=",ExpressionUUID->"88ba1abf-d060-4254-b284-83baf05f8420"], - -Cell[BoxData[ - GraphicsBox[{{{ - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{{}, { - LineBox[{{4., -3.24768873618056}, {4., -3.2476887336074802`}}], - LineBox[{{4., -3.2476887336074802`}, {4., -3.2476887310344003`}}]}}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{{}, { - LineBox[{{5., -2.6829364089277306`}, {5., -2.6829363942997464`}}], - LineBox[{{5., -2.6829363942997464`}, {5., -2.6829363796717627`}}]}}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{{}, { - LineBox[{{6., -1.6934517864279734`}, {6., -1.6934517320457758`}}], - LineBox[{{6., -1.6934517320457758`}, {6., -1.693451677663581}}]}}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{{}, { - LineBox[{{7., -0.4167753281916941}, {7., -0.41677381113121115`}}], - LineBox[{{7., -0.41677381113121115`}, {7., -0.4167722940730296}}]}}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{{}, { - LineBox[{{8., 1.077614026885801}, {8., 1.077615048105556}}], - LineBox[{{8., 1.077615048105556}, {8., 1.0776160693242682`}}]}}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{{}, { - LineBox[{{9., 2.747270914255491}, {9., 2.7479117345273405`}}], - LineBox[{{9., 2.7479117345273405`}, {9., 2.7485521444115397`}}]}}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{{}, { - LineBox[{{10., 4.572130331909891}, {10., 4.572233685741827}}], - LineBox[{{10., 4.572233685741827}, {10., 4.572337028892852}}]}}, - Antialiasing->False]}}, { - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{ - GeometricTransformationBox[ - LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], - GeometricTransformationBox[ - LineBox[{{{4., -3.2476887310344003`}, - Offset[{3, 0}, {4., -3.2476887310344003`}]}, {{ - 4., -3.2476887310344003`}, - Offset[{-3, 0}, {4., -3.2476887310344003`}]}, {{ - 4., -3.24768873618056}, - Offset[{3, 0}, {4., -3.24768873618056}]}, {{ - 4., -3.24768873618056}, - Offset[{-3, 0}, {4., -3.24768873618056}]}}], {{{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., -2.6829363796717627`}, - Offset[{3, 0}, {5., -2.6829363796717627`}]}, {{ - 5., -2.6829363796717627`}, - Offset[{-3, 0}, {5., -2.6829363796717627`}]}, {{ - 5., -2.6829364089277306`}, - Offset[{3, 0}, {5., -2.6829364089277306`}]}, {{ - 5., -2.6829364089277306`}, - Offset[{-3, 0}, {5., -2.6829364089277306`}]}}], {{{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., -1.693451677663581}, - Offset[{3, 0}, {6., -1.693451677663581}]}, {{ - 6., -1.693451677663581}, - Offset[{-3, 0}, {6., -1.693451677663581}]}, {{ - 6., -1.6934517864279734`}, - Offset[{3, 0}, {6., -1.6934517864279734`}]}, {{ - 6., -1.6934517864279734`}, - Offset[{-3, 0}, {6., -1.6934517864279734`}]}}], {{{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., -0.4167722940730296}, - Offset[{3, 0}, {7., -0.4167722940730296}]}, {{ - 7., -0.4167722940730296}, - Offset[{-3, 0}, {7., -0.4167722940730296}]}, {{ - 7., -0.4167753281916941}, - Offset[{3, 0}, {7., -0.4167753281916941}]}, {{ - 7., -0.4167753281916941}, - Offset[{-3, 0}, {7., -0.4167753281916941}]}}], {{{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., 1.0776160693242682`}, - Offset[{3, 0}, {8., 1.0776160693242682`}]}, {{8., - 1.0776160693242682`}, - Offset[{-3, 0}, {8., 1.0776160693242682`}]}, {{8., - 1.077614026885801}, Offset[{3, 0}, {8., 1.077614026885801}]}, {{ - 8., 1.077614026885801}, - Offset[{-3, 0}, {8., 1.077614026885801}]}}], {{{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[{{{9., 2.7485521444115397`}, - Offset[{3, 0}, {9., 2.7485521444115397`}]}, {{9., - 2.7485521444115397`}, - Offset[{-3, 0}, {9., 2.7485521444115397`}]}, {{9., - 2.747270914255491}, Offset[{3, 0}, {9., 2.747270914255491}]}, {{ - 9., 2.747270914255491}, - Offset[{-3, 0}, {9., 2.747270914255491}]}}], {{{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., 4.572337028892852}, - Offset[{3, 0}, {10., 4.572337028892852}]}, {{10., - 4.572337028892852}, Offset[{-3, 0}, {10., 4.572337028892852}]}, {{ - 10., 4.572130331909891}, - Offset[{3, 0}, {10., 4.572130331909891}]}, {{10., - 4.572130331909891}, - Offset[{-3, 0}, {10., 4.572130331909891}]}}], {{{1., 0.}, {0., - 1.}}, {0., 0.}}]}, - Antialiasing->False]}}}, { - {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], - AbsoluteThickness[1.6], - PointBox[{{2., 0.3058939805973386}, {3., -3.016888706538089}, { - 4., -3.2476887336074802`}, {5., -2.6829363942997464`}, { - 6., -1.6934517320457758`}, {7., -0.41677381113121115`}, {8., - 1.077615048105556}, {9., 2.7479117345273405`}, {10., - 4.572233685741827}, {11., 6.520621127558696}, {12., - 8.582980931954241}, {13., 10.749355820113736`}, {14., - 13.008074231002201`}, {15., 15.354526006101828`}}]}, - {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], - AbsoluteThickness[1.6], - PointBox[{{2., 0.3058939805973371}, {3., -3.01688870653807}, { - 4., -3.2476887337199}, {5., -2.682936377331022}, { - 6., -1.662784171136173}, {7., -0.3309810985918714}}]}}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., -4.703417607888443}, - 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., 15.}, {-4.703417607888443, 15.354526006101828`}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.02], - Scaled[0.05]}}, - Ticks->FrontEndValueCache[{Automatic, - Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-4.605170185988091, - FormBox[ - TagBox[ - InterpretationBox[ - StyleBox["\"0.01\"", ShowStringCharacters -> False], 0.01, - AutoDelete -> True], NumberForm[#, { - DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 0.}}, { - 2.302585092994046, - FormBox["10", TraditionalForm], {0.01, 0.}}, {9.210340371976184, - FormBox[ - TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], - TraditionalForm], {0.01, 0.}}, {16.11809565095832, - FormBox[ - TemplateBox[{"10", "7"}, "Superscript", SyntaxForm -> SuperscriptBox], - TraditionalForm], {0.01, 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.}}, { - 11.512925464970229`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 13.815510557964274`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 16.811242831518264`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 17.216707939626428`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 17.50439001207821, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 17.72753356339242, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 17.909855120186375`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 18.064005800013632`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 18.197537192638155`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 18.31532022829454, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 18.420680743952367`, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}}}]]], "Output", - CellChangeTimes->{{3.8394864302572823`*^9, 3.839486485737481*^9}, { - 3.8394868108920527`*^9, 3.839486833544271*^9}, {3.839486968169405*^9, - 3.839486994739235*^9}, {3.839487050609737*^9, 3.839487081545911*^9}, { - 3.839487139032605*^9, 3.839487149734391*^9}, 3.8394880559648848`*^9, - 3.839488095210012*^9, 3.839488432022138*^9, 3.839488966485567*^9, - 3.839489132907782*^9, 3.8394891742679043`*^9, {3.83948923216856*^9, - 3.839489247298073*^9}, {3.8394892811100388`*^9, 3.839489297255623*^9}, { - 3.839489518429874*^9, 3.839489576749642*^9}, 3.839489614460577*^9, { - 3.839489646744204*^9, 3.839489717916*^9}, {3.839489779953936*^9, - 3.839489797877178*^9}, {3.839489858269053*^9, 3.839489894400456*^9}, - 3.83948999298129*^9, 3.839490039302783*^9, 3.839490198501548*^9, { - 3.8394903145949183`*^9, 3.839490366668486*^9}, 3.839490410230691*^9, - 3.83949068744411*^9, 3.839490882032105*^9, {3.839490915087521*^9, - 3.8394909440773563`*^9}, {3.839491208442045*^9, 3.839491227913024*^9}, - 3.839491282583577*^9, 3.83949138318426*^9, 3.839491847872534*^9, - 3.839491922779976*^9, {3.83949214072232*^9, 3.839492147793445*^9}, - 3.839492703416108*^9, {3.8394930877867403`*^9, 3.839493111348575*^9}, - 3.839493159337824*^9, 3.839493260745894*^9, 3.8394938495813704`*^9, { - 3.839494015878335*^9, 3.839494051166876*^9}, 3.839494155707307*^9, { - 3.839494232008819*^9, 3.8394942817479143`*^9}, {3.8394955838062563`*^9, - 3.839495620912838*^9}, {3.839495892980287*^9, 3.839495961352178*^9}, - 3.839495996781355*^9, 3.8394960290995007`*^9, {3.8394961117034683`*^9, - 3.839496132210868*^9}, {3.839496233750821*^9, 3.839496247464304*^9}, { - 3.839496287823802*^9, 3.839496304224265*^9}, 3.83949641106695*^9, - 3.839496651844782*^9, 3.839569714442939*^9, 3.839570692350816*^9, - 3.839571037545631*^9, 3.8395710776956797`*^9, 3.8395711376334047`*^9, - 3.839571186222416*^9, 3.839571351854351*^9, 3.8395716431049433`*^9, - 3.8395716961263447`*^9, 3.8395719356619263`*^9, 3.839571975466508*^9, { - 3.8395720292576017`*^9, 3.839572038127006*^9}, {3.83957217256413*^9, - 3.83957219391011*^9}, 3.839572236054682*^9, {3.839572276306333*^9, - 3.839572287892969*^9}, 3.839572342583872*^9, 3.839572572560753*^9, - 3.839572613884104*^9, {3.839572830197351*^9, 3.839572867853582*^9}, { - 3.839572962859436*^9, 3.839572978399377*^9}, 3.839573191565909*^9, - 3.83957323416776*^9, 3.839574190974876*^9, {3.839574358418882*^9, - 3.839574363836178*^9}, 3.839577688193771*^9, {3.839577931409347*^9, - 3.839577940725779*^9}, {3.839579623692398*^9, 3.839579641583359*^9}, - 3.839580176251998*^9, {3.839580243310802*^9, 3.839580260058309*^9}, - 3.83958034038577*^9, 3.839581557584*^9, {3.83958160487352*^9, - 3.839581615679512*^9}, 3.839581993151758*^9, 3.839582040886951*^9, - 3.839582108820992*^9, 3.839582559973913*^9, 3.839582771424386*^9, { - 3.839583107834976*^9, 3.839583154778919*^9}, {3.8395842000019083`*^9, - 3.839584229236342*^9}, 3.839584319284484*^9, 3.8395843940434847`*^9, - 3.839584572371277*^9, 3.839584947067206*^9, 3.839585081305537*^9, - 3.839586137503179*^9, 3.8395862976249247`*^9, 3.839586429104487*^9, - 3.839587842464167*^9, 3.839647990219092*^9, 3.8396572711023006`*^9, - 3.839658508039483*^9, 3.839658567146755*^9, {3.8396586610674477`*^9, - 3.8396586758654203`*^9}, 3.839659271097528*^9, 3.839661799778942*^9, { - 3.839664337728752*^9, 3.8396643582360373`*^9}, {3.839664548980212*^9, - 3.839664603837595*^9}, 3.839664641104356*^9, 3.8396691346008053`*^9, - 3.8396700455490303`*^9, 3.839670127013689*^9, 3.8405260833413677`*^9, { - 3.840527418121812*^9, 3.840527428230318*^9}, 3.840528597876438*^9, { - 3.84052880585203*^9, 3.840528823602725*^9}, 3.840610810412817*^9, - 3.8408694556097403`*^9, 3.840872804624278*^9, 3.840873318607501*^9, - 3.8408737146428013`*^9, 3.84087389820252*^9, 3.840874056732506*^9, - 3.840874121281238*^9, 3.840874240116848*^9, {3.840876184207178*^9, - 3.8408762014348793`*^9}, 3.841111818409676*^9, 3.8411126114238663`*^9, - 3.841116852636282*^9, 3.841118804437277*^9, 3.8411193929610043`*^9}, - CellLabel-> - "Out[1214]=",ExpressionUUID->"b4a737d4-b44b-48fd-8fd3-fef4dc98fa59"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"ListLogPlot", "[", - RowBox[{"{", "\[IndentingNewLine]", - RowBox[{ - RowBox[{"Abs", "[", "Ghs", "]"}], ",", "\[IndentingNewLine]", - RowBox[{"Chop", "[", - RowBox[{ - RowBox[{ - RowBox[{"Abs", "[", - RowBox[{ - RowBox[{ - RowBox[{"dFd\[Xi]HighList", "[", - RowBox[{"n3", ",", "h3"}], "]"}], "[", "8", "]"}], "/", - RowBox[{"(", - RowBox[{ - RowBox[{"Range", "[", - RowBox[{"0", ",", "8"}], "]"}], "!"}], ")"}]}], "]"}], "//.", - RowBox[{"rules", "[", "h3", "]"}]}], "/.", "sol3"}], "]"}]}], - "\[IndentingNewLine]", "}"}], "]"}]], "Input", - CellChangeTimes->CompressedData[" -1:eJwdxUsow3EAB/B/Mi6ICZnD2A4ObvKYtdjfo5R5plAo8shjVojyfrVJlPz5 -FzZ55hnKgYtHMw5i5Dlz8Moc9r+I5OD1+/4Onz4hxbqsUheGYaQE7glsqWg2 -CGy4Zr8Ba2q8O7DiTk6vD2zjsWp2YQ57pHstY3WkH13j9LBis3so/ag/3zBL -LvQK78Xmj5UBLK/gRvFD6skktp/PTOHiXt/cObJEbaJ7BqXpcfRvnQGPHI5e -z5OXd+U32KEMEB3zAvuqC3bDapmR8xkT2HW9gsdcO2/FUc+qU5wp/rrEjL3G -ho8aJU6cXd9EPzuYTBKTK0UjKfhrYCMbJxd05uG9H6Wbgywr8nfHi1atBUe8 -T9CDSlpv/McF9ntQZMOm7lRzDFl8rrNgdd/vVBy5Zzt0GndtvtyXkS845yOW -vcf+YeO9kb5Vm547RH5zaOmuXIdqmGyTrtITb6UJ2Lsknp6jv5IoTQK7VGin -Z4Tx1U9ky9qnFjPlVRO4eidmBv8Dg1sFXw== - "], - CellLabel->"In[40]:=",ExpressionUUID->"c660e976-2150-4b91-abcf-91212e494c00"], - -Cell[BoxData[ - GraphicsBox[{{{ - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{{}, { - LineBox[{{5., 2.120308945253084}, {5., 2.1203089452650836`}}], - LineBox[{{5., 2.1203089452650836`}, {5., 2.120308945277083}}]}}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{{}, { - LineBox[{{7., 4.555653628058581}, {7., 4.555653943287428}}], - LineBox[{{7., 4.555653943287428}, {7., 4.555654258516176}}]}}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{{}, { - LineBox[{{9., 7.284539665889405}, {9., 7.28456024759707}}], - LineBox[{{9., 7.28456024759707}, {9., 7.284580828881137}}]}}, - Antialiasing->False]}, - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{{}, { - LineBox[{{11., 10.161573447047902`}, {11., 10.161650696951378`}}], - LineBox[{{11., 10.161650696951378`}, {11., 10.161727940887767`}}]}}, - Antialiasing->False]}}, { - {RGBColor[0.368417, 0.506779, 0.709798], - StyleBox[{ - GeometricTransformationBox[ - LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], - GeometricTransformationBox[ - LineBox[{{{5., 2.120308945277083}, - Offset[{3, 0}, {5., 2.120308945277083}]}, {{5., - 2.120308945277083}, Offset[{-3, 0}, {5., 2.120308945277083}]}, {{ - 5., 2.120308945253084}, - Offset[{3, 0}, {5., 2.120308945253084}]}, {{5., - 2.120308945253084}, - Offset[{-3, 0}, {5., 2.120308945253084}]}}], {{{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., 4.555654258516176}, - Offset[{3, 0}, {7., 4.555654258516176}]}, {{7., - 4.555654258516176}, Offset[{-3, 0}, {7., 4.555654258516176}]}, {{ - 7., 4.555653628058581}, - Offset[{3, 0}, {7., 4.555653628058581}]}, {{7., - 4.555653628058581}, - Offset[{-3, 0}, {7., 4.555653628058581}]}}], {{{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[{{{9., 7.284580828881137}, - Offset[{3, 0}, {9., 7.284580828881137}]}, {{9., - 7.284580828881137}, Offset[{-3, 0}, {9., 7.284580828881137}]}, {{ - 9., 7.284539665889405}, - Offset[{3, 0}, {9., 7.284539665889405}]}, {{9., - 7.284539665889405}, - Offset[{-3, 0}, {9., 7.284539665889405}]}}], {{{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[{{{11., 10.161727940887767`}, - Offset[{3, 0}, {11., 10.161727940887767`}]}, {{11., - 10.161727940887767`}, - Offset[{-3, 0}, {11., 10.161727940887767`}]}, {{11., - 10.161573447047902`}, - Offset[{3, 0}, {11., 10.161573447047902`}]}, {{11., - 10.161573447047902`}, - Offset[{-3, 0}, {11., 10.161573447047902`}]}}], {{{1., 0.}, {0., - 1.}}, {0., 0.}}]}, - Antialiasing->False]}}}, { - {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], - AbsoluteThickness[1.6], - PointBox[{{3., 0.6126028894906074}, {5., 2.1203089452650836`}, {7., - 4.555653943287428}, {9., 7.28456024759707}, {11., - 10.161650696951378`}, {13., 13.126355398673866`}, {15., - 16.1573163641116}}]}, - {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], - AbsoluteThickness[1.6], - PointBox[{{3., 0.6126028894906076}, {5., 2.120308945269795}, {7., - 4.547987939858318}, {9., 7.269423542192358}}]}}, {{}, {}}}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{0., -0.6038591566117526}, - 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., 15.}, {-0.6038591566117526, 16.1573163641116}}, - 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.}}, {4.605170185988092, - FormBox["100", TraditionalForm], {0.01, 0.}}, {9.210340371976184, - FormBox[ - TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], - TraditionalForm], {0.01, 0.}}, {13.815510557964274`, - FormBox[ - TemplateBox[{"10", "6"}, "Superscript", SyntaxForm -> SuperscriptBox], - TraditionalForm], {0.01, 0.}}, {2.302585092994046, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 6.907755278982137, - 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.}}, { - 18.82614585206053, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 19.11382792451231, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { - 19.33697147582652, - FormBox[ - TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, - 0.}}}}]]], "Output", - CellChangeTimes->{ - 3.838874306626349*^9, 3.839307833176208*^9, 3.839307921759116*^9, - 3.839308193555499*^9, 3.839308834719912*^9, 3.839309349421612*^9, - 3.839309444930846*^9, 3.839309730941094*^9, {3.839407372958536*^9, - 3.839407397557301*^9}, 3.839407510770228*^9, 3.839407742714376*^9, { - 3.839409814421706*^9, 3.839409838831974*^9}, {3.839479315138771*^9, - 3.839479334135446*^9}, 3.839479510808988*^9, {3.839484106013053*^9, - 3.839484114192507*^9}, {3.839491333368382*^9, 3.839491352564785*^9}, - 3.839496421250053*^9, 3.839570701004363*^9, {3.839571053062819*^9, - 3.839571081095027*^9}, 3.839571649226528*^9, {3.839571701597974*^9, - 3.839571713955307*^9}, 3.839571774098215*^9, {3.839571960213578*^9, - 3.839571965825536*^9}, 3.8395722401143827`*^9, 3.8395726306465683`*^9, - 3.8395726971767397`*^9, 3.839573200774227*^9, 3.839573241041375*^9, - 3.8395779411886873`*^9, 3.839579644519557*^9, 3.839582112961179*^9, - 3.839582561195066*^9, 3.839582772446342*^9, 3.839584240530417*^9, - 3.839585089073605*^9, 3.839647978200267*^9, 3.839658509920019*^9, - 3.839658570943411*^9, 3.8396586631123734`*^9, 3.839659272466856*^9, - 3.839664614021287*^9, {3.839664652345016*^9, 3.839664666597542*^9}, - 3.8396700459726963`*^9, 3.8396701283378963`*^9, 3.840526119860467*^9, { - 3.840527418667259*^9, 3.840527429779874*^9}, 3.84086945615972*^9, - 3.84087280687539*^9, {3.8408733223186903`*^9, 3.840873328365563*^9}, - 3.840873716061038*^9, 3.8408739037025757`*^9, 3.8411118231219463`*^9}, - CellLabel->"Out[40]=",ExpressionUUID->"cdd868c7-e9fb-4f97-be29-e39eac29e6c9"] -}, Open ]], - -Cell[BoxData[{ - RowBox[{ - RowBox[{"h4", "=", - RowBox[{"h", "[", "5", "]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{"eq4", "=", - RowBox[{ - RowBox[{"eqAround", "[", - RowBox[{"n3", ",", "h4"}], "]"}], "[", - RowBox[{"5", ",", - RowBox[{"-", "1"}], ",", "4"}], "]"}]}], ";"}]}], "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.8292187191121473`*^9, 3.829218728096401*^9}, {3.829368271117032*^9, - 3.829368275564617*^9}, {3.829368590178836*^9, 3.829368602514616*^9}, { - 3.8293691040200243`*^9, 3.829369115755772*^9}, {3.829371124208045*^9, - 3.829371128112094*^9}, {3.829371172664732*^9, 3.829371175472876*^9}, { - 3.829371420653515*^9, 3.829371423597522*^9}, {3.829384064739922*^9, - 3.829384089259829*^9}, {3.829643407111478*^9, 3.829643411151178*^9}, { - 3.829643514849144*^9, 3.829643518489065*^9}, {3.829643600090665*^9, - 3.8296436026505947`*^9}, {3.8296486222377*^9, 3.829648623181625*^9}, { - 3.8312015948291616`*^9, 3.831201598549038*^9}, {3.831201818353256*^9, - 3.831201820017289*^9}, {3.8312018555459843`*^9, 3.831201914138874*^9}, { - 3.8322384727513437`*^9, 3.832238476815104*^9}, {3.83715764073805*^9, - 3.837157644114128*^9}, {3.837157771404172*^9, 3.8371577736922073`*^9}, - 3.8388732416952*^9, {3.839578040990251*^9, 3.8395780450140142`*^9}, - 3.839582129914302*^9, {3.839582580602171*^9, 3.83958258280977*^9}, { - 3.8395827911257467`*^9, 3.839582791237772*^9}, {3.839583003721686*^9, - 3.8395830043374166`*^9}, {3.839585279498378*^9, 3.8395852923705273`*^9}, { - 3.839585466853951*^9, 3.839585474573823*^9}, {3.839588120582615*^9, - 3.8395881249346313`*^9}, {3.8395884394364033`*^9, 3.839588443652686*^9}, { - 3.839660888517267*^9, 3.839660890837171*^9}, {3.839666798801738*^9, - 3.839666800417699*^9}, {3.8408741661721153`*^9, 3.8408741766445427`*^9}, { - 3.8408746718137617`*^9, 3.840874682189743*^9}, {3.840874927714407*^9, - 3.840874929018146*^9}, {3.84087621970411*^9, 3.8408762209280252`*^9}, { - 3.840877786334343*^9, 3.84087781207976*^9}, {3.840883044425271*^9, - 3.8408830445130177`*^9}, {3.840883864904025*^9, 3.840883868544044*^9}, { - 3.841118811881289*^9, 3.84111881197705*^9}, {3.841121230282226*^9, - 3.841121230393928*^9}}, - CellLabel-> - "In[1656]:=",ExpressionUUID->"9c4c9c64-124e-41d7-9cb1-8289628e2e41"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"sol4", "=", - RowBox[{"untilSuccess", "[", - RowBox[{"newSol", "[", - RowBox[{ - RowBox[{"randomEval", "[", "eq4", "]"}], ",", "sol3", ",", - RowBox[{"{", - RowBox[{"gC", "[", "5", "]"}], "}"}], ",", - SuperscriptBox["10", - RowBox[{"-", "4"}]]}], "]"}], "]"}]}]], "Input", - CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, { - 3.8175614038617268`*^9, 3.817561415404965*^9}, {3.817561511096093*^9, - 3.817561563944231*^9}, {3.81756250196518*^9, 3.817562507914916*^9}, { - 3.817562967760625*^9, 3.81756298304041*^9}, 3.817563161460335*^9, { - 3.817563206558021*^9, 3.81756320676147*^9}, {3.817563530710863*^9, - 3.817563550054001*^9}, {3.817563775700533*^9, 3.817563804069632*^9}, { - 3.817563971222761*^9, 3.817564086350409*^9}, {3.817564155680212*^9, - 3.8175641623358994`*^9}, {3.81756424029494*^9, 3.817564240399859*^9}, { - 3.8175645416987743`*^9, 3.817564542202907*^9}, {3.817564715061411*^9, - 3.817564723202471*^9}, {3.8175648450855713`*^9, 3.817564883921851*^9}, { - 3.8175650025642157`*^9, 3.817565074155829*^9}, {3.817565217921039*^9, - 3.817565230520749*^9}, {3.817565359356901*^9, 3.8175654247402163`*^9}, { - 3.817565602697175*^9, 3.817565635407323*^9}, {3.817566059389201*^9, - 3.817566077942937*^9}, {3.817566269837482*^9, 3.817566273547044*^9}, { - 3.8175663066250553`*^9, 3.817566306784181*^9}, {3.817566684914805*^9, - 3.81756668549652*^9}, {3.817566919102108*^9, 3.817566934549343*^9}, { - 3.8175696638331223`*^9, 3.817569664744486*^9}, {3.817579706169273*^9, - 3.8175797767735577`*^9}, {3.817581067506674*^9, 3.8175810689721537`*^9}, { - 3.817581121371869*^9, 3.817581169115347*^9}, {3.817581207766066*^9, - 3.817581270669099*^9}, 3.817581309702499*^9, {3.817581355857291*^9, - 3.817581356026667*^9}, {3.817581392130506*^9, 3.817581416424316*^9}, { - 3.817581457365512*^9, 3.8175814943565397`*^9}, {3.81758152586852*^9, - 3.817581526654297*^9}, {3.8175819155874557`*^9, 3.81758195123713*^9}, { - 3.8175820720836487`*^9, 3.817582073079625*^9}, {3.817582192281794*^9, - 3.8175821927535973`*^9}, {3.8175824979646*^9, 3.817582531058486*^9}, { - 3.817582601242318*^9, 3.817582616669943*^9}, {3.817582763042087*^9, - 3.817582823261053*^9}, {3.817582997786705*^9, 3.817583024595161*^9}, { - 3.817584829987904*^9, 3.817584859074748*^9}, {3.81758494165969*^9, - 3.81758496226119*^9}, {3.81758499940244*^9, 3.8175849995669928`*^9}, { - 3.817585077390765*^9, 3.817585077573927*^9}, {3.817585156651001*^9, - 3.817585156823139*^9}, {3.817585322721836*^9, 3.817585349348461*^9}, { - 3.817585456385895*^9, 3.817585457280986*^9}, {3.817585513558703*^9, - 3.8175855137401114`*^9}, {3.817613675501788*^9, 3.817613676578967*^9}, { - 3.8176168804169617`*^9, 3.81761688926372*^9}, {3.817618774003889*^9, - 3.817618793385603*^9}, {3.8176190151288853`*^9, 3.817619038205636*^9}, - 3.8176190698677187`*^9, {3.817619141079945*^9, 3.8176191871342373`*^9}, { - 3.817619234638775*^9, 3.817619240400311*^9}, {3.817619299848545*^9, - 3.817619332922262*^9}, {3.817619399549685*^9, 3.817619401809965*^9}, { - 3.8176196502657223`*^9, 3.817619664950913*^9}, {3.817619740359915*^9, - 3.8176197551387*^9}, {3.81761980328899*^9, 3.8176198034943733`*^9}, { - 3.817620410694891*^9, 3.817620463869529*^9}, {3.817620674916114*^9, - 3.817620678055534*^9}, {3.817620745057685*^9, 3.817620761178657*^9}, { - 3.817626286376536*^9, 3.8176263645243196`*^9}, {3.817629112637333*^9, - 3.817629115136323*^9}, {3.817629250682312*^9, 3.817629259447815*^9}, { - 3.8176294333109083`*^9, 3.817629436163623*^9}, {3.817641032808353*^9, - 3.817641033101226*^9}, {3.817664188948728*^9, 3.817664189649652*^9}, { - 3.817664815999873*^9, 3.817664819955031*^9}, {3.817665075387652*^9, - 3.8176650759521837`*^9}, {3.817665115247237*^9, 3.817665115392807*^9}, { - 3.817665186844384*^9, 3.817665187022648*^9}, {3.817665325401506*^9, - 3.8176653256436853`*^9}, {3.817665620012444*^9, 3.8176656289311333`*^9}, { - 3.817666022150625*^9, 3.817666032733485*^9}, {3.817666540959165*^9, - 3.817666542789474*^9}, {3.825763749599124*^9, 3.825763789470828*^9}, { - 3.82576405360496*^9, 3.825764054939633*^9}, {3.826007455858286*^9, - 3.8260074763785057`*^9}, {3.8260077526573877`*^9, - 3.8260077642405243`*^9}, {3.826012574971777*^9, 3.826012607731414*^9}, { - 3.826012638420402*^9, 3.826012656916271*^9}, {3.826013377866149*^9, - 3.826013381529332*^9}, {3.8260134248909807`*^9, 3.8260134250580482`*^9}, { - 3.826013471603549*^9, 3.826013479731104*^9}, {3.8260142542578907`*^9, - 3.8260142815694523`*^9}, {3.826103080587652*^9, 3.826103110884009*^9}, { - 3.826272386944799*^9, 3.8262724058568172`*^9}, {3.826272577364773*^9, - 3.8262726301407547`*^9}, {3.8262730964295692`*^9, 3.826273105909152*^9}, { - 3.826273149742629*^9, 3.826273152269898*^9}, 3.826273264736801*^9, { - 3.8262734668440647`*^9, 3.826273466979476*^9}, {3.826273523852948*^9, - 3.8262735239166183`*^9}, {3.826273598326247*^9, 3.826273598414112*^9}, { - 3.8262736403749523`*^9, 3.826273646006681*^9}, {3.826689077467478*^9, - 3.826689117948354*^9}, {3.8266891488769283`*^9, 3.826689165069252*^9}, { - 3.826689316392604*^9, 3.826689327479848*^9}, {3.826689585957643*^9, - 3.8266895892288723`*^9}, {3.826689642374959*^9, 3.8266896530861063`*^9}, { - 3.826689991397007*^9, 3.826690014053174*^9}, {3.826690202392878*^9, - 3.826690203016962*^9}, {3.826690290674961*^9, 3.826690309938636*^9}, { - 3.826690353388789*^9, 3.8266903615409527`*^9}, {3.826690552655903*^9, - 3.826690573871529*^9}, {3.8266910770094233`*^9, 3.826691106753572*^9}, { - 3.826691453953046*^9, 3.826691456704123*^9}, {3.826691566042148*^9, - 3.826691580778328*^9}, 3.826691637140317*^9, {3.826691686196629*^9, - 3.8266916892040443`*^9}, 3.8267024091584463`*^9, {3.826704716161975*^9, - 3.826704719377363*^9}, 3.826704821811655*^9, {3.826704934254529*^9, - 3.82670493514916*^9}, 3.827313139667808*^9, 3.82731344328931*^9, { - 3.827313530930706*^9, 3.827313531074643*^9}, {3.827313648020673*^9, - 3.827313648404454*^9}, 3.827313930601613*^9, {3.827403795859744*^9, - 3.827403799331325*^9}, {3.827404407990917*^9, 3.8274044110385847`*^9}, { - 3.827404515849715*^9, 3.827404516008604*^9}, 3.8274045561855392`*^9, { - 3.827404728540772*^9, 3.827404795461753*^9}, {3.827405566388193*^9, - 3.82740557845172*^9}, 3.82740564622897*^9, {3.82740643693969*^9, - 3.827406439179371*^9}, {3.827410039890891*^9, 3.827410061081759*^9}, { - 3.827410104744341*^9, 3.8274101058397303`*^9}, {3.827468092811961*^9, - 3.8274680953874063`*^9}, {3.827481100871253*^9, 3.827481114943645*^9}, { - 3.8274817272909317`*^9, 3.827481737754497*^9}, {3.827481945727586*^9, - 3.827481949302575*^9}, {3.827484838890389*^9, 3.827484839529801*^9}, { - 3.827484895811178*^9, 3.8274849038187733`*^9}, {3.827484974996828*^9, - 3.827484977452355*^9}, {3.8275548920737123`*^9, 3.827554895257688*^9}, { - 3.82755495846808*^9, 3.827554992403337*^9}, {3.8275550675095177`*^9, - 3.827555094141191*^9}, {3.827555531557931*^9, 3.827555541909574*^9}, { - 3.827558586614328*^9, 3.827558626335005*^9}, {3.827558692856378*^9, - 3.827558718297015*^9}, {3.8275616201177397`*^9, 3.8275616237008038`*^9}, { - 3.8278304666636057`*^9, 3.827830499703677*^9}, {3.827830602882563*^9, - 3.827830606857448*^9}, {3.8278306535627747`*^9, 3.82783065715436*^9}, { - 3.827830716931963*^9, 3.827830726899715*^9}, {3.827831324127943*^9, - 3.8278313248465567`*^9}, {3.8278313735839767`*^9, 3.827831374279758*^9}, { - 3.827833117615872*^9, 3.827833140855818*^9}, {3.827833184112794*^9, - 3.827833212697111*^9}, {3.827833464637803*^9, 3.827833471917515*^9}, - 3.829121222146471*^9, 3.829121418301763*^9, {3.8291247244736977`*^9, - 3.8291247270577908`*^9}, {3.829211844661628*^9, 3.829211854852899*^9}, { - 3.8292126580682793`*^9, 3.829212675524225*^9}, {3.829213854986209*^9, - 3.829213857969493*^9}, {3.829213943083304*^9, 3.829213967523123*^9}, { - 3.829214031268794*^9, 3.829214040157639*^9}, {3.829214194263526*^9, - 3.8292142105916843`*^9}, {3.829217690414138*^9, 3.829217702270501*^9}, { - 3.8292178172969103`*^9, 3.8292178174562902`*^9}, {3.8292178775777473`*^9, - 3.8292178776889153`*^9}, {3.829218414474752*^9, 3.829218438363077*^9}, { - 3.829220129337493*^9, 3.8292201294411983`*^9}, {3.8293682811580133`*^9, - 3.829368281332857*^9}, {3.829368605771906*^9, 3.829368621818864*^9}, { - 3.829369119076646*^9, 3.829369124363988*^9}, {3.829371182626143*^9, - 3.8293711843451643`*^9}, {3.829371313731625*^9, 3.829371313827364*^9}, { - 3.829371427621697*^9, 3.829371428717615*^9}, {3.829384070852407*^9, - 3.829384092643899*^9}, {3.829643418496428*^9, 3.8296434455842133`*^9}, { - 3.829643520753277*^9, 3.829643521713008*^9}, {3.8371576505071573`*^9, - 3.837157650665916*^9}, {3.837157776052775*^9, 3.837157777100462*^9}, { - 3.8388732506235867`*^9, 3.8388732521915503`*^9}, {3.839578050294734*^9, - 3.839578051038322*^9}, {3.8395825963064623`*^9, 3.83958259649821*^9}, { - 3.8395830693390427`*^9, 3.839583069426901*^9}, {3.8395852963389807`*^9, - 3.839585296426599*^9}, {3.83958547866232*^9, 3.8395854803577147`*^9}, { - 3.839588131279149*^9, 3.839588136006947*^9}, {3.839588173951844*^9, - 3.839588173999587*^9}, {3.839588447469577*^9, 3.839588447644541*^9}, { - 3.839660892797814*^9, 3.839660893885312*^9}, {3.8396668026103373`*^9, - 3.839666805105959*^9}, {3.840873258515625*^9, 3.8408732872919407`*^9}, { - 3.840873492488338*^9, 3.8408735597530603`*^9}, {3.840874083251541*^9, - 3.840874083338933*^9}, {3.840874180140827*^9, 3.840874227677476*^9}, { - 3.84087432864777*^9, 3.840874328767509*^9}, {3.8408744442503033`*^9, - 3.840874444385651*^9}, {3.8408746853436337`*^9, 3.840874692878553*^9}, - 3.840874797914029*^9, {3.8408749314765*^9, 3.840874942506771*^9}, { - 3.840874977900097*^9, 3.8408749931635103`*^9}, {3.84087622368823*^9, - 3.8408762387364197`*^9}, 3.8408763896018763`*^9, {3.840877792608206*^9, - 3.840877795447135*^9}, {3.8408778592281733`*^9, 3.840877885493547*^9}, { - 3.840878181402994*^9, 3.840878181586419*^9}, {3.840878266102305*^9, - 3.840878271725408*^9}, 3.8408783404966707`*^9, 3.840878440667748*^9, { - 3.840878838845091*^9, 3.840878839020459*^9}, 3.840879117162724*^9, { - 3.840879297445998*^9, 3.840879301932947*^9}, {3.840883871985332*^9, - 3.8408838751040907`*^9}, {3.841118814993341*^9, 3.841118815057313*^9}, { - 3.8411212389947357`*^9, 3.841121239082143*^9}}, - CellLabel-> - "In[1681]:=",ExpressionUUID->"c064ead1-9313-4f6d-ad22-1d8fa2a064d7"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]c", "\[Rule]", - RowBox[{"1.4117395580696523`", "\[VeryThinSpace]", "+", - RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", - RowBox[{"\[Theta]0", "\[Rule]", - RowBox[{"0.19869286374349376`", "\[VeryThinSpace]", "+", - RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "0", "]"}], "\[Rule]", - RowBox[{"1.2826149579289967`", "\[VeryThinSpace]", "+", - RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{ - RowBox[{"-", "2.3912994423235294`"}], "+", - RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", - RowBox[{"1.493605918600496`", "\[VeryThinSpace]", "+", - RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", - RowBox[{"0.29885955081579824`", "\[VeryThinSpace]", "+", - RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{ - RowBox[{"-", "0.06901340485798871`"}], "+", - RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", - RowBox[{"0.010139578905579661`", "\[VeryThinSpace]", "+", - RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{ - RowBox[{"-", "0.002413046382282966`"}], "+", - RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", - RowBox[{"0.00047615283072139345`", "\[VeryThinSpace]", "+", - RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{ - RowBox[{"-", "0.00005262631807933723`"}], "+", - RowBox[{"0.`", " ", "\[ImaginaryI]"}]}]}]}], "}"}]], "Output", - CellChangeTimes->{ - 3.831201605199861*^9, 3.831201825134141*^9, {3.8312018720267353`*^9, - 3.831201915036397*^9}, 3.832134253764925*^9, 3.832134528590658*^9, { - 3.8322384926311703`*^9, 3.83223850323409*^9}, 3.837157647362878*^9, - 3.837157742587923*^9, 3.8371577779839277`*^9, 3.838873252487184*^9, - 3.839578056652884*^9, 3.8395796666883802`*^9, 3.8395803511865263`*^9, - 3.839581563336719*^9, 3.839581620994813*^9, 3.8395821350745487`*^9, - 3.839582593114229*^9, 3.8395827407540617`*^9, {3.83958306555308*^9, - 3.839583084195985*^9}, {3.839585293521529*^9, 3.839585296700117*^9}, { - 3.839585480885418*^9, 3.8395854985146217`*^9}, {3.839588154524723*^9, - 3.839588172244381*^9}, {3.839588425469323*^9, 3.839588447864441*^9}, { - 3.8396608865671663`*^9, 3.839660894906348*^9}, 3.839668240633337*^9, - 3.8396702357793503`*^9, {3.840873332724812*^9, 3.8408733466984158`*^9}, - 3.840873492382749*^9, 3.8408736098642282`*^9, 3.84087400915982*^9, - 3.840874084283777*^9, {3.840874210185948*^9, 3.840874230173469*^9}, - 3.84087434405976*^9, 3.8408744165981894`*^9, 3.8408745651427717`*^9, - 3.840874796232787*^9, 3.8408748453035307`*^9, {3.840874947777791*^9, - 3.840874951935646*^9}, {3.8408749839142*^9, 3.8408750069744368`*^9}, - 3.8408763521405907`*^9, {3.840876395855551*^9, 3.8408764129069366`*^9}, { - 3.84087646726019*^9, 3.840876520888062*^9}, {3.840877816432467*^9, - 3.840877861251272*^9}, 3.840877926962044*^9, 3.8408782623037977`*^9, - 3.84087833859389*^9, 3.840878394358122*^9, 3.840878548716836*^9, - 3.840878863502963*^9, 3.840879114820155*^9, 3.840879259239955*^9, - 3.840879310015482*^9, 3.8408793558681393`*^9, {3.840879853962037*^9, - 3.840879889178216*^9}, 3.840880300399547*^9, 3.840881270737401*^9, - 3.840881306956069*^9, 3.840881921442917*^9, 3.840882050970585*^9, - 3.840883048928095*^9, {3.840883876018125*^9, 3.840883879066766*^9}, { - 3.8408854209984694`*^9, 3.840885430696451*^9}, {3.841111828508854*^9, - 3.8411118304876947`*^9}, {3.841112750523884*^9, 3.841112758438922*^9}, { - 3.841112806086995*^9, 3.841112809081396*^9}, 3.841114316496046*^9, - 3.841115288155711*^9, {3.841115346834951*^9, 3.8411153583151693`*^9}, { - 3.8411160372277803`*^9, 3.841116040093446*^9}, 3.841116303264008*^9, - 3.8411168566811*^9, {3.841117701213821*^9, 3.841117713081986*^9}, { - 3.841118809529462*^9, 3.841118815478491*^9}, 3.84111943193326*^9, - 3.841120220574181*^9, 3.841121239631013*^9, {3.841121806340199*^9, - 3.841121812924934*^9}, {3.841121872151991*^9, 3.841121873901416*^9}}, - CellLabel-> - "Out[1681]=",ExpressionUUID->"494d85db-217e-4aad-b205-5ec4b2407178"] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"sol4s", "=", - RowBox[{"Table", "[", - RowBox[{ - RowBox[{"untilSuccess", "[", - RowBox[{"newSol", "[", - RowBox[{ - RowBox[{"randomEval", "[", "eq4", "]"}], ",", "sol4", ",", - RowBox[{"{", "}"}], ",", "0", ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}], "]"}], ",", - RowBox[{"{", "100", "}"}]}], "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, { - 3.8175614038617268`*^9, 3.817561415404965*^9}, {3.817561511096093*^9, - 3.817561563944231*^9}, {3.81756250196518*^9, 3.817562507914916*^9}, { - 3.817562967760625*^9, 3.81756298304041*^9}, 3.817563161460335*^9, { - 3.817563206558021*^9, 3.81756320676147*^9}, {3.817563530710863*^9, - 3.817563550054001*^9}, {3.817563775700533*^9, 3.817563804069632*^9}, { - 3.817563971222761*^9, 3.817564086350409*^9}, {3.817564155680212*^9, - 3.8175641623358994`*^9}, {3.81756424029494*^9, 3.817564240399859*^9}, { - 3.8175645416987743`*^9, 3.817564542202907*^9}, {3.817564715061411*^9, - 3.817564723202471*^9}, {3.8175648450855713`*^9, 3.817564883921851*^9}, { - 3.8175650025642157`*^9, 3.817565074155829*^9}, {3.817565217921039*^9, - 3.817565230520749*^9}, {3.817565359356901*^9, 3.8175654247402163`*^9}, { - 3.817565602697175*^9, 3.817565635407323*^9}, {3.817566059389201*^9, - 3.817566077942937*^9}, {3.817566269837482*^9, 3.817566273547044*^9}, { - 3.8175663066250553`*^9, 3.817566306784181*^9}, {3.817566684914805*^9, - 3.81756668549652*^9}, {3.817566919102108*^9, 3.817566934549343*^9}, { - 3.8175696638331223`*^9, 3.817569664744486*^9}, {3.817579706169273*^9, - 3.8175797767735577`*^9}, {3.817581067506674*^9, 3.8175810689721537`*^9}, { - 3.817581121371869*^9, 3.817581169115347*^9}, {3.817581207766066*^9, - 3.817581270669099*^9}, 3.817581309702499*^9, {3.817581355857291*^9, - 3.817581356026667*^9}, {3.817581392130506*^9, 3.817581416424316*^9}, { - 3.817581457365512*^9, 3.8175814943565397`*^9}, {3.81758152586852*^9, - 3.817581526654297*^9}, {3.8175819155874557`*^9, 3.81758195123713*^9}, { - 3.8175820720836487`*^9, 3.817582073079625*^9}, {3.817582192281794*^9, - 3.8175821927535973`*^9}, {3.8175824979646*^9, 3.817582531058486*^9}, { - 3.817582601242318*^9, 3.817582616669943*^9}, {3.817582763042087*^9, - 3.817582823261053*^9}, {3.817582997786705*^9, 3.817583024595161*^9}, { - 3.817584829987904*^9, 3.817584859074748*^9}, {3.81758494165969*^9, - 3.81758496226119*^9}, {3.81758499940244*^9, 3.8175849995669928`*^9}, { - 3.817585077390765*^9, 3.817585077573927*^9}, {3.817585156651001*^9, - 3.817585156823139*^9}, {3.817585322721836*^9, 3.817585349348461*^9}, { - 3.817585456385895*^9, 3.817585457280986*^9}, {3.817585513558703*^9, - 3.8175855137401114`*^9}, {3.817613675501788*^9, 3.817613676578967*^9}, { - 3.8176168804169617`*^9, 3.81761688926372*^9}, {3.817618774003889*^9, - 3.817618793385603*^9}, {3.8176190151288853`*^9, 3.817619038205636*^9}, - 3.8176190698677187`*^9, {3.817619141079945*^9, 3.8176191871342373`*^9}, { - 3.817619234638775*^9, 3.817619240400311*^9}, {3.817619299848545*^9, - 3.817619332922262*^9}, {3.817619399549685*^9, 3.817619401809965*^9}, { - 3.8176196502657223`*^9, 3.817619664950913*^9}, {3.817619740359915*^9, - 3.8176197551387*^9}, {3.81761980328899*^9, 3.8176198034943733`*^9}, { - 3.817620410694891*^9, 3.817620463869529*^9}, {3.817620674916114*^9, - 3.817620678055534*^9}, {3.817620745057685*^9, 3.817620761178657*^9}, { - 3.817626286376536*^9, 3.8176263645243196`*^9}, {3.817629112637333*^9, - 3.817629115136323*^9}, {3.817629250682312*^9, 3.817629259447815*^9}, { - 3.8176294333109083`*^9, 3.817629436163623*^9}, {3.817641032808353*^9, - 3.817641033101226*^9}, {3.817664188948728*^9, 3.817664189649652*^9}, { - 3.817664815999873*^9, 3.817664819955031*^9}, {3.817665075387652*^9, - 3.8176650759521837`*^9}, {3.817665115247237*^9, 3.817665115392807*^9}, { - 3.817665186844384*^9, 3.817665187022648*^9}, {3.817665325401506*^9, - 3.8176653256436853`*^9}, {3.817665620012444*^9, 3.8176656289311333`*^9}, { - 3.817666022150625*^9, 3.817666032733485*^9}, {3.817666540959165*^9, - 3.817666542789474*^9}, {3.825763749599124*^9, 3.825763789470828*^9}, { - 3.82576405360496*^9, 3.825764054939633*^9}, {3.826007455858286*^9, - 3.8260074763785057`*^9}, {3.8260077526573877`*^9, - 3.8260077642405243`*^9}, {3.826012574971777*^9, 3.826012607731414*^9}, { - 3.826012638420402*^9, 3.826012656916271*^9}, {3.826013377866149*^9, - 3.826013381529332*^9}, {3.8260134248909807`*^9, 3.8260134250580482`*^9}, { - 3.826013471603549*^9, 3.826013479731104*^9}, {3.8260142542578907`*^9, - 3.8260142815694523`*^9}, {3.826103080587652*^9, 3.826103110884009*^9}, { - 3.826272386944799*^9, 3.8262724058568172`*^9}, {3.826272577364773*^9, - 3.8262726301407547`*^9}, {3.8262730964295692`*^9, 3.826273105909152*^9}, { - 3.826273149742629*^9, 3.826273152269898*^9}, 3.826273264736801*^9, { - 3.8262734668440647`*^9, 3.826273466979476*^9}, {3.826273523852948*^9, - 3.8262735239166183`*^9}, {3.826273598326247*^9, 3.826273598414112*^9}, { - 3.8262736403749523`*^9, 3.826273646006681*^9}, {3.826689077467478*^9, - 3.826689117948354*^9}, {3.8266891488769283`*^9, 3.826689165069252*^9}, { - 3.826689316392604*^9, 3.826689327479848*^9}, {3.826689585957643*^9, - 3.8266895892288723`*^9}, {3.826689642374959*^9, 3.8266896530861063`*^9}, { - 3.826689991397007*^9, 3.826690014053174*^9}, {3.826690202392878*^9, - 3.826690203016962*^9}, {3.826690290674961*^9, 3.826690309938636*^9}, { - 3.826690353388789*^9, 3.8266903615409527`*^9}, {3.826690552655903*^9, - 3.826690573871529*^9}, {3.8266910770094233`*^9, 3.826691106753572*^9}, { - 3.826691453953046*^9, 3.826691456704123*^9}, {3.826691566042148*^9, - 3.826691580778328*^9}, 3.826691637140317*^9, {3.826691686196629*^9, - 3.8266916892040443`*^9}, 3.8267024091584463`*^9, {3.826704716161975*^9, - 3.826704719377363*^9}, 3.826704821811655*^9, {3.826704934254529*^9, - 3.82670493514916*^9}, 3.827313139667808*^9, 3.82731344328931*^9, { - 3.827313530930706*^9, 3.827313531074643*^9}, {3.827313648020673*^9, - 3.827313648404454*^9}, 3.827313930601613*^9, {3.827403795859744*^9, - 3.827403799331325*^9}, {3.827404407990917*^9, 3.8274044110385847`*^9}, { - 3.827404515849715*^9, 3.827404516008604*^9}, 3.8274045561855392`*^9, { - 3.827404728540772*^9, 3.827404795461753*^9}, {3.827405566388193*^9, - 3.82740557845172*^9}, 3.82740564622897*^9, {3.82740643693969*^9, - 3.827406439179371*^9}, {3.827410039890891*^9, 3.827410061081759*^9}, { - 3.827410104744341*^9, 3.8274101058397303`*^9}, {3.827468092811961*^9, - 3.8274680953874063`*^9}, {3.827481100871253*^9, 3.827481114943645*^9}, { - 3.8274817272909317`*^9, 3.827481737754497*^9}, {3.827481945727586*^9, - 3.827481949302575*^9}, {3.827484838890389*^9, 3.827484839529801*^9}, { - 3.827484895811178*^9, 3.8274849038187733`*^9}, {3.827484974996828*^9, - 3.827484977452355*^9}, {3.8275548920737123`*^9, 3.827554895257688*^9}, { - 3.82755495846808*^9, 3.827554992403337*^9}, {3.8275550675095177`*^9, - 3.827555094141191*^9}, {3.827555531557931*^9, 3.827555541909574*^9}, { - 3.827558586614328*^9, 3.827558626335005*^9}, {3.827558692856378*^9, - 3.827558718297015*^9}, {3.8275616201177397`*^9, 3.8275616237008038`*^9}, { - 3.8278304666636057`*^9, 3.827830499703677*^9}, {3.827830602882563*^9, - 3.827830606857448*^9}, {3.8278306535627747`*^9, 3.82783065715436*^9}, { - 3.827830716931963*^9, 3.827830726899715*^9}, {3.827831324127943*^9, - 3.8278313248465567`*^9}, {3.8278313735839767`*^9, 3.827831374279758*^9}, { - 3.827833117615872*^9, 3.827833140855818*^9}, {3.827833184112794*^9, - 3.827833212697111*^9}, {3.827833464637803*^9, 3.827833471917515*^9}, - 3.829121222146471*^9, 3.829121418301763*^9, {3.8291247244736977`*^9, - 3.8291247270577908`*^9}, {3.829211844661628*^9, 3.829211854852899*^9}, { - 3.8292126580682793`*^9, 3.829212675524225*^9}, {3.829213854986209*^9, - 3.829213857969493*^9}, {3.829213943083304*^9, 3.829213967523123*^9}, { - 3.829214031268794*^9, 3.829214040157639*^9}, {3.829214194263526*^9, - 3.8292142105916843`*^9}, {3.829217690414138*^9, 3.829217702270501*^9}, { - 3.8292178172969103`*^9, 3.8292178174562902`*^9}, {3.8292178775777473`*^9, - 3.8292178776889153`*^9}, {3.829218414474752*^9, 3.829218438363077*^9}, { - 3.829220129337493*^9, 3.8292201294411983`*^9}, {3.8293682811580133`*^9, - 3.829368281332857*^9}, {3.829368605771906*^9, 3.829368621818864*^9}, { - 3.829369119076646*^9, 3.829369124363988*^9}, {3.829371182626143*^9, - 3.8293711843451643`*^9}, {3.829371313731625*^9, 3.829371313827364*^9}, { - 3.829371427621697*^9, 3.829371428717615*^9}, {3.829384070852407*^9, - 3.829384092643899*^9}, {3.829643418496428*^9, 3.8296434455842133`*^9}, { - 3.829643520753277*^9, 3.829643521713008*^9}, {3.8371576505071573`*^9, - 3.837157650665916*^9}, {3.837157776052775*^9, 3.837157777100462*^9}, { - 3.8388732506235867`*^9, 3.8388732521915503`*^9}, {3.839578050294734*^9, - 3.839578051038322*^9}, {3.8395825963064623`*^9, 3.83958259649821*^9}, { - 3.8395830693390427`*^9, 3.839583069426901*^9}, {3.8395852963389807`*^9, - 3.839585296426599*^9}, {3.83958547866232*^9, 3.8395854803577147`*^9}, { - 3.839588131279149*^9, 3.839588136006947*^9}, {3.839588173951844*^9, - 3.839588173999587*^9}, {3.839588447469577*^9, 3.839588447644541*^9}, { - 3.839660892797814*^9, 3.839660893885312*^9}, {3.8396668026103373`*^9, - 3.839666805105959*^9}, {3.840873258515625*^9, 3.8408732872919407`*^9}, { - 3.840873492488338*^9, 3.8408735597530603`*^9}, {3.840874083251541*^9, - 3.840874083338933*^9}, {3.840874180140827*^9, 3.840874227677476*^9}, { - 3.84087432864777*^9, 3.840874328767509*^9}, {3.8408744442503033`*^9, - 3.840874444385651*^9}, {3.8408746853436337`*^9, 3.840874692878553*^9}, - 3.840874797914029*^9, {3.8408749314765*^9, 3.840874942506771*^9}, { - 3.840874977900097*^9, 3.8408749931635103`*^9}, {3.84087622368823*^9, - 3.8408762387364197`*^9}, 3.8408763896018763`*^9, {3.840877792608206*^9, - 3.840877795447135*^9}, {3.8408778592281733`*^9, 3.840877885493547*^9}, { - 3.840878181402994*^9, 3.840878181586419*^9}, {3.840878266102305*^9, - 3.840878271725408*^9}, 3.8408783404966707`*^9, 3.840878440667748*^9, { - 3.840878838845091*^9, 3.840878839020459*^9}, 3.840879117162724*^9, { - 3.840879297445998*^9, 3.840879301932947*^9}, {3.840879857592433*^9, - 3.840879897057768*^9}, {3.840879962332583*^9, 3.840879971131699*^9}, { - 3.84088016984144*^9, 3.840880169984741*^9}, {3.8408804361907*^9, - 3.840880438854496*^9}, {3.8408804716073627`*^9, 3.84088047215141*^9}, { - 3.840881266814456*^9, 3.8408812668778267`*^9}, {3.840881652317563*^9, - 3.840881652492755*^9}, {3.840882120375183*^9, 3.8408821204708433`*^9}, { - 3.840883057809432*^9, 3.840883058457266*^9}, {3.840885443870175*^9, - 3.840885444541876*^9}, {3.841112814818866*^9, 3.841112815057917*^9}, - 3.841117717467783*^9}, - CellLabel-> - "In[1549]:=",ExpressionUUID->"61fa25c7-e86f-432a-ae70-b977d030812b"], - -Cell[BoxData[{ - RowBox[{ - RowBox[{"h5", "=", - RowBox[{"h", "[", "7", "]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{"eq5", "=", - RowBox[{ - RowBox[{"eqAround", "[", - RowBox[{"2", ",", "h5"}], "]"}], "[", - RowBox[{"6", ",", - RowBox[{"-", "1"}], ",", "6"}], "]"}]}], ";"}]}], "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.8292187191121473`*^9, 3.829218728096401*^9}, {3.829368271117032*^9, - 3.829368275564617*^9}, {3.829368590178836*^9, 3.829368602514616*^9}, { - 3.8293691040200243`*^9, 3.829369115755772*^9}, {3.829371124208045*^9, - 3.829371128112094*^9}, {3.829371172664732*^9, 3.829371175472876*^9}, { - 3.829371420653515*^9, 3.829371423597522*^9}, {3.829384064739922*^9, - 3.829384089259829*^9}, {3.829643407111478*^9, 3.829643411151178*^9}, { - 3.829643514849144*^9, 3.829643518489065*^9}, {3.829643600090665*^9, - 3.8296436026505947`*^9}, {3.8296486222377*^9, 3.829648623181625*^9}, { - 3.8312015948291616`*^9, 3.831201598549038*^9}, {3.831201818353256*^9, - 3.831201820017289*^9}, {3.8312018555459843`*^9, 3.831201914138874*^9}, { - 3.8322384727513437`*^9, 3.832238476815104*^9}, {3.83715764073805*^9, - 3.837157644114128*^9}, {3.837157771404172*^9, 3.8371577736922073`*^9}, - 3.8388732416952*^9, {3.839578040990251*^9, 3.8395780450140142`*^9}, - 3.839582129914302*^9, {3.839582580602171*^9, 3.83958258280977*^9}, { - 3.8395827911257467`*^9, 3.839582791237772*^9}, {3.839583003721686*^9, - 3.8395830043374166`*^9}, {3.839585279498378*^9, 3.8395852923705273`*^9}, { - 3.839585466853951*^9, 3.839585474573823*^9}, {3.839588120582615*^9, - 3.8395881249346313`*^9}, {3.8395884394364033`*^9, 3.839588443652686*^9}, { - 3.839660888517267*^9, 3.839660890837171*^9}, {3.839666798801738*^9, - 3.839666800417699*^9}, {3.8408741661721153`*^9, 3.8408741766445427`*^9}, { - 3.8408746718137617`*^9, 3.840874682189743*^9}, {3.840874927714407*^9, - 3.840874929018146*^9}, {3.84087621970411*^9, 3.8408762209280252`*^9}, { - 3.840876571289485*^9, 3.8408765733452578`*^9}, {3.8408786017269917`*^9, - 3.840878613616726*^9}, {3.840883100314126*^9, 3.8408831013620377`*^9}, { - 3.840883922401342*^9, 3.840883928625457*^9}, {3.841115408326482*^9, - 3.8411154137503567`*^9}, {3.841115461143017*^9, 3.84111546368705*^9}, { - 3.84111885871369*^9, 3.8411188592734327`*^9}, {3.841120515941846*^9, - 3.8411205212054567`*^9}, {3.8411207871550694`*^9, - 3.8411207925788193`*^9}, {3.8411210424476023`*^9, 3.841121077207542*^9}, { - 3.841121281474897*^9, 3.8411212855228148`*^9}}, - CellLabel-> - "In[1550]:=",ExpressionUUID->"d1ebd730-d866-4e37-97ba-5842789968e1"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"sol5", "=", - RowBox[{"untilSuccess", "[", - RowBox[{"newSol", "[", - RowBox[{ - RowBox[{"randomEval", "[", "eq5", "]"}], ",", "sol4", ",", - RowBox[{"{", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], ",", - RowBox[{"gC", "[", "7", "]"}]}], "}"}], ",", - SuperscriptBox["10", - RowBox[{"-", "4"}]]}], "]"}], "]"}]}]], "Input", - CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, { - 3.8175614038617268`*^9, 3.817561415404965*^9}, {3.817561511096093*^9, - 3.817561563944231*^9}, {3.81756250196518*^9, 3.817562507914916*^9}, { - 3.817562967760625*^9, 3.81756298304041*^9}, 3.817563161460335*^9, { - 3.817563206558021*^9, 3.81756320676147*^9}, {3.817563530710863*^9, - 3.817563550054001*^9}, {3.817563775700533*^9, 3.817563804069632*^9}, { - 3.817563971222761*^9, 3.817564086350409*^9}, {3.817564155680212*^9, - 3.8175641623358994`*^9}, {3.81756424029494*^9, 3.817564240399859*^9}, { - 3.8175645416987743`*^9, 3.817564542202907*^9}, {3.817564715061411*^9, - 3.817564723202471*^9}, {3.8175648450855713`*^9, 3.817564883921851*^9}, { - 3.8175650025642157`*^9, 3.817565074155829*^9}, {3.817565217921039*^9, - 3.817565230520749*^9}, {3.817565359356901*^9, 3.8175654247402163`*^9}, { - 3.817565602697175*^9, 3.817565635407323*^9}, {3.817566059389201*^9, - 3.817566077942937*^9}, {3.817566269837482*^9, 3.817566273547044*^9}, { - 3.8175663066250553`*^9, 3.817566306784181*^9}, {3.817566684914805*^9, - 3.81756668549652*^9}, {3.817566919102108*^9, 3.817566934549343*^9}, { - 3.8175696638331223`*^9, 3.817569664744486*^9}, {3.817579706169273*^9, - 3.8175797767735577`*^9}, {3.817581067506674*^9, 3.8175810689721537`*^9}, { - 3.817581121371869*^9, 3.817581169115347*^9}, {3.817581207766066*^9, - 3.817581270669099*^9}, 3.817581309702499*^9, {3.817581355857291*^9, - 3.817581356026667*^9}, {3.817581392130506*^9, 3.817581416424316*^9}, { - 3.817581457365512*^9, 3.8175814943565397`*^9}, {3.81758152586852*^9, - 3.817581526654297*^9}, {3.8175819155874557`*^9, 3.81758195123713*^9}, { - 3.8175820720836487`*^9, 3.817582073079625*^9}, {3.817582192281794*^9, - 3.8175821927535973`*^9}, {3.8175824979646*^9, 3.817582531058486*^9}, { - 3.817582601242318*^9, 3.817582616669943*^9}, {3.817582763042087*^9, - 3.817582823261053*^9}, {3.817582997786705*^9, 3.817583024595161*^9}, { - 3.817584829987904*^9, 3.817584859074748*^9}, {3.81758494165969*^9, - 3.81758496226119*^9}, {3.81758499940244*^9, 3.8175849995669928`*^9}, { - 3.817585077390765*^9, 3.817585077573927*^9}, {3.817585156651001*^9, - 3.817585156823139*^9}, {3.817585322721836*^9, 3.817585349348461*^9}, { - 3.817585456385895*^9, 3.817585457280986*^9}, {3.817585513558703*^9, - 3.8175855137401114`*^9}, {3.817613675501788*^9, 3.817613676578967*^9}, { - 3.8176168804169617`*^9, 3.81761688926372*^9}, {3.817618774003889*^9, - 3.817618793385603*^9}, {3.8176190151288853`*^9, 3.817619038205636*^9}, - 3.8176190698677187`*^9, {3.817619141079945*^9, 3.8176191871342373`*^9}, { - 3.817619234638775*^9, 3.817619240400311*^9}, {3.817619299848545*^9, - 3.817619332922262*^9}, {3.817619399549685*^9, 3.817619401809965*^9}, { - 3.8176196502657223`*^9, 3.817619664950913*^9}, {3.817619740359915*^9, - 3.8176197551387*^9}, {3.81761980328899*^9, 3.8176198034943733`*^9}, { - 3.817620410694891*^9, 3.817620463869529*^9}, {3.817620674916114*^9, - 3.817620678055534*^9}, {3.817620745057685*^9, 3.817620761178657*^9}, { - 3.817626286376536*^9, 3.8176263645243196`*^9}, {3.817629112637333*^9, - 3.817629115136323*^9}, {3.817629250682312*^9, 3.817629259447815*^9}, { - 3.8176294333109083`*^9, 3.817629436163623*^9}, {3.817641032808353*^9, - 3.817641033101226*^9}, {3.817664188948728*^9, 3.817664189649652*^9}, { - 3.817664815999873*^9, 3.817664819955031*^9}, {3.817665075387652*^9, - 3.8176650759521837`*^9}, {3.817665115247237*^9, 3.817665115392807*^9}, { - 3.817665186844384*^9, 3.817665187022648*^9}, {3.817665325401506*^9, - 3.8176653256436853`*^9}, {3.817665620012444*^9, 3.8176656289311333`*^9}, { - 3.817666022150625*^9, 3.817666032733485*^9}, {3.817666540959165*^9, - 3.817666542789474*^9}, {3.825763749599124*^9, 3.825763789470828*^9}, { - 3.82576405360496*^9, 3.825764054939633*^9}, {3.826007455858286*^9, - 3.8260074763785057`*^9}, {3.8260077526573877`*^9, - 3.8260077642405243`*^9}, {3.826012574971777*^9, 3.826012607731414*^9}, { - 3.826012638420402*^9, 3.826012656916271*^9}, {3.826013377866149*^9, - 3.826013381529332*^9}, {3.8260134248909807`*^9, 3.8260134250580482`*^9}, { - 3.826013471603549*^9, 3.826013479731104*^9}, {3.8260142542578907`*^9, - 3.8260142815694523`*^9}, {3.826103080587652*^9, 3.826103110884009*^9}, { - 3.826272386944799*^9, 3.8262724058568172`*^9}, {3.826272577364773*^9, - 3.8262726301407547`*^9}, {3.8262730964295692`*^9, 3.826273105909152*^9}, { - 3.826273149742629*^9, 3.826273152269898*^9}, 3.826273264736801*^9, { - 3.8262734668440647`*^9, 3.826273466979476*^9}, {3.826273523852948*^9, - 3.8262735239166183`*^9}, {3.826273598326247*^9, 3.826273598414112*^9}, { - 3.8262736403749523`*^9, 3.826273646006681*^9}, {3.826689077467478*^9, - 3.826689117948354*^9}, {3.8266891488769283`*^9, 3.826689165069252*^9}, { - 3.826689316392604*^9, 3.826689327479848*^9}, {3.826689585957643*^9, - 3.8266895892288723`*^9}, {3.826689642374959*^9, 3.8266896530861063`*^9}, { - 3.826689991397007*^9, 3.826690014053174*^9}, {3.826690202392878*^9, - 3.826690203016962*^9}, {3.826690290674961*^9, 3.826690309938636*^9}, { - 3.826690353388789*^9, 3.8266903615409527`*^9}, {3.826690552655903*^9, - 3.826690573871529*^9}, {3.8266910770094233`*^9, 3.826691106753572*^9}, { - 3.826691453953046*^9, 3.826691456704123*^9}, {3.826691566042148*^9, - 3.826691580778328*^9}, 3.826691637140317*^9, {3.826691686196629*^9, - 3.8266916892040443`*^9}, 3.8267024091584463`*^9, {3.826704716161975*^9, - 3.826704719377363*^9}, 3.826704821811655*^9, {3.826704934254529*^9, - 3.82670493514916*^9}, 3.827313139667808*^9, 3.82731344328931*^9, { - 3.827313530930706*^9, 3.827313531074643*^9}, {3.827313648020673*^9, - 3.827313648404454*^9}, 3.827313930601613*^9, {3.827403795859744*^9, - 3.827403799331325*^9}, {3.827404407990917*^9, 3.8274044110385847`*^9}, { - 3.827404515849715*^9, 3.827404516008604*^9}, 3.8274045561855392`*^9, { - 3.827404728540772*^9, 3.827404795461753*^9}, {3.827405566388193*^9, - 3.82740557845172*^9}, 3.82740564622897*^9, {3.82740643693969*^9, - 3.827406439179371*^9}, {3.827410039890891*^9, 3.827410061081759*^9}, { - 3.827410104744341*^9, 3.8274101058397303`*^9}, {3.827468092811961*^9, - 3.8274680953874063`*^9}, {3.827481100871253*^9, 3.827481114943645*^9}, { - 3.8274817272909317`*^9, 3.827481737754497*^9}, {3.827481945727586*^9, - 3.827481949302575*^9}, {3.827484838890389*^9, 3.827484839529801*^9}, { - 3.827484895811178*^9, 3.8274849038187733`*^9}, {3.827484974996828*^9, - 3.827484977452355*^9}, {3.8275548920737123`*^9, 3.827554895257688*^9}, { - 3.82755495846808*^9, 3.827554992403337*^9}, {3.8275550675095177`*^9, - 3.827555094141191*^9}, {3.827555531557931*^9, 3.827555541909574*^9}, { - 3.827558586614328*^9, 3.827558626335005*^9}, {3.827558692856378*^9, - 3.827558718297015*^9}, {3.8275616201177397`*^9, 3.8275616237008038`*^9}, { - 3.8278304666636057`*^9, 3.827830499703677*^9}, {3.827830602882563*^9, - 3.827830606857448*^9}, {3.8278306535627747`*^9, 3.82783065715436*^9}, { - 3.827830716931963*^9, 3.827830726899715*^9}, {3.827831324127943*^9, - 3.8278313248465567`*^9}, {3.8278313735839767`*^9, 3.827831374279758*^9}, { - 3.827833117615872*^9, 3.827833140855818*^9}, {3.827833184112794*^9, - 3.827833212697111*^9}, {3.827833464637803*^9, 3.827833471917515*^9}, - 3.829121222146471*^9, 3.829121418301763*^9, {3.8291247244736977`*^9, - 3.8291247270577908`*^9}, {3.829211844661628*^9, 3.829211854852899*^9}, { - 3.8292126580682793`*^9, 3.829212675524225*^9}, {3.829213854986209*^9, - 3.829213857969493*^9}, {3.829213943083304*^9, 3.829213967523123*^9}, { - 3.829214031268794*^9, 3.829214040157639*^9}, {3.829214194263526*^9, - 3.8292142105916843`*^9}, {3.829217690414138*^9, 3.829217702270501*^9}, { - 3.8292178172969103`*^9, 3.8292178174562902`*^9}, {3.8292178775777473`*^9, - 3.8292178776889153`*^9}, {3.829218414474752*^9, 3.829218438363077*^9}, { - 3.829220129337493*^9, 3.8292201294411983`*^9}, {3.8293682811580133`*^9, - 3.829368281332857*^9}, {3.829368605771906*^9, 3.829368621818864*^9}, { - 3.829369119076646*^9, 3.829369124363988*^9}, {3.829371182626143*^9, - 3.8293711843451643`*^9}, {3.829371313731625*^9, 3.829371313827364*^9}, { - 3.829371427621697*^9, 3.829371428717615*^9}, {3.829384070852407*^9, - 3.829384092643899*^9}, {3.829643418496428*^9, 3.8296434455842133`*^9}, { - 3.829643520753277*^9, 3.829643521713008*^9}, {3.8371576505071573`*^9, - 3.837157650665916*^9}, {3.837157776052775*^9, 3.837157777100462*^9}, { - 3.8388732506235867`*^9, 3.8388732521915503`*^9}, {3.839578050294734*^9, - 3.839578051038322*^9}, {3.8395825963064623`*^9, 3.83958259649821*^9}, { - 3.8395830693390427`*^9, 3.839583069426901*^9}, {3.8395852963389807`*^9, - 3.839585296426599*^9}, {3.83958547866232*^9, 3.8395854803577147`*^9}, { - 3.839588131279149*^9, 3.839588136006947*^9}, {3.839588173951844*^9, - 3.839588173999587*^9}, {3.839588447469577*^9, 3.839588447644541*^9}, { - 3.839660892797814*^9, 3.839660893885312*^9}, {3.8396668026103373`*^9, - 3.839666805105959*^9}, {3.840873258515625*^9, 3.8408732872919407`*^9}, { - 3.840873492488338*^9, 3.8408735597530603`*^9}, {3.840874083251541*^9, - 3.840874083338933*^9}, {3.840874180140827*^9, 3.840874227677476*^9}, { - 3.84087432864777*^9, 3.840874328767509*^9}, {3.8408744442503033`*^9, - 3.840874444385651*^9}, {3.8408746853436337`*^9, 3.840874692878553*^9}, - 3.840874797914029*^9, {3.8408749314765*^9, 3.840874942506771*^9}, { - 3.840874977900097*^9, 3.8408749931635103`*^9}, {3.84087622368823*^9, - 3.8408762387364197`*^9}, 3.8408763896018763`*^9, {3.8408765754496813`*^9, - 3.8408766041616783`*^9}, {3.840878618680675*^9, 3.840878628007634*^9}, { - 3.840878725434301*^9, 3.840878725554034*^9}, {3.840883109322998*^9, - 3.840883112458386*^9}, {3.8408839317539597`*^9, 3.8408839337933893`*^9}, { - 3.841115415943398*^9, 3.8411154169423857`*^9}, {3.841115466880171*^9, - 3.841115468191012*^9}, {3.841118862658218*^9, 3.8411188644496517`*^9}, { - 3.841120524398789*^9, 3.8411205250538483`*^9}, {3.8411207947479763`*^9, - 3.841120795723104*^9}, {3.841121049480249*^9, 3.8411210496152554`*^9}, { - 3.8411212885791473`*^9, 3.841121290874997*^9}}, - CellLabel-> - "In[1552]:=",ExpressionUUID->"98f4578d-53c4-4d17-9f2d-7ec1c8ff5869"], - -Cell[BoxData[ - RowBox[{"{", - RowBox[{ - RowBox[{"\[Theta]0", "\[Rule]", "0.1977774263328592`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "0", "]"}], "\[Rule]", "1.2202110364197245`"}], ",", - RowBox[{"AH", "\[Rule]", - RowBox[{"-", "2.4728965785086436`"}]}], ",", - RowBox[{ - RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.619732469299222`"}], ",", - RowBox[{ - RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.32450269957050654`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "1", "]"}], "\[Rule]", - RowBox[{"-", "0.05797214410846639`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.009189882156170377`"}], ",", - - RowBox[{ - RowBox[{"gC", "[", "3", "]"}], "\[Rule]", - RowBox[{"-", "0.0020146033131374346`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0007762965709238567`"}], ",", - RowBox[{ - RowBox[{"gC", "[", "5", "]"}], "\[Rule]", - RowBox[{"-", "0.0006070845579756758`"}]}], ",", - RowBox[{ - RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.000277428141388244`"}], ",", - - RowBox[{ - RowBox[{"gC", "[", "7", "]"}], "\[Rule]", - RowBox[{"-", "0.00005050848970649053`"}]}]}], "}"}]], "Output", - CellChangeTimes->{ - 3.831201605199861*^9, 3.831201825134141*^9, {3.8312018720267353`*^9, - 3.831201915036397*^9}, 3.832134253764925*^9, 3.832134528590658*^9, { - 3.8322384926311703`*^9, 3.83223850323409*^9}, 3.837157647362878*^9, - 3.837157742587923*^9, 3.8371577779839277`*^9, 3.838873252487184*^9, - 3.839578056652884*^9, 3.8395796666883802`*^9, 3.8395803511865263`*^9, - 3.839581563336719*^9, 3.839581620994813*^9, 3.8395821350745487`*^9, - 3.839582593114229*^9, 3.8395827407540617`*^9, {3.83958306555308*^9, - 3.839583084195985*^9}, {3.839585293521529*^9, 3.839585296700117*^9}, { - 3.839585480885418*^9, 3.8395854985146217`*^9}, {3.839588154524723*^9, - 3.839588172244381*^9}, {3.839588425469323*^9, 3.839588447864441*^9}, { - 3.8396608865671663`*^9, 3.839660894906348*^9}, 3.839668240633337*^9, - 3.8396702357793503`*^9, {3.840873332724812*^9, 3.8408733466984158`*^9}, - 3.840873492382749*^9, 3.8408736098642282`*^9, 3.84087400915982*^9, - 3.840874084283777*^9, {3.840874210185948*^9, 3.840874230173469*^9}, - 3.84087434405976*^9, 3.8408744165981894`*^9, 3.8408745651427717`*^9, - 3.840874796232787*^9, 3.8408748453035307`*^9, {3.840874947777791*^9, - 3.840874951935646*^9}, {3.8408749839142*^9, 3.8408750069744368`*^9}, - 3.8408763521405907`*^9, {3.840876395855551*^9, 3.8408764129069366`*^9}, { - 3.84087646726019*^9, 3.840876520888062*^9}, 3.8408766681095448`*^9, - 3.84087862376153*^9, 3.8408786857162123`*^9, 3.840878836129982*^9, { - 3.840883107199059*^9, 3.8408831440953693`*^9}, {3.8408831787931128`*^9, - 3.840883193040745*^9}, 3.840883959128166*^9, {3.840883990358665*^9, - 3.84088399338448*^9}, 3.8408840370186167`*^9, {3.840884435923319*^9, - 3.8408844494919987`*^9}, {3.840885493871684*^9, 3.840885512181704*^9}, - 3.841111864915547*^9, 3.841112828830271*^9, 3.84111437689788*^9, - 3.8411148718772583`*^9, 3.841114907529216*^9, 3.8411153448668118`*^9, { - 3.841115405843738*^9, 3.841115417631131*^9}, 3.84111548124023*^9, { - 3.841116078031268*^9, 3.8411160964723*^9}, 3.8411163385484056`*^9, { - 3.841116882768787*^9, 3.8411168849702187`*^9}, {3.841117811185019*^9, - 3.841117833530731*^9}, {3.8411188560846853`*^9, 3.8411188651157913`*^9}, - 3.8411194776218777`*^9, 3.841120231546994*^9, {3.8411205499593897`*^9, - 3.841120568988974*^9}, 3.84112079722482*^9, {3.841121050182926*^9, - 3.8411210780984087`*^9}, 3.841121291431696*^9}, - CellLabel-> - "Out[1552]=",ExpressionUUID->"73d25371-0eb2-4922-8347-1728ec8383e7"] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"sol5s", "=", - RowBox[{"Table", "[", - RowBox[{ - RowBox[{"untilSuccess", "[", - RowBox[{"newSol", "[", - RowBox[{ - RowBox[{"randomEval", "[", "eq5", "]"}], ",", "sol5", ",", - RowBox[{"{", "}"}], ",", "0", ",", - SuperscriptBox["10", - RowBox[{"-", "5"}]]}], "]"}], "]"}], ",", - RowBox[{"{", "100", "}"}]}], "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, { - 3.8175614038617268`*^9, 3.817561415404965*^9}, {3.817561511096093*^9, - 3.817561563944231*^9}, {3.81756250196518*^9, 3.817562507914916*^9}, { - 3.817562967760625*^9, 3.81756298304041*^9}, 3.817563161460335*^9, { - 3.817563206558021*^9, 3.81756320676147*^9}, {3.817563530710863*^9, - 3.817563550054001*^9}, {3.817563775700533*^9, 3.817563804069632*^9}, { - 3.817563971222761*^9, 3.817564086350409*^9}, {3.817564155680212*^9, - 3.8175641623358994`*^9}, {3.81756424029494*^9, 3.817564240399859*^9}, { - 3.8175645416987743`*^9, 3.817564542202907*^9}, {3.817564715061411*^9, - 3.817564723202471*^9}, {3.8175648450855713`*^9, 3.817564883921851*^9}, { - 3.8175650025642157`*^9, 3.817565074155829*^9}, {3.817565217921039*^9, - 3.817565230520749*^9}, {3.817565359356901*^9, 3.8175654247402163`*^9}, { - 3.817565602697175*^9, 3.817565635407323*^9}, {3.817566059389201*^9, - 3.817566077942937*^9}, {3.817566269837482*^9, 3.817566273547044*^9}, { - 3.8175663066250553`*^9, 3.817566306784181*^9}, {3.817566684914805*^9, - 3.81756668549652*^9}, {3.817566919102108*^9, 3.817566934549343*^9}, { - 3.8175696638331223`*^9, 3.817569664744486*^9}, {3.817579706169273*^9, - 3.8175797767735577`*^9}, {3.817581067506674*^9, 3.8175810689721537`*^9}, { - 3.817581121371869*^9, 3.817581169115347*^9}, {3.817581207766066*^9, - 3.817581270669099*^9}, 3.817581309702499*^9, {3.817581355857291*^9, - 3.817581356026667*^9}, {3.817581392130506*^9, 3.817581416424316*^9}, { - 3.817581457365512*^9, 3.8175814943565397`*^9}, {3.81758152586852*^9, - 3.817581526654297*^9}, {3.8175819155874557`*^9, 3.81758195123713*^9}, { - 3.8175820720836487`*^9, 3.817582073079625*^9}, {3.817582192281794*^9, - 3.8175821927535973`*^9}, {3.8175824979646*^9, 3.817582531058486*^9}, { - 3.817582601242318*^9, 3.817582616669943*^9}, {3.817582763042087*^9, - 3.817582823261053*^9}, {3.817582997786705*^9, 3.817583024595161*^9}, { - 3.817584829987904*^9, 3.817584859074748*^9}, {3.81758494165969*^9, - 3.81758496226119*^9}, {3.81758499940244*^9, 3.8175849995669928`*^9}, { - 3.817585077390765*^9, 3.817585077573927*^9}, {3.817585156651001*^9, - 3.817585156823139*^9}, {3.817585322721836*^9, 3.817585349348461*^9}, { - 3.817585456385895*^9, 3.817585457280986*^9}, {3.817585513558703*^9, - 3.8175855137401114`*^9}, {3.817613675501788*^9, 3.817613676578967*^9}, { - 3.8176168804169617`*^9, 3.81761688926372*^9}, {3.817618774003889*^9, - 3.817618793385603*^9}, {3.8176190151288853`*^9, 3.817619038205636*^9}, - 3.8176190698677187`*^9, {3.817619141079945*^9, 3.8176191871342373`*^9}, { - 3.817619234638775*^9, 3.817619240400311*^9}, {3.817619299848545*^9, - 3.817619332922262*^9}, {3.817619399549685*^9, 3.817619401809965*^9}, { - 3.8176196502657223`*^9, 3.817619664950913*^9}, {3.817619740359915*^9, - 3.8176197551387*^9}, {3.81761980328899*^9, 3.8176198034943733`*^9}, { - 3.817620410694891*^9, 3.817620463869529*^9}, {3.817620674916114*^9, - 3.817620678055534*^9}, {3.817620745057685*^9, 3.817620761178657*^9}, { - 3.817626286376536*^9, 3.8176263645243196`*^9}, {3.817629112637333*^9, - 3.817629115136323*^9}, {3.817629250682312*^9, 3.817629259447815*^9}, { - 3.8176294333109083`*^9, 3.817629436163623*^9}, {3.817641032808353*^9, - 3.817641033101226*^9}, {3.817664188948728*^9, 3.817664189649652*^9}, { - 3.817664815999873*^9, 3.817664819955031*^9}, {3.817665075387652*^9, - 3.8176650759521837`*^9}, {3.817665115247237*^9, 3.817665115392807*^9}, { - 3.817665186844384*^9, 3.817665187022648*^9}, {3.817665325401506*^9, - 3.8176653256436853`*^9}, {3.817665620012444*^9, 3.8176656289311333`*^9}, { - 3.817666022150625*^9, 3.817666032733485*^9}, {3.817666540959165*^9, - 3.817666542789474*^9}, {3.825763749599124*^9, 3.825763789470828*^9}, { - 3.82576405360496*^9, 3.825764054939633*^9}, {3.826007455858286*^9, - 3.8260074763785057`*^9}, {3.8260077526573877`*^9, - 3.8260077642405243`*^9}, {3.826012574971777*^9, 3.826012607731414*^9}, { - 3.826012638420402*^9, 3.826012656916271*^9}, {3.826013377866149*^9, - 3.826013381529332*^9}, {3.8260134248909807`*^9, 3.8260134250580482`*^9}, { - 3.826013471603549*^9, 3.826013479731104*^9}, {3.8260142542578907`*^9, - 3.8260142815694523`*^9}, {3.826103080587652*^9, 3.826103110884009*^9}, { - 3.826272386944799*^9, 3.8262724058568172`*^9}, {3.826272577364773*^9, - 3.8262726301407547`*^9}, {3.8262730964295692`*^9, 3.826273105909152*^9}, { - 3.826273149742629*^9, 3.826273152269898*^9}, 3.826273264736801*^9, { - 3.8262734668440647`*^9, 3.826273466979476*^9}, {3.826273523852948*^9, - 3.8262735239166183`*^9}, {3.826273598326247*^9, 3.826273598414112*^9}, { - 3.8262736403749523`*^9, 3.826273646006681*^9}, {3.826689077467478*^9, - 3.826689117948354*^9}, {3.8266891488769283`*^9, 3.826689165069252*^9}, { - 3.826689316392604*^9, 3.826689327479848*^9}, {3.826689585957643*^9, - 3.8266895892288723`*^9}, {3.826689642374959*^9, 3.8266896530861063`*^9}, { - 3.826689991397007*^9, 3.826690014053174*^9}, {3.826690202392878*^9, - 3.826690203016962*^9}, {3.826690290674961*^9, 3.826690309938636*^9}, { - 3.826690353388789*^9, 3.8266903615409527`*^9}, {3.826690552655903*^9, - 3.826690573871529*^9}, {3.8266910770094233`*^9, 3.826691106753572*^9}, { - 3.826691453953046*^9, 3.826691456704123*^9}, {3.826691566042148*^9, - 3.826691580778328*^9}, 3.826691637140317*^9, {3.826691686196629*^9, - 3.8266916892040443`*^9}, 3.8267024091584463`*^9, {3.826704716161975*^9, - 3.826704719377363*^9}, 3.826704821811655*^9, {3.826704934254529*^9, - 3.82670493514916*^9}, 3.827313139667808*^9, 3.82731344328931*^9, { - 3.827313530930706*^9, 3.827313531074643*^9}, {3.827313648020673*^9, - 3.827313648404454*^9}, 3.827313930601613*^9, {3.827403795859744*^9, - 3.827403799331325*^9}, {3.827404407990917*^9, 3.8274044110385847`*^9}, { - 3.827404515849715*^9, 3.827404516008604*^9}, 3.8274045561855392`*^9, { - 3.827404728540772*^9, 3.827404795461753*^9}, {3.827405566388193*^9, - 3.82740557845172*^9}, 3.82740564622897*^9, {3.82740643693969*^9, - 3.827406439179371*^9}, {3.827410039890891*^9, 3.827410061081759*^9}, { - 3.827410104744341*^9, 3.8274101058397303`*^9}, {3.827468092811961*^9, - 3.8274680953874063`*^9}, {3.827481100871253*^9, 3.827481114943645*^9}, { - 3.8274817272909317`*^9, 3.827481737754497*^9}, {3.827481945727586*^9, - 3.827481949302575*^9}, {3.827484838890389*^9, 3.827484839529801*^9}, { - 3.827484895811178*^9, 3.8274849038187733`*^9}, {3.827484974996828*^9, - 3.827484977452355*^9}, {3.8275548920737123`*^9, 3.827554895257688*^9}, { - 3.82755495846808*^9, 3.827554992403337*^9}, {3.8275550675095177`*^9, - 3.827555094141191*^9}, {3.827555531557931*^9, 3.827555541909574*^9}, { - 3.827558586614328*^9, 3.827558626335005*^9}, {3.827558692856378*^9, - 3.827558718297015*^9}, {3.8275616201177397`*^9, 3.8275616237008038`*^9}, { - 3.8278304666636057`*^9, 3.827830499703677*^9}, {3.827830602882563*^9, - 3.827830606857448*^9}, {3.8278306535627747`*^9, 3.82783065715436*^9}, { - 3.827830716931963*^9, 3.827830726899715*^9}, {3.827831324127943*^9, - 3.8278313248465567`*^9}, {3.8278313735839767`*^9, 3.827831374279758*^9}, { - 3.827833117615872*^9, 3.827833140855818*^9}, {3.827833184112794*^9, - 3.827833212697111*^9}, {3.827833464637803*^9, 3.827833471917515*^9}, - 3.829121222146471*^9, 3.829121418301763*^9, {3.8291247244736977`*^9, - 3.8291247270577908`*^9}, {3.829211844661628*^9, 3.829211854852899*^9}, { - 3.8292126580682793`*^9, 3.829212675524225*^9}, {3.829213854986209*^9, - 3.829213857969493*^9}, {3.829213943083304*^9, 3.829213967523123*^9}, { - 3.829214031268794*^9, 3.829214040157639*^9}, {3.829214194263526*^9, - 3.8292142105916843`*^9}, {3.829217690414138*^9, 3.829217702270501*^9}, { - 3.8292178172969103`*^9, 3.8292178174562902`*^9}, {3.8292178775777473`*^9, - 3.8292178776889153`*^9}, {3.829218414474752*^9, 3.829218438363077*^9}, { - 3.829220129337493*^9, 3.8292201294411983`*^9}, {3.8293682811580133`*^9, - 3.829368281332857*^9}, {3.829368605771906*^9, 3.829368621818864*^9}, { - 3.829369119076646*^9, 3.829369124363988*^9}, {3.829371182626143*^9, - 3.8293711843451643`*^9}, {3.829371313731625*^9, 3.829371313827364*^9}, { - 3.829371427621697*^9, 3.829371428717615*^9}, {3.829384070852407*^9, - 3.829384092643899*^9}, {3.829643418496428*^9, 3.8296434455842133`*^9}, { - 3.829643520753277*^9, 3.829643521713008*^9}, {3.8371576505071573`*^9, - 3.837157650665916*^9}, {3.837157776052775*^9, 3.837157777100462*^9}, { - 3.8388732506235867`*^9, 3.8388732521915503`*^9}, {3.839578050294734*^9, - 3.839578051038322*^9}, {3.8395825963064623`*^9, 3.83958259649821*^9}, { - 3.8395830693390427`*^9, 3.839583069426901*^9}, {3.8395852963389807`*^9, - 3.839585296426599*^9}, {3.83958547866232*^9, 3.8395854803577147`*^9}, { - 3.839588131279149*^9, 3.839588136006947*^9}, {3.839588173951844*^9, - 3.839588173999587*^9}, {3.839588447469577*^9, 3.839588447644541*^9}, { - 3.839660892797814*^9, 3.839660893885312*^9}, {3.8396668026103373`*^9, - 3.839666805105959*^9}, {3.840873258515625*^9, 3.8408732872919407`*^9}, { - 3.840873492488338*^9, 3.8408735597530603`*^9}, {3.840874083251541*^9, - 3.840874083338933*^9}, {3.840874180140827*^9, 3.840874227677476*^9}, { - 3.84087432864777*^9, 3.840874328767509*^9}, {3.8408744442503033`*^9, - 3.840874444385651*^9}, {3.8408746853436337`*^9, 3.840874692878553*^9}, - 3.840874797914029*^9, {3.8408749314765*^9, 3.840874942506771*^9}, { - 3.840874977900097*^9, 3.8408749931635103`*^9}, {3.84087622368823*^9, - 3.8408762387364197`*^9}, 3.8408763896018763`*^9, {3.840877792608206*^9, - 3.840877795447135*^9}, {3.8408778592281733`*^9, 3.840877885493547*^9}, { - 3.840878181402994*^9, 3.840878181586419*^9}, {3.840878266102305*^9, - 3.840878271725408*^9}, 3.8408783404966707`*^9, 3.840878440667748*^9, { - 3.840878838845091*^9, 3.840878839020459*^9}, 3.840879117162724*^9, { - 3.840879297445998*^9, 3.840879301932947*^9}, {3.840879857592433*^9, - 3.840879897057768*^9}, {3.840879962332583*^9, 3.840879971131699*^9}, { - 3.84088016984144*^9, 3.840880169984741*^9}, {3.8408804361907*^9, - 3.840880438854496*^9}, {3.8408804716073627`*^9, 3.84088047215141*^9}, { - 3.840881266814456*^9, 3.8408812668778267`*^9}, {3.840881652317563*^9, - 3.840881652492755*^9}, {3.840882120375183*^9, 3.8408821204708433`*^9}, { - 3.840883057809432*^9, 3.840883058457266*^9}, {3.840885516847419*^9, - 3.840885523959366*^9}, {3.841112047526949*^9, 3.8411120476244907`*^9}, { - 3.841114397621181*^9, 3.841114397717149*^9}, {3.841114634036901*^9, - 3.841114639691828*^9}, 3.8411147852382183`*^9, {3.841115425350855*^9, - 3.841115425518423*^9}, 3.841115600818057*^9, {3.8411168959933767`*^9, - 3.841116896057501*^9}, {3.841117839470207*^9, 3.841117839541939*^9}, - 3.841117881710702*^9, {3.841120600712359*^9, 3.841120600807208*^9}, - 3.841120652993085*^9, {3.8411210543438*^9, 3.841121054447144*^9}, - 3.841121392404917*^9}, - CellLabel-> - "In[1572]:=",ExpressionUUID->"18633e11-a2da-4ae5-b8e0-6232f9094f97"], - -Cell[BoxData[{ - RowBox[{ - RowBox[{"h6", "=", - RowBox[{"h", "[", "8", "]"}]}], ";"}], "\[IndentingNewLine]", - RowBox[{ - RowBox[{"eq6", "=", - RowBox[{ - RowBox[{"eqAround", "[", - RowBox[{"n3", ",", "h6"}], "]"}], "[", - RowBox[{"7", ",", - RowBox[{"-", "1"}], ",", "6"}], "]"}]}], ";"}]}], "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.8292187191121473`*^9, 3.829218728096401*^9}, {3.829368271117032*^9, - 3.829368275564617*^9}, {3.829368590178836*^9, 3.829368602514616*^9}, { - 3.8293691040200243`*^9, 3.829369115755772*^9}, {3.829371124208045*^9, - 3.829371128112094*^9}, {3.829371172664732*^9, 3.829371175472876*^9}, { - 3.829371420653515*^9, 3.829371423597522*^9}, {3.829384064739922*^9, - 3.829384089259829*^9}, {3.829643407111478*^9, 3.829643411151178*^9}, { - 3.829643514849144*^9, 3.829643518489065*^9}, {3.829643600090665*^9, - 3.8296436026505947`*^9}, {3.8296486222377*^9, 3.829648623181625*^9}, { - 3.8312015948291616`*^9, 3.831201598549038*^9}, {3.831201818353256*^9, - 3.831201820017289*^9}, {3.8312018555459843`*^9, 3.831201914138874*^9}, { - 3.8322384727513437`*^9, 3.832238476815104*^9}, {3.83715764073805*^9, - 3.837157644114128*^9}, {3.837157771404172*^9, 3.8371577736922073`*^9}, - 3.8388732416952*^9, {3.839578040990251*^9, 3.8395780450140142`*^9}, - 3.839582129914302*^9, {3.839582580602171*^9, 3.83958258280977*^9}, { - 3.8395827911257467`*^9, 3.839582791237772*^9}, {3.839583003721686*^9, - 3.8395830043374166`*^9}, {3.839585279498378*^9, 3.8395852923705273`*^9}, { - 3.839585466853951*^9, 3.839585474573823*^9}, {3.839588120582615*^9, - 3.8395881249346313`*^9}, {3.8395884394364033`*^9, 3.839588443652686*^9}, { - 3.839660888517267*^9, 3.839660890837171*^9}, {3.839666798801738*^9, - 3.839666800417699*^9}, {3.8408741661721153`*^9, 3.8408741766445427`*^9}, { - 3.8408746718137617`*^9, 3.840874682189743*^9}, {3.840874927714407*^9, - 3.840874929018146*^9}, {3.84087621970411*^9, 3.8408762209280252`*^9}, { - 3.840876571289485*^9, 3.8408765733452578`*^9}, {3.8408786017269917`*^9, - 3.840878613616726*^9}, {3.840883100314126*^9, 3.8408831013620377`*^9}, { - 3.840883922401342*^9, 3.840883928625457*^9}, {3.840884495460515*^9, - 3.84088450611749*^9}, {3.841118913282343*^9, 3.841118913826261*^9}, { - 3.8411213158035994`*^9, 3.841121316059561*^9}}, - CellLabel-> - "In[1569]:=",ExpressionUUID->"0aca4d4b-c5f9-4fcf-8877-4aabbd8d189b"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"sol6", "=", - RowBox[{"untilSuccess", "[", - RowBox[{"newSol", "[", - RowBox[{ - RowBox[{"randomEval", "[", "eq6", "]"}], ",", "sol5", ",", - RowBox[{"{", - RowBox[{"gC", "[", "8", "]"}], "}"}], ",", - SuperscriptBox["10", - RowBox[{"-", "4"}]]}], "]"}], "]"}]}]], "Input", - CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, { - 3.8175614038617268`*^9, 3.817561415404965*^9}, {3.817561511096093*^9, - 3.817561563944231*^9}, {3.81756250196518*^9, 3.817562507914916*^9}, { - 3.817562967760625*^9, 3.81756298304041*^9}, 3.817563161460335*^9, { - 3.817563206558021*^9, 3.81756320676147*^9}, {3.817563530710863*^9, - 3.817563550054001*^9}, {3.817563775700533*^9, 3.817563804069632*^9}, { - 3.817563971222761*^9, 3.817564086350409*^9}, {3.817564155680212*^9, - 3.8175641623358994`*^9}, {3.81756424029494*^9, 3.817564240399859*^9}, { - 3.8175645416987743`*^9, 3.817564542202907*^9}, {3.817564715061411*^9, - 3.817564723202471*^9}, {3.8175648450855713`*^9, 3.817564883921851*^9}, { - 3.8175650025642157`*^9, 3.817565074155829*^9}, {3.817565217921039*^9, - 3.817565230520749*^9}, {3.817565359356901*^9, 3.8175654247402163`*^9}, { - 3.817565602697175*^9, 3.817565635407323*^9}, {3.817566059389201*^9, - 3.817566077942937*^9}, {3.817566269837482*^9, 3.817566273547044*^9}, { - 3.8175663066250553`*^9, 3.817566306784181*^9}, {3.817566684914805*^9, - 3.81756668549652*^9}, {3.817566919102108*^9, 3.817566934549343*^9}, { - 3.8175696638331223`*^9, 3.817569664744486*^9}, {3.817579706169273*^9, - 3.8175797767735577`*^9}, {3.817581067506674*^9, 3.8175810689721537`*^9}, { - 3.817581121371869*^9, 3.817581169115347*^9}, {3.817581207766066*^9, - 3.817581270669099*^9}, 3.817581309702499*^9, {3.817581355857291*^9, - 3.817581356026667*^9}, {3.817581392130506*^9, 3.817581416424316*^9}, { - 3.817581457365512*^9, 3.8175814943565397`*^9}, {3.81758152586852*^9, - 3.817581526654297*^9}, {3.8175819155874557`*^9, 3.81758195123713*^9}, { - 3.8175820720836487`*^9, 3.817582073079625*^9}, {3.817582192281794*^9, - 3.8175821927535973`*^9}, {3.8175824979646*^9, 3.817582531058486*^9}, { - 3.817582601242318*^9, 3.817582616669943*^9}, {3.817582763042087*^9, - 3.817582823261053*^9}, {3.817582997786705*^9, 3.817583024595161*^9}, { - 3.817584829987904*^9, 3.817584859074748*^9}, {3.81758494165969*^9, - 3.81758496226119*^9}, {3.81758499940244*^9, 3.8175849995669928`*^9}, { - 3.817585077390765*^9, 3.817585077573927*^9}, {3.817585156651001*^9, - 3.817585156823139*^9}, {3.817585322721836*^9, 3.817585349348461*^9}, { - 3.817585456385895*^9, 3.817585457280986*^9}, {3.817585513558703*^9, - 3.8175855137401114`*^9}, {3.817613675501788*^9, 3.817613676578967*^9}, { - 3.8176168804169617`*^9, 3.81761688926372*^9}, {3.817618774003889*^9, - 3.817618793385603*^9}, {3.8176190151288853`*^9, 3.817619038205636*^9}, - 3.8176190698677187`*^9, {3.817619141079945*^9, 3.8176191871342373`*^9}, { - 3.817619234638775*^9, 3.817619240400311*^9}, {3.817619299848545*^9, - 3.817619332922262*^9}, {3.817619399549685*^9, 3.817619401809965*^9}, { - 3.8176196502657223`*^9, 3.817619664950913*^9}, {3.817619740359915*^9, - 3.8176197551387*^9}, {3.81761980328899*^9, 3.8176198034943733`*^9}, { - 3.817620410694891*^9, 3.817620463869529*^9}, {3.817620674916114*^9, - 3.817620678055534*^9}, {3.817620745057685*^9, 3.817620761178657*^9}, { - 3.817626286376536*^9, 3.8176263645243196`*^9}, {3.817629112637333*^9, - 3.817629115136323*^9}, {3.817629250682312*^9, 3.817629259447815*^9}, { - 3.8176294333109083`*^9, 3.817629436163623*^9}, {3.817641032808353*^9, - 3.817641033101226*^9}, {3.817664188948728*^9, 3.817664189649652*^9}, { - 3.817664815999873*^9, 3.817664819955031*^9}, {3.817665075387652*^9, - 3.8176650759521837`*^9}, {3.817665115247237*^9, 3.817665115392807*^9}, { - 3.817665186844384*^9, 3.817665187022648*^9}, {3.817665325401506*^9, - 3.8176653256436853`*^9}, {3.817665620012444*^9, 3.8176656289311333`*^9}, { - 3.817666022150625*^9, 3.817666032733485*^9}, {3.817666540959165*^9, - 3.817666542789474*^9}, {3.825763749599124*^9, 3.825763789470828*^9}, { - 3.82576405360496*^9, 3.825764054939633*^9}, {3.826007455858286*^9, - 3.8260074763785057`*^9}, {3.8260077526573877`*^9, - 3.8260077642405243`*^9}, {3.826012574971777*^9, 3.826012607731414*^9}, { - 3.826012638420402*^9, 3.826012656916271*^9}, {3.826013377866149*^9, - 3.826013381529332*^9}, {3.8260134248909807`*^9, 3.8260134250580482`*^9}, { - 3.826013471603549*^9, 3.826013479731104*^9}, {3.8260142542578907`*^9, - 3.8260142815694523`*^9}, {3.826103080587652*^9, 3.826103110884009*^9}, { - 3.826272386944799*^9, 3.8262724058568172`*^9}, {3.826272577364773*^9, - 3.8262726301407547`*^9}, {3.8262730964295692`*^9, 3.826273105909152*^9}, { - 3.826273149742629*^9, 3.826273152269898*^9}, 3.826273264736801*^9, { - 3.8262734668440647`*^9, 3.826273466979476*^9}, {3.826273523852948*^9, - 3.8262735239166183`*^9}, {3.826273598326247*^9, 3.826273598414112*^9}, { - 3.8262736403749523`*^9, 3.826273646006681*^9}, {3.826689077467478*^9, - 3.826689117948354*^9}, {3.8266891488769283`*^9, 3.826689165069252*^9}, { - 3.826689316392604*^9, 3.826689327479848*^9}, {3.826689585957643*^9, - 3.8266895892288723`*^9}, {3.826689642374959*^9, 3.8266896530861063`*^9}, { - 3.826689991397007*^9, 3.826690014053174*^9}, {3.826690202392878*^9, - 3.826690203016962*^9}, {3.826690290674961*^9, 3.826690309938636*^9}, { - 3.826690353388789*^9, 3.8266903615409527`*^9}, {3.826690552655903*^9, - 3.826690573871529*^9}, {3.8266910770094233`*^9, 3.826691106753572*^9}, { - 3.826691453953046*^9, 3.826691456704123*^9}, {3.826691566042148*^9, - 3.826691580778328*^9}, 3.826691637140317*^9, {3.826691686196629*^9, - 3.8266916892040443`*^9}, 3.8267024091584463`*^9, {3.826704716161975*^9, - 3.826704719377363*^9}, 3.826704821811655*^9, {3.826704934254529*^9, - 3.82670493514916*^9}, 3.827313139667808*^9, 3.82731344328931*^9, { - 3.827313530930706*^9, 3.827313531074643*^9}, {3.827313648020673*^9, - 3.827313648404454*^9}, 3.827313930601613*^9, {3.827403795859744*^9, - 3.827403799331325*^9}, {3.827404407990917*^9, 3.8274044110385847`*^9}, { - 3.827404515849715*^9, 3.827404516008604*^9}, 3.8274045561855392`*^9, { - 3.827404728540772*^9, 3.827404795461753*^9}, {3.827405566388193*^9, - 3.82740557845172*^9}, 3.82740564622897*^9, {3.82740643693969*^9, - 3.827406439179371*^9}, {3.827410039890891*^9, 3.827410061081759*^9}, { - 3.827410104744341*^9, 3.8274101058397303`*^9}, {3.827468092811961*^9, - 3.8274680953874063`*^9}, {3.827481100871253*^9, 3.827481114943645*^9}, { - 3.8274817272909317`*^9, 3.827481737754497*^9}, {3.827481945727586*^9, - 3.827481949302575*^9}, {3.827484838890389*^9, 3.827484839529801*^9}, { - 3.827484895811178*^9, 3.8274849038187733`*^9}, {3.827484974996828*^9, - 3.827484977452355*^9}, {3.8275548920737123`*^9, 3.827554895257688*^9}, { - 3.82755495846808*^9, 3.827554992403337*^9}, {3.8275550675095177`*^9, - 3.827555094141191*^9}, {3.827555531557931*^9, 3.827555541909574*^9}, { - 3.827558586614328*^9, 3.827558626335005*^9}, {3.827558692856378*^9, - 3.827558718297015*^9}, {3.8275616201177397`*^9, 3.8275616237008038`*^9}, { - 3.8278304666636057`*^9, 3.827830499703677*^9}, {3.827830602882563*^9, - 3.827830606857448*^9}, {3.8278306535627747`*^9, 3.82783065715436*^9}, { - 3.827830716931963*^9, 3.827830726899715*^9}, {3.827831324127943*^9, - 3.8278313248465567`*^9}, {3.8278313735839767`*^9, 3.827831374279758*^9}, { - 3.827833117615872*^9, 3.827833140855818*^9}, {3.827833184112794*^9, - 3.827833212697111*^9}, {3.827833464637803*^9, 3.827833471917515*^9}, - 3.829121222146471*^9, 3.829121418301763*^9, {3.8291247244736977`*^9, - 3.8291247270577908`*^9}, {3.829211844661628*^9, 3.829211854852899*^9}, { - 3.8292126580682793`*^9, 3.829212675524225*^9}, {3.829213854986209*^9, - 3.829213857969493*^9}, {3.829213943083304*^9, 3.829213967523123*^9}, { - 3.829214031268794*^9, 3.829214040157639*^9}, {3.829214194263526*^9, - 3.8292142105916843`*^9}, {3.829217690414138*^9, 3.829217702270501*^9}, { - 3.8292178172969103`*^9, 3.8292178174562902`*^9}, {3.8292178775777473`*^9, - 3.8292178776889153`*^9}, {3.829218414474752*^9, 3.829218438363077*^9}, { - 3.829220129337493*^9, 3.8292201294411983`*^9}, {3.8293682811580133`*^9, - 3.829368281332857*^9}, {3.829368605771906*^9, 3.829368621818864*^9}, { - 3.829369119076646*^9, 3.829369124363988*^9}, {3.829371182626143*^9, - 3.8293711843451643`*^9}, {3.829371313731625*^9, 3.829371313827364*^9}, { - 3.829371427621697*^9, 3.829371428717615*^9}, {3.829384070852407*^9, - 3.829384092643899*^9}, {3.829643418496428*^9, 3.8296434455842133`*^9}, { - 3.829643520753277*^9, 3.829643521713008*^9}, {3.8371576505071573`*^9, - 3.837157650665916*^9}, {3.837157776052775*^9, 3.837157777100462*^9}, { - 3.8388732506235867`*^9, 3.8388732521915503`*^9}, {3.839578050294734*^9, - 3.839578051038322*^9}, {3.8395825963064623`*^9, 3.83958259649821*^9}, { - 3.8395830693390427`*^9, 3.839583069426901*^9}, {3.8395852963389807`*^9, - 3.839585296426599*^9}, {3.83958547866232*^9, 3.8395854803577147`*^9}, { - 3.839588131279149*^9, 3.839588136006947*^9}, {3.839588173951844*^9, - 3.839588173999587*^9}, {3.839588447469577*^9, 3.839588447644541*^9}, { - 3.839660892797814*^9, 3.839660893885312*^9}, {3.8396668026103373`*^9, - 3.839666805105959*^9}, {3.840873258515625*^9, 3.8408732872919407`*^9}, { - 3.840873492488338*^9, 3.8408735597530603`*^9}, {3.840874083251541*^9, - 3.840874083338933*^9}, {3.840874180140827*^9, 3.840874227677476*^9}, { - 3.84087432864777*^9, 3.840874328767509*^9}, {3.8408744442503033`*^9, - 3.840874444385651*^9}, {3.8408746853436337`*^9, 3.840874692878553*^9}, - 3.840874797914029*^9, {3.8408749314765*^9, 3.840874942506771*^9}, { - 3.840874977900097*^9, 3.8408749931635103`*^9}, {3.84087622368823*^9, - 3.8408762387364197`*^9}, 3.8408763896018763`*^9, {3.8408765754496813`*^9, - 3.8408766041616783`*^9}, {3.840878618680675*^9, 3.840878628007634*^9}, { - 3.840878725434301*^9, 3.840878725554034*^9}, {3.840883109322998*^9, - 3.840883112458386*^9}, {3.8408839317539597`*^9, 3.8408839337933893`*^9}, { - 3.8408845141973257`*^9, 3.8408845250928392`*^9}, {3.841118916130464*^9, - 3.841118918034273*^9}, 3.841121319036605*^9}, - CellLabel-> - "In[1584]:=",ExpressionUUID->"fe89f5d9-5106-49a7-9f79-5e5841f51c4a"], - -Cell[BoxData["$Aborted"], "Output", - CellChangeTimes->{ - 3.831201605199861*^9, 3.831201825134141*^9, {3.8312018720267353`*^9, - 3.831201915036397*^9}, 3.832134253764925*^9, 3.832134528590658*^9, { - 3.8322384926311703`*^9, 3.83223850323409*^9}, 3.837157647362878*^9, - 3.837157742587923*^9, 3.8371577779839277`*^9, 3.838873252487184*^9, - 3.839578056652884*^9, 3.8395796666883802`*^9, 3.8395803511865263`*^9, - 3.839581563336719*^9, 3.839581620994813*^9, 3.8395821350745487`*^9, - 3.839582593114229*^9, 3.8395827407540617`*^9, {3.83958306555308*^9, - 3.839583084195985*^9}, {3.839585293521529*^9, 3.839585296700117*^9}, { - 3.839585480885418*^9, 3.8395854985146217`*^9}, {3.839588154524723*^9, - 3.839588172244381*^9}, {3.839588425469323*^9, 3.839588447864441*^9}, { - 3.8396608865671663`*^9, 3.839660894906348*^9}, 3.839668240633337*^9, - 3.8396702357793503`*^9, {3.840873332724812*^9, 3.8408733466984158`*^9}, - 3.840873492382749*^9, 3.8408736098642282`*^9, 3.84087400915982*^9, - 3.840874084283777*^9, {3.840874210185948*^9, 3.840874230173469*^9}, - 3.84087434405976*^9, 3.8408744165981894`*^9, 3.8408745651427717`*^9, - 3.840874796232787*^9, 3.8408748453035307`*^9, {3.840874947777791*^9, - 3.840874951935646*^9}, {3.8408749839142*^9, 3.8408750069744368`*^9}, - 3.8408763521405907`*^9, {3.840876395855551*^9, 3.8408764129069366`*^9}, { - 3.84087646726019*^9, 3.840876520888062*^9}, 3.8408766681095448`*^9, - 3.84087862376153*^9, 3.8408786857162123`*^9, 3.840878836129982*^9, { - 3.840883107199059*^9, 3.8408831440953693`*^9}, {3.8408831787931128`*^9, - 3.840883193040745*^9}, 3.840883959128166*^9, {3.840883990358665*^9, - 3.84088399338448*^9}, 3.8408840370186167`*^9, {3.840884435923319*^9, - 3.8408844494919987`*^9}, 3.8408845272746487`*^9, 3.8408845876129293`*^9, - 3.841111959974864*^9, 3.841112878611219*^9, 3.8411144848739223`*^9, { - 3.8411156429809933`*^9, 3.841115656289953*^9}, 3.841116133224616*^9, - 3.841116650887455*^9, {3.8411169133888903`*^9, 3.8411169246264467`*^9}, - 3.841117095989126*^9, 3.841118173506551*^9, 3.841118918505678*^9, - 3.841119538730254*^9, 3.841120257851389*^9, 3.8411213378377647`*^9, - 3.841121390006484*^9, 3.8411214384913187`*^9}, - CellLabel-> - "Out[1584]=",ExpressionUUID->"0a8ad4bb-1306-48b8-98a6-15cedc75fea0"] -}, Open ]], - -Cell[BoxData[ - RowBox[{ - RowBox[{"sol6s", "=", - RowBox[{"Table", "[", - RowBox[{ - RowBox[{"untilSuccess", "[", - RowBox[{"newSol", "[", - RowBox[{ - RowBox[{"randomEval", "[", "eq6", "]"}], ",", "sol6", ",", - RowBox[{"{", "}"}], ",", "0", ",", - SuperscriptBox["10", - RowBox[{"-", "4"}]]}], "]"}], "]"}], ",", - RowBox[{"{", "100", "}"}]}], "]"}]}], ";"}]], "Input", - CellChangeTimes->{{3.8175612726329412`*^9, 3.81756128486736*^9}, { - 3.8175614038617268`*^9, 3.817561415404965*^9}, {3.817561511096093*^9, - 3.817561563944231*^9}, {3.81756250196518*^9, 3.817562507914916*^9}, { - 3.817562967760625*^9, 3.81756298304041*^9}, 3.817563161460335*^9, { - 3.817563206558021*^9, 3.81756320676147*^9}, {3.817563530710863*^9, - 3.817563550054001*^9}, {3.817563775700533*^9, 3.817563804069632*^9}, { - 3.817563971222761*^9, 3.817564086350409*^9}, {3.817564155680212*^9, - 3.8175641623358994`*^9}, {3.81756424029494*^9, 3.817564240399859*^9}, { - 3.8175645416987743`*^9, 3.817564542202907*^9}, {3.817564715061411*^9, - 3.817564723202471*^9}, {3.8175648450855713`*^9, 3.817564883921851*^9}, { - 3.8175650025642157`*^9, 3.817565074155829*^9}, {3.817565217921039*^9, - 3.817565230520749*^9}, {3.817565359356901*^9, 3.8175654247402163`*^9}, { - 3.817565602697175*^9, 3.817565635407323*^9}, {3.817566059389201*^9, - 3.817566077942937*^9}, {3.817566269837482*^9, 3.817566273547044*^9}, { - 3.8175663066250553`*^9, 3.817566306784181*^9}, {3.817566684914805*^9, - 3.81756668549652*^9}, {3.817566919102108*^9, 3.817566934549343*^9}, { - 3.8175696638331223`*^9, 3.817569664744486*^9}, {3.817579706169273*^9, - 3.8175797767735577`*^9}, {3.817581067506674*^9, 3.8175810689721537`*^9}, { - 3.817581121371869*^9, 3.817581169115347*^9}, {3.817581207766066*^9, - 3.817581270669099*^9}, 3.817581309702499*^9, {3.817581355857291*^9, - 3.817581356026667*^9}, {3.817581392130506*^9, 3.817581416424316*^9}, { - 3.817581457365512*^9, 3.8175814943565397`*^9}, {3.81758152586852*^9, - 3.817581526654297*^9}, {3.8175819155874557`*^9, 3.81758195123713*^9}, { - 3.8175820720836487`*^9, 3.817582073079625*^9}, {3.817582192281794*^9, - 3.8175821927535973`*^9}, {3.8175824979646*^9, 3.817582531058486*^9}, { - 3.817582601242318*^9, 3.817582616669943*^9}, {3.817582763042087*^9, - 3.817582823261053*^9}, {3.817582997786705*^9, 3.817583024595161*^9}, { - 3.817584829987904*^9, 3.817584859074748*^9}, {3.81758494165969*^9, - 3.81758496226119*^9}, {3.81758499940244*^9, 3.8175849995669928`*^9}, { - 3.817585077390765*^9, 3.817585077573927*^9}, {3.817585156651001*^9, - 3.817585156823139*^9}, {3.817585322721836*^9, 3.817585349348461*^9}, { - 3.817585456385895*^9, 3.817585457280986*^9}, {3.817585513558703*^9, - 3.8175855137401114`*^9}, {3.817613675501788*^9, 3.817613676578967*^9}, { - 3.8176168804169617`*^9, 3.81761688926372*^9}, {3.817618774003889*^9, - 3.817618793385603*^9}, {3.8176190151288853`*^9, 3.817619038205636*^9}, - 3.8176190698677187`*^9, {3.817619141079945*^9, 3.8176191871342373`*^9}, { - 3.817619234638775*^9, 3.817619240400311*^9}, {3.817619299848545*^9, - 3.817619332922262*^9}, {3.817619399549685*^9, 3.817619401809965*^9}, { - 3.8176196502657223`*^9, 3.817619664950913*^9}, {3.817619740359915*^9, - 3.8176197551387*^9}, {3.81761980328899*^9, 3.8176198034943733`*^9}, { - 3.817620410694891*^9, 3.817620463869529*^9}, {3.817620674916114*^9, - 3.817620678055534*^9}, {3.817620745057685*^9, 3.817620761178657*^9}, { - 3.817626286376536*^9, 3.8176263645243196`*^9}, {3.817629112637333*^9, - 3.817629115136323*^9}, {3.817629250682312*^9, 3.817629259447815*^9}, { - 3.8176294333109083`*^9, 3.817629436163623*^9}, {3.817641032808353*^9, - 3.817641033101226*^9}, {3.817664188948728*^9, 3.817664189649652*^9}, { - 3.817664815999873*^9, 3.817664819955031*^9}, {3.817665075387652*^9, - 3.8176650759521837`*^9}, {3.817665115247237*^9, 3.817665115392807*^9}, { - 3.817665186844384*^9, 3.817665187022648*^9}, {3.817665325401506*^9, - 3.8176653256436853`*^9}, {3.817665620012444*^9, 3.8176656289311333`*^9}, { - 3.817666022150625*^9, 3.817666032733485*^9}, {3.817666540959165*^9, - 3.817666542789474*^9}, {3.825763749599124*^9, 3.825763789470828*^9}, { - 3.82576405360496*^9, 3.825764054939633*^9}, {3.826007455858286*^9, - 3.8260074763785057`*^9}, {3.8260077526573877`*^9, - 3.8260077642405243`*^9}, {3.826012574971777*^9, 3.826012607731414*^9}, { - 3.826012638420402*^9, 3.826012656916271*^9}, {3.826013377866149*^9, - 3.826013381529332*^9}, {3.8260134248909807`*^9, 3.8260134250580482`*^9}, { - 3.826013471603549*^9, 3.826013479731104*^9}, {3.8260142542578907`*^9, - 3.8260142815694523`*^9}, {3.826103080587652*^9, 3.826103110884009*^9}, { - 3.826272386944799*^9, 3.8262724058568172`*^9}, {3.826272577364773*^9, - 3.8262726301407547`*^9}, {3.8262730964295692`*^9, 3.826273105909152*^9}, { - 3.826273149742629*^9, 3.826273152269898*^9}, 3.826273264736801*^9, { - 3.8262734668440647`*^9, 3.826273466979476*^9}, {3.826273523852948*^9, - 3.8262735239166183`*^9}, {3.826273598326247*^9, 3.826273598414112*^9}, { - 3.8262736403749523`*^9, 3.826273646006681*^9}, {3.826689077467478*^9, - 3.826689117948354*^9}, {3.8266891488769283`*^9, 3.826689165069252*^9}, { - 3.826689316392604*^9, 3.826689327479848*^9}, {3.826689585957643*^9, - 3.8266895892288723`*^9}, {3.826689642374959*^9, 3.8266896530861063`*^9}, { - 3.826689991397007*^9, 3.826690014053174*^9}, {3.826690202392878*^9, - 3.826690203016962*^9}, {3.826690290674961*^9, 3.826690309938636*^9}, { - 3.826690353388789*^9, 3.8266903615409527`*^9}, {3.826690552655903*^9, - 3.826690573871529*^9}, {3.8266910770094233`*^9, 3.826691106753572*^9}, { - 3.826691453953046*^9, 3.826691456704123*^9}, {3.826691566042148*^9, - 3.826691580778328*^9}, 3.826691637140317*^9, {3.826691686196629*^9, - 3.8266916892040443`*^9}, 3.8267024091584463`*^9, {3.826704716161975*^9, - 3.826704719377363*^9}, 3.826704821811655*^9, {3.826704934254529*^9, - 3.82670493514916*^9}, 3.827313139667808*^9, 3.82731344328931*^9, { - 3.827313530930706*^9, 3.827313531074643*^9}, {3.827313648020673*^9, - 3.827313648404454*^9}, 3.827313930601613*^9, {3.827403795859744*^9, - 3.827403799331325*^9}, {3.827404407990917*^9, 3.8274044110385847`*^9}, { - 3.827404515849715*^9, 3.827404516008604*^9}, 3.8274045561855392`*^9, { - 3.827404728540772*^9, 3.827404795461753*^9}, {3.827405566388193*^9, - 3.82740557845172*^9}, 3.82740564622897*^9, {3.82740643693969*^9, - 3.827406439179371*^9}, {3.827410039890891*^9, 3.827410061081759*^9}, { - 3.827410104744341*^9, 3.8274101058397303`*^9}, {3.827468092811961*^9, - 3.8274680953874063`*^9}, {3.827481100871253*^9, 3.827481114943645*^9}, { - 3.8274817272909317`*^9, 3.827481737754497*^9}, {3.827481945727586*^9, - 3.827481949302575*^9}, {3.827484838890389*^9, 3.827484839529801*^9}, { - 3.827484895811178*^9, 3.8274849038187733`*^9}, {3.827484974996828*^9, - 3.827484977452355*^9}, {3.8275548920737123`*^9, 3.827554895257688*^9}, { - 3.82755495846808*^9, 3.827554992403337*^9}, {3.8275550675095177`*^9, - 3.827555094141191*^9}, {3.827555531557931*^9, 3.827555541909574*^9}, { - 3.827558586614328*^9, 3.827558626335005*^9}, {3.827558692856378*^9, - 3.827558718297015*^9}, {3.8275616201177397`*^9, 3.8275616237008038`*^9}, { - 3.8278304666636057`*^9, 3.827830499703677*^9}, {3.827830602882563*^9, - 3.827830606857448*^9}, {3.8278306535627747`*^9, 3.82783065715436*^9}, { - 3.827830716931963*^9, 3.827830726899715*^9}, {3.827831324127943*^9, - 3.8278313248465567`*^9}, {3.8278313735839767`*^9, 3.827831374279758*^9}, { - 3.827833117615872*^9, 3.827833140855818*^9}, {3.827833184112794*^9, - 3.827833212697111*^9}, {3.827833464637803*^9, 3.827833471917515*^9}, - 3.829121222146471*^9, 3.829121418301763*^9, {3.8291247244736977`*^9, - 3.8291247270577908`*^9}, {3.829211844661628*^9, 3.829211854852899*^9}, { - 3.8292126580682793`*^9, 3.829212675524225*^9}, {3.829213854986209*^9, - 3.829213857969493*^9}, {3.829213943083304*^9, 3.829213967523123*^9}, { - 3.829214031268794*^9, 3.829214040157639*^9}, {3.829214194263526*^9, - 3.8292142105916843`*^9}, {3.829217690414138*^9, 3.829217702270501*^9}, { - 3.8292178172969103`*^9, 3.8292178174562902`*^9}, {3.8292178775777473`*^9, - 3.8292178776889153`*^9}, {3.829218414474752*^9, 3.829218438363077*^9}, { - 3.829220129337493*^9, 3.8292201294411983`*^9}, {3.8293682811580133`*^9, - 3.829368281332857*^9}, {3.829368605771906*^9, 3.829368621818864*^9}, { - 3.829369119076646*^9, 3.829369124363988*^9}, {3.829371182626143*^9, - 3.8293711843451643`*^9}, {3.829371313731625*^9, 3.829371313827364*^9}, { - 3.829371427621697*^9, 3.829371428717615*^9}, {3.829384070852407*^9, - 3.829384092643899*^9}, {3.829643418496428*^9, 3.8296434455842133`*^9}, { - 3.829643520753277*^9, 3.829643521713008*^9}, {3.8371576505071573`*^9, - 3.837157650665916*^9}, {3.837157776052775*^9, 3.837157777100462*^9}, { - 3.8388732506235867`*^9, 3.8388732521915503`*^9}, {3.839578050294734*^9, - 3.839578051038322*^9}, {3.8395825963064623`*^9, 3.83958259649821*^9}, { - 3.8395830693390427`*^9, 3.839583069426901*^9}, {3.8395852963389807`*^9, - 3.839585296426599*^9}, {3.83958547866232*^9, 3.8395854803577147`*^9}, { - 3.839588131279149*^9, 3.839588136006947*^9}, {3.839588173951844*^9, - 3.839588173999587*^9}, {3.839588447469577*^9, 3.839588447644541*^9}, { - 3.839660892797814*^9, 3.839660893885312*^9}, {3.8396668026103373`*^9, - 3.839666805105959*^9}, {3.840873258515625*^9, 3.8408732872919407`*^9}, { - 3.840873492488338*^9, 3.8408735597530603`*^9}, {3.840874083251541*^9, - 3.840874083338933*^9}, {3.840874180140827*^9, 3.840874227677476*^9}, { - 3.84087432864777*^9, 3.840874328767509*^9}, {3.8408744442503033`*^9, - 3.840874444385651*^9}, {3.8408746853436337`*^9, 3.840874692878553*^9}, - 3.840874797914029*^9, {3.8408749314765*^9, 3.840874942506771*^9}, { - 3.840874977900097*^9, 3.8408749931635103`*^9}, {3.84087622368823*^9, - 3.8408762387364197`*^9}, 3.8408763896018763`*^9, {3.840877792608206*^9, - 3.840877795447135*^9}, {3.8408778592281733`*^9, 3.840877885493547*^9}, { - 3.840878181402994*^9, 3.840878181586419*^9}, {3.840878266102305*^9, - 3.840878271725408*^9}, 3.8408783404966707`*^9, 3.840878440667748*^9, { - 3.840878838845091*^9, 3.840878839020459*^9}, 3.840879117162724*^9, { - 3.840879297445998*^9, 3.840879301932947*^9}, {3.840879857592433*^9, - 3.840879897057768*^9}, {3.840879962332583*^9, 3.840879971131699*^9}, { - 3.84088016984144*^9, 3.840880169984741*^9}, {3.8408804361907*^9, - 3.840880438854496*^9}, {3.8408804716073627`*^9, 3.84088047215141*^9}, { - 3.840881266814456*^9, 3.8408812668778267`*^9}, {3.840881652317563*^9, - 3.840881652492755*^9}, {3.840882120375183*^9, 3.8408821204708433`*^9}, { - 3.840883057809432*^9, 3.840883058457266*^9}, {3.840885516847419*^9, - 3.840885523959366*^9}, {3.841114408533433*^9, 3.841114418933622*^9}, { - 3.8411156613379307`*^9, 3.841115662826037*^9}, {3.841115700506824*^9, - 3.841115700706748*^9}, 3.8411181759644337`*^9}, - CellLabel-> - "In[1406]:=",ExpressionUUID->"97d9179b-2fce-4795-a6e8-5a641f12f4c8"], - -Cell[, "Input",ExpressionUUID->"d0c1c5e5-4279-4f37-9054-91bd4b12e663"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"e7b22e66-5408-41f1-92fc-0b182cba2300"], - -Cell[, "Output",ExpressionUUID->"c45e3cf2-b293-40c8-829f-fc2ec93ca4a2"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"601dc3bb-443f-48fc-9292-4386b0cf95de"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"03e290fc-0b0d-410c-b202-b7d3f26ad414"], - -Cell[, "Output",ExpressionUUID->"6e88e821-6408-4d4a-adf1-2f6c216ef43a"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"4f492156-2dba-4507-b18e-9caff5388fe7"], - -Cell[, "Input",ExpressionUUID->"8a388082-44ef-4006-80ee-c06fd30d20af"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"9af58482-a82f-453e-b207-4a531bd7f986"], - -Cell[, "Message",ExpressionUUID->"88fad436-fcee-4f3f-aab9-2ed9ad581c02"], - -Cell[, "Message",ExpressionUUID->"9b10eb38-aa52-4126-b098-84ffe9cdb921"], - -Cell[, "Message",ExpressionUUID->"0050702d-7892-4250-92fe-501fd42f4804"], - -Cell[, "Message",ExpressionUUID->"0e9fc6a6-210d-4751-9d76-307964678655"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"82ae90cd-9392-4c9d-9e74-43a947d632f8"], - -Cell[, "Output",ExpressionUUID->"d0da3922-3101-4b6b-b625-618be7ea231e"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"575a96c7-cbf4-4548-bf79-eea496f9225f"], - -Cell[, "Input",ExpressionUUID->"4c9212b3-67d7-472d-8053-a6719a4b6968"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"4da22fc0-9ded-4775-8bdf-688f73c07634"], - -Cell[, "Output",ExpressionUUID->"7ae5d432-85f2-4be3-bf47-748a047d213e"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"53e62926-2399-4d89-a1a5-1a9de88f1de1"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"d7a1b84b-a0ad-4cd8-903b-555055205b7f"], - -Cell[, "Output",ExpressionUUID->"57ea2507-7842-4828-ae09-5afcd18018ef"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"36165250-3b0d-43e7-a7bb-de8bf7b98728"], - -Cell[, "Output",ExpressionUUID->"b5989670-6524-408b-9128-911314e751a7"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"3f1dca6c-8ee4-4a6d-bfd4-139952b6134e"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"4d5e8eae-9598-4ba9-97b9-820721b9cf2c"], - -Cell[, "Output",ExpressionUUID->"e528eced-04f2-4168-85ee-b92cc07d3a4a"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"058d944c-17d2-44c4-a094-d49c5ebc4b30"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"d3519241-4ab5-4155-9d60-b261c692c1c1"], - -Cell[, "Output",ExpressionUUID->"c696dbfc-9a83-45ed-b662-b4e3824d4d3a"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"c64829f7-13ca-41be-b90d-b02b0be6aef7"], - -Cell[, "Input",ExpressionUUID->"b80f96d6-6a42-4eb5-bf49-722ec664dd25"], - -Cell[, "Input",ExpressionUUID->"948a7964-c664-45bb-ab96-2401383cc094"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"f0d582ea-c723-428e-9a1b-da3da4addd8f"], - -Cell[, "Message",ExpressionUUID->"2c34ff2e-d0de-42c1-97ce-5ec9f8f5b795"], - -Cell[, "Output",ExpressionUUID->"d46a2655-d289-479c-9592-35e50aabe831"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"3c4a1b69-e1ff-4cc9-9eaf-7e24b6138668"], - -Cell[, "Output",ExpressionUUID->"9cc868e2-bd8c-4e98-a54f-a01b805fe1c6"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"2013220e-65d7-4711-8f02-e8f52d80b46d"], - -Cell[, "Output",ExpressionUUID->"898e5549-2826-4078-b4cd-9d551732769a"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"e4cb6dcf-d649-4de9-a097-73373ea68146"], - -Cell[, "Output",ExpressionUUID->"81df3d82-076a-4d70-8964-0b4744e17318"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"dd68a063-22e7-439e-adea-6af0bc3682b7"], - -Cell[, "Output",ExpressionUUID->"0944fabd-5c4c-4f1d-8aa6-bbce6f848a27"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"bb62dac0-55ce-4eb0-b9f1-470897d67dfe"], - -Cell[, "Output",ExpressionUUID->"2c92ad09-18a3-4f8d-837d-f9aeee72e78b"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"220c4df0-bee1-4228-b3e2-e1b0766134a3"], - -Cell[, "Output",ExpressionUUID->"b948047e-c6cf-42f2-98b9-e19483d53354"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"6f0e01cf-f96f-4c8a-99a0-f3333c060add"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"6a312381-96fc-406f-a1fd-0e852d5ab509"], - -Cell[, "Output",ExpressionUUID->"dda0c899-e82a-4b84-9a16-46c6506c9d35"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"0c9a24df-e68c-461a-ba70-0bac82c00f0f"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"209b61e6-ea35-45fb-a7ee-ff8641f61cee"], - -Cell[, "Output",ExpressionUUID->"0d97663f-3bc4-425b-a7c0-f3432eb1fcd6"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"450017d5-3e88-4e32-bd3d-dfd0d7644959"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"e297d766-a8fa-4de3-b30a-9a3f30e2c1f8"], - -Cell[, "Output",ExpressionUUID->"f2429b01-7984-4070-aaee-10231365b720"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"8d3f801c-2293-4ca2-84e7-5a8683b7eaf1"], - -Cell[, "Output",ExpressionUUID->"f32370b2-29b4-4a67-b7a5-6cd72b79acb9"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"239ef493-7cc7-47b1-81a8-94f331e00ce1"], - -Cell[, "Output",ExpressionUUID->"15ee4c9a-c829-445a-b182-767e4df814ff"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"b20c0eee-a200-4247-b652-5ba1650e9b5f"], - -Cell[, "Output",ExpressionUUID->"5f96eb98-50fe-43bb-9a73-854740c7372f"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"3e302e31-0839-4a7a-911f-ef7959a97430"], - -Cell[, "Output",ExpressionUUID->"40a49cc7-e27b-498b-9d75-a82273bcd8a7"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"6deee041-d448-439c-87cd-9df997417af7"], - -Cell[, "Output",ExpressionUUID->"7ca09e9d-964f-40c8-bceb-b721d07455d7"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"99574bb0-c58e-4d9b-991d-de0538a79ce2"], - -Cell[, "Output",ExpressionUUID->"4286d6ad-13e2-4c9f-a802-01f8b5be79a5"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"9a24f42c-93c4-41df-8879-8354b7f36469"], - -Cell[, "Output",ExpressionUUID->"39eb5162-da89-40a5-8bff-ab21a0a6b4ff"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"73e6bc7f-3afd-45d8-90d6-30e29942196b"], - -Cell[, "Output",ExpressionUUID->"6da5446d-49fe-42de-8af9-2e5e0b368c4e"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"8c2764e5-f190-4d3c-b052-79717cc35a48"], - -Cell[, "Output",ExpressionUUID->"ef502a42-c8ae-45d1-bab3-7517f089824f"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"18b2f6d3-0d19-4706-831e-f2fcc505b53f"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"00eeff7d-2516-4f30-a51c-9ec970fb3742"], - -Cell[, "Output",ExpressionUUID->"ccf1409f-a14b-44eb-bf46-26eb9198a2e8"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"e6713a47-0d38-4adf-843b-ed15e3c46c4e"], - -Cell[, "Output",ExpressionUUID->"611e7a6b-12f8-4502-81ca-f88453f7d81d"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"fe20d7b4-7ac7-4f3c-965a-a64f2c290b79"], - -Cell[, "Output",ExpressionUUID->"654cf4f1-b6c1-4354-84c0-60826f56d62e"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"9c2f3df4-6178-4694-993b-bda1ee283ce0"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"c86851c1-cf2b-41e6-a0f0-e785148a7384"], - -Cell[, "Output",ExpressionUUID->"e0d97b17-168d-4d7b-b22e-edf82ae92052"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"a628642f-9345-446c-9af5-bd9f8be7795e"], - -Cell[, "Output",ExpressionUUID->"3faad427-2602-4847-8767-c30225439c4d"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"83bf7d3c-fe44-4a49-91b0-3b230822412d"], - -Cell[, "Output",ExpressionUUID->"049539cd-508e-4808-998b-7255f22297e0"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"737114e7-27bf-44e9-90d0-f3e220e1fbe9"], - -Cell[, "Output",ExpressionUUID->"bfe13574-c198-44c2-a82a-7a68ac6594b1"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"00c11329-3fd1-410c-9023-c4475a374c1c"], - -Cell[, "Output",ExpressionUUID->"7bb2f702-f67a-409b-9ff6-e4dfb82006a5"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"5d1b0a3d-de27-482a-bae3-c23bae163f5a"], - -Cell[, "Output",ExpressionUUID->"a6f1a8a6-2049-4a79-91ac-9abd4b607c36"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"f6133534-d260-4c20-9384-1504d38050b5"], - -Cell[, "Output",ExpressionUUID->"ae94140a-a048-4e2f-ab64-bb4bbb28ced1"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"3449f203-04a7-4ee2-976c-6c588cac8b8c"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"8a565b8f-7303-4318-a332-ad1e6cc11f57"], - -Cell[, "Message",ExpressionUUID->"60276545-3db0-456d-ae55-b68487ca8c38"], - -Cell[, "Output",ExpressionUUID->"71ef8082-2ad9-4072-9555-3b534a868061"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"931220ee-0e2c-4f75-bb54-332cf08adc26"], - -Cell[, "Output",ExpressionUUID->"76515291-b1a5-4c25-9f97-9ab33d68ca06"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"60091d62-df15-4dc3-84fc-ce944ef9bf9a"], - -Cell[, "Output",ExpressionUUID->"2aa49536-d57a-45f7-be94-d293282e519c"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"450ea135-d1f8-46af-bbce-2567632c716d"], - -Cell[, "Output",ExpressionUUID->"a4b3b783-b1f7-4ea2-a67e-0c6931c0bfbf"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"e6be9a58-00ef-4cc4-9f98-b244abdb64a9"], - -Cell[, "Output",ExpressionUUID->"5dac9722-8d43-456a-b7f8-6fb8a2409567"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"51ec65c5-a0e6-4978-a6f1-be5685a51a29"], - -Cell[, "Output",ExpressionUUID->"cffe87cf-9e79-490f-bdd3-c4f96ce4a779"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"1df50e30-664e-48e3-9859-86c2671ecf4b"], - -Cell[, "Output",ExpressionUUID->"8dce01cb-6835-415b-8420-582e04b50ae1"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"96edcc0a-bb4d-4e36-be9f-ce6a8a0d98be"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"4a8baa30-33ff-46db-9ac4-7fd988d3cfde"], - -Cell[, "Message",ExpressionUUID->"28f96585-e12b-4a24-8c48-750f18f8071e"], - -Cell[, "Output",ExpressionUUID->"7ec5973e-217a-4934-9c67-94501f20e071"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"e9352cf8-02f1-478b-8280-4509621bf9c3"], - -Cell[, "Output",ExpressionUUID->"5e62b330-364e-4d8a-8f23-180a2304812a"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"0a27f704-930f-4a1b-bf73-10e745ca5c38"], - -Cell[, "Output",ExpressionUUID->"0e911c57-92d6-4211-b513-7b06f78d0f94"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"0d0ac8b8-8b41-4baf-98d6-ab5c2fbbd568"], - -Cell[, "Output",ExpressionUUID->"e860e315-d3af-419a-a95f-08d7aac8e9da"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"95e7b2ca-f79f-42f7-a4d6-b9999aaaebbf"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"b06f22eb-d540-4a76-85e3-72d785ad1b70"], - -Cell[, "Output",ExpressionUUID->"46b348e3-bd8e-4c18-9375-32bbcccbec33"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"addaa5fb-500f-4ed8-a5f7-6fd64ad3eaa6"], - -Cell[, "Output",ExpressionUUID->"dab5a296-dac7-42c3-83dc-f259ba6d8925"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"d36b355d-67fb-4c2e-838b-03fe471dc611"], - -Cell[, "Output",ExpressionUUID->"7b83e30f-16ba-4710-9392-892c46b5d312"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"c82c5d89-ecae-4e05-930f-c26cc54103a7"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"290e904f-7c29-43f1-8bd5-c9be3d1bef02"], - -Cell[, "Message",ExpressionUUID->"54c445a3-7d1c-40ef-870f-ec5a37efb826"], - -Cell[, "Output",ExpressionUUID->"67e4a52e-0a2c-4bbb-b96c-829e61f321c4"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"d5e39058-5f9e-47c6-946f-532c8ed529f6"], - -Cell[, "Output",ExpressionUUID->"e645c593-9553-43d8-b4f5-be8c82e277ad"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"f961015d-b6cb-47e5-9e1a-587921f3fc25"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"b0341393-a02b-4e09-8998-73efab4bb17b"], - -Cell[, "Message",ExpressionUUID->"6bf66ca0-e854-42d9-a6e5-6c371f075fd1"], - -Cell[, "Output",ExpressionUUID->"f3fcddf9-a725-4739-93f0-1701965c61c6"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"d47e2a5d-4016-4693-a6ce-5324eab8db08"], - -Cell[, "Output",ExpressionUUID->"bff3b92b-b815-4ac0-a4e4-2c9f9d9f5abb"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"33e14fd0-f4a2-4619-9046-e5d0a24c5515"], - -Cell[, "Output",ExpressionUUID->"0487d3ef-3258-426a-b0d1-5b48a90b960f"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"fa6a2ed9-7736-4734-8d89-947640bdc4df"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"b6ce76a3-8eb8-4131-a4d1-f97747ad0a43"], - -Cell[, "Message",ExpressionUUID->"9726d445-7313-413a-b996-e5e5833bfc27"], - -Cell[, "Output",ExpressionUUID->"0a3d0d0f-5572-4382-8897-9eb6a8ad8875"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"f3aa018e-5bd8-4d90-b041-b8e238ccecf2"], - -Cell[, "Output",ExpressionUUID->"3fa1f8ac-f980-461c-8d8c-ef235c92c093"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"0b2df119-bcef-4653-a833-253e2a81e50c"], - -Cell[, "Output",ExpressionUUID->"c475e4a0-6cfe-4be2-a1e1-19e2f45f524c"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"1f5c6902-7eed-4c8b-8e0a-99a9b170e1ca"], - -Cell[, "Output",ExpressionUUID->"51a1aad9-05b0-462a-891d-22d8f6a6b9c1"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"e16359b5-e4d6-4bb7-86eb-f63803ad6855"], - -Cell[, "Output",ExpressionUUID->"5de69e48-41bd-45f3-a994-7e676e47e408"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"95054690-5631-4591-bd21-220db7338a94"], - -Cell[, "Output",ExpressionUUID->"1831476b-e621-49f5-905a-8c35a3a8d0c4"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"342ac8ee-ab8e-4ae6-bb1c-86464af5e526"], - -Cell[, "Message",ExpressionUUID->"aa233660-6314-440b-a55e-4be02e56a457"], - -Cell[, "Message",ExpressionUUID->"8cb1e3ab-1e3f-4b77-b899-3805356aedb6"], - -Cell[, "Message",ExpressionUUID->"680d170d-a28d-4f1f-ae74-aad91fb95e48"], - -Cell[, "Message",ExpressionUUID->"58554aee-0abc-4545-9de7-f32a62d9fbde"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"50e71e0c-5917-461a-a368-516214da0cbe"], - -Cell[, "Output",ExpressionUUID->"922be907-db35-4063-bac4-a9e321cb3961"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"77b309c5-73e7-45d2-91cc-18b17ef11474"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"4a2b2cef-4c8a-419d-af13-1402f00c00ac"], - -Cell[, "Message",ExpressionUUID->"915b4994-47ee-4f92-a180-66582fad2eee"], - -Cell[, "Message",ExpressionUUID->"d99a257a-bebb-423f-b4c7-c1daf92c9d89"], - -Cell[, "Message",ExpressionUUID->"3935845a-b829-45bb-8c68-b38f6c89200d"], - -Cell[, "Message",ExpressionUUID->"2cd99774-06cd-4554-9019-8374804b72cc"], - -Cell[, "Message",ExpressionUUID->"a63719b3-c483-4dcc-bf9d-07e3ec86a01a"], - -Cell[, "Message",ExpressionUUID->"b75c5dbc-0033-4ee6-9b1f-38ed8cbfa052"], - -Cell[, "Message",ExpressionUUID->"a8b8b506-1639-4e24-a563-d4136102a4f5"], - -Cell[, "Message",ExpressionUUID->"511b399f-cdfc-483b-8b33-e482ad95258c"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"ca2c6c9e-8737-4ee8-bc57-68cf26050e9d"], - -Cell[BoxData[LineWrapBox["\[AutoOperand]"], InputForm], "Output",ExpressionUUID->"fe2c0268-4ac2-4856-a458-2b2ecc705830"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"f06eadd6-9832-4fdb-a4a4-ddef5420835b"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Section",ExpressionUUID->"73b64eac-273b-425b-a331-b6933d676fd6"], - -Cell[, "Input",ExpressionUUID->"d13597be-e72d-4cdb-af3a-f0b94a3f0970"], - -Cell[, "Input",ExpressionUUID->"3b10129f-a36e-4d1b-a00b-514cb8ac50ff"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"118d3658-5348-469a-b2ad-f44c69555e8b"], - -Cell[, "Output",ExpressionUUID->"40b71c15-7178-4e1d-baaf-3055b8b52605"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"02d17a86-04cc-4922-b242-dcd51a9d65f8"], - -Cell[, "Output",ExpressionUUID->"3d6f89b5-91ac-4aa4-97da-a23913d31784"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"2c311680-125d-4d73-90ca-4a60c38bf322"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"9e6a1d24-f014-4fe9-be77-974a12fca0fe"], - -Cell[, "Output",ExpressionUUID->"407ae6df-d854-46fa-89cb-b3f036f64b60"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"e2ac1b79-09f2-4e0b-a239-d0a4c4da0244"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"70b9bc85-93e5-4826-92fb-571d71a8eda2"], - -Cell[, "Output",ExpressionUUID->"d529a14b-b9bc-40e2-a38b-0a93a86f22cb"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"c2982a71-bee2-402b-b711-14ff0e1d975b"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"eb3b6f46-8f1b-499b-bd37-73dd9dbe3965"], - -Cell[, "Output",ExpressionUUID->"b19a8bbc-696f-478f-8efd-17e3a701f03a"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"ec1f346b-e3d6-4aed-81a9-433cc61075e2"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"ce1f7cd1-187a-4bdb-9abb-22e60d05d220"], - -Cell[, "Output",ExpressionUUID->"ad028f9e-9c96-442a-bc9c-8c249d83de0c"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"f8ba24d7-b465-4f57-b8b9-3eddeb7d14a3"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"b4a6df9a-91a8-4635-862f-4bd555c155f7"], - -Cell[, "Output",ExpressionUUID->"30b13007-d27d-4650-84b7-1972dd40c547"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"abfcd87a-ebce-468a-8f85-c110a9865cea"], - -Cell[, "Message",ExpressionUUID->"3860ae9c-b3e1-4baa-bf1a-838d8ea7b786"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"7892ffd7-9d9b-4c1c-8261-52d8988354c2"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"55e0fbbd-2ed9-4115-aa6a-046aad10a4ce"], - -Cell[, "Message",ExpressionUUID->"02b1987e-bc05-4ab0-846f-f66898511e03"], - -Cell[, "Message",ExpressionUUID->"f92d67b7-53eb-418f-9117-85a81f2c7e69"], - -Cell[, "Message",ExpressionUUID->"de504e26-62e8-4a6b-81e9-23f16b282fc2"], - -Cell[, "Message",ExpressionUUID->"35bee074-7096-46be-9a36-d8f290cd7eee"], - -Cell[, "Output",ExpressionUUID->"8edb77b6-128b-4499-b103-824312343bc9"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"4007a06a-c36d-4267-9da4-5dd7578af24b"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"bcd862ca-0c6d-49dc-b7f7-a4af1c0fddbd"], - -Cell[, "Output",ExpressionUUID->"19b6efb2-e456-4795-9a84-adaa7f819548"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"41a6091e-cd4b-4760-9253-8fab045b5cfc"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"435c2ff9-fab3-4eb0-b11d-2fea08568b69"], - -Cell[, "Output",ExpressionUUID->"5c25400b-27ea-497f-9cd2-a931bb65700c"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"358e8df2-4ab8-49e0-a232-9b2b7df3ab47"], - -Cell[, "Output",ExpressionUUID->"ef8a8bd3-9852-4e8d-963d-b79c1302cb41"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"2dad3995-6cc5-43e6-92ea-11c5390dee3c"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"4f0d3f8a-22a1-4de9-aeb5-6a358639a71d"], - -Cell[, "Output",ExpressionUUID->"be6fbb63-6068-40a7-ab80-da6b36baec73"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"ab4b4c65-5832-4276-862e-5242fb7d6363"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"035b9f37-0cfb-4aba-8123-7cc74903c351"], - -Cell[, "Output",ExpressionUUID->"2ad90df1-94b6-4808-b452-aa2bc54eae46"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"cc60351b-00d0-4f4a-af87-3e28031d6440"], - -Cell[, "Input",ExpressionUUID->"ce42704f-347c-42fe-bde0-05ddaa3a44bc"], - -Cell[, "Input",ExpressionUUID->"1f992dbd-bae5-408c-9b30-6cb5bb49ce1a"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"d0cd008d-7e0c-44a1-888f-d8ea046ad195"], - -Cell[, "Message",ExpressionUUID->"573b50e4-a167-4240-874c-d6a3ee78338f"], - -Cell[, "Output",ExpressionUUID->"f3761f04-a50b-4162-a453-129ab3390c0c"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"1021d90d-3130-4746-a366-8e537e9f7f92"], - -Cell[, "Output",ExpressionUUID->"b2913881-77a8-4ff7-a02c-848342d37f3f"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"480e1fae-c70a-4dc6-ac76-229ca216edb8"], - -Cell[, "Output",ExpressionUUID->"572ddc0e-f61d-4a1f-9173-aebf56a24cca"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"c09664cf-d15b-4a23-8294-e9605ddd22c4"], - -Cell[, "Output",ExpressionUUID->"f66300ea-b0c9-492a-9514-2d872304296f"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"d1a1a08a-7743-4c1f-999e-35d5863f31fb"], - -Cell[, "Output",ExpressionUUID->"fdbf7482-f319-434b-a9b0-b63a508b25d3"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"49b749a8-26c7-4701-88ad-41f818e6781b"], - -Cell[, "Output",ExpressionUUID->"102d5ef0-bd9b-4a9c-920c-620b92d6e55b"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"1a7f3257-b002-4e6f-8d52-fb23c32b78c1"], - -Cell[, "Output",ExpressionUUID->"98a5d1ee-e995-4639-bbc4-bd6d77881181"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"bc0af480-becb-4018-91b2-4b617fc7951b"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"95c86e97-8f9e-443d-9865-56bdfa44d83f"], - -Cell[, "Output",ExpressionUUID->"17bd4976-b52d-4a43-bc56-a2b4287abf15"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"b7a26664-ada5-4185-8605-763a66cf493c"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"07a06295-0c86-4571-862c-1b79355e2e42"], - -Cell[, "Output",ExpressionUUID->"fb1cb8fb-b198-4921-a417-479e3cab8113"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"5bb748f9-2e46-4b60-9377-5e64bea9f5ab"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"bfcc2298-9520-4e3e-81e5-091982c2dfa8"], - -Cell[, "Output",ExpressionUUID->"6ac2fbf2-0ee6-4a56-ab59-573c5f2f4b87"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"511516ea-bd01-44e3-8941-68151b4f12b2"], - -Cell[, "Output",ExpressionUUID->"45204ae8-353a-4794-8699-1021cd2f52f1"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"d2bab649-d2f0-49c7-b517-0f8671e732d6"], - -Cell[, "Output",ExpressionUUID->"21d0fb37-d7d5-4a4a-9ced-77dce269bbfd"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"9c6e13b7-3832-44aa-8ebe-5eca02c1336e"], - -Cell[, "Output",ExpressionUUID->"22a354d9-1544-427a-8c87-f3ecd868bed8"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"7f8fd216-7b8a-4b9a-884b-ead2a99859a2"], - -Cell[, "Output",ExpressionUUID->"807367f2-a9ad-4b30-bbc1-1b4867e4aa48"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"03ac9924-da39-48d4-9ae4-52f15502e050"], - -Cell[, "Output",ExpressionUUID->"87770eb8-8821-46dd-ac7b-46ad45617bdf"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"f8907a27-9264-4d86-91e8-8f88597032d7"], - -Cell[, "Output",ExpressionUUID->"0d8ea761-c72e-4ef8-b5b3-a30d1c1b3dc4"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"14464e07-8c6d-468d-b2ba-bf425beab7f2"], - -Cell[, "Output",ExpressionUUID->"19ec2d02-c81e-4e6a-a56b-a9c11bcbce0c"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"0e679d2a-91fe-422e-be1e-aaae26faa51d"], - -Cell[, "Output",ExpressionUUID->"546302c6-8a5c-42e6-96c6-7b6b2418f377"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"c14d1a02-c833-401a-8c13-5e0d4c5eedde"], - -Cell[, "Output",ExpressionUUID->"81a1abe7-f5bc-4b0a-8df6-94f7cdcf806e"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"443e678e-b73d-44eb-9051-93d8f0b286fa"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"6430dd00-07f2-4336-8792-3cd2455e5bf3"], - -Cell[, "Output",ExpressionUUID->"09a933ce-8388-4765-beb0-61d5cc751db1"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"45ac9141-9464-42fd-83c7-33e1eaee2423"], - -Cell[, "Output",ExpressionUUID->"65593926-565e-4cf2-bfb8-1244b4fe2f5a"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"f9103426-e57d-41de-bc33-9092d98a1912"], - -Cell[, "Output",ExpressionUUID->"1cd46633-edd7-4183-a567-b154605f473c"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"1492dec3-1fb8-4180-9817-ee3849924de6"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"12e71d93-1674-4c7c-bf6d-cf32f64b5b27"], - -Cell[, "Output",ExpressionUUID->"9d4e0ff1-bf10-45e1-9404-5a6532922a19"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"148416db-27a0-4bef-b391-5efd6311252f"], - -Cell[, "Output",ExpressionUUID->"121ebf81-c91d-48a6-ac44-e859f334c670"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"8e8db3b9-2812-4935-bee8-db8da418d7fa"], - -Cell[, "Output",ExpressionUUID->"6b740e62-0e16-4113-af36-c654ab81e160"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"efd88356-0b5e-4a48-86f0-fcc10c921966"], - -Cell[, "Output",ExpressionUUID->"844c1ef2-278f-41b9-b3b0-2c85fb0a0a66"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"16535e55-0968-43b4-a202-3bb6d4ca811d"], - -Cell[, "Output",ExpressionUUID->"e17a1817-c7c2-43e2-8085-466fb38900a8"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"9035fdc5-d96d-4664-88f1-108a471ce989"], - -Cell[, "Output",ExpressionUUID->"8c4ef7e5-0795-4413-8d94-ce34403a2bfe"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"4ab64f8c-2ace-4772-81bb-2767e4e50a60"], - -Cell[, "Output",ExpressionUUID->"6c015ea5-88ab-40d1-b8de-ac5367757b6f"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"4a84aff2-f5a6-40f1-9cb1-04d7aa37c80c"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"e3b60dd0-3eed-416f-a520-157d341b3b6b"], - -Cell[, "Message",ExpressionUUID->"bc8c1031-cd04-4bea-914c-bd471d8b24bf"], - -Cell[, "Output",ExpressionUUID->"3a73d7d8-6f0f-43ad-9460-eba9b1dcd3ac"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"c601cd58-c3f4-497d-bcb0-a1a424f26846"], - -Cell[, "Output",ExpressionUUID->"d69c4b09-19ca-4566-8ddd-1970295387be"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"b16a3a8e-59d1-4a82-8bef-8bea0da6d1e1"], - -Cell[, "Output",ExpressionUUID->"01b037f0-285f-40fc-9f42-223315bc424a"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"08f508bf-0984-4685-b36b-09bedad9c23d"], - -Cell[, "Output",ExpressionUUID->"e9dc8c3c-e0b4-4b4d-bf05-f32ff1248f66"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"77af0627-0460-481b-9313-f51b13e56b82"], - -Cell[, "Output",ExpressionUUID->"7b6a0c85-7cdb-40cf-bdb7-8dfeb3bcafc5"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"96041283-ca41-4bec-a851-fc958143074f"], - -Cell[, "Output",ExpressionUUID->"349ef79c-2101-4c31-9834-fd73aa857377"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"40271ee7-6593-46be-9bda-2a54c3f1dd65"], - -Cell[, "Output",ExpressionUUID->"81aecfb3-e449-466d-a876-7f92452f32c6"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"a2ac1df1-ca7c-4dba-a905-59be755b5495"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"547cbf46-e936-4848-a00e-8a18f43b0b97"], - -Cell[, "Message",ExpressionUUID->"ac9d6d47-c1cf-492c-84b6-9f2bc21eab82"], - -Cell[, "Output",ExpressionUUID->"5f76cc71-8024-44a5-9beb-db4c8d4fca3f"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"70c9edfe-5ecc-4c90-9b48-c65dc7b840da"], - -Cell[, "Output",ExpressionUUID->"cca07006-2f3d-4d0d-afc1-9a034924d973"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"9ebbad1f-a858-494b-8020-0b77877c4741"], - -Cell[, "Output",ExpressionUUID->"4879f7d0-5190-464a-90dc-66903db3e0c9"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"5886d572-3cda-4845-a6ab-fded69b22491"], - -Cell[, "Output",ExpressionUUID->"4a243cf5-91fd-4307-a4d9-f5501990c8ee"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"efeb4a44-1bdb-4041-9cde-f40d4f7e6804"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"c6de27eb-5bc8-45db-9b60-29e5e97b710a"], - -Cell[, "Output",ExpressionUUID->"bbfdc74b-827c-4766-bc1e-fd9dc14d6024"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"6ac9e8b3-9bd4-4acb-8cb9-ff723572dba3"], - -Cell[, "Output",ExpressionUUID->"908d155a-de6a-4d16-8701-26bdc229b1cd"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"4f78fb08-6a38-4557-9e90-92c768da5ece"], - -Cell[, "Output",ExpressionUUID->"afe60a00-9560-4f44-9b86-68cede075c99"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"497f772a-bb61-4620-8207-2e6f226bcf84"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"a9845f9a-4a88-4510-a8da-8ae527fe7af5"], - -Cell[, "Message",ExpressionUUID->"be0f7494-f3d0-4cea-a8fa-faa16715d971"], - -Cell[, "Output",ExpressionUUID->"1687f408-b88f-4c1f-89ab-7a85b56b321d"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"134b85f6-1e18-4ab5-8d8e-ba4de448deba"], - -Cell[, "Output",ExpressionUUID->"56035f9d-204f-4262-abd6-2e809bcdbfe4"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"bac4ba3c-9772-4eea-a624-7b3a59f3702b"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"f47caa85-ccf3-4491-9432-418c399b1f82"], - -Cell[, "Message",ExpressionUUID->"9793dec7-95eb-44d1-a04d-8dd81fe1078b"], - -Cell[, "Output",ExpressionUUID->"844f838b-f9c8-4af5-b6eb-c9a9f0a7d9c4"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"739ac51d-0a03-4b17-bfdc-8d68f35f0c23"], - -Cell[, "Output",ExpressionUUID->"fceea5d2-3003-4233-bc07-cd744e2cca6c"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"9776016b-07ba-464f-8f7c-19871343d900"], - -Cell[, "Output",ExpressionUUID->"c0233763-1810-4ebb-a219-a6b546ddaa9b"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"359460c4-cd9c-4fdd-b45a-cc6976e4f354"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"c143c3b7-2214-4be6-9324-4865d07dfda5"], - -Cell[, "Message",ExpressionUUID->"6e22977f-ac51-4420-89c6-e8701b475ca4"], - -Cell[, "Output",ExpressionUUID->"18ecae2f-ac15-4aa5-a248-883a3f54920d"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"86e16904-5038-4aa6-98f1-82398df6a0bf"], - -Cell[, "Output",ExpressionUUID->"39284aca-f6b5-4edc-87a0-4cedee932918"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"8ab3500c-ebcf-48ec-a5d1-e12a122a7a99"], - -Cell[, "Output",ExpressionUUID->"db8b6b35-0df5-4e80-930c-0e8351717f50"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"e89bd1c1-249f-41b0-905c-be326bc141ab"], - -Cell[, "Output",ExpressionUUID->"dd1596d9-c6ab-4180-b003-7f24556d206b"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"d1a7862e-f18b-4c80-8d5a-e634a9689bef"], - -Cell[, "Output",ExpressionUUID->"8c4f4718-698f-458a-bc05-70e9c5d982c6"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"dc4b3578-5cd8-4e1b-947d-8e9c1354adba"], - -Cell[, "Output",ExpressionUUID->"a15a0a15-e7c0-49b4-9e01-a59bb994d72f"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"723aea99-0f8c-40da-85f5-195e41b2654d"], - -Cell[, "Message",ExpressionUUID->"5cb341dc-7c78-48ab-88d1-ab0cc344561a"], - -Cell[, "Message",ExpressionUUID->"6a2bf270-e5ff-4643-b1d5-c69a090adc70"], - -Cell[, "Message",ExpressionUUID->"060503a7-0291-4c71-adc4-62675634b6f4"], - -Cell[, "Message",ExpressionUUID->"2c9ec3f8-31af-4f14-88a0-11fa477456f8"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"c1833b71-8706-4483-8dca-0336a8da1dc5"], - -Cell[, "Output",ExpressionUUID->"74fce54b-483d-41d0-85be-7b73cf199a85"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"8b52d9cb-7231-41b1-bb95-f8fe74c01691"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"6cece336-c682-4647-a927-a1a85e694c69"], - -Cell[, "Message",ExpressionUUID->"81881f29-a4ed-4857-b90d-6a92c6f2a886"], - -Cell[, "Message",ExpressionUUID->"65af3e52-5b13-483e-8fb2-b7853704df63"], - -Cell[, "Message",ExpressionUUID->"c6071a3b-64f8-48a8-adee-3972a10d88cc"], - -Cell[, "Message",ExpressionUUID->"f8745bf6-25a1-40e4-abce-454f4435e2d7"], - -Cell[, "Message",ExpressionUUID->"ceaab3b6-1d85-4eaa-90df-9adc58669bfa"], - -Cell[, "Message",ExpressionUUID->"078419b7-603f-48cb-878b-7a1c24649e85"], - -Cell[, "Message",ExpressionUUID->"db4be287-8a7d-4743-9920-b58a6a24c7f4"], - -Cell[, "Message",ExpressionUUID->"348978ad-48d5-4e2e-a007-fa766c84358d"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"6623c3d0-c734-4c97-b5aa-8b4e1e8b5864"], - -Cell[, "Output",ExpressionUUID->"36cda7a1-1464-47c1-b5dd-e7362a0dae06"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"62b1f9a0-e25e-4026-863f-3dc2d1cf7efa"], - -Cell[, "Output",ExpressionUUID->"e7c528e1-0119-4983-96fd-9e6c2e437ff3"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"38aa6414-c597-4e41-98df-f3d0ed970813"], - -Cell[, "Output",ExpressionUUID->"8e9f254f-9dee-4f94-a914-cebdcb3f980c"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"34ae4c2f-5f56-4482-8806-353461f6d9f4"], - -Cell[, "Output",ExpressionUUID->"7f5969ff-1171-4f9f-9246-30a6d94b4c74"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"8319df3c-3ce1-4e09-97a9-14327706829b"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"d6d361e6-21b7-46e4-8f2c-03c8590c5841"], - -Cell[, "Output",ExpressionUUID->"f8ddd75f-2fc4-4ac6-b0ce-203490975bf3"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"aa122af0-aec0-4165-9428-aec714e0516d"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"c130f428-19cf-4909-a96f-c053c8f42438"], - -Cell[, "Output",ExpressionUUID->"85583a5b-eec1-4b78-a332-873f04d6e023"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"8e9d0132-bcad-498f-9e52-cde120c54e03"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"5fa14f5e-886c-46bc-9b14-c6720176213b"], - -Cell[, "Output",ExpressionUUID->"9b81114a-14fc-495a-8c08-1d756a623ea4"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"72235405-3003-49e9-9277-216bdd19750b"], - -Cell[, "Output",ExpressionUUID->"f830ee27-fdee-43c7-871a-57560f38bbc6"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"06bb7c1b-6411-48e8-b40c-03313a1b1f6b"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"76b93673-a7b3-43a6-9e29-6ad9396401f8"], - -Cell[, "Output",ExpressionUUID->"0975a7cd-68c4-4d5a-8ae7-4b1c3ba72757"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"c88b880d-b857-40ca-9a63-95d53e55b7bf"], - -Cell[, "Output",ExpressionUUID->"de5a51e7-28ce-4c24-a278-a281498822a4"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"56133658-9ffb-4dd9-beea-7a4a9665bb64"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"53dbad32-ec5e-415a-ae44-7e175c4cc62d"], - -Cell[, "Output",ExpressionUUID->"80c765f8-8713-4e91-a020-01bcee30c8bb"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"20576d59-77d2-4587-8b54-e96f4f4789af"], - -Cell[, "Output",ExpressionUUID->"410926aa-f2e4-469e-9687-84e7fafafd42"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"61ba87b2-2e59-47a1-b0bf-d6d16b3fe09f"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"ee9b0b01-61b9-4003-bfdc-0d1ee60b1135"], - -Cell[, "Output",ExpressionUUID->"453b95ee-c08d-40f6-bf0f-969f1a6371f5"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"a02dbf6e-d3e8-40fc-8f91-97ce44305534"], - -Cell[, "Output",ExpressionUUID->"3d534243-6986-4c44-94c8-2cfc7b0c424b"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"a540f140-7178-4d36-8160-dbc454e04d20"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"b261c61f-4733-4246-84de-d7d4c5336416"], - -Cell[, "Output",ExpressionUUID->"e7d942d6-b5de-4cee-a451-9ff76fd7be44"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"21088011-be66-4170-baea-a33a49af9b77"], - -Cell[, "Output",ExpressionUUID->"b0a2cefd-b899-46c0-bac8-d8cf64b08797"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"76a3d83f-55a6-4495-92e7-d379873f8bf5"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"696865ae-6197-4bf6-8cb9-82f7027691af"], - -Cell[, "Output",ExpressionUUID->"3f367b1b-5289-479d-8818-8d5026d34c58"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"951b4751-e7a7-43a9-b71d-c342b12ded79"], - -Cell[, "Output",ExpressionUUID->"fae7dcfc-1ef8-4f13-b707-cfa52239d7f1"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"babf3d02-dfd7-4a2a-bebf-4b6d434fad42"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"1eebb6b8-6ebb-4195-968d-534adefebd17"], - -Cell[, "Output",ExpressionUUID->"a232f3cb-7d3e-48df-9bea-8365687d0d84"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"5f407b76-03f3-4ff1-9355-39b331e313a3"], - -Cell[, "Output",ExpressionUUID->"4a129c0e-ffcf-454d-816b-8135e08398e6"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"9fd0d7b3-723a-4745-a726-9fdf2b39fba7"], - -Cell[, "Output",ExpressionUUID->"3836ef38-db47-4901-969b-83ab058c6814"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"5efa30c9-1db0-40a0-87cf-7301139f0c0b"], - -Cell[, "Message",ExpressionUUID->"5e534b6c-3426-4b66-b043-f88446d6a122"], - -Cell[, "Message",ExpressionUUID->"e70fcd6d-bb67-4d9b-b064-21ec130c3c66"], - -Cell[, "Message",ExpressionUUID->"8cd3b1c6-f9d4-4d4e-a1b5-f963475c50a9"], - -Cell[, "Message",ExpressionUUID->"fa8219e9-df11-4a4f-9749-d019df690a87"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"8de9aa7e-dcc9-467a-a151-01458ed626a9"], - -Cell[, "Input",ExpressionUUID->"2469b932-43c7-40fe-b6b2-09a5426f4cd8"], - -Cell[, "Input",ExpressionUUID->"646dce3a-6abe-45cc-ad68-957f0e7b5df0"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"75736ccc-3184-41e4-ad91-58ec0e7d18e0"], - -Cell[, "Output",ExpressionUUID->"383df247-9bb0-4186-a605-f482a5332428"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"a80f3ed2-25ba-4135-a260-cfaa56bd029f"], - -Cell[, "Output",ExpressionUUID->"00b7e598-14de-436a-909a-4cbaeca28f2a"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"4b799eb5-3e65-4794-974e-5a939ba66bcb"], - -Cell[, "Output",ExpressionUUID->"885bd9d7-e4d4-44ca-95e0-dd4b508d7365"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"ec2aa747-d224-4d09-9f95-4d6e808d9847"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"99556b93-887d-4e28-b5f1-4971668c7f14"], - -Cell[, "Message",ExpressionUUID->"1b40ccaa-2835-493c-a7e5-216847235f9a"], - -Cell[, "Output",ExpressionUUID->"8b3767ad-c5e3-48ba-82d0-1c52a869df6f"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"839256a8-d803-4ae9-add8-b09560473faa"], - -Cell[, "Output",ExpressionUUID->"c7885b54-938e-4cb0-a8e9-37a1c922529c"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"87bf3c10-aa32-45f8-9d97-5d82421cc560"], - -Cell[, "Output",ExpressionUUID->"47c8d510-5692-4ef0-98da-fab1ffe5d797"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"51813a13-5909-4664-9338-ffd80c7cc074"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"c1fff837-d7cf-415b-9e16-5b61936973ca"], - -Cell[, "Output",ExpressionUUID->"398b730e-ac67-4206-aa79-b7f63452db24"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"d23aa627-f42a-4c0e-a95e-f3c91b885b83"], - -Cell[, "Output",ExpressionUUID->"e4310b74-c401-4adb-ad1d-ad463508fd10"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"4411a886-15ff-471f-b5de-d2d39484188f"], - -Cell[, "Output",ExpressionUUID->"4d6151ce-f884-4d79-985f-bdb1f82642a6"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"958eb5bc-5ccc-4909-8ead-78cd504f0177"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"d3df9a1e-0315-420f-b74a-67166024b8d9"], - -Cell[, "Output",ExpressionUUID->"fba60491-8cb8-456f-9d65-cca9fae53c19"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"24fe223a-5522-459b-9f8e-a98e4eb55edd"], - -Cell[, "Output",ExpressionUUID->"b40cbf52-daa0-4273-a072-74a74bbf3abd"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"a7504f21-1f0b-481e-b618-8f74ffea620f"], - -Cell[, "Output",ExpressionUUID->"84f42aad-4959-46e3-9401-798352eb23af"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"1e380866-ca84-40f5-a111-1332998088fd"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"78ab0d52-7eb3-41bc-8733-cec2b17f6a2e"], - -Cell[, "Message",ExpressionUUID->"163ef88d-0f11-45b2-b0d4-ec761d848a5d"], - -Cell[, "Output",ExpressionUUID->"30cbc1a9-96de-4fe7-b805-129c95e8cd2d"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"44ea1a51-4a8b-432c-8e54-2e3185867856"], - -Cell[, "Output",ExpressionUUID->"8d625824-7fb2-43df-be92-8ed403ac118a"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"aa29406b-8c3f-4290-9a5c-4f09ea21554e"], - -Cell[, "Output",ExpressionUUID->"7103c19c-f184-4cce-8f18-9df2656851ec"] -}, Open ]] -}, Closed]], - -Cell[CellGroupData[{ - -Cell[, "Section",ExpressionUUID->"747c9bc3-63ef-45c3-af83-bc456177b1c8"], - -Cell[, "Input",ExpressionUUID->"ebc19a92-5a4d-4254-8fad-8cadbfa1bd32"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"f224ec13-7431-41d4-919e-0ad10e8ff5b2"], - -Cell[, "Output",ExpressionUUID->"5043975f-bf54-4984-bf97-09e0c59f4acf"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"bdb2aaf8-6c60-4fd6-b0aa-d74503ebfe5d"], - -Cell[, "Output",ExpressionUUID->"672f3cb6-b559-424b-b6e9-dff18bdab931"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"9581e610-c27e-4ccd-9de0-7344556f685a"], - -Cell[, "Message",ExpressionUUID->"926f5636-f494-4b80-9e0f-998a05d07881"], - -Cell[, "Output",ExpressionUUID->"3c60fc73-ad7e-4b33-a3eb-fdc35776a150"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"3a793a2c-1a2c-433a-873f-55e7861acacf"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"6a4616ab-41e4-44cc-8806-ee9851e65934"], - -Cell[, "Output",ExpressionUUID->"7ae541cc-49f0-4346-9e8f-3995505a8e9f"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"02eee1a8-8fdf-4ef6-8fa3-737b3067106e"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"8858ddfc-1e71-4778-a0b8-512abba3d901"], - -Cell[, "Output",ExpressionUUID->"3a7e88f8-603a-4c66-8a1b-065c43aff3cd"] -}, Open ]], - -Cell[, "Input",ExpressionUUID->"954f68de-17bb-4b28-b089-18f4c1840d53"], - -Cell[CellGroupData[{ - -Cell[, "Input",ExpressionUUID->"fd8d9fbd-6567-43cc-a4dc-4c986b02e466"], - -Cell[, "Output",ExpressionUUID->"b7f39439-0c1d-40f8-af40-5fed6fd931de"], - -Cell[, "Output",ExpressionUUID->"2b7f8ec2-0126-4787-92e3-a6d9dd600de2"] -}, Open ]] -}, Closed]] -}, -WindowSize->{955.5, 1060.5}, -WindowMargins->{{2.25, Automatic}, {2.25, Automatic}}, -FrontEndVersion->"12.3 for Linux x86 (64-bit) (May 11, 2021)", -StyleDefinitions->"Default.nb", -ExpressionUUID->"6f6c570c-dfc0-4320-bdc7-0f1de62bb24c" -] -(* End of Notebook Content *) - -(* Internal cache information *) -(*CellTagsOutline -CellTagsIndex->{} -*) -(*CellTagsIndex -CellTagsIndex->{} -*) -(*NotebookFileOutline -Notebook[{ -Cell[558, 20, 889, 14, 24, "Input",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"], -Cell[1450, 36, 545, 13, 41, "Input",ExpressionUUID->"ea42bd52-8968-49ef-a999-7ab838217fa1"], -Cell[1998, 51, 463, 11, 24, "Input",ExpressionUUID->"2fdffe9d-9220-4c97-866d-0a1f5e3200a1"], -Cell[CellGroupData[{ -Cell[2486, 66, 207, 4, 50, "Section",ExpressionUUID->"bb531fce-8a9d-4a5f-8d6a-ec66b9fbf698"], -Cell[2696, 72, 70, 0, 71, "Input",ExpressionUUID->"c239eacb-bd0a-49ce-8667-3aa72e4020c9"], -Cell[CellGroupData[{ -Cell[2791, 76, 70, 0, 55, "Input",ExpressionUUID->"3d566693-1b4e-4bc5-b33b-b8036e1e4822"], -Cell[2864, 78, 71, 0, 58, "Output",ExpressionUUID->"86062308-fdba-4d87-8210-7ea083d14ee1"] -}, Open ]], -Cell[CellGroupData[{ -Cell[2972, 83, 70, 0, 115, "Input",ExpressionUUID->"3b9512c4-4741-4838-844f-dc1843a98be2"], -Cell[3045, 85, 71, 0, 450, "Output",ExpressionUUID->"2720c35a-79b8-423b-a048-5c7e2711f16a"] -}, Open ]], -Cell[3131, 88, 70, 0, 71, "Input",ExpressionUUID->"34ec14f2-e69a-4233-afa7-8b9340ca265f"], -Cell[CellGroupData[{ -Cell[3226, 92, 70, 0, 24, "Input",ExpressionUUID->"3c891175-2642-465d-b121-e5989a86c957"], -Cell[3299, 94, 71, 0, 58, "Output",ExpressionUUID->"38fb3ec6-64aa-4b63-b20b-7d35d2e4572a"] -}, Open ]], -Cell[3385, 97, 70, 0, 71, "Input",ExpressionUUID->"a96db868-d41f-433d-88d3-73a2b34157b2"], -Cell[CellGroupData[{ -Cell[3480, 101, 70, 0, 24, "Input",ExpressionUUID->"9e3392d7-9445-477b-9e57-3faef08acef1"], -Cell[3553, 103, 71, 0, 25, "Output",ExpressionUUID->"6c61aadd-c965-4458-a165-ef7680648fc1"] -}, Open ]], -Cell[3639, 106, 70, 0, 71, "Input",ExpressionUUID->"fb46f7c2-5761-4a64-9a5f-872dd3265e1c"], -Cell[CellGroupData[{ -Cell[3734, 110, 70, 0, 24, "Input",ExpressionUUID->"3d7346aa-9d8e-46fd-bcb4-ca52fff0d32a"], -Cell[3807, 112, 71, 0, 58, "Output",ExpressionUUID->"d3885981-ee95-4189-85fb-672f5e65f744"] -}, Open ]], -Cell[3893, 115, 70, 0, 71, "Input",ExpressionUUID->"1a9cafff-78bf-40d5-9387-97742820a6dc"], -Cell[CellGroupData[{ -Cell[3988, 119, 70, 0, 24, "Input",ExpressionUUID->"7bdef841-d628-418c-9bec-b16ca8655e30"], -Cell[4061, 121, 71, 0, 76, "Output",ExpressionUUID->"1db50035-262f-41c8-897c-83b291232a25"] -}, Open ]], -Cell[4147, 124, 70, 0, 71, "Input",ExpressionUUID->"53343c2f-4579-48fe-afdc-6555d61fefc7"], -Cell[CellGroupData[{ -Cell[4242, 128, 70, 0, 24, "Input",ExpressionUUID->"19f0837b-60bb-491b-b21f-34926c9efae8"], -Cell[4315, 130, 71, 0, 76, "Output",ExpressionUUID->"1588dece-8475-4068-8ebd-5f1063867c03"] -}, Open ]], -Cell[4401, 133, 70, 0, 71, "Input",ExpressionUUID->"3c48ca79-1fa5-4b7f-9423-94e659aae362"], -Cell[CellGroupData[{ -Cell[4496, 137, 70, 0, 24, "Input",ExpressionUUID->"c0c5581e-24f4-4c1d-bac2-acde9933d21a"], -Cell[4569, 139, 71, 0, 92, "Output",ExpressionUUID->"730ed06e-f4a9-43d9-985a-dd73afa5028a"] -}, Open ]], -Cell[4655, 142, 70, 0, 71, "Input",ExpressionUUID->"89ac8434-0e5c-4a82-ae51-65e191e4c98a"], -Cell[CellGroupData[{ -Cell[4750, 146, 70, 0, 24, "Input",ExpressionUUID->"a4de7394-b723-4a62-9094-2b462110711f"], -Cell[4823, 148, 71, 0, 92, "Output",ExpressionUUID->"e3a248c2-6739-443e-a469-171bafbb4a39"] -}, Open ]], -Cell[4909, 151, 70, 0, 71, "Input",ExpressionUUID->"ec5df7b8-ae45-47d9-baba-654f2daf3d01"], -Cell[CellGroupData[{ -Cell[5004, 155, 70, 0, 24, "Input",ExpressionUUID->"c28fec6d-42be-4754-8ff5-9f7327a42e34"], -Cell[5077, 157, 71, 0, 108, "Output",ExpressionUUID->"2f826db1-6725-439c-8bf9-7196d08ae46b"] -}, Open ]], -Cell[5163, 160, 70, 0, 71, "Input",ExpressionUUID->"454bbf34-d098-476d-8e27-8e882ae07c56"], -Cell[CellGroupData[{ -Cell[5258, 164, 70, 0, 24, "Input",ExpressionUUID->"fdda266d-54c1-43db-b6a7-a3d02502cd24"], -Cell[5331, 166, 72, 0, 34, "Message",ExpressionUUID->"b4090613-0332-49f1-a196-74002379eeeb"], -Cell[5406, 168, 71, 0, 124, "Output",ExpressionUUID->"1249aaa6-7d54-428c-8361-a89fa22f87ac"] -}, Open ]], -Cell[5492, 171, 70, 0, 56, "Input",ExpressionUUID->"7669b7fe-6525-47ea-bd17-bc39d72d2039"], -Cell[CellGroupData[{ -Cell[5587, 175, 70, 0, 24, "Input",ExpressionUUID->"0d0e5cda-a6fc-4708-80da-b887f6838668"], -Cell[5660, 177, 71, 0, 407, "Output",ExpressionUUID->"1661a955-9e84-44df-abe5-8a178d2f912d"] -}, Open ]], -Cell[CellGroupData[{ -Cell[5768, 182, 70, 0, 89, "Input",ExpressionUUID->"9112def6-5ff6-4224-8356-f50fa415d2f3"], -Cell[5841, 184, 72, 0, 32, "Message",ExpressionUUID->"311d3fb6-3107-4bba-ae21-2a9d8e2be9ff"], -Cell[5916, 186, 72, 0, 22, "Message",ExpressionUUID->"382c6f48-8be5-4040-8352-c107dd4acfcb"], -Cell[5991, 188, 72, 0, 32, "Message",ExpressionUUID->"db776803-ed60-4310-a108-852c80375404"], -Cell[6066, 190, 72, 0, 22, "Message",ExpressionUUID->"c054e628-2d2f-4c9d-b97f-3211d4a28e43"], -Cell[6141, 192, 72, 0, 32, "Message",ExpressionUUID->"be1896cd-ee42-475f-8df0-db9105e2a00f"], -Cell[6216, 194, 72, 0, 22, "Message",ExpressionUUID->"1c3e5739-b049-43f2-a094-b9e364dedc14"], -Cell[6291, 196, 72, 0, 22, "Message",ExpressionUUID->"8781108e-dab4-4d69-bb59-846e2cf30536"], -Cell[6366, 198, 72, 0, 22, "Message",ExpressionUUID->"b4b28af2-b0fd-4fee-8ea1-a1b8599ad243"] -}, Open ]], -Cell[CellGroupData[{ -Cell[6475, 203, 70, 0, 24, "Input",ExpressionUUID->"0b79b970-7045-4be7-b49f-562e6773070c"], -Cell[6548, 205, 71, 0, 371, "Output",ExpressionUUID->"a1b2e831-9c0c-4c48-9c35-6781403e92e0"] -}, Open ]], -Cell[CellGroupData[{ -Cell[6656, 210, 70, 0, 22, "Input",ExpressionUUID->"71c1d9b7-0cf0-408f-a132-11f858bc49f0"], -Cell[6729, 212, 71, 0, 481, "Output",ExpressionUUID->"5e583bca-872b-4fe1-bd8e-e1bcce981a2c"] -}, Open ]], -Cell[CellGroupData[{ -Cell[6837, 217, 70, 0, 39, "Input",ExpressionUUID->"7b03bcdf-5941-4689-8045-07928a4af682"], -Cell[6910, 219, 71, 0, 481, "Output",ExpressionUUID->"d7ee8225-65ff-4705-be5c-8b8dbe6fa41b"] -}, Open ]], -Cell[CellGroupData[{ -Cell[7018, 224, 70, 0, 22, "Input",ExpressionUUID->"fa8135b4-fdf8-4590-be4e-73b4dd086cab"], -Cell[7091, 226, 71, 0, 414, "Output",ExpressionUUID->"04ca030c-e442-4c61-8c4a-d152e5c203ae"] -}, Open ]], -Cell[7177, 229, 70, 0, 22, "Input",ExpressionUUID->"29cea7b5-4fca-4cb4-8837-f04711b34c21"], -Cell[CellGroupData[{ -Cell[7272, 233, 70, 0, 93, "Input",ExpressionUUID->"53b7755a-6f34-4db5-8104-878ea3587d8e"], -Cell[7345, 235, 71, 0, 387, "Output",ExpressionUUID->"616ea1b5-1320-415b-a819-c2f94d93d7ea"] -}, Open ]], -Cell[CellGroupData[{ -Cell[7453, 240, 70, 0, 22, "Input",ExpressionUUID->"76c95b5f-6514-4856-b4c5-cd646cd37488"], -Cell[7526, 242, 71, 0, 25, "Output",ExpressionUUID->"74073881-f4b4-4f07-8f9a-cd7d59bc3693"] -}, Open ]], -Cell[CellGroupData[{ -Cell[7634, 247, 70, 0, 22, "Input",ExpressionUUID->"02a5f468-5569-4ef4-9ad7-428f9cf2d754"], -Cell[7707, 249, 71, 0, 44, "Output",ExpressionUUID->"724a73d3-c790-4baa-985a-a709e0354abe"] -}, Open ]], -Cell[CellGroupData[{ -Cell[7815, 254, 70, 0, 24, "Input",ExpressionUUID->"7273c588-8e35-4fbd-8ebc-898cedb2387b"], -Cell[7888, 256, 71, 0, 44, "Output",ExpressionUUID->"6bcb7016-9e42-477f-b8aa-2bf28ae5ec18"] -}, Open ]], -Cell[CellGroupData[{ -Cell[7996, 261, 70, 0, 22, "Input",ExpressionUUID->"4696ee08-41ed-480a-83d4-b7dcd649182e"], -Cell[8069, 263, 71, 0, 25, "Output",ExpressionUUID->"581be5fa-833d-44bd-98d5-dde94e4dd98c"] -}, Open ]], -Cell[CellGroupData[{ -Cell[8177, 268, 70, 0, 93, "Input",ExpressionUUID->"73fa0a9d-2aa5-49d6-b995-2f0dc2997c86"], -Cell[8250, 270, 71, 0, 585, "Output",ExpressionUUID->"596e78c8-422c-425b-b6d3-1d4f2a3368df"] -}, Open ]], -Cell[CellGroupData[{ -Cell[8358, 275, 70, 0, 110, "Input",ExpressionUUID->"d049de83-a67f-4f70-9161-28ea593a16b8"], -Cell[8431, 277, 71, 0, 396, "Output",ExpressionUUID->"97929a1a-4107-4c3b-91b5-b4aea31a6a12"] -}, Open ]], -Cell[CellGroupData[{ -Cell[8539, 282, 70, 0, 59, "Input",ExpressionUUID->"ff8b8a76-8ef5-4079-b3c2-caca5f90a239"], -Cell[8612, 284, 71, 0, 368, "Output",ExpressionUUID->"ceca4cf7-358a-4475-9d74-be5382099c4a"] -}, Open ]], -Cell[CellGroupData[{ -Cell[8720, 289, 70, 0, 38, "Input",ExpressionUUID->"84fba399-0d44-478f-82db-cf6e8f6da218"], -Cell[8793, 291, 71, 0, 35, "Output",ExpressionUUID->"fc27ce97-44b5-4fd9-9fc6-8e3a80767ebc"] -}, Open ]], -Cell[CellGroupData[{ -Cell[8901, 296, 70, 0, 57, "Input",ExpressionUUID->"5e586711-0483-46d1-bccb-b6897d71c1e8"], -Cell[8974, 298, 71, 0, 169, "Output",ExpressionUUID->"2fa1caa4-ef1f-4ffd-8afc-94b16ed218ad"] -}, Open ]], -Cell[CellGroupData[{ -Cell[9082, 303, 70, 0, 22, "Input",ExpressionUUID->"0bf0ad7a-0c38-45b3-944f-2cd642717885"], -Cell[9155, 305, 71, 0, 108, "Output",ExpressionUUID->"cb46a863-90ee-473f-82db-5dc2a45b693e"] -}, Open ]], -Cell[CellGroupData[{ -Cell[9263, 310, 70, 0, 119, "Input",ExpressionUUID->"f15d8a52-1992-4696-8ead-3c4153434e55"], -Cell[9336, 312, 71, 0, 449, "Output",ExpressionUUID->"7c16b4f6-053a-49c7-adfb-2ff4cd3d1825"] -}, Open ]], -Cell[CellGroupData[{ -Cell[9444, 317, 70, 0, 22, "Input",ExpressionUUID->"f9fe281b-b610-448a-b868-789cd1438874"], -Cell[9517, 319, 71, 0, 271, "Output",ExpressionUUID->"cd6820b3-ec18-4309-a325-d9260e362bf3"] -}, Open ]], -Cell[CellGroupData[{ -Cell[9625, 324, 70, 0, 75, "Input",ExpressionUUID->"379795e2-1f10-4c9d-aca9-574975c0b53e"], -Cell[9698, 326, 71, 0, 181, "Output",ExpressionUUID->"e32fce1f-84cc-4e58-9ec5-270c393270f4"] -}, Open ]], -Cell[9784, 329, 70, 0, 71, "Input",ExpressionUUID->"614f63fe-75a0-4c56-b782-48ad98bc3c89"], -Cell[CellGroupData[{ -Cell[9879, 333, 70, 0, 24, "Input",ExpressionUUID->"b56cc8a2-a504-4115-9171-a6a6d7088e3d"], -Cell[9952, 335, 71, 0, 60, "Output",ExpressionUUID->"56bd1e88-9615-4515-9caf-f2b140d00ea4"] -}, Open ]], -Cell[10038, 338, 70, 0, 71, "Input",ExpressionUUID->"8507c1e3-d3a8-4bd7-b4aa-90d91d45805d"], -Cell[CellGroupData[{ -Cell[10133, 342, 70, 0, 24, "Input",ExpressionUUID->"de38480a-2d94-4587-b72d-6e029e15ee96"], -Cell[10206, 344, 71, 0, 60, "Output",ExpressionUUID->"43225297-d195-4377-8f95-86dbf3b45b01"] -}, Open ]], -Cell[10292, 347, 70, 0, 71, "Input",ExpressionUUID->"2ec9732b-3292-49d0-bac5-10ca2b2e2d27"], -Cell[CellGroupData[{ -Cell[10387, 351, 70, 0, 24, "Input",ExpressionUUID->"139619cc-039b-4609-af7c-bff6ef22fb47"], -Cell[10460, 353, 71, 0, 25, "Output",ExpressionUUID->"afa14344-bd55-431e-aa6c-c70efe6c5a4d"] -}, Open ]], -Cell[CellGroupData[{ -Cell[10568, 358, 70, 0, 22, "Input",ExpressionUUID->"0187bca3-1d0a-4623-aec5-953f437b51fd"], -Cell[10641, 360, 71, 0, 25, "Output",ExpressionUUID->"598fc733-e306-4afa-b2be-5b73d49e16c2"] -}, Open ]], -Cell[CellGroupData[{ -Cell[10749, 365, 70, 0, 22, "Input",ExpressionUUID->"73d2b785-99f4-4bfb-b83d-3176ccfa253d"], -Cell[10822, 367, 71, 0, 25, "Output",ExpressionUUID->"d9b0e840-276e-4933-8ac7-3b44810cdfd7"] -}, Open ]], -Cell[CellGroupData[{ -Cell[10930, 372, 70, 0, 22, "Input",ExpressionUUID->"a3876a42-f9a7-42bf-bb98-8f496b0b9429"], -Cell[11003, 374, 71, 0, 25, "Output",ExpressionUUID->"25c6c990-0648-4b53-88ec-85fbf153b84d"] -}, Open ]], -Cell[CellGroupData[{ -Cell[11111, 379, 70, 0, 246, "Input",ExpressionUUID->"a8eefdf0-e27a-49c2-a914-30fe2e3be695"], -Cell[11184, 381, 71, 0, 170, "Output",ExpressionUUID->"74dd1d49-7e7f-4e72-b8c9-ce6b451108d3"] -}, Open ]], -Cell[CellGroupData[{ -Cell[11292, 386, 70, 0, 24, "Input",ExpressionUUID->"87e7aafd-8c36-4839-935c-cc46bf1f01dd"], -Cell[11365, 388, 71, 0, 25, "Output",ExpressionUUID->"fe7c92bd-96d2-4bd2-8311-6587e6a29f3e"] -}, Open ]], -Cell[CellGroupData[{ -Cell[11473, 393, 70, 0, 22, "Input",ExpressionUUID->"148e9d0d-8b87-4af5-afd5-d33dbd331cbd"], -Cell[11546, 395, 71, 0, 25, "Output",ExpressionUUID->"2cb15991-5446-4550-9d2b-990382cc6e0b"] -}, Open ]], -Cell[CellGroupData[{ -Cell[11654, 400, 70, 0, 22, "Input",ExpressionUUID->"8daebff1-3cc2-4bf5-8cc4-604c65c548b0"], -Cell[11727, 402, 71, 0, 25, "Output",ExpressionUUID->"9cd4be6d-9037-487d-805c-0e30c732a88f"] -}, Open ]], -Cell[CellGroupData[{ -Cell[11835, 407, 70, 0, 22, "Input",ExpressionUUID->"ec87e975-8e91-4764-a5f8-d113176427a6"], -Cell[11908, 409, 71, 0, 25, "Output",ExpressionUUID->"682ebcdb-8d48-4545-9fb6-2815a9591a34"] -}, Open ]], -Cell[CellGroupData[{ -Cell[12016, 414, 70, 0, 24, "Input",ExpressionUUID->"bd4bec0c-34d4-42ea-8210-676c5a4f3b02"], -Cell[12089, 416, 71, 0, 25, "Output",ExpressionUUID->"6744c9f9-54df-4620-86fe-20c2a1fb0a38"] -}, Open ]], -Cell[12175, 419, 70, 0, 22, "Input",ExpressionUUID->"cb5903e7-4ebd-478a-913d-f8dce03353cd"], -Cell[CellGroupData[{ -Cell[12270, 423, 70, 0, 22, "Input",ExpressionUUID->"7f91ac8c-3dfe-4e6e-876b-c110d899b203"], -Cell[12343, 425, 71, 0, 25, "Output",ExpressionUUID->"66d898e0-c199-4cd1-8c92-f951620499ab"] -}, Open ]], -Cell[CellGroupData[{ -Cell[12451, 430, 70, 0, 24, "Input",ExpressionUUID->"d7af33b7-ba2b-49a3-aafc-91ee8eb488da"], -Cell[12524, 432, 71, 0, 25, "Output",ExpressionUUID->"76e092cb-b3ca-4ad3-8371-d22bc3bdbfec"] -}, Open ]], -Cell[CellGroupData[{ -Cell[12632, 437, 70, 0, 71, "Input",ExpressionUUID->"ba65a569-6e06-47f2-aa64-ce40ed720e16"], -Cell[12705, 439, 71, 0, 183, "Output",ExpressionUUID->"49a28651-b01d-4119-8b17-5cececd6f4d8"] -}, Open ]], -Cell[12791, 442, 70, 0, 22, "Input",ExpressionUUID->"f53418ef-e0c9-44a5-92b0-cb484b4f96c8"], -Cell[CellGroupData[{ -Cell[12886, 446, 70, 0, 75, "Input",ExpressionUUID->"a30a4640-3744-4c0b-9800-1073a0fa0d50"], -Cell[12959, 448, 71, 0, 25, "Output",ExpressionUUID->"a91af46f-115e-4b5b-a963-4e64b27789f9"] -}, Open ]], -Cell[CellGroupData[{ -Cell[13067, 453, 70, 0, 75, "Input",ExpressionUUID->"6c557c5e-e6b4-4351-9c51-9653ebaa3755"], -Cell[13140, 455, 71, 0, 25, "Output",ExpressionUUID->"d46b93fb-0f62-45fa-a6de-37bde5cbd060"] -}, Open ]], -Cell[CellGroupData[{ -Cell[13248, 460, 70, 0, 37, "Input",ExpressionUUID->"b157e171-c7d5-47f2-b745-8f2e8fa0198c"], -Cell[13321, 462, 71, 0, 25, "Output",ExpressionUUID->"5a0db3ec-ac1c-432f-adee-e6747b4db94f"] -}, Open ]], -Cell[CellGroupData[{ -Cell[13429, 467, 70, 0, 24, "Input",ExpressionUUID->"bdb84812-f388-49c2-8ac6-3080c735f5e5"], -Cell[13502, 469, 71, 0, 44, "Output",ExpressionUUID->"b941a263-57d9-4309-b289-83857d3df95f"] -}, Open ]], -Cell[CellGroupData[{ -Cell[13610, 474, 70, 0, 22, "Input",ExpressionUUID->"7fec8d25-6d0b-475e-a3c6-8b90b79f873e"], -Cell[13683, 476, 71, 0, 25, "Output",ExpressionUUID->"48c117a8-371e-45ba-aa5f-facdd5f694ec"] -}, Open ]], -Cell[CellGroupData[{ -Cell[13791, 481, 70, 0, 39, "Input",ExpressionUUID->"feb6f5a0-8271-4175-8fd5-743c24ab49d2"], -Cell[13864, 483, 71, 0, 25, "Output",ExpressionUUID->"b00b9646-7ea6-4e6c-895b-add09ba6b344"] -}, Open ]], -Cell[CellGroupData[{ -Cell[13972, 488, 70, 0, 58, "Input",ExpressionUUID->"5553a701-d8ac-42d8-bf96-f61247fd91d5"], -Cell[14045, 490, 71, 0, 171, "Output",ExpressionUUID->"ff2eefd5-74bd-4633-a9f6-bb1945c40989"] -}, Open ]], -Cell[14131, 493, 70, 0, 55, "Input",ExpressionUUID->"4dc1af41-4bef-447e-a233-c8c033887359"], -Cell[CellGroupData[{ -Cell[14226, 497, 70, 0, 22, "Input",ExpressionUUID->"e74b775a-c745-4f15-9b63-7bb00af5a487"], -Cell[14299, 499, 72, 0, 22, "Message",ExpressionUUID->"05b00b91-b292-4f86-8ac1-2cad1d50f51c"], -Cell[14374, 501, 71, 0, 42, "Output",ExpressionUUID->"54c0d651-a676-4819-8283-9d2b33e602fc"] -}, Open ]], -Cell[CellGroupData[{ -Cell[14482, 506, 70, 0, 71, "Input",ExpressionUUID->"fb42dfa6-f948-472b-87e8-e4cb6e90ba26"], -Cell[14555, 508, 71, 0, 137, "Output",ExpressionUUID->"21f29296-03a7-4cc8-b760-b71dfa22b325"] -}, Open ]], -Cell[CellGroupData[{ -Cell[14663, 513, 70, 0, 41, "Input",ExpressionUUID->"a60f4b40-cbec-4d33-97f5-65de16370f80"], -Cell[14736, 515, 71, 0, 180, "Output",ExpressionUUID->"820bd75e-ec9c-4db8-b5e7-96cfd532640b"] -}, Open ]], -Cell[CellGroupData[{ -Cell[14844, 520, 70, 0, 41, "Input",ExpressionUUID->"49d01b4e-c864-4298-94b7-ace002b965d8"], -Cell[14917, 522, 71, 0, 180, "Output",ExpressionUUID->"3156e626-6fd1-4878-b776-44c6cf7fef12"] -}, Open ]], -Cell[CellGroupData[{ -Cell[15025, 527, 70, 0, 39, "Input",ExpressionUUID->"4cefebbf-3ee0-49eb-85d3-1f8acdd03d03"], -Cell[15098, 529, 71, 0, 27, "Output",ExpressionUUID->"5fad1eab-bed9-4cd3-a21b-8c8758b922eb"] -}, Open ]], -Cell[CellGroupData[{ -Cell[15206, 534, 70, 0, 75, "Input",ExpressionUUID->"82d96d28-401c-43fa-8337-b55bfd500552"], -Cell[15279, 536, 71, 0, 138, "Output",ExpressionUUID->"1ab9ef64-9a55-4344-9cb3-5443ea2b020c"] -}, Open ]], -Cell[CellGroupData[{ -Cell[15387, 541, 70, 0, 57, "Input",ExpressionUUID->"b2167779-1e8f-4690-a7d9-fe7d464a4815"], -Cell[15460, 543, 71, 0, 181, "Output",ExpressionUUID->"ead509b6-b153-4829-be33-8ff5a6efcada"] -}, Open ]], -Cell[15546, 546, 70, 0, 55, "Input",ExpressionUUID->"172fdee0-af8e-4049-9dda-cfec26fad09c"], -Cell[CellGroupData[{ -Cell[15641, 550, 70, 0, 24, "Input",ExpressionUUID->"0ea1b44d-26c0-49ba-8c54-6d51b749dcee"], -Cell[15714, 552, 72, 0, 22, "Message",ExpressionUUID->"1820350f-3096-4479-969b-2dda88e43862"], -Cell[15789, 554, 71, 0, 60, "Output",ExpressionUUID->"58f08fd4-743e-4318-9e82-7ecda92ce1db"] -}, Open ]], -Cell[CellGroupData[{ -Cell[15897, 559, 70, 0, 71, "Input",ExpressionUUID->"324ac29a-a49d-4e6b-a8d8-b259afcd34c7"], -Cell[15970, 561, 71, 0, 138, "Output",ExpressionUUID->"464153b0-04b0-46cf-82d1-649dc2c2d6a0"] -}, Open ]], -Cell[CellGroupData[{ -Cell[16078, 566, 70, 0, 59, "Input",ExpressionUUID->"288a2ff7-5161-4fe5-8f43-122ba3a5d3f2"], -Cell[16151, 568, 71, 0, 184, "Output",ExpressionUUID->"d5da57e7-0428-4391-af81-4f874cd963e4"] -}, Open ]], -Cell[CellGroupData[{ -Cell[16259, 573, 70, 0, 75, "Input",ExpressionUUID->"d85908e0-a479-4a49-999f-e6e49522af2d"], -Cell[16332, 575, 71, 0, 180, "Output",ExpressionUUID->"2f30870a-4c21-432a-b77d-85d6f131265e"] -}, Open ]], -Cell[16418, 578, 70, 0, 55, "Input",ExpressionUUID->"4fbf2b0a-5252-416a-b90a-a12f6d946efe"], -Cell[CellGroupData[{ -Cell[16513, 582, 70, 0, 22, "Input",ExpressionUUID->"5ac27342-feda-4aa6-9098-1d0e7b78fae8"], -Cell[16586, 584, 71, 0, 42, "Output",ExpressionUUID->"b47243ad-5432-4eb5-bbf7-870353157603"] -}, Open ]], -Cell[CellGroupData[{ -Cell[16694, 589, 70, 0, 71, "Input",ExpressionUUID->"63fcec7c-aaff-46be-90dc-231bca0993d9"], -Cell[16767, 591, 71, 0, 138, "Output",ExpressionUUID->"547073ca-2de1-44b5-8139-682a4eb761c9"] -}, Open ]], -Cell[CellGroupData[{ -Cell[16875, 596, 70, 0, 141, "Input",ExpressionUUID->"8f2cfc94-a67c-484e-bbeb-610484e18a97"], -Cell[16948, 598, 71, 0, 138, "Output",ExpressionUUID->"453285de-e47a-4bcc-96d7-ec76dfc88820"] -}, Open ]], -Cell[17034, 601, 70, 0, 55, "Input",ExpressionUUID->"59993536-91f3-449a-9e8c-58cd1f6ec74c"], -Cell[CellGroupData[{ -Cell[17129, 605, 70, 0, 22, "Input",ExpressionUUID->"ab599d2d-27ef-4491-b1cb-534f98403e59"], -Cell[17202, 607, 72, 0, 46, "Message",ExpressionUUID->"f4cd9634-0e29-4718-97b8-490c5f242f4a"], -Cell[17277, 609, 71, 0, 58, "Output",ExpressionUUID->"80e0c922-0db4-48ee-96b6-33400b7fa9d7"] -}, Open ]], -Cell[CellGroupData[{ -Cell[17385, 614, 70, 0, 71, "Input",ExpressionUUID->"f9bd15f0-d859-4863-9fe9-3ad2883e76d2"], -Cell[17458, 616, 71, 0, 138, "Output",ExpressionUUID->"27a9c152-8a0d-4899-aa74-6a603c9665b9"] -}, Open ]], -Cell[17544, 619, 70, 0, 55, "Input",ExpressionUUID->"1282028e-7a8e-46e3-bc91-b35b1d1604ed"], -Cell[CellGroupData[{ -Cell[17639, 623, 70, 0, 22, "Input",ExpressionUUID->"83c6d43c-fed0-4989-a06f-986a75bf7651"], -Cell[17712, 625, 72, 0, 22, "Message",ExpressionUUID->"cf50225b-a0ef-4626-94a0-0803782ba72f"], -Cell[17787, 627, 71, 0, 79, "Output",ExpressionUUID->"e4dd84aa-35ca-4c06-b076-812cdad95551"] -}, Open ]], -Cell[CellGroupData[{ -Cell[17895, 632, 70, 0, 71, "Input",ExpressionUUID->"9903c113-3088-4e43-884e-783e3462a3bd"], -Cell[17968, 634, 71, 0, 136, "Output",ExpressionUUID->"ace4a267-d48c-4a17-8b21-0b8791f1d4a8"] -}, Open ]], -Cell[CellGroupData[{ -Cell[18076, 639, 70, 0, 22, "Input",ExpressionUUID->"85ae5ebd-4d7b-469b-b177-bd88ef9a9e54"], -Cell[18149, 641, 71, 0, 178, "Output",ExpressionUUID->"392555db-33d5-4e50-8a31-e2a3a67d3a75"] -}, Open ]], -Cell[18235, 644, 70, 0, 55, "Input",ExpressionUUID->"d0ac4c0e-3fde-4f39-860c-119c61865e94"], -Cell[CellGroupData[{ -Cell[18330, 648, 70, 0, 24, "Input",ExpressionUUID->"31b6196c-dff7-4ae3-ba24-930461af4520"], -Cell[18403, 650, 72, 0, 34, "Message",ExpressionUUID->"7df3f521-17b3-470c-a210-7a61feecd5cb"], -Cell[18478, 652, 71, 0, 76, "Output",ExpressionUUID->"ea8fe62a-dd49-4054-b383-0738f0b8f82f"] -}, Open ]], -Cell[CellGroupData[{ -Cell[18586, 657, 70, 0, 71, "Input",ExpressionUUID->"c89d4fc8-2254-4238-b27d-107fefc31da5"], -Cell[18659, 659, 71, 0, 136, "Output",ExpressionUUID->"d1455115-bd06-4d75-a8b5-99c39d1e90d7"] -}, Open ]], -Cell[CellGroupData[{ -Cell[18767, 664, 70, 0, 55, "Input",ExpressionUUID->"d7824482-d74e-4fac-8224-3728d7d92b24"], -Cell[18840, 666, 71, 0, 178, "Output",ExpressionUUID->"ad65c8a7-66e9-4c1e-b599-35bacb78e113"] -}, Open ]], -Cell[CellGroupData[{ -Cell[18948, 671, 70, 0, 22, "Input",ExpressionUUID->"93164c6e-f8e2-4fb1-ab0b-a65d379b88ef"], -Cell[19021, 673, 71, 0, 25, "Output",ExpressionUUID->"db3875cf-f19f-4e24-a7e4-c4017292b8fe"] -}, Open ]], -Cell[CellGroupData[{ -Cell[19129, 678, 70, 0, 22, "Input",ExpressionUUID->"40b90456-e65f-4936-94f0-aa9e157985d1"], -Cell[19202, 680, 71, 0, 51, "Output",ExpressionUUID->"e84b103a-4734-481c-bc68-32680f2490ae"] -}, Open ]], -Cell[CellGroupData[{ -Cell[19310, 685, 70, 0, 59, "Input",ExpressionUUID->"802f97e2-70b5-4c0e-b977-f8a2e505bb60"], -Cell[19383, 687, 71, 0, 77, "Output",ExpressionUUID->"13540836-8492-44db-8f61-825c10092a3b"] -}, Open ]], -Cell[CellGroupData[{ -Cell[19491, 692, 70, 0, 63, "Input",ExpressionUUID->"9510d7f0-79c6-409e-9c06-caac79aa83b9"], -Cell[19564, 694, 72, 0, 22, "Message",ExpressionUUID->"b9cd98f1-c229-4f5b-95ec-13d954ebd59a"], -Cell[19639, 696, 72, 0, 22, "Message",ExpressionUUID->"ea96e00a-9fe6-4d33-80b4-d0a9eed78731"], -Cell[19714, 698, 72, 0, 22, "Message",ExpressionUUID->"a31115cb-de8f-481d-994b-5bc9a83710b8"], -Cell[19789, 700, 72, 0, 22, "Message",ExpressionUUID->"667a685e-0e76-4db4-8986-9eaad489f3e3"] -}, Open ]], -Cell[CellGroupData[{ -Cell[19898, 705, 70, 0, 24, "Input",ExpressionUUID->"4c6fe8ab-4f6a-4b57-92a5-c94e403d041d"], -Cell[19971, 707, 71, 0, 182, "Output",ExpressionUUID->"11addea4-5f17-44f9-80f6-b7d15dd56efa"] -}, Open ]], -Cell[20057, 710, 70, 0, 109, "Input",ExpressionUUID->"bc84d748-2ae9-4f3e-87ec-0fa12dfd6954"], -Cell[CellGroupData[{ -Cell[20152, 714, 70, 0, 126, "Input",ExpressionUUID->"c099f9b5-a706-4293-9c42-f007146a13f7"], -Cell[20225, 716, 72, 0, 32, "Message",ExpressionUUID->"94a73904-550c-43cf-8d0b-35b5cbc01228"], -Cell[20300, 718, 72, 0, 22, "Message",ExpressionUUID->"3f893d05-e641-4bf4-9ea5-bcabdc4d6a95"], -Cell[20375, 720, 72, 0, 32, "Message",ExpressionUUID->"53b27a41-4cd2-4652-a104-35161ad96bf2"], -Cell[20450, 722, 72, 0, 32, "Message",ExpressionUUID->"413977e9-0c84-449f-b053-9df53b50e738"], -Cell[20525, 724, 72, 0, 22, "Message",ExpressionUUID->"d499cd59-07fb-492e-b9f7-1ddddfebb272"], -Cell[20600, 726, 72, 0, 22, "Message",ExpressionUUID->"395175e1-6469-49cf-a376-9be005af7add"], -Cell[20675, 728, 72, 0, 22, "Message",ExpressionUUID->"8f65301b-fe48-42b3-9924-e0e8e3bea608"], -Cell[20750, 730, 72, 0, 22, "Message",ExpressionUUID->"6d1c81df-b866-4446-8abe-657a6a8d929f"] -}, Open ]], -Cell[CellGroupData[{ -Cell[20859, 735, 70, 0, 22, "Input",ExpressionUUID->"a66d45ff-8000-4c96-bcb2-2bc7343fd5de"], -Cell[20932, 737, 71, 0, 305, "Output",ExpressionUUID->"5364b922-5bbc-4121-ab23-dc5bb4bec4cb"] -}, Open ]], -Cell[CellGroupData[{ -Cell[21040, 742, 70, 0, 76, "Input",ExpressionUUID->"8e0288f2-5922-4dde-923e-8106073adf6c"], -Cell[21113, 744, 71, 0, 352, "Output",ExpressionUUID->"c6c9c8e8-7cb0-4ad0-a6c6-fb0a70db55da"] -}, Open ]], -Cell[CellGroupData[{ -Cell[21221, 749, 70, 0, 24, "Input",ExpressionUUID->"4355674b-0fd6-4516-8896-cd33a8476ab5"], -Cell[21294, 751, 71, 0, 25, "Output",ExpressionUUID->"b8a18520-7b45-49b0-af16-64f6d0a9c819"] -}, Open ]], -Cell[CellGroupData[{ -Cell[21402, 756, 70, 0, 24, "Input",ExpressionUUID->"ee6beea5-4d88-4650-837d-58c8d3c6363b"], -Cell[21475, 758, 71, 0, 179, "Output",ExpressionUUID->"a27bcc82-f8f9-42d8-854c-a204a73d483f"] -}, Open ]], -Cell[21561, 761, 70, 0, 75, "Input",ExpressionUUID->"5894652c-ea9c-458f-866d-b40d1a5efb75"], -Cell[CellGroupData[{ -Cell[21656, 765, 70, 0, 24, "Input",ExpressionUUID->"3fee7ec2-e0c4-4420-8192-c46efe85e265"], -Cell[21729, 767, 71, 0, 178, "Output",ExpressionUUID->"2bfc8e2b-006d-4096-8c4b-8422da967dcb"] -}, Open ]], -Cell[21815, 770, 70, 0, 109, "Input",ExpressionUUID->"16683f20-3a25-47da-8c9c-58bfb1a56ae7"], -Cell[CellGroupData[{ -Cell[21910, 774, 70, 0, 24, "Input",ExpressionUUID->"0c28b27c-3e81-49ce-9293-512f19f95aeb"], -Cell[21983, 776, 71, 0, 180, "Output",ExpressionUUID->"a225487e-1b09-4625-b1b4-0393225de258"] -}, Open ]], -Cell[22069, 779, 70, 0, 55, "Input",ExpressionUUID->"78606265-f50f-49dc-888d-33550f059b83"], -Cell[CellGroupData[{ -Cell[22164, 783, 70, 0, 22, "Input",ExpressionUUID->"396a3ca5-637b-4194-943d-7ec379bcf47e"], -Cell[22237, 785, 71, 0, 25, "Output",ExpressionUUID->"032de8e5-e62b-4c2c-a2db-afe60e4c0f47"] -}, Open ]], -Cell[CellGroupData[{ -Cell[22345, 790, 70, 0, 71, "Input",ExpressionUUID->"050da7fc-1308-4d49-81b4-1f4efc54c09a"], -Cell[22418, 792, 71, 0, 136, "Output",ExpressionUUID->"5c8a355d-e522-4c74-8a53-b7d46e9c333f"] -}, Open ]], -Cell[22504, 795, 70, 0, 55, "Input",ExpressionUUID->"37ec5e26-c9a1-4c3e-b046-f5bdcb69b8db"], -Cell[CellGroupData[{ -Cell[22599, 799, 70, 0, 22, "Input",ExpressionUUID->"aafc8bea-bd59-4ab7-b436-168abec75b4d"], -Cell[22672, 801, 71, 0, 25, "Output",ExpressionUUID->"823a15e6-d4d4-45cf-b711-54e7c88841d0"] -}, Open ]], -Cell[CellGroupData[{ -Cell[22780, 806, 70, 0, 71, "Input",ExpressionUUID->"d90b515e-65bf-42c5-a9d8-7ebc27861a0a"], -Cell[22853, 808, 71, 0, 135, "Output",ExpressionUUID->"674ddf51-ef87-4ea3-981c-9bca8b07e0de"] -}, Open ]], -Cell[22939, 811, 70, 0, 55, "Input",ExpressionUUID->"74c29eca-8a3c-482d-b962-b5a7bc6eeeb5"], -Cell[CellGroupData[{ -Cell[23034, 815, 70, 0, 57, "Input",ExpressionUUID->"4f2555c0-0b0b-46e3-953c-b99c2d8ef953"], -Cell[23107, 817, 71, 0, 44, "Output",ExpressionUUID->"7ba637ff-c37f-4ab3-8f3f-c3a013477573"] -}, Open ]], -Cell[CellGroupData[{ -Cell[23215, 822, 70, 0, 71, "Input",ExpressionUUID->"11bfaed8-b616-4bdb-acee-d6f652a0a4e6"], -Cell[23288, 824, 71, 0, 136, "Output",ExpressionUUID->"9d9174e8-24e3-40da-860e-87b1062d7e14"] -}, Open ]], -Cell[23374, 827, 70, 0, 55, "Input",ExpressionUUID->"da646d41-2935-4f0b-94a9-796be9875f10"], -Cell[CellGroupData[{ -Cell[23469, 831, 70, 0, 57, "Input",ExpressionUUID->"bd584363-7bad-4830-803a-025a2ac0e9a6"], -Cell[23542, 833, 71, 0, 44, "Output",ExpressionUUID->"83698929-f178-4c4d-9569-7a23e1e9c919"] -}, Open ]], -Cell[CellGroupData[{ -Cell[23650, 838, 70, 0, 71, "Input",ExpressionUUID->"f7b18b38-4aa7-4d26-8653-c5282fb8bc07"], -Cell[23723, 840, 71, 0, 136, "Output",ExpressionUUID->"aeb5446a-db30-4b37-a075-fd0875fea03f"] -}, Open ]], -Cell[23809, 843, 70, 0, 55, "Input",ExpressionUUID->"6dd58649-2ccd-4fad-b61e-e6b84d8dc37c"], -Cell[CellGroupData[{ -Cell[23904, 847, 70, 0, 57, "Input",ExpressionUUID->"47d19cd0-5c7e-4d2e-8522-f7af9f76b03d"], -Cell[23977, 849, 71, 0, 44, "Output",ExpressionUUID->"e4c2258c-d675-43b1-8eb8-1a175227c843"] -}, Open ]], -Cell[CellGroupData[{ -Cell[24085, 854, 70, 0, 71, "Input",ExpressionUUID->"e5291fe9-0a5c-4396-ac44-47a5f71d5568"], -Cell[24158, 856, 71, 0, 134, "Output",ExpressionUUID->"f761d7d5-04c8-40b2-a937-6fac9575aeda"] -}, Open ]], -Cell[24244, 859, 70, 0, 55, "Input",ExpressionUUID->"034d75ed-4e94-4dfa-b0b5-fb25cd2d30d3"], -Cell[CellGroupData[{ -Cell[24339, 863, 70, 0, 73, "Input",ExpressionUUID->"939e0991-1a33-48bb-8325-c6afb708b1bf"], -Cell[24412, 865, 71, 0, 42, "Output",ExpressionUUID->"07c46e6f-b409-4e46-91c4-1f8deedd3b7c"] -}, Open ]], -Cell[CellGroupData[{ -Cell[24520, 870, 70, 0, 71, "Input",ExpressionUUID->"41fa3464-11f7-47db-b9f4-c04a234b3967"], -Cell[24593, 872, 71, 0, 136, "Output",ExpressionUUID->"e6ece27a-240d-4388-ae6d-863762fb16fc"] -}, Open ]], -Cell[24679, 875, 70, 0, 55, "Input",ExpressionUUID->"5f4959b4-0631-460c-894f-e078cc08f6c0"], -Cell[CellGroupData[{ -Cell[24774, 879, 70, 0, 89, "Input",ExpressionUUID->"42dd11c3-40d8-4229-9f2b-ea33c98a4a3d"], -Cell[24847, 881, 71, 0, 25, "Output",ExpressionUUID->"d656f635-4cba-4947-8345-8861516ad400"] -}, Open ]], -Cell[CellGroupData[{ -Cell[24955, 886, 70, 0, 71, "Input",ExpressionUUID->"3b92c534-fe03-4b93-bce9-3935e73cd50a"], -Cell[25028, 888, 71, 0, 133, "Output",ExpressionUUID->"047cfbb9-7bc7-4793-b25b-33d1e4b54f0f"] -}, Open ]], -Cell[CellGroupData[{ -Cell[25136, 893, 70, 0, 22, "Input",ExpressionUUID->"a88f2391-1bc9-4d7a-b773-d4641b529a92"], -Cell[25209, 895, 71, 0, 177, "Output",ExpressionUUID->"900bc96d-749d-4402-b6fc-1bde2c834df4"] -}, Open ]], -Cell[CellGroupData[{ -Cell[25317, 900, 70, 0, 63, "Input",ExpressionUUID->"c2d3e68e-6754-4848-ad45-4d3a81a85373"], -Cell[25390, 902, 72, 0, 22, "Message",ExpressionUUID->"7042c19d-9eb1-4c6c-b9ba-e11ecd2dad61"], -Cell[25465, 904, 72, 0, 22, "Message",ExpressionUUID->"e96fc95a-7476-4cfa-9b6e-023e5f08ec84"], -Cell[25540, 906, 72, 0, 22, "Message",ExpressionUUID->"697e339d-fa4d-4453-8541-d603f6be5ebf"], -Cell[25615, 908, 72, 0, 22, "Message",ExpressionUUID->"a383bd1a-c1d9-49e6-a3ce-876ea12c3de9"] -}, Open ]], -Cell[25702, 911, 70, 0, 75, "Input",ExpressionUUID->"7baff68f-40db-4778-a165-a239cf88cc8b"], -Cell[25775, 913, 70, 0, 109, "Input",ExpressionUUID->"54ea4ab2-b182-41d0-bc24-6dda493e24b7"], -Cell[25848, 915, 70, 0, 126, "Input",ExpressionUUID->"b233f772-ebe4-4d6e-82dc-3e50dc9f4a60"], -Cell[CellGroupData[{ -Cell[25943, 919, 70, 0, 24, "Input",ExpressionUUID->"326e1381-0fb5-48b8-8b67-86eb59a8de43"], -Cell[26016, 921, 71, 0, 182, "Output",ExpressionUUID->"ffcf6638-e41b-4dc3-a888-cbc1ddb5bd70"] -}, Open ]], -Cell[CellGroupData[{ -Cell[26124, 926, 70, 0, 24, "Input",ExpressionUUID->"a93f2c6c-20d9-4e76-bf4e-d83eb645bfe2"], -Cell[26197, 928, 71, 0, 178, "Output",ExpressionUUID->"e009ecd9-f064-498f-9713-a517c7738512"] -}, Open ]], -Cell[CellGroupData[{ -Cell[26305, 933, 70, 0, 24, "Input",ExpressionUUID->"355b7a05-dc53-48b3-a074-381cbbaeac81"], -Cell[26378, 935, 71, 0, 179, "Output",ExpressionUUID->"c021a3f3-a988-4ee0-849b-500241e51534"] -}, Open ]], -Cell[26464, 938, 70, 0, 55, "Input",ExpressionUUID->"a727ff31-abf9-4fbc-b1ba-5e10e05cc6ba"], -Cell[CellGroupData[{ -Cell[26559, 942, 70, 0, 57, "Input",ExpressionUUID->"e698d719-72a9-4ac8-adc0-f3dc6de33b29"], -Cell[26632, 944, 72, 0, 34, "Message",ExpressionUUID->"66d8969a-eb54-4408-9ca1-e26797128b2e"], -Cell[26707, 946, 71, 0, 44, "Output",ExpressionUUID->"c2ede9a0-b94f-4b1e-a656-779f19255c39"] -}, Open ]], -Cell[CellGroupData[{ -Cell[26815, 951, 70, 0, 71, "Input",ExpressionUUID->"cf4b5c4b-339f-4dee-887e-9827e8e84f6a"], -Cell[26888, 953, 71, 0, 135, "Output",ExpressionUUID->"59a5f5ab-6f64-4857-9cc3-85e34ce96d47"] -}, Open ]], -Cell[CellGroupData[{ -Cell[26996, 958, 70, 0, 22, "Input",ExpressionUUID->"284ac71a-7465-46b2-a883-7d04bfed7c1a"], -Cell[27069, 960, 71, 0, 177, "Output",ExpressionUUID->"8b218d9d-8ae6-4b3f-a0aa-21817c81ea81"] -}, Open ]], -Cell[27155, 963, 70, 0, 55, "Input",ExpressionUUID->"7b4489a6-2b9b-4fa0-b010-a2b21dfcde45"], -Cell[CellGroupData[{ -Cell[27250, 967, 70, 0, 57, "Input",ExpressionUUID->"3bcb2734-3eb2-49b0-9f9e-04e4c7a4fa3a"], -Cell[27323, 969, 71, 0, 44, "Output",ExpressionUUID->"babae66a-342f-4778-9bda-49d5d95c0e25"] -}, Open ]], -Cell[CellGroupData[{ -Cell[27431, 974, 70, 0, 71, "Input",ExpressionUUID->"0e6a979b-40f1-49c5-87f2-c038673fb15e"], -Cell[27504, 976, 71, 0, 135, "Output",ExpressionUUID->"067ae380-8bbe-4d24-910a-2d72ea259077"] -}, Open ]], -Cell[CellGroupData[{ -Cell[27612, 981, 70, 0, 22, "Input",ExpressionUUID->"a0ce8c43-76ba-466b-b075-393a38369f3e"], -Cell[27685, 983, 71, 0, 177, "Output",ExpressionUUID->"efcd0ede-5fe0-410c-85a7-f2cb4a37d0c4"] -}, Open ]], -Cell[27771, 986, 70, 0, 55, "Input",ExpressionUUID->"64ac9234-6e5e-4a0a-889d-9a4d2d9e49eb"], -Cell[CellGroupData[{ -Cell[27866, 990, 70, 0, 73, "Input",ExpressionUUID->"d5ce1c93-2d50-4d5c-a1f8-53932ea334e0"], -Cell[27939, 992, 71, 0, 60, "Output",ExpressionUUID->"55d1b86b-6c0e-4346-b514-6a32ca6f4162"] -}, Open ]], -Cell[CellGroupData[{ -Cell[28047, 997, 70, 0, 71, "Input",ExpressionUUID->"4639fe6e-d305-44c1-81c3-afb4e380c88d"], -Cell[28120, 999, 71, 0, 136, "Output",ExpressionUUID->"ee73d4b7-147b-4902-9021-472fa1cbd2dd"] -}, Open ]], -Cell[CellGroupData[{ -Cell[28228, 1004, 70, 0, 22, "Input",ExpressionUUID->"487c1f18-3c65-4275-b382-bd34678bb77b"], -Cell[28301, 1006, 71, 0, 180, "Output",ExpressionUUID->"98313969-c467-4d0e-84c2-9301e7354fd8"] -}, Open ]], -Cell[28387, 1009, 70, 0, 55, "Input",ExpressionUUID->"f984095d-d7b8-42c0-84b6-f249f7191889"], -Cell[CellGroupData[{ -Cell[28482, 1013, 70, 0, 89, "Input",ExpressionUUID->"eb772438-6d55-4597-94c4-e8e4c8a28dea"], -Cell[28555, 1015, 72, 0, 37, "Message",ExpressionUUID->"15e11a28-3910-4175-baec-32f60966f167"], -Cell[28630, 1017, 71, 0, 60, "Output",ExpressionUUID->"dc1d0e6d-dbfc-4101-8f2b-a45c3ce40dc1"] -}, Open ]], -Cell[CellGroupData[{ -Cell[28738, 1022, 70, 0, 71, "Input",ExpressionUUID->"6f764f4a-8e60-4ade-81f6-342ce8502e9b"], -Cell[28811, 1024, 71, 0, 138, "Output",ExpressionUUID->"073b197f-bc4b-40a2-a232-0cc8f06d961e"] -}, Open ]], -Cell[CellGroupData[{ -Cell[28919, 1029, 70, 0, 22, "Input",ExpressionUUID->"afe99e33-748e-47f2-ba2a-c0c57008e3ff"], -Cell[28992, 1031, 71, 0, 177, "Output",ExpressionUUID->"76d79e7a-9d2d-45b3-bb8a-8f918994420a"] + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-5.521460917862246, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-5.298317366548036, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-5.115995809754082, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-4.961845129926823, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-4.8283137373023015`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-4.710530701645918, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-4.605170185988091, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-3.912023005428146, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-3.506557897319982, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-3.2188758248682006`, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}, {-2.995732273553991, + FormBox[ + TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, + 0.}}}}]]], "Output", + CellChangeTimes->{3.8417351792754507`*^9, 3.841735270593384*^9, + 3.841735357439477*^9, 3.8417355174882727`*^9, 3.8417361563955936`*^9}, + CellLabel-> + "Out[156]=",ExpressionUUID->"d89b3800-3495-45e2-970d-10bf85731c98"] }, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[29112, 1037, 418, 11, 40, "Section",ExpressionUUID->"c1a07f43-bf98-4ded-8fe2-acd38d81a62a"], -Cell[29533, 1050, 70, 0, 22, "Input",ExpressionUUID->"9814740b-6ceb-49dd-a8e7-470aa128f596"], -Cell[29606, 1052, 70, 0, 71, "Input",ExpressionUUID->"e5da5cdc-dea4-468f-9f80-7bcb8f7055ed"], -Cell[CellGroupData[{ -Cell[29701, 1056, 70, 0, 22, "Input",ExpressionUUID->"61971941-a9ac-455d-84ae-8db30be2e665"], -Cell[29774, 1058, 71, 0, 25, "Output",ExpressionUUID->"d79a197b-d3c2-420f-8a75-43a5a1f3eb88"] -}, Open ]], -Cell[29860, 1061, 70, 0, 71, "Input",ExpressionUUID->"7251e138-0073-4aed-93ec-409e542ba595"], -Cell[CellGroupData[{ -Cell[29955, 1065, 70, 0, 24, "Input",ExpressionUUID->"83870e45-e831-43bd-830f-3bbd0bc4cf26"], -Cell[30028, 1067, 71, 0, 25, "Output",ExpressionUUID->"608e5f38-8dc5-4659-9821-1c08ee7937a3"] -}, Open ]], -Cell[30114, 1070, 70, 0, 71, "Input",ExpressionUUID->"2b68538e-eb4e-4fc5-8598-9d7f4cf47a71"], -Cell[CellGroupData[{ -Cell[30209, 1074, 70, 0, 24, "Input",ExpressionUUID->"f2eb7ff1-b83a-4711-baeb-03d638af762f"], -Cell[30282, 1076, 71, 0, 25, "Output",ExpressionUUID->"8d8581e1-e769-405e-8440-00d9ea8a80b7"] -}, Open ]], -Cell[30368, 1079, 70, 0, 71, "Input",ExpressionUUID->"ff1cfdef-3775-4671-b5a8-7f84d899bb44"], +}, Open ]] +}, +WindowSize->{635.25, 1060.5}, +WindowMargins->{{2.25, Automatic}, {2.25, Automatic}}, +FrontEndVersion->"12.3 for Linux x86 (64-bit) (May 11, 2021)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"6f6c570c-dfc0-4320-bdc7-0f1de62bb24c" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[558, 20, 890, 14, 24, "Input",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"], +Cell[1451, 36, 545, 13, 41, "Input",ExpressionUUID->"ea42bd52-8968-49ef-a999-7ab838217fa1"], +Cell[1999, 51, 463, 11, 24, "Input",ExpressionUUID->"2fdffe9d-9220-4c97-866d-0a1f5e3200a1"], Cell[CellGroupData[{ -Cell[30463, 1083, 70, 0, 24, "Input",ExpressionUUID->"4ac9a3d8-7344-4b36-86cc-927251f84ae6"], -Cell[30536, 1085, 71, 0, 25, "Output",ExpressionUUID->"4020c1a4-5f22-47ef-9d1f-adef13840e75"] -}, Open ]], -Cell[30622, 1088, 70, 0, 71, "Input",ExpressionUUID->"be587998-8957-48f9-8d89-e1f575b484d9"], +Cell[2487, 66, 207, 4, 50, "Section",ExpressionUUID->"bb531fce-8a9d-4a5f-8d6a-ec66b9fbf698"], +Cell[2697, 72, 70, 0, 71, "Input",ExpressionUUID->"c239eacb-bd0a-49ce-8667-3aa72e4020c9"], Cell[CellGroupData[{ -Cell[30717, 1092, 70, 0, 24, "Input",ExpressionUUID->"30f0ed04-9858-4017-8217-985c3efc1c9b"], -Cell[30790, 1094, 71, 0, 25, "Output",ExpressionUUID->"c81e0168-c726-4188-a9c4-724e6bccc499"] +Cell[2792, 76, 70, 0, 55, "Input",ExpressionUUID->"3d566693-1b4e-4bc5-b33b-b8036e1e4822"], +Cell[2865, 78, 71, 0, 58, "Output",ExpressionUUID->"86062308-fdba-4d87-8210-7ea083d14ee1"] }, Open ]], -Cell[30876, 1097, 70, 0, 71, "Input",ExpressionUUID->"689e18ed-1ec8-498a-ad1b-507e0dd03bae"], Cell[CellGroupData[{ -Cell[30971, 1101, 70, 0, 24, "Input",ExpressionUUID->"d483d5c3-c5f0-4bc3-b35a-ee3705301f57"], -Cell[31044, 1103, 71, 0, 27, "Output",ExpressionUUID->"972e9daa-b8c0-48ea-94a6-5c1206f9ded8"] +Cell[2973, 83, 70, 0, 115, "Input",ExpressionUUID->"3b9512c4-4741-4838-844f-dc1843a98be2"], +Cell[3046, 85, 71, 0, 450, "Output",ExpressionUUID->"2720c35a-79b8-423b-a048-5c7e2711f16a"] }, Open ]], -Cell[31130, 1106, 70, 0, 71, "Input",ExpressionUUID->"4908c8f4-c01f-434c-9530-5ff19546ec45"], +Cell[3132, 88, 70, 0, 71, "Input",ExpressionUUID->"34ec14f2-e69a-4233-afa7-8b9340ca265f"], Cell[CellGroupData[{ -Cell[31225, 1110, 70, 0, 24, "Input",ExpressionUUID->"c63ac5aa-bc1a-4703-8f86-c784cca22af9"], -Cell[31298, 1112, 71, 0, 44, "Output",ExpressionUUID->"8cee96ed-e342-42b4-9a7c-986d1e772ed3"] +Cell[3227, 92, 70, 0, 24, "Input",ExpressionUUID->"3c891175-2642-465d-b121-e5989a86c957"], +Cell[3300, 94, 71, 0, 58, "Output",ExpressionUUID->"38fb3ec6-64aa-4b63-b20b-7d35d2e4572a"] }, Open ]], -Cell[31384, 1115, 70, 0, 71, "Input",ExpressionUUID->"6dc40e0e-abcd-407f-bbc6-3e7148e2aec4"], +Cell[3386, 97, 70, 0, 71, "Input",ExpressionUUID->"a96db868-d41f-433d-88d3-73a2b34157b2"], Cell[CellGroupData[{ -Cell[31479, 1119, 70, 0, 24, "Input",ExpressionUUID->"616ce136-6737-40e5-8029-31272add86f8"], -Cell[31552, 1121, 71, 0, 44, "Output",ExpressionUUID->"9d4cc682-8c95-449b-9ae1-a07d60f17b16"] +Cell[3481, 101, 70, 0, 24, "Input",ExpressionUUID->"9e3392d7-9445-477b-9e57-3faef08acef1"], +Cell[3554, 103, 71, 0, 25, "Output",ExpressionUUID->"6c61aadd-c965-4458-a165-ef7680648fc1"] }, Open ]], -Cell[31638, 1124, 70, 0, 71, "Input",ExpressionUUID->"0359663b-ea4b-4f2b-b953-154950f875db"], +Cell[3640, 106, 70, 0, 71, "Input",ExpressionUUID->"fb46f7c2-5761-4a64-9a5f-872dd3265e1c"], Cell[CellGroupData[{ -Cell[31733, 1128, 70, 0, 24, "Input",ExpressionUUID->"ec848311-8958-4766-9a5d-9be5abcc44cb"], -Cell[31806, 1130, 71, 0, 44, "Output",ExpressionUUID->"51334039-280f-48e2-b328-4297f777c9de"] +Cell[3735, 110, 70, 0, 24, "Input",ExpressionUUID->"3d7346aa-9d8e-46fd-bcb4-ca52fff0d32a"], +Cell[3808, 112, 71, 0, 58, "Output",ExpressionUUID->"d3885981-ee95-4189-85fb-672f5e65f744"] }, Open ]], -Cell[31892, 1133, 70, 0, 71, "Input",ExpressionUUID->"49fccc0f-c05a-483f-ad54-254b7500e1ec"], +Cell[3894, 115, 70, 0, 71, "Input",ExpressionUUID->"1a9cafff-78bf-40d5-9387-97742820a6dc"], Cell[CellGroupData[{ -Cell[31987, 1137, 70, 0, 24, "Input",ExpressionUUID->"3400ca05-e157-461b-96a6-83634df1cc38"], -Cell[32060, 1139, 72, 0, 22, "Message",ExpressionUUID->"4717bc47-0f9e-459c-a089-7072d9d8546f"], -Cell[32135, 1141, 71, 0, 44, "Output",ExpressionUUID->"9e06fa9c-619d-48be-8bd4-a62423b68459"] +Cell[3989, 119, 70, 0, 24, "Input",ExpressionUUID->"7bdef841-d628-418c-9bec-b16ca8655e30"], +Cell[4062, 121, 71, 0, 76, "Output",ExpressionUUID->"1db50035-262f-41c8-897c-83b291232a25"] }, Open ]], +Cell[4148, 124, 70, 0, 71, "Input",ExpressionUUID->"53343c2f-4579-48fe-afdc-6555d61fefc7"], Cell[CellGroupData[{ -Cell[32243, 1146, 70, 0, 24, "Input",ExpressionUUID->"7336ac6b-83d1-49ff-a184-4670f1967f5f"], -Cell[32316, 1148, 71, 0, 25, "Output",ExpressionUUID->"a267ea60-447c-4dcc-ab03-202e34d3e02b"] +Cell[4243, 128, 70, 0, 24, "Input",ExpressionUUID->"19f0837b-60bb-491b-b21f-34926c9efae8"], +Cell[4316, 130, 71, 0, 76, "Output",ExpressionUUID->"1588dece-8475-4068-8ebd-5f1063867c03"] }, Open ]], +Cell[4402, 133, 70, 0, 71, "Input",ExpressionUUID->"3c48ca79-1fa5-4b7f-9423-94e659aae362"], Cell[CellGroupData[{ -Cell[32424, 1153, 70, 0, 24, "Input",ExpressionUUID->"15ada2d4-3591-4b28-a4a0-0c24a32c8424"], -Cell[32497, 1155, 71, 0, 25, "Output",ExpressionUUID->"769cfb1a-0cd6-4aa9-816e-ac5e5367d434"] +Cell[4497, 137, 70, 0, 24, "Input",ExpressionUUID->"c0c5581e-24f4-4c1d-bac2-acde9933d21a"], +Cell[4570, 139, 71, 0, 92, "Output",ExpressionUUID->"730ed06e-f4a9-43d9-985a-dd73afa5028a"] }, Open ]], +Cell[4656, 142, 70, 0, 71, "Input",ExpressionUUID->"89ac8434-0e5c-4a82-ae51-65e191e4c98a"], Cell[CellGroupData[{ -Cell[32605, 1160, 70, 0, 24, "Input",ExpressionUUID->"49c36534-7e17-40fd-b17b-6c24396cf79b"], -Cell[32678, 1162, 71, 0, 25, "Output",ExpressionUUID->"3eb32547-a996-48e0-bbf9-9f8a2877f2f6"] +Cell[4751, 146, 70, 0, 24, "Input",ExpressionUUID->"a4de7394-b723-4a62-9094-2b462110711f"], +Cell[4824, 148, 71, 0, 92, "Output",ExpressionUUID->"e3a248c2-6739-443e-a469-171bafbb4a39"] }, Open ]], +Cell[4910, 151, 70, 0, 71, "Input",ExpressionUUID->"ec5df7b8-ae45-47d9-baba-654f2daf3d01"], Cell[CellGroupData[{ -Cell[32786, 1167, 70, 0, 24, "Input",ExpressionUUID->"1b662f6f-7fb0-44b3-98b2-fcd0cb6cab57"], -Cell[32859, 1169, 71, 0, 25, "Output",ExpressionUUID->"1581c58d-9a8e-473e-b952-16b423bd8281"] +Cell[5005, 155, 70, 0, 24, "Input",ExpressionUUID->"c28fec6d-42be-4754-8ff5-9f7327a42e34"], +Cell[5078, 157, 71, 0, 108, "Output",ExpressionUUID->"2f826db1-6725-439c-8bf9-7196d08ae46b"] }, Open ]], +Cell[5164, 160, 70, 0, 71, "Input",ExpressionUUID->"454bbf34-d098-476d-8e27-8e882ae07c56"], Cell[CellGroupData[{ -Cell[32967, 1174, 70, 0, 24, "Input",ExpressionUUID->"11f063b7-0e7a-4b08-8d80-05ffaf815f0e"], -Cell[33040, 1176, 71, 0, 25, "Output",ExpressionUUID->"59d2c040-d7ec-47c4-8ccb-8dc4f6bdfd9c"] +Cell[5259, 164, 70, 0, 24, "Input",ExpressionUUID->"fdda266d-54c1-43db-b6a7-a3d02502cd24"], +Cell[5332, 166, 72, 0, 34, "Message",ExpressionUUID->"b4090613-0332-49f1-a196-74002379eeeb"], +Cell[5407, 168, 71, 0, 124, "Output",ExpressionUUID->"1249aaa6-7d54-428c-8361-a89fa22f87ac"] }, Open ]], +Cell[5493, 171, 70, 0, 56, "Input",ExpressionUUID->"7669b7fe-6525-47ea-bd17-bc39d72d2039"], Cell[CellGroupData[{ -Cell[33148, 1181, 70, 0, 24, "Input",ExpressionUUID->"73f3d0d8-55bd-4b87-9313-593ad5301d2f"], -Cell[33221, 1183, 71, 0, 177, "Output",ExpressionUUID->"88cd5860-1a82-4fe9-9019-187e9a6284bc"] +Cell[5588, 175, 70, 0, 24, "Input",ExpressionUUID->"0d0e5cda-a6fc-4708-80da-b887f6838668"], +Cell[5661, 177, 71, 0, 407, "Output",ExpressionUUID->"1661a955-9e84-44df-abe5-8a178d2f912d"] }, Open ]], -Cell[33307, 1186, 70, 0, 22, "Input",ExpressionUUID->"a5dcf275-1d4e-4c96-a79c-53a3afcdb89b"], Cell[CellGroupData[{ -Cell[33402, 1190, 70, 0, 24, "Input",ExpressionUUID->"d831d23a-4316-405f-82be-49802e861f83"], -Cell[33475, 1192, 71, 0, 40, "Output",ExpressionUUID->"80e78af9-9b53-4cc1-b28d-62d39e95442d"] +Cell[5769, 182, 70, 0, 89, "Input",ExpressionUUID->"9112def6-5ff6-4224-8356-f50fa415d2f3"], +Cell[5842, 184, 72, 0, 32, "Message",ExpressionUUID->"311d3fb6-3107-4bba-ae21-2a9d8e2be9ff"], +Cell[5917, 186, 72, 0, 22, "Message",ExpressionUUID->"382c6f48-8be5-4040-8352-c107dd4acfcb"], +Cell[5992, 188, 72, 0, 32, "Message",ExpressionUUID->"db776803-ed60-4310-a108-852c80375404"], +Cell[6067, 190, 72, 0, 22, "Message",ExpressionUUID->"c054e628-2d2f-4c9d-b97f-3211d4a28e43"], +Cell[6142, 192, 72, 0, 32, "Message",ExpressionUUID->"be1896cd-ee42-475f-8df0-db9105e2a00f"], +Cell[6217, 194, 72, 0, 22, "Message",ExpressionUUID->"1c3e5739-b049-43f2-a094-b9e364dedc14"], +Cell[6292, 196, 72, 0, 22, "Message",ExpressionUUID->"8781108e-dab4-4d69-bb59-846e2cf30536"], +Cell[6367, 198, 72, 0, 22, "Message",ExpressionUUID->"b4b28af2-b0fd-4fee-8ea1-a1b8599ad243"] }, Open ]], Cell[CellGroupData[{ -Cell[33583, 1197, 70, 0, 22, "Input",ExpressionUUID->"b077fbbc-1b67-46ce-928c-cb9cb93feb84"], -Cell[33656, 1199, 71, 0, 39, "Output",ExpressionUUID->"fe7374a3-2e61-4f7f-bfa8-7f2610ce7280"] +Cell[6476, 203, 70, 0, 24, "Input",ExpressionUUID->"0b79b970-7045-4be7-b49f-562e6773070c"], +Cell[6549, 205, 71, 0, 371, "Output",ExpressionUUID->"a1b2e831-9c0c-4c48-9c35-6781403e92e0"] }, Open ]], Cell[CellGroupData[{ -Cell[33764, 1204, 70, 0, 24, "Input",ExpressionUUID->"7ad3e447-b82f-4f7c-bc15-cc792a2f0f08"], -Cell[33837, 1206, 71, 0, 41, "Output",ExpressionUUID->"18e6e545-3d72-4cad-bb2d-62756bb962d5"] +Cell[6657, 210, 70, 0, 22, "Input",ExpressionUUID->"71c1d9b7-0cf0-408f-a132-11f858bc49f0"], +Cell[6730, 212, 71, 0, 481, "Output",ExpressionUUID->"5e583bca-872b-4fe1-bd8e-e1bcce981a2c"] }, Open ]], Cell[CellGroupData[{ -Cell[33945, 1211, 70, 0, 22, "Input",ExpressionUUID->"e5a7c569-4ce5-4d3c-98f3-9160229fa5f0"], -Cell[34018, 1213, 71, 0, 41, "Output",ExpressionUUID->"f01cccdd-cd51-4883-b237-195d686deb4a"] +Cell[6838, 217, 70, 0, 39, "Input",ExpressionUUID->"7b03bcdf-5941-4689-8045-07928a4af682"], +Cell[6911, 219, 71, 0, 481, "Output",ExpressionUUID->"d7ee8225-65ff-4705-be5c-8b8dbe6fa41b"] }, Open ]], Cell[CellGroupData[{ -Cell[34126, 1218, 70, 0, 24, "Input",ExpressionUUID->"667660ba-66f5-4b76-8eaf-75601abced2b"], -Cell[34199, 1220, 71, 0, 25, "Output",ExpressionUUID->"2988841f-72ad-4f38-8e0d-50ce0c5e4c4a"] +Cell[7019, 224, 70, 0, 22, "Input",ExpressionUUID->"fa8135b4-fdf8-4590-be4e-73b4dd086cab"], +Cell[7092, 226, 71, 0, 414, "Output",ExpressionUUID->"04ca030c-e442-4c61-8c4a-d152e5c203ae"] }, Open ]], +Cell[7178, 229, 70, 0, 22, "Input",ExpressionUUID->"29cea7b5-4fca-4cb4-8837-f04711b34c21"], Cell[CellGroupData[{ -Cell[34307, 1225, 70, 0, 22, "Input",ExpressionUUID->"a8889652-7842-41cf-8091-72987781207f"], -Cell[34380, 1227, 71, 0, 175, "Output",ExpressionUUID->"c9889d41-efaa-48df-8497-e0395247ab18"] +Cell[7273, 233, 70, 0, 93, "Input",ExpressionUUID->"53b7755a-6f34-4db5-8104-878ea3587d8e"], +Cell[7346, 235, 71, 0, 387, "Output",ExpressionUUID->"616ea1b5-1320-415b-a819-c2f94d93d7ea"] }, Open ]], Cell[CellGroupData[{ -Cell[34488, 1232, 70, 0, 23, "Input",ExpressionUUID->"f492346f-039d-454e-b401-4478d7324c1e"], -Cell[34561, 1234, 71, 0, 25, "Output",ExpressionUUID->"8116d71c-2d49-4040-aba8-7a291ab11d2b"] +Cell[7454, 240, 70, 0, 22, "Input",ExpressionUUID->"76c95b5f-6514-4856-b4c5-cd646cd37488"], +Cell[7527, 242, 71, 0, 25, "Output",ExpressionUUID->"74073881-f4b4-4f07-8f9a-cd7d59bc3693"] }, Open ]], Cell[CellGroupData[{ -Cell[34669, 1239, 70, 0, 25, "Input",ExpressionUUID->"8a8852a1-d6eb-4f81-aae0-a33a01326f50"], -Cell[34742, 1241, 71, 0, 25, "Output",ExpressionUUID->"d72a90fc-a009-4c0c-949a-963bb5b65ef4"] +Cell[7635, 247, 70, 0, 22, "Input",ExpressionUUID->"02a5f468-5569-4ef4-9ad7-428f9cf2d754"], +Cell[7708, 249, 71, 0, 44, "Output",ExpressionUUID->"724a73d3-c790-4baa-985a-a709e0354abe"] }, Open ]], Cell[CellGroupData[{ -Cell[34850, 1246, 70, 0, 22, "Input",ExpressionUUID->"f758c571-4941-4819-b8ff-bda876db06de"], -Cell[34923, 1248, 71, 0, 39, "Output",ExpressionUUID->"5a0a399e-f5ce-43d7-878e-195ab44a54cc"] +Cell[7816, 254, 70, 0, 24, "Input",ExpressionUUID->"7273c588-8e35-4fbd-8ebc-898cedb2387b"], +Cell[7889, 256, 71, 0, 44, "Output",ExpressionUUID->"6bcb7016-9e42-477f-b8aa-2bf28ae5ec18"] }, Open ]], -Cell[35009, 1251, 70, 0, 24, "Input",ExpressionUUID->"b3d86629-c3a8-4e5c-8968-6735fe772663"], Cell[CellGroupData[{ -Cell[35104, 1255, 70, 0, 25, "Input",ExpressionUUID->"a06dd50c-b2a6-48cd-a550-24e88107ce4e"], -Cell[35177, 1257, 72, 0, 22, "Message",ExpressionUUID->"231f26c8-d164-4ed2-9d95-3ae6b9e7db4a"], -Cell[35252, 1259, 72, 0, 22, "Message",ExpressionUUID->"9234dcc5-0207-4b2e-8051-0501c80d8d9f"], -Cell[35327, 1261, 72, 0, 22, "Message",ExpressionUUID->"d1fb6878-82d5-4bae-8198-ca5be20a90a5"], -Cell[35402, 1263, 72, 0, 22, "Message",ExpressionUUID->"14e79556-c616-4367-a2e8-6eb65243108f"], -Cell[35477, 1265, 71, 0, 168, "Output",ExpressionUUID->"79b3a56a-fb4e-43df-a5e7-cc282c5e91e5"] +Cell[7997, 261, 70, 0, 22, "Input",ExpressionUUID->"4696ee08-41ed-480a-83d4-b7dcd649182e"], +Cell[8070, 263, 71, 0, 25, "Output",ExpressionUUID->"581be5fa-833d-44bd-98d5-dde94e4dd98c"] }, Open ]], -Cell[35563, 1268, 70, 0, 22, "Input",ExpressionUUID->"16011121-ccb9-4633-8c80-193152571641"], -Cell[35636, 1270, 70, 0, 71, "Input",ExpressionUUID->"dd17419e-1a61-45a6-bc6e-4fc73cef39c7"], Cell[CellGroupData[{ -Cell[35731, 1274, 70, 0, 24, "Input",ExpressionUUID->"26c43faf-69ad-4747-a4c2-02faedeae0ba"], -Cell[35804, 1276, 72, 0, 22, "Message",ExpressionUUID->"f4aabacf-847b-4f9a-989e-275f0207bfac"], -Cell[35879, 1278, 71, 0, 44, "Output",ExpressionUUID->"54f52e14-1cc2-4199-81ae-b38e003ee6a7"] +Cell[8178, 268, 70, 0, 93, "Input",ExpressionUUID->"73fa0a9d-2aa5-49d6-b995-2f0dc2997c86"], +Cell[8251, 270, 71, 0, 585, "Output",ExpressionUUID->"596e78c8-422c-425b-b6d3-1d4f2a3368df"] }, Open ]], Cell[CellGroupData[{ -Cell[35987, 1283, 70, 0, 22, "Input",ExpressionUUID->"0e67ed2d-901e-4ad6-bc18-0187d868db2a"], -Cell[36060, 1285, 71, 0, 412, "Output",ExpressionUUID->"bb3e229d-42a2-4f31-ba52-03d502114257"] +Cell[8359, 275, 70, 0, 110, "Input",ExpressionUUID->"d049de83-a67f-4f70-9161-28ea593a16b8"], +Cell[8432, 277, 71, 0, 396, "Output",ExpressionUUID->"97929a1a-4107-4c3b-91b5-b4aea31a6a12"] }, Open ]], Cell[CellGroupData[{ -Cell[36168, 1290, 70, 0, 97, "Input",ExpressionUUID->"f953e6b7-d6db-4adc-ae62-1eaf92d1b68b"], -Cell[36241, 1292, 71, 0, 428, "Output",ExpressionUUID->"52df7986-73ef-4731-a037-32f90ae8c2ca"] +Cell[8540, 282, 70, 0, 59, "Input",ExpressionUUID->"ff8b8a76-8ef5-4079-b3c2-caca5f90a239"], +Cell[8613, 284, 71, 0, 368, "Output",ExpressionUUID->"ceca4cf7-358a-4475-9d74-be5382099c4a"] }, Open ]], Cell[CellGroupData[{ -Cell[36349, 1297, 70, 0, 38, "Input",ExpressionUUID->"49320ca4-5c8c-4b1e-98f4-0fce9d6f767d"], -Cell[36422, 1299, 71, 0, 35, "Output",ExpressionUUID->"a5bcadc6-2050-4678-82db-1cc984ce4cf8"] +Cell[8721, 289, 70, 0, 38, "Input",ExpressionUUID->"84fba399-0d44-478f-82db-cf6e8f6da218"], +Cell[8794, 291, 71, 0, 35, "Output",ExpressionUUID->"fc27ce97-44b5-4fd9-9fc6-8e3a80767ebc"] }, Open ]], Cell[CellGroupData[{ -Cell[36530, 1304, 70, 0, 24, "Input",ExpressionUUID->"23c90a2a-3181-4507-b03d-1c6a524d318f"], -Cell[36603, 1306, 71, 0, 58, "Output",ExpressionUUID->"804ea812-1e08-451e-b89b-85e21b7a900b"] +Cell[8902, 296, 70, 0, 57, "Input",ExpressionUUID->"5e586711-0483-46d1-bccb-b6897d71c1e8"], +Cell[8975, 298, 71, 0, 169, "Output",ExpressionUUID->"2fa1caa4-ef1f-4ffd-8afc-94b16ed218ad"] }, Open ]], Cell[CellGroupData[{ -Cell[36711, 1311, 70, 0, 22, "Input",ExpressionUUID->"411d79ae-3a60-45b7-ad34-0402223bc804"], -Cell[36784, 1313, 71, 0, 44, "Output",ExpressionUUID->"d0487fb6-cc6f-4a82-b7e9-c88e89124f26"] +Cell[9083, 303, 70, 0, 22, "Input",ExpressionUUID->"0bf0ad7a-0c38-45b3-944f-2cd642717885"], +Cell[9156, 305, 71, 0, 108, "Output",ExpressionUUID->"cb46a863-90ee-473f-82db-5dc2a45b693e"] }, Open ]], Cell[CellGroupData[{ -Cell[36892, 1318, 70, 0, 99, "Input",ExpressionUUID->"f3f929dc-63b9-41e4-a7fa-bfc6233c0667"], -Cell[36965, 1320, 71, 0, 449, "Output",ExpressionUUID->"849e1d2a-9c50-44de-89d5-857702cb5fd5"] +Cell[9264, 310, 70, 0, 119, "Input",ExpressionUUID->"f15d8a52-1992-4696-8ead-3c4153434e55"], +Cell[9337, 312, 71, 0, 449, "Output",ExpressionUUID->"7c16b4f6-053a-49c7-adfb-2ff4cd3d1825"] }, Open ]], Cell[CellGroupData[{ -Cell[37073, 1325, 70, 0, 22, "Input",ExpressionUUID->"a0caebd2-23a7-4511-9498-0c1a2e9cfe53"], -Cell[37146, 1327, 71, 0, 271, "Output",ExpressionUUID->"7be21de8-007c-4120-a339-1f3ac51c3e60"] +Cell[9445, 317, 70, 0, 22, "Input",ExpressionUUID->"f9fe281b-b610-448a-b868-789cd1438874"], +Cell[9518, 319, 71, 0, 271, "Output",ExpressionUUID->"cd6820b3-ec18-4309-a325-d9260e362bf3"] }, Open ]], Cell[CellGroupData[{ -Cell[37254, 1332, 70, 0, 75, "Input",ExpressionUUID->"6fcf53ff-126b-4b26-a83b-148e00bf6b1b"], -Cell[37327, 1334, 71, 0, 181, "Output",ExpressionUUID->"c786cfbb-e4b0-428c-b40c-df3c0c0def56"] +Cell[9626, 324, 70, 0, 75, "Input",ExpressionUUID->"379795e2-1f10-4c9d-aca9-574975c0b53e"], +Cell[9699, 326, 71, 0, 181, "Output",ExpressionUUID->"e32fce1f-84cc-4e58-9ec5-270c393270f4"] }, Open ]], -Cell[37413, 1337, 70, 0, 71, "Input",ExpressionUUID->"9f042e79-5a77-40a7-a4d2-a6d243e6aed3"], +Cell[9785, 329, 70, 0, 71, "Input",ExpressionUUID->"614f63fe-75a0-4c56-b782-48ad98bc3c89"], Cell[CellGroupData[{ -Cell[37508, 1341, 70, 0, 24, "Input",ExpressionUUID->"9dd5f638-04be-4ab9-8e9e-a36242ce03fc"], -Cell[37581, 1343, 71, 0, 44, "Output",ExpressionUUID->"9e62f072-c037-4c2b-a694-0a0eb1b1e9ea"] +Cell[9880, 333, 70, 0, 24, "Input",ExpressionUUID->"b56cc8a2-a504-4115-9171-a6a6d7088e3d"], +Cell[9953, 335, 71, 0, 60, "Output",ExpressionUUID->"56bd1e88-9615-4515-9caf-f2b140d00ea4"] }, Open ]], -Cell[37667, 1346, 70, 0, 71, "Input",ExpressionUUID->"b83dae54-967b-45b1-81ce-458e168a8389"], +Cell[10039, 338, 70, 0, 71, "Input",ExpressionUUID->"8507c1e3-d3a8-4bd7-b4aa-90d91d45805d"], Cell[CellGroupData[{ -Cell[37762, 1350, 70, 0, 24, "Input",ExpressionUUID->"9835d85f-5114-4265-bc49-5f2e4c050b32"], -Cell[37835, 1352, 71, 0, 44, "Output",ExpressionUUID->"ebe14f51-7209-4e07-91c9-c24982da80ea"] +Cell[10134, 342, 70, 0, 24, "Input",ExpressionUUID->"de38480a-2d94-4587-b72d-6e029e15ee96"], +Cell[10207, 344, 71, 0, 60, "Output",ExpressionUUID->"43225297-d195-4377-8f95-86dbf3b45b01"] }, Open ]], -Cell[37921, 1355, 70, 0, 71, "Input",ExpressionUUID->"047dad42-d9f8-4bb8-a64f-7e04a9585915"], +Cell[10293, 347, 70, 0, 71, "Input",ExpressionUUID->"2ec9732b-3292-49d0-bac5-10ca2b2e2d27"], Cell[CellGroupData[{ -Cell[38016, 1359, 70, 0, 24, "Input",ExpressionUUID->"890d932c-2ab7-4f89-a1ee-76f76a9c3c67"], -Cell[38089, 1361, 71, 0, 25, "Output",ExpressionUUID->"e07ab9be-41a7-41c9-ae59-4c3f17b35525"] +Cell[10388, 351, 70, 0, 24, "Input",ExpressionUUID->"139619cc-039b-4609-af7c-bff6ef22fb47"], +Cell[10461, 353, 71, 0, 25, "Output",ExpressionUUID->"afa14344-bd55-431e-aa6c-c70efe6c5a4d"] }, Open ]], Cell[CellGroupData[{ -Cell[38197, 1366, 70, 0, 22, "Input",ExpressionUUID->"2af0cd55-f1de-4186-b4d2-7e0ee2fcbb90"], -Cell[38270, 1368, 71, 0, 25, "Output",ExpressionUUID->"22f7b89c-ce93-4b4d-9c59-f15ec7f6da73"] +Cell[10569, 358, 70, 0, 22, "Input",ExpressionUUID->"0187bca3-1d0a-4623-aec5-953f437b51fd"], +Cell[10642, 360, 71, 0, 25, "Output",ExpressionUUID->"598fc733-e306-4afa-b2be-5b73d49e16c2"] }, Open ]], Cell[CellGroupData[{ -Cell[38378, 1373, 70, 0, 22, "Input",ExpressionUUID->"6029f4f2-49f1-4154-aecc-06d866e07507"], -Cell[38451, 1375, 71, 0, 25, "Output",ExpressionUUID->"15242adf-c742-46be-bda8-6054e9f087b3"] +Cell[10750, 365, 70, 0, 22, "Input",ExpressionUUID->"73d2b785-99f4-4bfb-b83d-3176ccfa253d"], +Cell[10823, 367, 71, 0, 25, "Output",ExpressionUUID->"d9b0e840-276e-4933-8ac7-3b44810cdfd7"] }, Open ]], Cell[CellGroupData[{ -Cell[38559, 1380, 70, 0, 22, "Input",ExpressionUUID->"a4dbeef0-fcd6-4246-a096-026cd5c8fe7d"], -Cell[38632, 1382, 71, 0, 25, "Output",ExpressionUUID->"e5f37624-2f5e-4013-ae6b-6268f8ff6713"] +Cell[10931, 372, 70, 0, 22, "Input",ExpressionUUID->"a3876a42-f9a7-42bf-bb98-8f496b0b9429"], +Cell[11004, 374, 71, 0, 25, "Output",ExpressionUUID->"25c6c990-0648-4b53-88ec-85fbf153b84d"] }, Open ]], Cell[CellGroupData[{ -Cell[38740, 1387, 70, 0, 246, "Input",ExpressionUUID->"115752ea-f3aa-4038-a6aa-91c3f57bfac5"], -Cell[38813, 1389, 71, 0, 170, "Output",ExpressionUUID->"ffa200df-716b-49a6-86be-94fa59dec869"] +Cell[11112, 379, 70, 0, 246, "Input",ExpressionUUID->"a8eefdf0-e27a-49c2-a914-30fe2e3be695"], +Cell[11185, 381, 71, 0, 170, "Output",ExpressionUUID->"74dd1d49-7e7f-4e72-b8c9-ce6b451108d3"] }, Open ]], Cell[CellGroupData[{ -Cell[38921, 1394, 70, 0, 24, "Input",ExpressionUUID->"8fffab93-64df-4b6d-9647-f5f8bb98486e"], -Cell[38994, 1396, 71, 0, 25, "Output",ExpressionUUID->"20eb8865-5dd8-4dcd-ab85-d54dfd719358"] +Cell[11293, 386, 70, 0, 24, "Input",ExpressionUUID->"87e7aafd-8c36-4839-935c-cc46bf1f01dd"], +Cell[11366, 388, 71, 0, 25, "Output",ExpressionUUID->"fe7c92bd-96d2-4bd2-8311-6587e6a29f3e"] }, Open ]], Cell[CellGroupData[{ -Cell[39102, 1401, 70, 0, 22, "Input",ExpressionUUID->"7c14b679-0a0b-4d2d-86fd-db7da5a08f8d"], -Cell[39175, 1403, 71, 0, 25, "Output",ExpressionUUID->"c86e3d74-dfee-43a3-b88b-5f71c70d4a28"] +Cell[11474, 393, 70, 0, 22, "Input",ExpressionUUID->"148e9d0d-8b87-4af5-afd5-d33dbd331cbd"], +Cell[11547, 395, 71, 0, 25, "Output",ExpressionUUID->"2cb15991-5446-4550-9d2b-990382cc6e0b"] }, Open ]], Cell[CellGroupData[{ -Cell[39283, 1408, 70, 0, 22, "Input",ExpressionUUID->"17e630bf-a8b6-4486-96e6-7f607c98ab57"], -Cell[39356, 1410, 71, 0, 25, "Output",ExpressionUUID->"34cf2491-74b3-42e9-9f31-17cb7bbb6838"] +Cell[11655, 400, 70, 0, 22, "Input",ExpressionUUID->"8daebff1-3cc2-4bf5-8cc4-604c65c548b0"], +Cell[11728, 402, 71, 0, 25, "Output",ExpressionUUID->"9cd4be6d-9037-487d-805c-0e30c732a88f"] }, Open ]], Cell[CellGroupData[{ -Cell[39464, 1415, 70, 0, 22, "Input",ExpressionUUID->"0598b222-62c5-416e-b305-746b40dd9bc3"], -Cell[39537, 1417, 71, 0, 25, "Output",ExpressionUUID->"c0cfe5fe-aabf-43c5-8e4a-26fc7484f455"] +Cell[11836, 407, 70, 0, 22, "Input",ExpressionUUID->"ec87e975-8e91-4764-a5f8-d113176427a6"], +Cell[11909, 409, 71, 0, 25, "Output",ExpressionUUID->"682ebcdb-8d48-4545-9fb6-2815a9591a34"] }, Open ]], Cell[CellGroupData[{ -Cell[39645, 1422, 70, 0, 24, "Input",ExpressionUUID->"5af9d17e-db82-48f8-90e9-228210a09ed5"], -Cell[39718, 1424, 71, 0, 25, "Output",ExpressionUUID->"9be1c398-b71f-4b8e-86ff-b57730c34ab5"] +Cell[12017, 414, 70, 0, 24, "Input",ExpressionUUID->"bd4bec0c-34d4-42ea-8210-676c5a4f3b02"], +Cell[12090, 416, 71, 0, 25, "Output",ExpressionUUID->"6744c9f9-54df-4620-86fe-20c2a1fb0a38"] }, Open ]], -Cell[39804, 1427, 70, 0, 22, "Input",ExpressionUUID->"b7b83165-8b6f-4f90-a072-18689e4da274"], +Cell[12176, 419, 70, 0, 22, "Input",ExpressionUUID->"cb5903e7-4ebd-478a-913d-f8dce03353cd"], Cell[CellGroupData[{ -Cell[39899, 1431, 70, 0, 22, "Input",ExpressionUUID->"6897f3b9-582a-494f-bdf5-c17bb76e55eb"], -Cell[39972, 1433, 71, 0, 25, "Output",ExpressionUUID->"af3bc580-2a55-4a7d-ac98-b39a4d20796c"] +Cell[12271, 423, 70, 0, 22, "Input",ExpressionUUID->"7f91ac8c-3dfe-4e6e-876b-c110d899b203"], +Cell[12344, 425, 71, 0, 25, "Output",ExpressionUUID->"66d898e0-c199-4cd1-8c92-f951620499ab"] }, Open ]], Cell[CellGroupData[{ -Cell[40080, 1438, 70, 0, 24, "Input",ExpressionUUID->"934c6620-7229-4e4b-b2ba-810eea6190fc"], -Cell[40153, 1440, 71, 0, 25, "Output",ExpressionUUID->"97e63d9c-91b3-4669-accb-83df4a801f84"] +Cell[12452, 430, 70, 0, 24, "Input",ExpressionUUID->"d7af33b7-ba2b-49a3-aafc-91ee8eb488da"], +Cell[12525, 432, 71, 0, 25, "Output",ExpressionUUID->"76e092cb-b3ca-4ad3-8371-d22bc3bdbfec"] }, Open ]], Cell[CellGroupData[{ -Cell[40261, 1445, 70, 0, 71, "Input",ExpressionUUID->"3a1ee666-d77d-4248-b833-dd1b09c23d24"], -Cell[40334, 1447, 71, 0, 183, "Output",ExpressionUUID->"058dec63-327d-4cf0-b0a1-cdf5c026a84b"] +Cell[12633, 437, 70, 0, 71, "Input",ExpressionUUID->"ba65a569-6e06-47f2-aa64-ce40ed720e16"], +Cell[12706, 439, 71, 0, 183, "Output",ExpressionUUID->"49a28651-b01d-4119-8b17-5cececd6f4d8"] }, Open ]], -Cell[40420, 1450, 70, 0, 22, "Input",ExpressionUUID->"f4bc065b-3d70-4f1f-bbed-9d1c17b3fc3d"], +Cell[12792, 442, 70, 0, 22, "Input",ExpressionUUID->"f53418ef-e0c9-44a5-92b0-cb484b4f96c8"], Cell[CellGroupData[{ -Cell[40515, 1454, 70, 0, 24, "Input",ExpressionUUID->"d1ee4b7a-f19c-4764-a00e-c0443a4a655f"], -Cell[40588, 1456, 71, 0, 25, "Output",ExpressionUUID->"1538c9df-d831-46f1-8713-7331dbb17ad5"] +Cell[12887, 446, 70, 0, 75, "Input",ExpressionUUID->"a30a4640-3744-4c0b-9800-1073a0fa0d50"], +Cell[12960, 448, 71, 0, 25, "Output",ExpressionUUID->"a91af46f-115e-4b5b-a963-4e64b27789f9"] }, Open ]], Cell[CellGroupData[{ -Cell[40696, 1461, 70, 0, 75, "Input",ExpressionUUID->"cb621e05-0372-4be4-8a7f-fa6af95394ed"], -Cell[40769, 1463, 71, 0, 25, "Output",ExpressionUUID->"11752d12-3b73-4277-a911-0c1d26651286"] +Cell[13068, 453, 70, 0, 75, "Input",ExpressionUUID->"6c557c5e-e6b4-4351-9c51-9653ebaa3755"], +Cell[13141, 455, 71, 0, 25, "Output",ExpressionUUID->"d46b93fb-0f62-45fa-a6de-37bde5cbd060"] }, Open ]], Cell[CellGroupData[{ -Cell[40877, 1468, 70, 0, 37, "Input",ExpressionUUID->"18d44a4a-c7fc-4ae5-848b-d13406c29337"], -Cell[40950, 1470, 71, 0, 25, "Output",ExpressionUUID->"99c9c147-0bc3-4778-9545-e9c45fe0ac14"] +Cell[13249, 460, 70, 0, 37, "Input",ExpressionUUID->"b157e171-c7d5-47f2-b745-8f2e8fa0198c"], +Cell[13322, 462, 71, 0, 25, "Output",ExpressionUUID->"5a0db3ec-ac1c-432f-adee-e6747b4db94f"] }, Open ]], Cell[CellGroupData[{ -Cell[41058, 1475, 70, 0, 24, "Input",ExpressionUUID->"e3524918-77d8-4a79-be8a-6de43155ca32"], -Cell[41131, 1477, 71, 0, 27, "Output",ExpressionUUID->"a9939342-ed73-4ec4-91fc-0ea9e8060540"] +Cell[13430, 467, 70, 0, 24, "Input",ExpressionUUID->"bdb84812-f388-49c2-8ac6-3080c735f5e5"], +Cell[13503, 469, 71, 0, 44, "Output",ExpressionUUID->"b941a263-57d9-4309-b289-83857d3df95f"] }, Open ]], Cell[CellGroupData[{ -Cell[41239, 1482, 70, 0, 22, "Input",ExpressionUUID->"5fd94adc-3ec9-44a6-9da8-ece1fda82850"], -Cell[41312, 1484, 71, 0, 25, "Output",ExpressionUUID->"4a09183b-1d26-4467-8906-95ef0ab9c6c8"] +Cell[13611, 474, 70, 0, 22, "Input",ExpressionUUID->"7fec8d25-6d0b-475e-a3c6-8b90b79f873e"], +Cell[13684, 476, 71, 0, 25, "Output",ExpressionUUID->"48c117a8-371e-45ba-aa5f-facdd5f694ec"] }, Open ]], Cell[CellGroupData[{ -Cell[41420, 1489, 70, 0, 39, "Input",ExpressionUUID->"73c66fd5-052d-458a-84d0-ede60e041f24"], -Cell[41493, 1491, 71, 0, 25, "Output",ExpressionUUID->"c0c4b728-d1d8-42c2-a3f1-8b215d3c5a43"] +Cell[13792, 481, 70, 0, 39, "Input",ExpressionUUID->"feb6f5a0-8271-4175-8fd5-743c24ab49d2"], +Cell[13865, 483, 71, 0, 25, "Output",ExpressionUUID->"b00b9646-7ea6-4e6c-895b-add09ba6b344"] }, Open ]], Cell[CellGroupData[{ -Cell[41601, 1496, 70, 0, 58, "Input",ExpressionUUID->"7a26d6af-0aab-455f-91db-5512571172b3"], -Cell[41674, 1498, 71, 0, 171, "Output",ExpressionUUID->"1b652f9e-f35c-42cd-a7e0-f01c8229e46b"] +Cell[13973, 488, 70, 0, 58, "Input",ExpressionUUID->"5553a701-d8ac-42d8-bf96-f61247fd91d5"], +Cell[14046, 490, 71, 0, 171, "Output",ExpressionUUID->"ff2eefd5-74bd-4633-a9f6-bb1945c40989"] }, Open ]], -Cell[41760, 1501, 70, 0, 55, "Input",ExpressionUUID->"3d32eb0d-fb5d-46ba-bbff-a17aec10d743"], +Cell[14132, 493, 70, 0, 55, "Input",ExpressionUUID->"4dc1af41-4bef-447e-a233-c8c033887359"], Cell[CellGroupData[{ -Cell[41855, 1505, 70, 0, 22, "Input",ExpressionUUID->"40615a3b-3bf4-41cf-af74-188977e3a07e"], -Cell[41928, 1507, 72, 0, 22, "Message",ExpressionUUID->"1cd1ee4c-be11-4530-bf3b-f6416b08a0ff"], -Cell[42003, 1509, 71, 0, 25, "Output",ExpressionUUID->"7acf39dc-8aed-44fe-8bb0-bb9436fd9010"] +Cell[14227, 497, 70, 0, 22, "Input",ExpressionUUID->"e74b775a-c745-4f15-9b63-7bb00af5a487"], +Cell[14300, 499, 72, 0, 22, "Message",ExpressionUUID->"05b00b91-b292-4f86-8ac1-2cad1d50f51c"], +Cell[14375, 501, 71, 0, 42, "Output",ExpressionUUID->"54c0d651-a676-4819-8283-9d2b33e602fc"] }, Open ]], Cell[CellGroupData[{ -Cell[42111, 1514, 70, 0, 71, "Input",ExpressionUUID->"bf8968d9-19d7-4017-b5b9-14c165d48e1d"], -Cell[42184, 1516, 71, 0, 137, "Output",ExpressionUUID->"f716e403-3b85-4db1-bcc7-65265fa14b70"] +Cell[14483, 506, 70, 0, 71, "Input",ExpressionUUID->"fb42dfa6-f948-472b-87e8-e4cb6e90ba26"], +Cell[14556, 508, 71, 0, 137, "Output",ExpressionUUID->"21f29296-03a7-4cc8-b760-b71dfa22b325"] }, Open ]], Cell[CellGroupData[{ -Cell[42292, 1521, 70, 0, 41, "Input",ExpressionUUID->"a73f44d7-19db-4443-8971-77a7d3cbc4ac"], -Cell[42365, 1523, 71, 0, 180, "Output",ExpressionUUID->"2da9ed36-c74b-4b4e-987d-951628f83457"] +Cell[14664, 513, 70, 0, 41, "Input",ExpressionUUID->"a60f4b40-cbec-4d33-97f5-65de16370f80"], +Cell[14737, 515, 71, 0, 180, "Output",ExpressionUUID->"820bd75e-ec9c-4db8-b5e7-96cfd532640b"] }, Open ]], Cell[CellGroupData[{ -Cell[42473, 1528, 70, 0, 41, "Input",ExpressionUUID->"0cce5618-8a99-44e7-86b5-68e7bc48ef0b"], -Cell[42546, 1530, 71, 0, 180, "Output",ExpressionUUID->"1b6560cd-6b3d-4bab-919b-dc6e68e7c444"] +Cell[14845, 520, 70, 0, 41, "Input",ExpressionUUID->"49d01b4e-c864-4298-94b7-ace002b965d8"], +Cell[14918, 522, 71, 0, 180, "Output",ExpressionUUID->"3156e626-6fd1-4878-b776-44c6cf7fef12"] }, Open ]], Cell[CellGroupData[{ -Cell[42654, 1535, 70, 0, 39, "Input",ExpressionUUID->"8485951e-7fc8-43ed-8ba0-ef1e6d664951"], -Cell[42727, 1537, 71, 0, 27, "Output",ExpressionUUID->"e2c67870-453b-427a-95e8-cab50a430376"] +Cell[15026, 527, 70, 0, 39, "Input",ExpressionUUID->"4cefebbf-3ee0-49eb-85d3-1f8acdd03d03"], +Cell[15099, 529, 71, 0, 27, "Output",ExpressionUUID->"5fad1eab-bed9-4cd3-a21b-8c8758b922eb"] }, Open ]], Cell[CellGroupData[{ -Cell[42835, 1542, 70, 0, 75, "Input",ExpressionUUID->"f8206946-5423-4615-81a4-c230b5e80d65"], -Cell[42908, 1544, 71, 0, 138, "Output",ExpressionUUID->"985cd9bf-505a-4fe6-988b-e983fb70bc8a"] +Cell[15207, 534, 70, 0, 75, "Input",ExpressionUUID->"82d96d28-401c-43fa-8337-b55bfd500552"], +Cell[15280, 536, 71, 0, 138, "Output",ExpressionUUID->"1ab9ef64-9a55-4344-9cb3-5443ea2b020c"] }, Open ]], Cell[CellGroupData[{ -Cell[43016, 1549, 70, 0, 57, "Input",ExpressionUUID->"8088e833-ee02-4258-9f96-8c0e92981bf8"], -Cell[43089, 1551, 71, 0, 181, "Output",ExpressionUUID->"93cd739f-29d0-4b70-aac3-bf2a78f628b7"] +Cell[15388, 541, 70, 0, 57, "Input",ExpressionUUID->"b2167779-1e8f-4690-a7d9-fe7d464a4815"], +Cell[15461, 543, 71, 0, 181, "Output",ExpressionUUID->"ead509b6-b153-4829-be33-8ff5a6efcada"] }, Open ]], -Cell[43175, 1554, 70, 0, 55, "Input",ExpressionUUID->"bd576e58-f517-4aa4-afda-31a30b3f37f2"], +Cell[15547, 546, 70, 0, 55, "Input",ExpressionUUID->"172fdee0-af8e-4049-9dda-cfec26fad09c"], Cell[CellGroupData[{ -Cell[43270, 1558, 70, 0, 24, "Input",ExpressionUUID->"ceb62266-9f07-4658-a4d7-321e2989a78e"], -Cell[43343, 1560, 72, 0, 22, "Message",ExpressionUUID->"5c805d43-a6a3-4259-8167-9ed7a83569c3"], -Cell[43418, 1562, 71, 0, 60, "Output",ExpressionUUID->"ca8008f0-9c0b-428c-bd51-8cef3103b4c4"] +Cell[15642, 550, 70, 0, 24, "Input",ExpressionUUID->"0ea1b44d-26c0-49ba-8c54-6d51b749dcee"], +Cell[15715, 552, 72, 0, 22, "Message",ExpressionUUID->"1820350f-3096-4479-969b-2dda88e43862"], +Cell[15790, 554, 71, 0, 60, "Output",ExpressionUUID->"58f08fd4-743e-4318-9e82-7ecda92ce1db"] }, Open ]], Cell[CellGroupData[{ -Cell[43526, 1567, 70, 0, 71, "Input",ExpressionUUID->"ce2413ff-e1c9-412f-8c1c-20f5155a8e4e"], -Cell[43599, 1569, 71, 0, 138, "Output",ExpressionUUID->"970b6b46-2fe0-42a5-8a2d-e2d76a8db9e5"] +Cell[15898, 559, 70, 0, 71, "Input",ExpressionUUID->"324ac29a-a49d-4e6b-a8d8-b259afcd34c7"], +Cell[15971, 561, 71, 0, 138, "Output",ExpressionUUID->"464153b0-04b0-46cf-82d1-649dc2c2d6a0"] }, Open ]], Cell[CellGroupData[{ -Cell[43707, 1574, 70, 0, 59, "Input",ExpressionUUID->"a2b6993a-026b-4527-b432-66adf3e82a38"], -Cell[43780, 1576, 71, 0, 184, "Output",ExpressionUUID->"bf2495ed-92b4-47e0-8f49-b2172527f2d1"] +Cell[16079, 566, 70, 0, 59, "Input",ExpressionUUID->"288a2ff7-5161-4fe5-8f43-122ba3a5d3f2"], +Cell[16152, 568, 71, 0, 184, "Output",ExpressionUUID->"d5da57e7-0428-4391-af81-4f874cd963e4"] }, Open ]], Cell[CellGroupData[{ -Cell[43888, 1581, 70, 0, 75, "Input",ExpressionUUID->"3dce5e91-87e2-45b3-8a1a-d6f943dd975c"], -Cell[43961, 1583, 71, 0, 180, "Output",ExpressionUUID->"69a06601-7d40-4a49-9c86-e61321248df8"] +Cell[16260, 573, 70, 0, 75, "Input",ExpressionUUID->"d85908e0-a479-4a49-999f-e6e49522af2d"], +Cell[16333, 575, 71, 0, 180, "Output",ExpressionUUID->"2f30870a-4c21-432a-b77d-85d6f131265e"] }, Open ]], -Cell[44047, 1586, 70, 0, 55, "Input",ExpressionUUID->"8e15ee6e-f796-4feb-a19d-45aa418925bc"], +Cell[16419, 578, 70, 0, 55, "Input",ExpressionUUID->"4fbf2b0a-5252-416a-b90a-a12f6d946efe"], Cell[CellGroupData[{ -Cell[44142, 1590, 70, 0, 22, "Input",ExpressionUUID->"01559a7f-0832-4186-9a48-6dc2654c35f7"], -Cell[44215, 1592, 71, 0, 42, "Output",ExpressionUUID->"c8019c92-12bd-4aec-9d81-dd12103214c5"] +Cell[16514, 582, 70, 0, 22, "Input",ExpressionUUID->"5ac27342-feda-4aa6-9098-1d0e7b78fae8"], +Cell[16587, 584, 71, 0, 42, "Output",ExpressionUUID->"b47243ad-5432-4eb5-bbf7-870353157603"] }, Open ]], Cell[CellGroupData[{ -Cell[44323, 1597, 70, 0, 71, "Input",ExpressionUUID->"64934bdb-d7a0-4854-b9ce-237aaf977e8a"], -Cell[44396, 1599, 71, 0, 138, "Output",ExpressionUUID->"838b5db2-c5d6-4d60-a8cd-e5d80ea3cacb"] +Cell[16695, 589, 70, 0, 71, "Input",ExpressionUUID->"63fcec7c-aaff-46be-90dc-231bca0993d9"], +Cell[16768, 591, 71, 0, 138, "Output",ExpressionUUID->"547073ca-2de1-44b5-8139-682a4eb761c9"] }, Open ]], Cell[CellGroupData[{ -Cell[44504, 1604, 70, 0, 141, "Input",ExpressionUUID->"c75788e5-2d5f-4b60-a9a3-c8ab1e900ca6"], -Cell[44577, 1606, 71, 0, 138, "Output",ExpressionUUID->"b026bd64-4322-4d3d-bd25-24c6f375d92e"] +Cell[16876, 596, 70, 0, 141, "Input",ExpressionUUID->"8f2cfc94-a67c-484e-bbeb-610484e18a97"], +Cell[16949, 598, 71, 0, 138, "Output",ExpressionUUID->"453285de-e47a-4bcc-96d7-ec76dfc88820"] }, Open ]], -Cell[44663, 1609, 70, 0, 55, "Input",ExpressionUUID->"8712ec7d-4853-4834-9148-2e0b87e145f3"], +Cell[17035, 601, 70, 0, 55, "Input",ExpressionUUID->"59993536-91f3-449a-9e8c-58cd1f6ec74c"], Cell[CellGroupData[{ -Cell[44758, 1613, 70, 0, 22, "Input",ExpressionUUID->"357d2920-878c-453b-80a5-70ba292a5ae8"], -Cell[44831, 1615, 72, 0, 46, "Message",ExpressionUUID->"47f7f2c3-b7e2-4a94-b6cf-25d9f0fa600f"], -Cell[44906, 1617, 71, 0, 58, "Output",ExpressionUUID->"9a6912d5-608a-4795-8a0e-d54603e47fad"] +Cell[17130, 605, 70, 0, 22, "Input",ExpressionUUID->"ab599d2d-27ef-4491-b1cb-534f98403e59"], +Cell[17203, 607, 72, 0, 46, "Message",ExpressionUUID->"f4cd9634-0e29-4718-97b8-490c5f242f4a"], +Cell[17278, 609, 71, 0, 58, "Output",ExpressionUUID->"80e0c922-0db4-48ee-96b6-33400b7fa9d7"] }, Open ]], Cell[CellGroupData[{ -Cell[45014, 1622, 70, 0, 71, "Input",ExpressionUUID->"5f25fdb0-021a-4328-9d95-e2f4257a4ed7"], -Cell[45087, 1624, 71, 0, 138, "Output",ExpressionUUID->"bf5ad568-a673-4464-9f2c-8e5d79bac130"] +Cell[17386, 614, 70, 0, 71, "Input",ExpressionUUID->"f9bd15f0-d859-4863-9fe9-3ad2883e76d2"], +Cell[17459, 616, 71, 0, 138, "Output",ExpressionUUID->"27a9c152-8a0d-4899-aa74-6a603c9665b9"] }, Open ]], -Cell[45173, 1627, 70, 0, 55, "Input",ExpressionUUID->"52fb4777-4c7f-45e8-ac9f-46d51d41be30"], +Cell[17545, 619, 70, 0, 55, "Input",ExpressionUUID->"1282028e-7a8e-46e3-bc91-b35b1d1604ed"], Cell[CellGroupData[{ -Cell[45268, 1631, 70, 0, 22, "Input",ExpressionUUID->"0d730e0c-0cc6-4c7f-8384-7f3287a69ea5"], -Cell[45341, 1633, 72, 0, 22, "Message",ExpressionUUID->"e6302471-fb4c-458d-8ff0-f2052addc5e7"], -Cell[45416, 1635, 71, 0, 79, "Output",ExpressionUUID->"795c441e-9e36-4982-b06f-02572be8c468"] +Cell[17640, 623, 70, 0, 22, "Input",ExpressionUUID->"83c6d43c-fed0-4989-a06f-986a75bf7651"], +Cell[17713, 625, 72, 0, 22, "Message",ExpressionUUID->"cf50225b-a0ef-4626-94a0-0803782ba72f"], +Cell[17788, 627, 71, 0, 79, "Output",ExpressionUUID->"e4dd84aa-35ca-4c06-b076-812cdad95551"] }, Open ]], Cell[CellGroupData[{ -Cell[45524, 1640, 70, 0, 71, "Input",ExpressionUUID->"19ffcc93-81a4-4442-9f7d-bb0a91076a83"], -Cell[45597, 1642, 71, 0, 136, "Output",ExpressionUUID->"7c3bf3fe-4257-44f9-b31f-df5fc8e0a8f6"] +Cell[17896, 632, 70, 0, 71, "Input",ExpressionUUID->"9903c113-3088-4e43-884e-783e3462a3bd"], +Cell[17969, 634, 71, 0, 136, "Output",ExpressionUUID->"ace4a267-d48c-4a17-8b21-0b8791f1d4a8"] }, Open ]], Cell[CellGroupData[{ -Cell[45705, 1647, 70, 0, 22, "Input",ExpressionUUID->"d27188da-dbec-4862-897d-c79d508f5a06"], -Cell[45778, 1649, 71, 0, 178, "Output",ExpressionUUID->"d3aaacc3-94cd-4f94-b8d3-6f97ce80a7dd"] +Cell[18077, 639, 70, 0, 22, "Input",ExpressionUUID->"85ae5ebd-4d7b-469b-b177-bd88ef9a9e54"], +Cell[18150, 641, 71, 0, 178, "Output",ExpressionUUID->"392555db-33d5-4e50-8a31-e2a3a67d3a75"] }, Open ]], -Cell[45864, 1652, 70, 0, 55, "Input",ExpressionUUID->"a7c34ad4-8a20-4d4c-a312-b4abf43e7b84"], +Cell[18236, 644, 70, 0, 55, "Input",ExpressionUUID->"d0ac4c0e-3fde-4f39-860c-119c61865e94"], Cell[CellGroupData[{ -Cell[45959, 1656, 70, 0, 24, "Input",ExpressionUUID->"f952decb-8392-4bd9-9ca8-68fa98ba4ea0"], -Cell[46032, 1658, 72, 0, 34, "Message",ExpressionUUID->"3f58991c-8f32-42f0-910b-caff5ed428b4"], -Cell[46107, 1660, 71, 0, 76, "Output",ExpressionUUID->"58221ff1-4525-46a7-bdae-792c93f49938"] +Cell[18331, 648, 70, 0, 24, "Input",ExpressionUUID->"31b6196c-dff7-4ae3-ba24-930461af4520"], +Cell[18404, 650, 72, 0, 34, "Message",ExpressionUUID->"7df3f521-17b3-470c-a210-7a61feecd5cb"], +Cell[18479, 652, 71, 0, 76, "Output",ExpressionUUID->"ea8fe62a-dd49-4054-b383-0738f0b8f82f"] }, Open ]], Cell[CellGroupData[{ -Cell[46215, 1665, 70, 0, 71, "Input",ExpressionUUID->"438a08cf-d91e-4ffb-89f2-a823831c337f"], -Cell[46288, 1667, 71, 0, 136, "Output",ExpressionUUID->"31bd7638-0b3f-414d-858a-3740b7c9aa3d"] +Cell[18587, 657, 70, 0, 71, "Input",ExpressionUUID->"c89d4fc8-2254-4238-b27d-107fefc31da5"], +Cell[18660, 659, 71, 0, 136, "Output",ExpressionUUID->"d1455115-bd06-4d75-a8b5-99c39d1e90d7"] }, Open ]], Cell[CellGroupData[{ -Cell[46396, 1672, 70, 0, 55, "Input",ExpressionUUID->"3ca9ff01-d810-4f3b-a0e5-4853c773e631"], -Cell[46469, 1674, 71, 0, 178, "Output",ExpressionUUID->"bf148fd8-9693-4be5-8c41-6d1aeb3bcdce"] +Cell[18768, 664, 70, 0, 55, "Input",ExpressionUUID->"d7824482-d74e-4fac-8224-3728d7d92b24"], +Cell[18841, 666, 71, 0, 178, "Output",ExpressionUUID->"ad65c8a7-66e9-4c1e-b599-35bacb78e113"] }, Open ]], Cell[CellGroupData[{ -Cell[46577, 1679, 70, 0, 22, "Input",ExpressionUUID->"5676beb4-7e67-4262-a1a9-8649d66fc608"], -Cell[46650, 1681, 71, 0, 25, "Output",ExpressionUUID->"4fbceaf0-ac98-4d89-a81b-49f54b7e80b3"] +Cell[18949, 671, 70, 0, 22, "Input",ExpressionUUID->"93164c6e-f8e2-4fb1-ab0b-a65d379b88ef"], +Cell[19022, 673, 71, 0, 25, "Output",ExpressionUUID->"db3875cf-f19f-4e24-a7e4-c4017292b8fe"] }, Open ]], Cell[CellGroupData[{ -Cell[46758, 1686, 70, 0, 22, "Input",ExpressionUUID->"a47e563a-1a70-40e7-b94e-e6dec72f2217"], -Cell[46831, 1688, 71, 0, 51, "Output",ExpressionUUID->"75bbd4ee-6c89-47ad-8378-521f9f78d95c"] +Cell[19130, 678, 70, 0, 22, "Input",ExpressionUUID->"40b90456-e65f-4936-94f0-aa9e157985d1"], +Cell[19203, 680, 71, 0, 51, "Output",ExpressionUUID->"e84b103a-4734-481c-bc68-32680f2490ae"] }, Open ]], Cell[CellGroupData[{ -Cell[46939, 1693, 70, 0, 59, "Input",ExpressionUUID->"db5b7fcd-757d-45ac-b959-eb92b6428ee8"], -Cell[47012, 1695, 71, 0, 77, "Output",ExpressionUUID->"66904aad-235c-4592-a25c-527242bad8da"] +Cell[19311, 685, 70, 0, 59, "Input",ExpressionUUID->"802f97e2-70b5-4c0e-b977-f8a2e505bb60"], +Cell[19384, 687, 71, 0, 77, "Output",ExpressionUUID->"13540836-8492-44db-8f61-825c10092a3b"] }, Open ]], Cell[CellGroupData[{ -Cell[47120, 1700, 70, 0, 63, "Input",ExpressionUUID->"4f34a001-11c8-46a5-bab7-43816510fc29"], -Cell[47193, 1702, 72, 0, 22, "Message",ExpressionUUID->"8c252e0f-ebf9-40a0-a65e-5752171a35d8"], -Cell[47268, 1704, 72, 0, 22, "Message",ExpressionUUID->"a000d915-f8c7-4ce4-a811-545a415e24fc"], -Cell[47343, 1706, 72, 0, 22, "Message",ExpressionUUID->"7dde968f-6bef-4b0b-81b3-e52e357f62e2"], -Cell[47418, 1708, 72, 0, 22, "Message",ExpressionUUID->"5f0d7aa7-3d28-4e00-82d5-76ffcee4bd01"] +Cell[19492, 692, 70, 0, 63, "Input",ExpressionUUID->"9510d7f0-79c6-409e-9c06-caac79aa83b9"], +Cell[19565, 694, 72, 0, 22, "Message",ExpressionUUID->"b9cd98f1-c229-4f5b-95ec-13d954ebd59a"], +Cell[19640, 696, 72, 0, 22, "Message",ExpressionUUID->"ea96e00a-9fe6-4d33-80b4-d0a9eed78731"], +Cell[19715, 698, 72, 0, 22, "Message",ExpressionUUID->"a31115cb-de8f-481d-994b-5bc9a83710b8"], +Cell[19790, 700, 72, 0, 22, "Message",ExpressionUUID->"667a685e-0e76-4db4-8986-9eaad489f3e3"] }, Open ]], Cell[CellGroupData[{ -Cell[47527, 1713, 70, 0, 24, "Input",ExpressionUUID->"dee3cd3e-84f4-4b73-b470-f1b7c0baa7b5"], -Cell[47600, 1715, 71, 0, 182, "Output",ExpressionUUID->"18c3e4eb-9e95-422a-b0da-36edbb287ee5"] +Cell[19899, 705, 70, 0, 24, "Input",ExpressionUUID->"4c6fe8ab-4f6a-4b57-92a5-c94e403d041d"], +Cell[19972, 707, 71, 0, 182, "Output",ExpressionUUID->"11addea4-5f17-44f9-80f6-b7d15dd56efa"] }, Open ]], -Cell[47686, 1718, 70, 0, 109, "Input",ExpressionUUID->"c9f0635b-0df0-48ed-8c29-17f301861517"], +Cell[20058, 710, 70, 0, 109, "Input",ExpressionUUID->"bc84d748-2ae9-4f3e-87ec-0fa12dfd6954"], Cell[CellGroupData[{ -Cell[47781, 1722, 70, 0, 126, "Input",ExpressionUUID->"437d5765-89f4-444f-abba-e04ffe26d7c9"], -Cell[47854, 1724, 72, 0, 32, "Message",ExpressionUUID->"4c823020-6c4e-407e-8fb9-5a5ec9a49385"], -Cell[47929, 1726, 72, 0, 22, "Message",ExpressionUUID->"0f4aaf4c-9dbc-427f-9089-e02cb3abcf77"], -Cell[48004, 1728, 72, 0, 32, "Message",ExpressionUUID->"8c578de3-6085-49cf-8cf6-84361c2d8524"], -Cell[48079, 1730, 72, 0, 32, "Message",ExpressionUUID->"42ea315f-3868-4b6f-b2f8-24cbc5f4dc34"], -Cell[48154, 1732, 72, 0, 22, "Message",ExpressionUUID->"2ab5fd83-7455-458e-b91b-0d9ee7745efa"], -Cell[48229, 1734, 72, 0, 22, "Message",ExpressionUUID->"3d85a17e-b682-4c90-bcb8-f3301535254d"], -Cell[48304, 1736, 72, 0, 22, "Message",ExpressionUUID->"55552e47-2019-4e0e-94ac-22ab0b441801"], -Cell[48379, 1738, 72, 0, 22, "Message",ExpressionUUID->"760654c4-f428-4c74-891f-ff2a37b6b853"] +Cell[20153, 714, 70, 0, 126, "Input",ExpressionUUID->"c099f9b5-a706-4293-9c42-f007146a13f7"], +Cell[20226, 716, 72, 0, 32, "Message",ExpressionUUID->"94a73904-550c-43cf-8d0b-35b5cbc01228"], +Cell[20301, 718, 72, 0, 22, "Message",ExpressionUUID->"3f893d05-e641-4bf4-9ea5-bcabdc4d6a95"], +Cell[20376, 720, 72, 0, 32, "Message",ExpressionUUID->"53b27a41-4cd2-4652-a104-35161ad96bf2"], +Cell[20451, 722, 72, 0, 32, "Message",ExpressionUUID->"413977e9-0c84-449f-b053-9df53b50e738"], +Cell[20526, 724, 72, 0, 22, "Message",ExpressionUUID->"d499cd59-07fb-492e-b9f7-1ddddfebb272"], +Cell[20601, 726, 72, 0, 22, "Message",ExpressionUUID->"395175e1-6469-49cf-a376-9be005af7add"], +Cell[20676, 728, 72, 0, 22, "Message",ExpressionUUID->"8f65301b-fe48-42b3-9924-e0e8e3bea608"], +Cell[20751, 730, 72, 0, 22, "Message",ExpressionUUID->"6d1c81df-b866-4446-8abe-657a6a8d929f"] }, Open ]], Cell[CellGroupData[{ -Cell[48488, 1743, 70, 0, 22, "Input",ExpressionUUID->"cf8328a2-2e41-4543-bbcc-55e75f60d95a"], -Cell[48561, 1745, 71, 0, 305, "Output",ExpressionUUID->"5407ac23-3194-49ee-8010-3f88ab93d531"] +Cell[20860, 735, 70, 0, 22, "Input",ExpressionUUID->"a66d45ff-8000-4c96-bcb2-2bc7343fd5de"], +Cell[20933, 737, 71, 0, 305, "Output",ExpressionUUID->"5364b922-5bbc-4121-ab23-dc5bb4bec4cb"] }, Open ]], Cell[CellGroupData[{ -Cell[48669, 1750, 70, 0, 76, "Input",ExpressionUUID->"86ced1f4-0a54-4999-959e-d79bc814f759"], -Cell[48742, 1752, 71, 0, 352, "Output",ExpressionUUID->"93bab345-098c-4ca7-852a-335a5cd0dcf6"] +Cell[21041, 742, 70, 0, 76, "Input",ExpressionUUID->"8e0288f2-5922-4dde-923e-8106073adf6c"], +Cell[21114, 744, 71, 0, 352, "Output",ExpressionUUID->"c6c9c8e8-7cb0-4ad0-a6c6-fb0a70db55da"] }, Open ]], Cell[CellGroupData[{ -Cell[48850, 1757, 70, 0, 24, "Input",ExpressionUUID->"856a5f4c-223c-4aea-beeb-3fbd1534589f"], -Cell[48923, 1759, 71, 0, 25, "Output",ExpressionUUID->"e28c565e-2a35-4030-81ec-c70369667adb"] +Cell[21222, 749, 70, 0, 24, "Input",ExpressionUUID->"4355674b-0fd6-4516-8896-cd33a8476ab5"], +Cell[21295, 751, 71, 0, 25, "Output",ExpressionUUID->"b8a18520-7b45-49b0-af16-64f6d0a9c819"] }, Open ]], Cell[CellGroupData[{ -Cell[49031, 1764, 70, 0, 24, "Input",ExpressionUUID->"a052bc09-b1cf-4937-8c90-bdb0978ae5fb"], -Cell[49104, 1766, 71, 0, 179, "Output",ExpressionUUID->"27ad9b7a-bb2e-42b7-9b85-f4860d194c8a"] +Cell[21403, 756, 70, 0, 24, "Input",ExpressionUUID->"ee6beea5-4d88-4650-837d-58c8d3c6363b"], +Cell[21476, 758, 71, 0, 179, "Output",ExpressionUUID->"a27bcc82-f8f9-42d8-854c-a204a73d483f"] }, Open ]], -Cell[49190, 1769, 70, 0, 75, "Input",ExpressionUUID->"bc95d58f-92c7-4786-bf70-93a6a30e7d08"], +Cell[21562, 761, 70, 0, 75, "Input",ExpressionUUID->"5894652c-ea9c-458f-866d-b40d1a5efb75"], Cell[CellGroupData[{ -Cell[49285, 1773, 70, 0, 24, "Input",ExpressionUUID->"b99c27c3-28f4-463a-bbd4-0d707f24ede5"], -Cell[49358, 1775, 71, 0, 178, "Output",ExpressionUUID->"dbb1ea27-23d8-498f-9931-237735b90888"] +Cell[21657, 765, 70, 0, 24, "Input",ExpressionUUID->"3fee7ec2-e0c4-4420-8192-c46efe85e265"], +Cell[21730, 767, 71, 0, 178, "Output",ExpressionUUID->"2bfc8e2b-006d-4096-8c4b-8422da967dcb"] }, Open ]], -Cell[49444, 1778, 70, 0, 109, "Input",ExpressionUUID->"e125971c-79d1-4a87-ab30-82edcc7a11b6"], +Cell[21816, 770, 70, 0, 109, "Input",ExpressionUUID->"16683f20-3a25-47da-8c9c-58bfb1a56ae7"], Cell[CellGroupData[{ -Cell[49539, 1782, 70, 0, 24, "Input",ExpressionUUID->"da2bc76c-d02b-4910-a9ef-13df31a8a85d"], -Cell[49612, 1784, 71, 0, 180, "Output",ExpressionUUID->"3379bb53-2814-44a6-8d6d-c6bf9ff90130"] +Cell[21911, 774, 70, 0, 24, "Input",ExpressionUUID->"0c28b27c-3e81-49ce-9293-512f19f95aeb"], +Cell[21984, 776, 71, 0, 180, "Output",ExpressionUUID->"a225487e-1b09-4625-b1b4-0393225de258"] }, Open ]], -Cell[49698, 1787, 70, 0, 55, "Input",ExpressionUUID->"0ff99b46-5b6d-4857-b18e-faa48625e0b2"], +Cell[22070, 779, 70, 0, 55, "Input",ExpressionUUID->"78606265-f50f-49dc-888d-33550f059b83"], Cell[CellGroupData[{ -Cell[49793, 1791, 70, 0, 22, "Input",ExpressionUUID->"70a7e635-ea68-4ab2-b208-3f27f1f18773"], -Cell[49866, 1793, 71, 0, 25, "Output",ExpressionUUID->"ff4ef488-7509-4a22-b38b-3e5ee979dfec"] +Cell[22165, 783, 70, 0, 22, "Input",ExpressionUUID->"396a3ca5-637b-4194-943d-7ec379bcf47e"], +Cell[22238, 785, 71, 0, 25, "Output",ExpressionUUID->"032de8e5-e62b-4c2c-a2db-afe60e4c0f47"] }, Open ]], Cell[CellGroupData[{ -Cell[49974, 1798, 70, 0, 71, "Input",ExpressionUUID->"e7efdffa-c82b-4b24-afeb-7b606e3a56b6"], -Cell[50047, 1800, 71, 0, 136, "Output",ExpressionUUID->"ea054bf8-969f-415b-abfb-ad7f9b45bd69"] +Cell[22346, 790, 70, 0, 71, "Input",ExpressionUUID->"050da7fc-1308-4d49-81b4-1f4efc54c09a"], +Cell[22419, 792, 71, 0, 136, "Output",ExpressionUUID->"5c8a355d-e522-4c74-8a53-b7d46e9c333f"] }, Open ]], -Cell[50133, 1803, 70, 0, 55, "Input",ExpressionUUID->"376c00c5-9f33-4e41-9b82-73d25dddfb86"], +Cell[22505, 795, 70, 0, 55, "Input",ExpressionUUID->"37ec5e26-c9a1-4c3e-b046-f5bdcb69b8db"], Cell[CellGroupData[{ -Cell[50228, 1807, 70, 0, 22, "Input",ExpressionUUID->"51dc3d02-9fb1-45c0-a232-766e908af724"], -Cell[50301, 1809, 71, 0, 25, "Output",ExpressionUUID->"37d0c2a2-52d2-4d89-8972-8e422f0e5216"] +Cell[22600, 799, 70, 0, 22, "Input",ExpressionUUID->"aafc8bea-bd59-4ab7-b436-168abec75b4d"], +Cell[22673, 801, 71, 0, 25, "Output",ExpressionUUID->"823a15e6-d4d4-45cf-b711-54e7c88841d0"] }, Open ]], Cell[CellGroupData[{ -Cell[50409, 1814, 70, 0, 71, "Input",ExpressionUUID->"b0ed41fc-0793-4607-b285-69dc836fbc46"], -Cell[50482, 1816, 71, 0, 135, "Output",ExpressionUUID->"1a124bff-ae77-4eae-9842-4ec08b7c4be7"] +Cell[22781, 806, 70, 0, 71, "Input",ExpressionUUID->"d90b515e-65bf-42c5-a9d8-7ebc27861a0a"], +Cell[22854, 808, 71, 0, 135, "Output",ExpressionUUID->"674ddf51-ef87-4ea3-981c-9bca8b07e0de"] }, Open ]], -Cell[50568, 1819, 70, 0, 55, "Input",ExpressionUUID->"ce3d50ae-7830-43f7-9e8b-ff1617bdfce1"], +Cell[22940, 811, 70, 0, 55, "Input",ExpressionUUID->"74c29eca-8a3c-482d-b962-b5a7bc6eeeb5"], Cell[CellGroupData[{ -Cell[50663, 1823, 70, 0, 57, "Input",ExpressionUUID->"1d5c2fc0-e8df-4896-8045-0fde59533d77"], -Cell[50736, 1825, 71, 0, 44, "Output",ExpressionUUID->"2c63f7bd-1cf3-4607-b707-7a6b95e64ad2"] +Cell[23035, 815, 70, 0, 57, "Input",ExpressionUUID->"4f2555c0-0b0b-46e3-953c-b99c2d8ef953"], +Cell[23108, 817, 71, 0, 44, "Output",ExpressionUUID->"7ba637ff-c37f-4ab3-8f3f-c3a013477573"] }, Open ]], Cell[CellGroupData[{ -Cell[50844, 1830, 70, 0, 71, "Input",ExpressionUUID->"e9f77ee6-ddde-4089-a778-5ece4a57f773"], -Cell[50917, 1832, 71, 0, 136, "Output",ExpressionUUID->"a47f9b99-a5ed-4171-b8a9-afdc15370d19"] +Cell[23216, 822, 70, 0, 71, "Input",ExpressionUUID->"11bfaed8-b616-4bdb-acee-d6f652a0a4e6"], +Cell[23289, 824, 71, 0, 136, "Output",ExpressionUUID->"9d9174e8-24e3-40da-860e-87b1062d7e14"] }, Open ]], -Cell[51003, 1835, 70, 0, 55, "Input",ExpressionUUID->"c66d9b43-8912-4776-8df9-4b82e92385a2"], +Cell[23375, 827, 70, 0, 55, "Input",ExpressionUUID->"da646d41-2935-4f0b-94a9-796be9875f10"], Cell[CellGroupData[{ -Cell[51098, 1839, 70, 0, 57, "Input",ExpressionUUID->"d3511a9b-2734-4512-8448-59796db57c80"], -Cell[51171, 1841, 71, 0, 44, "Output",ExpressionUUID->"02bbcf9e-2ac0-4d1f-8fa5-b00695e27836"] +Cell[23470, 831, 70, 0, 57, "Input",ExpressionUUID->"bd584363-7bad-4830-803a-025a2ac0e9a6"], +Cell[23543, 833, 71, 0, 44, "Output",ExpressionUUID->"83698929-f178-4c4d-9569-7a23e1e9c919"] }, Open ]], Cell[CellGroupData[{ -Cell[51279, 1846, 70, 0, 71, "Input",ExpressionUUID->"59b991fc-3c45-48aa-9268-cff7572aa8c6"], -Cell[51352, 1848, 71, 0, 136, "Output",ExpressionUUID->"b20c1ede-027a-4011-ba6a-a217ceecc8e8"] +Cell[23651, 838, 70, 0, 71, "Input",ExpressionUUID->"f7b18b38-4aa7-4d26-8653-c5282fb8bc07"], +Cell[23724, 840, 71, 0, 136, "Output",ExpressionUUID->"aeb5446a-db30-4b37-a075-fd0875fea03f"] }, Open ]], -Cell[51438, 1851, 70, 0, 55, "Input",ExpressionUUID->"3597eaa7-3139-4518-bbfe-df34271dde2a"], +Cell[23810, 843, 70, 0, 55, "Input",ExpressionUUID->"6dd58649-2ccd-4fad-b61e-e6b84d8dc37c"], Cell[CellGroupData[{ -Cell[51533, 1855, 70, 0, 57, "Input",ExpressionUUID->"77c87cdf-033d-4185-b49d-b5d681d7f0f9"], -Cell[51606, 1857, 71, 0, 44, "Output",ExpressionUUID->"78a71b8d-3942-4850-b5d4-5a45d3517416"] +Cell[23905, 847, 70, 0, 57, "Input",ExpressionUUID->"47d19cd0-5c7e-4d2e-8522-f7af9f76b03d"], +Cell[23978, 849, 71, 0, 44, "Output",ExpressionUUID->"e4c2258c-d675-43b1-8eb8-1a175227c843"] }, Open ]], Cell[CellGroupData[{ -Cell[51714, 1862, 70, 0, 71, "Input",ExpressionUUID->"b37e4fd1-1edc-4db8-a29a-c5c0b1ee2464"], -Cell[51787, 1864, 71, 0, 134, "Output",ExpressionUUID->"951d7a74-9aa0-40b2-8c7e-afd33547bd6f"] +Cell[24086, 854, 70, 0, 71, "Input",ExpressionUUID->"e5291fe9-0a5c-4396-ac44-47a5f71d5568"], +Cell[24159, 856, 71, 0, 134, "Output",ExpressionUUID->"f761d7d5-04c8-40b2-a937-6fac9575aeda"] }, Open ]], -Cell[51873, 1867, 70, 0, 55, "Input",ExpressionUUID->"fc9769af-3482-4891-854c-c4f69b3e7ab2"], +Cell[24245, 859, 70, 0, 55, "Input",ExpressionUUID->"034d75ed-4e94-4dfa-b0b5-fb25cd2d30d3"], Cell[CellGroupData[{ -Cell[51968, 1871, 70, 0, 73, "Input",ExpressionUUID->"b726930b-8825-4fc1-bdd4-f13327dfafcc"], -Cell[52041, 1873, 71, 0, 42, "Output",ExpressionUUID->"dcc85e39-87fd-4c7a-adc2-f6dbe9ac4f86"] +Cell[24340, 863, 70, 0, 73, "Input",ExpressionUUID->"939e0991-1a33-48bb-8325-c6afb708b1bf"], +Cell[24413, 865, 71, 0, 42, "Output",ExpressionUUID->"07c46e6f-b409-4e46-91c4-1f8deedd3b7c"] }, Open ]], Cell[CellGroupData[{ -Cell[52149, 1878, 70, 0, 71, "Input",ExpressionUUID->"3d6268b9-9dcd-4abd-a190-2d411c0f9ac5"], -Cell[52222, 1880, 71, 0, 136, "Output",ExpressionUUID->"b95a5d46-00d9-454a-bdbb-7b373fb54a04"] +Cell[24521, 870, 70, 0, 71, "Input",ExpressionUUID->"41fa3464-11f7-47db-b9f4-c04a234b3967"], +Cell[24594, 872, 71, 0, 136, "Output",ExpressionUUID->"e6ece27a-240d-4388-ae6d-863762fb16fc"] }, Open ]], -Cell[52308, 1883, 70, 0, 55, "Input",ExpressionUUID->"75d213ac-5b7e-4a17-b0e6-82481e033952"], +Cell[24680, 875, 70, 0, 55, "Input",ExpressionUUID->"5f4959b4-0631-460c-894f-e078cc08f6c0"], Cell[CellGroupData[{ -Cell[52403, 1887, 70, 0, 89, "Input",ExpressionUUID->"402a64a2-7215-43ff-afb2-5ffdb07699eb"], -Cell[52476, 1889, 71, 0, 25, "Output",ExpressionUUID->"84187abd-3a8b-42cd-8388-c4431767b6fc"] +Cell[24775, 879, 70, 0, 89, "Input",ExpressionUUID->"42dd11c3-40d8-4229-9f2b-ea33c98a4a3d"], +Cell[24848, 881, 71, 0, 25, "Output",ExpressionUUID->"d656f635-4cba-4947-8345-8861516ad400"] }, Open ]], Cell[CellGroupData[{ -Cell[52584, 1894, 70, 0, 71, "Input",ExpressionUUID->"855b658f-9a32-44de-bcab-f191fa636709"], -Cell[52657, 1896, 71, 0, 133, "Output",ExpressionUUID->"c2f9aac7-afc1-4b9d-9453-1a00347fcbe9"] +Cell[24956, 886, 70, 0, 71, "Input",ExpressionUUID->"3b92c534-fe03-4b93-bce9-3935e73cd50a"], +Cell[25029, 888, 71, 0, 133, "Output",ExpressionUUID->"047cfbb9-7bc7-4793-b25b-33d1e4b54f0f"] }, Open ]], Cell[CellGroupData[{ -Cell[52765, 1901, 70, 0, 22, "Input",ExpressionUUID->"72c66ca0-a15a-4276-8266-9702097608f9"], -Cell[52838, 1903, 71, 0, 177, "Output",ExpressionUUID->"c22b79eb-939c-44d3-832b-d02d2b74f6d7"] +Cell[25137, 893, 70, 0, 22, "Input",ExpressionUUID->"a88f2391-1bc9-4d7a-b773-d4641b529a92"], +Cell[25210, 895, 71, 0, 177, "Output",ExpressionUUID->"900bc96d-749d-4402-b6fc-1bde2c834df4"] }, Open ]], Cell[CellGroupData[{ -Cell[52946, 1908, 70, 0, 63, "Input",ExpressionUUID->"fe1d3062-e3cb-440f-8b39-b4206ce88f50"], -Cell[53019, 1910, 72, 0, 22, "Message",ExpressionUUID->"a8cdbd70-b1ae-4bac-b3e9-4a3a33f415b4"], -Cell[53094, 1912, 72, 0, 22, "Message",ExpressionUUID->"3a00a43c-0975-4a69-8a45-f6d37256351e"], -Cell[53169, 1914, 72, 0, 22, "Message",ExpressionUUID->"490c70b7-6d80-4544-ad78-0bdf86f8cf57"], -Cell[53244, 1916, 72, 0, 22, "Message",ExpressionUUID->"a33d77be-ae6e-4ad0-bc43-7822886c2702"] +Cell[25318, 900, 70, 0, 63, "Input",ExpressionUUID->"c2d3e68e-6754-4848-ad45-4d3a81a85373"], +Cell[25391, 902, 72, 0, 22, "Message",ExpressionUUID->"7042c19d-9eb1-4c6c-b9ba-e11ecd2dad61"], +Cell[25466, 904, 72, 0, 22, "Message",ExpressionUUID->"e96fc95a-7476-4cfa-9b6e-023e5f08ec84"], +Cell[25541, 906, 72, 0, 22, "Message",ExpressionUUID->"697e339d-fa4d-4453-8541-d603f6be5ebf"], +Cell[25616, 908, 72, 0, 22, "Message",ExpressionUUID->"a383bd1a-c1d9-49e6-a3ce-876ea12c3de9"] }, Open ]], -Cell[53331, 1919, 70, 0, 75, "Input",ExpressionUUID->"4a1ef349-9985-4fd3-a4ef-904651cf68ac"], -Cell[53404, 1921, 70, 0, 109, "Input",ExpressionUUID->"50c02bdb-5ed2-40ab-ba77-b26952532ed9"], -Cell[53477, 1923, 70, 0, 126, "Input",ExpressionUUID->"3f2d1ac4-1ccc-46f3-b1c3-9e780be42bfd"], +Cell[25703, 911, 70, 0, 75, "Input",ExpressionUUID->"7baff68f-40db-4778-a165-a239cf88cc8b"], +Cell[25776, 913, 70, 0, 109, "Input",ExpressionUUID->"54ea4ab2-b182-41d0-bc24-6dda493e24b7"], +Cell[25849, 915, 70, 0, 126, "Input",ExpressionUUID->"b233f772-ebe4-4d6e-82dc-3e50dc9f4a60"], Cell[CellGroupData[{ -Cell[53572, 1927, 70, 0, 24, "Input",ExpressionUUID->"7fb890bc-1064-4d99-b6f5-6ecab88b82da"], -Cell[53645, 1929, 71, 0, 182, "Output",ExpressionUUID->"f209a90a-6414-4c82-b1ac-a415e04bb40b"] +Cell[25944, 919, 70, 0, 24, "Input",ExpressionUUID->"326e1381-0fb5-48b8-8b67-86eb59a8de43"], +Cell[26017, 921, 71, 0, 182, "Output",ExpressionUUID->"ffcf6638-e41b-4dc3-a888-cbc1ddb5bd70"] }, Open ]], Cell[CellGroupData[{ -Cell[53753, 1934, 70, 0, 24, "Input",ExpressionUUID->"2241f538-313e-49d3-adfa-ce7a1941836a"], -Cell[53826, 1936, 71, 0, 178, "Output",ExpressionUUID->"e60c6984-4395-45c5-bdea-cc5d8603b5ea"] +Cell[26125, 926, 70, 0, 24, "Input",ExpressionUUID->"a93f2c6c-20d9-4e76-bf4e-d83eb645bfe2"], +Cell[26198, 928, 71, 0, 178, "Output",ExpressionUUID->"e009ecd9-f064-498f-9713-a517c7738512"] }, Open ]], Cell[CellGroupData[{ -Cell[53934, 1941, 70, 0, 24, "Input",ExpressionUUID->"72447e76-665c-4e50-939a-7de5c0764602"], -Cell[54007, 1943, 71, 0, 179, "Output",ExpressionUUID->"c1192d4e-ddba-4b86-80cd-25d21e620f98"] +Cell[26306, 933, 70, 0, 24, "Input",ExpressionUUID->"355b7a05-dc53-48b3-a074-381cbbaeac81"], +Cell[26379, 935, 71, 0, 179, "Output",ExpressionUUID->"c021a3f3-a988-4ee0-849b-500241e51534"] }, Open ]], -Cell[54093, 1946, 70, 0, 55, "Input",ExpressionUUID->"cebc93a0-79b0-4da8-98e0-dac61dd498b9"], +Cell[26465, 938, 70, 0, 55, "Input",ExpressionUUID->"a727ff31-abf9-4fbc-b1ba-5e10e05cc6ba"], Cell[CellGroupData[{ -Cell[54188, 1950, 70, 0, 57, "Input",ExpressionUUID->"599c1193-9a9a-4e09-bef2-d12c1f4a1969"], -Cell[54261, 1952, 72, 0, 34, "Message",ExpressionUUID->"11e2554d-75ea-4c0a-9448-8bfb332a62f3"], -Cell[54336, 1954, 71, 0, 44, "Output",ExpressionUUID->"6b1f6bb2-0a9c-4b87-aa00-e784a50c66dc"] +Cell[26560, 942, 70, 0, 57, "Input",ExpressionUUID->"e698d719-72a9-4ac8-adc0-f3dc6de33b29"], +Cell[26633, 944, 72, 0, 34, "Message",ExpressionUUID->"66d8969a-eb54-4408-9ca1-e26797128b2e"], +Cell[26708, 946, 71, 0, 44, "Output",ExpressionUUID->"c2ede9a0-b94f-4b1e-a656-779f19255c39"] }, Open ]], Cell[CellGroupData[{ -Cell[54444, 1959, 70, 0, 71, "Input",ExpressionUUID->"61a36220-5b85-4beb-bbe5-4d4a78e82a94"], -Cell[54517, 1961, 71, 0, 135, "Output",ExpressionUUID->"b177731d-7523-4738-97e5-0fab244202d6"] +Cell[26816, 951, 70, 0, 71, "Input",ExpressionUUID->"cf4b5c4b-339f-4dee-887e-9827e8e84f6a"], +Cell[26889, 953, 71, 0, 135, "Output",ExpressionUUID->"59a5f5ab-6f64-4857-9cc3-85e34ce96d47"] }, Open ]], Cell[CellGroupData[{ -Cell[54625, 1966, 70, 0, 22, "Input",ExpressionUUID->"bfc95959-ad22-467f-8b96-2c1c826f5655"], -Cell[54698, 1968, 71, 0, 177, "Output",ExpressionUUID->"4bc2cbcd-5582-4860-bb36-8c588aa6b1b0"] +Cell[26997, 958, 70, 0, 22, "Input",ExpressionUUID->"284ac71a-7465-46b2-a883-7d04bfed7c1a"], +Cell[27070, 960, 71, 0, 177, "Output",ExpressionUUID->"8b218d9d-8ae6-4b3f-a0aa-21817c81ea81"] }, Open ]], -Cell[54784, 1971, 70, 0, 55, "Input",ExpressionUUID->"4e2d6149-b3b3-4123-babc-92a2df998316"], +Cell[27156, 963, 70, 0, 55, "Input",ExpressionUUID->"7b4489a6-2b9b-4fa0-b010-a2b21dfcde45"], Cell[CellGroupData[{ -Cell[54879, 1975, 70, 0, 57, "Input",ExpressionUUID->"d4b73ce5-7524-4652-9579-36229cebbccf"], -Cell[54952, 1977, 71, 0, 44, "Output",ExpressionUUID->"25f27aca-d25c-4d15-ab55-cf857b68dcb2"] +Cell[27251, 967, 70, 0, 57, "Input",ExpressionUUID->"3bcb2734-3eb2-49b0-9f9e-04e4c7a4fa3a"], +Cell[27324, 969, 71, 0, 44, "Output",ExpressionUUID->"babae66a-342f-4778-9bda-49d5d95c0e25"] }, Open ]], Cell[CellGroupData[{ -Cell[55060, 1982, 70, 0, 71, "Input",ExpressionUUID->"4b312d26-e716-4e13-99c6-2e39cc88c447"], -Cell[55133, 1984, 71, 0, 135, "Output",ExpressionUUID->"ad045ca4-bf3e-45f2-be6a-188c8fb39746"] +Cell[27432, 974, 70, 0, 71, "Input",ExpressionUUID->"0e6a979b-40f1-49c5-87f2-c038673fb15e"], +Cell[27505, 976, 71, 0, 135, "Output",ExpressionUUID->"067ae380-8bbe-4d24-910a-2d72ea259077"] }, Open ]], Cell[CellGroupData[{ -Cell[55241, 1989, 70, 0, 22, "Input",ExpressionUUID->"ff569190-822f-433e-ac6c-14b1dcd96ed9"], -Cell[55314, 1991, 71, 0, 177, "Output",ExpressionUUID->"436b5bb4-ba6b-46e9-ab6e-3829cbc4f6f8"] +Cell[27613, 981, 70, 0, 22, "Input",ExpressionUUID->"a0ce8c43-76ba-466b-b075-393a38369f3e"], +Cell[27686, 983, 71, 0, 177, "Output",ExpressionUUID->"efcd0ede-5fe0-410c-85a7-f2cb4a37d0c4"] }, Open ]], -Cell[55400, 1994, 70, 0, 55, "Input",ExpressionUUID->"fe675aeb-309d-4146-9e6b-7ccf11b6980f"], +Cell[27772, 986, 70, 0, 55, "Input",ExpressionUUID->"64ac9234-6e5e-4a0a-889d-9a4d2d9e49eb"], Cell[CellGroupData[{ -Cell[55495, 1998, 70, 0, 41, "Input",ExpressionUUID->"955fd7fe-8805-4dc6-bcd9-f0b6fe561e94"], -Cell[55568, 2000, 71, 0, 44, "Output",ExpressionUUID->"1f525144-95cc-4f1d-a2b1-7ed52efe7b5e"] +Cell[27867, 990, 70, 0, 73, "Input",ExpressionUUID->"d5ce1c93-2d50-4d5c-a1f8-53932ea334e0"], +Cell[27940, 992, 71, 0, 60, "Output",ExpressionUUID->"55d1b86b-6c0e-4346-b514-6a32ca6f4162"] }, Open ]], Cell[CellGroupData[{ -Cell[55676, 2005, 70, 0, 71, "Input",ExpressionUUID->"59ee4596-58f4-4760-9707-1639a55478ef"], -Cell[55749, 2007, 71, 0, 136, "Output",ExpressionUUID->"bcf0ddd6-91b4-474e-8418-aafc45056303"] +Cell[28048, 997, 70, 0, 71, "Input",ExpressionUUID->"4639fe6e-d305-44c1-81c3-afb4e380c88d"], +Cell[28121, 999, 71, 0, 136, "Output",ExpressionUUID->"ee73d4b7-147b-4902-9021-472fa1cbd2dd"] }, Open ]], Cell[CellGroupData[{ -Cell[55857, 2012, 70, 0, 22, "Input",ExpressionUUID->"bf8f6059-088d-4951-bbb6-e2c25b6a202b"], -Cell[55930, 2014, 71, 0, 180, "Output",ExpressionUUID->"baf431bc-0457-4cd5-b76b-e8aeacd57202"] +Cell[28229, 1004, 70, 0, 22, "Input",ExpressionUUID->"487c1f18-3c65-4275-b382-bd34678bb77b"], +Cell[28302, 1006, 71, 0, 180, "Output",ExpressionUUID->"98313969-c467-4d0e-84c2-9301e7354fd8"] }, Open ]], -Cell[56016, 2017, 70, 0, 55, "Input",ExpressionUUID->"21502648-5bb8-4309-888f-8d4797b6965f"], +Cell[28388, 1009, 70, 0, 55, "Input",ExpressionUUID->"f984095d-d7b8-42c0-84b6-f249f7191889"], Cell[CellGroupData[{ -Cell[56111, 2021, 70, 0, 41, "Input",ExpressionUUID->"25c31f45-9b44-4e7a-a888-7c4634fb8ae8"], -Cell[56184, 2023, 72, 0, 22, "Message",ExpressionUUID->"c514ee03-eba1-48e4-af1e-0991d7159e99"], -Cell[56259, 2025, 71, 0, 44, "Output",ExpressionUUID->"8d39b42e-cf19-4334-a472-16b27afd3f8e"] +Cell[28483, 1013, 70, 0, 89, "Input",ExpressionUUID->"eb772438-6d55-4597-94c4-e8e4c8a28dea"], +Cell[28556, 1015, 72, 0, 37, "Message",ExpressionUUID->"15e11a28-3910-4175-baec-32f60966f167"], +Cell[28631, 1017, 71, 0, 60, "Output",ExpressionUUID->"dc1d0e6d-dbfc-4101-8f2b-a45c3ce40dc1"] }, Open ]], Cell[CellGroupData[{ -Cell[56367, 2030, 70, 0, 71, "Input",ExpressionUUID->"15b1dea7-4387-4196-86ca-e5029d19055e"], -Cell[56440, 2032, 71, 0, 138, "Output",ExpressionUUID->"71a0bd1f-9ee3-45c1-8043-10fc45b089f2"] +Cell[28739, 1022, 70, 0, 71, "Input",ExpressionUUID->"6f764f4a-8e60-4ade-81f6-342ce8502e9b"], +Cell[28812, 1024, 71, 0, 138, "Output",ExpressionUUID->"073b197f-bc4b-40a2-a232-0cc8f06d961e"] }, Open ]], Cell[CellGroupData[{ -Cell[56548, 2037, 70, 0, 22, "Input",ExpressionUUID->"ea7e7eb2-0ae4-48e4-9de2-2070d9c80ef7"], -Cell[56621, 2039, 71, 0, 177, "Output",ExpressionUUID->"a52313f1-4c10-40c6-b4b1-90cde6f32b05"] +Cell[28920, 1029, 70, 0, 22, "Input",ExpressionUUID->"afe99e33-748e-47f2-ba2a-c0c57008e3ff"], +Cell[28993, 1031, 71, 0, 177, "Output",ExpressionUUID->"76d79e7a-9d2d-45b3-bb8a-8f918994420a"] }, Open ]] }, Closed]], Cell[CellGroupData[{ -Cell[56741, 2045, 203, 4, 40, "Section",ExpressionUUID->"5d9c76ab-41db-4d8f-b32b-3ceed5a29b07"], -Cell[56947, 2051, 213, 4, 22, "Input",ExpressionUUID->"c2736e8b-b9a2-44e3-be7a-35f424888e11"], -Cell[CellGroupData[{ -Cell[57185, 2059, 3014, 55, 22, "Input",ExpressionUUID->"a326d1ad-f5a3-49d5-9b86-3a79e4cb291c"], -Cell[60202, 2116, 1185, 22, 25, "Output",ExpressionUUID->"70871aaf-527e-4770-b146-5c4981ef7aab"] -}, Open ]], -Cell[CellGroupData[{ -Cell[61424, 2143, 648, 17, 24, "Input",ExpressionUUID->"8eab97ea-e359-40c0-9935-fde12f7b604a"], -Cell[62075, 2162, 815, 16, 27, "Output",ExpressionUUID->"077ca1f3-c633-40f1-8e6b-c50988b37c5c"] -}, Open ]], -Cell[CellGroupData[{ -Cell[62927, 2183, 4389, 67, 75, "Input",ExpressionUUID->"205f64ad-0fed-40fc-a0ee-a19d5c4d39b3"], -Cell[67319, 2252, 16384, 320, 210, "Output",ExpressionUUID->"95089226-2ba6-4f9c-98bc-1c7782d43a13"] -}, Open ]], -Cell[CellGroupData[{ -Cell[83740, 2577, 4487, 68, 75, "Input",ExpressionUUID->"5755d9a0-f64b-44fe-a9ca-88f25a3c1639"], -Cell[88230, 2647, 12362, 232, 209, "Output",ExpressionUUID->"14b3bd55-57d0-4a00-a631-f713a73d05bc"] -}, Open ]], -Cell[CellGroupData[{ -Cell[100629, 2884, 1430, 26, 24, "Input",ExpressionUUID->"cc4ab2fd-0d89-42e1-b108-dc27a925ed22"], -Cell[102062, 2912, 1108, 21, 25, "Output",ExpressionUUID->"ebd89666-1836-4f79-87e7-a5c66b34a940"] -}, Open ]], -Cell[CellGroupData[{ -Cell[103207, 2938, 1172, 24, 24, "Input",ExpressionUUID->"ba20cc11-1fde-437c-a25b-08dea90e9536"], -Cell[104382, 2964, 1338, 24, 25, "Output",ExpressionUUID->"7c1ac454-11c4-427c-92a0-d68a92db8af7"] -}, Open ]], -Cell[CellGroupData[{ -Cell[105757, 2993, 1011, 25, 24, "Input",ExpressionUUID->"e41c6d03-9f41-4844-a23e-7af68d6520cd"], -Cell[106771, 3020, 1138, 22, 25, "Output",ExpressionUUID->"484d3e7b-366c-491e-9f5e-0a5660a655c1"] -}, Open ]], -Cell[CellGroupData[{ -Cell[107946, 3047, 834, 19, 24, "Input",ExpressionUUID->"9842ee72-352b-450e-bb82-d4b680ba9aed"], -Cell[108783, 3068, 1198, 24, 25, "Output",ExpressionUUID->"89531f82-39d2-427d-b680-757a27f7c7bb"] -}, Open ]], -Cell[CellGroupData[{ -Cell[110018, 3097, 1227, 30, 24, "Input",ExpressionUUID->"d7f9c8af-d1af-4c7b-9b64-333afaf638ba"], -Cell[111248, 3129, 1390, 30, 25, "Output",ExpressionUUID->"59114213-710f-44c6-981a-272013d68637"] -}, Open ]], -Cell[CellGroupData[{ -Cell[112675, 3164, 1230, 25, 24, "Input",ExpressionUUID->"7c83e575-aca3-478d-8a5f-c98886c80b63"], -Cell[113908, 3191, 1548, 30, 25, "Output",ExpressionUUID->"e3c1565f-bfd7-49c7-9035-be7cad990be5"] -}, Open ]], -Cell[CellGroupData[{ -Cell[115493, 3226, 1327, 30, 24, "Input",ExpressionUUID->"79734076-6780-4044-ac4d-d4b9e78fc564"], -Cell[116823, 3258, 1290, 29, 42, "Output",ExpressionUUID->"dd8488ae-448c-4ef4-a3ea-b24dec7348cd"] -}, Open ]], -Cell[CellGroupData[{ -Cell[118150, 3292, 1107, 24, 24, "Input",ExpressionUUID->"cffa7e8f-18ea-43f5-8438-92832454f17f"], -Cell[119260, 3318, 1139, 28, 42, "Output",ExpressionUUID->"d8cf7467-d843-4995-9a63-b06c97829202"] -}, Open ]], -Cell[CellGroupData[{ -Cell[120436, 3351, 1154, 24, 24, "Input",ExpressionUUID->"8fbe1304-51d7-43cc-98c4-42730a9a3a25"], -Cell[121593, 3377, 1157, 28, 42, "Output",ExpressionUUID->"30c2843c-2776-40e1-b176-31efb61eb462"] -}, Open ]], -Cell[CellGroupData[{ -Cell[122787, 3410, 1157, 24, 24, "Input",ExpressionUUID->"b1a5fc2a-654a-4a8e-ba0b-5d846aacc0cf"], -Cell[123947, 3436, 1112, 27, 42, "Output",ExpressionUUID->"3655bff9-e722-4f79-bcda-6312b673cc51"] -}, Open ]], -Cell[CellGroupData[{ -Cell[125096, 3468, 1199, 30, 24, "Input",ExpressionUUID->"e3ecbe8e-7e58-415a-ba9c-63c237fc50e1"], -Cell[126298, 3500, 1291, 31, 42, "Output",ExpressionUUID->"e619aafe-02ac-45dc-b798-a049ddda566f"] -}, Open ]], -Cell[CellGroupData[{ -Cell[127626, 3536, 1174, 26, 24, "Input",ExpressionUUID->"19f19720-783c-4e96-a95d-76c867186fc5"], -Cell[128803, 3564, 1317, 31, 42, "Output",ExpressionUUID->"3ac8305d-16b0-42e0-8ad9-03a1f3bb2fd6"] -}, Open ]], -Cell[CellGroupData[{ -Cell[130157, 3600, 1225, 27, 24, "Input",ExpressionUUID->"8b77c4d9-9fd9-4118-9ccc-8090bc6272b7"], -Cell[131385, 3629, 1350, 33, 42, "Output",ExpressionUUID->"110af606-eb78-46cf-a343-3f7f750b4f2e"] -}, Open ]], -Cell[CellGroupData[{ -Cell[132772, 3667, 1343, 30, 24, "Input",ExpressionUUID->"11802c33-e902-4c87-b4ea-a0ce5f2dcdff"], -Cell[134118, 3699, 1474, 34, 42, "Output",ExpressionUUID->"69efb9ea-6de8-44ad-8939-a52173d3fb72"] -}, Open ]], -Cell[CellGroupData[{ -Cell[135629, 3738, 1326, 29, 24, "Input",ExpressionUUID->"2c7c3b5e-d41f-476f-ab68-909319b9e007"], -Cell[136958, 3769, 1417, 36, 42, "Output",ExpressionUUID->"9dc12880-4f12-455f-a9af-c6f48bc694f4"] -}, Open ]], -Cell[CellGroupData[{ -Cell[138412, 3810, 1504, 32, 24, "Input",ExpressionUUID->"6096679b-6643-4008-997f-3d750c430491"], -Cell[139919, 3844, 1466, 38, 42, "Output",ExpressionUUID->"54eeb4f0-c3d0-4499-a71b-8206a387f0dd"] -}, Open ]], -Cell[141400, 3885, 1544, 38, 57, "Input",ExpressionUUID->"317176ac-5ab3-47ad-96fa-b325cbf246cc"], -Cell[CellGroupData[{ -Cell[142969, 3927, 1535, 35, 24, "Input",ExpressionUUID->"bacf1c86-2f2d-48d5-884c-81947e6029a1"], -Cell[CellGroupData[{ -Cell[144529, 3966, 214, 4, 18, "PrintTemporary",ExpressionUUID->"4da17f95-2820-490c-9163-c496c50a8266"], -Cell[144746, 3972, 212, 4, 18, "PrintTemporary",ExpressionUUID->"0006dce5-196c-42d2-a546-c5a240c96c2a"], -Cell[144961, 3978, 460, 11, 18, "PrintTemporary",ExpressionUUID->"6555d570-5cca-49b6-8d68-d8c045c03714"] -}, Open ]] -}, Open ]], -Cell[145448, 3993, 677, 20, 24, "Input",ExpressionUUID->"9d9f94f3-e11c-49e5-a722-caf2af60837a"], -Cell[146128, 4015, 8181, 187, 140, "Input",ExpressionUUID->"696e8dad-b679-4cff-9df9-7fa32582e84f"], -Cell[CellGroupData[{ -Cell[154334, 4206, 991, 21, 24, "Input",ExpressionUUID->"0f44ea2f-bcb6-4b65-a37b-65515908d127"], -Cell[155328, 4229, 12690, 247, 286, "Output",ExpressionUUID->"00f7b59c-b920-4cf2-b77e-7bef856c422c"] -}, Open ]], -Cell[CellGroupData[{ -Cell[168055, 4481, 1716, 33, 24, "Input",ExpressionUUID->"3d52f0ab-99e4-4c0a-a9d7-b670a1f3c5d5"], -Cell[169774, 4516, 1541, 28, 25, "Output",ExpressionUUID->"0bf0fb3f-41a0-463a-b271-1d00ee1b662d"] -}, Open ]], -Cell[CellGroupData[{ -Cell[171352, 4549, 1600, 31, 24, "Input",ExpressionUUID->"ba49a7a4-055f-423a-b959-211c1c83a98d"], -Cell[172955, 4582, 685, 14, 34, "Message",ExpressionUUID->"59162e70-8c05-4547-a4c4-39a41c2d7ae2"], -Cell[173643, 4598, 750, 17, 25, "Output",ExpressionUUID->"363d39f7-c18c-45a4-af73-5c9a8a0c45d0"] -}, Open ]], -Cell[174408, 4618, 394, 10, 22, "Input",ExpressionUUID->"69d3e67e-7bb0-4e28-b79a-246af6c9ffd4"], -Cell[CellGroupData[{ -Cell[174827, 4632, 1861, 39, 24, "Input",ExpressionUUID->"d74e8c1f-5c18-45bf-b267-4684b5de4efc"], -Cell[176691, 4673, 1499, 27, 27, "Output",ExpressionUUID->"ee47f1ce-c693-44af-b250-166cc06da777"] -}, Open ]], -Cell[CellGroupData[{ -Cell[178227, 4705, 1347, 35, 24, "Input",ExpressionUUID->"d34261e1-f762-4995-9793-a31c15f9fead"], -Cell[179577, 4742, 1000, 21, 25, "Output",ExpressionUUID->"31088d5f-ac30-42b4-a056-e08dc2a6efcf"] -}, Open ]], -Cell[CellGroupData[{ -Cell[180614, 4768, 1117, 29, 24, "Input",ExpressionUUID->"d3e16e23-c1fd-4fda-8c6f-8eecfd39117f"], -Cell[181734, 4799, 833, 15, 34, "Message",ExpressionUUID->"4ee72e35-a73c-410c-8556-b30173fa6ed9"], -Cell[182570, 4816, 1008, 21, 25, "Output",ExpressionUUID->"b6513273-6fab-4e44-966b-058a4909a7cd"] -}, Open ]], -Cell[183593, 4840, 392, 10, 22, "Input",ExpressionUUID->"b9e1c71b-797a-4bc7-b085-cbe017cae354"], -Cell[CellGroupData[{ -Cell[184010, 4854, 1760, 38, 24, "Input",ExpressionUUID->"7144f9ed-4a86-4ffd-9a61-8ac2605bee22"], -Cell[185773, 4894, 1496, 28, 25, "Output",ExpressionUUID->"52f51cc1-05ad-46ff-8d92-4b4f2a860412"] -}, Open ]], -Cell[CellGroupData[{ -Cell[187306, 4927, 1602, 38, 24, "Input",ExpressionUUID->"e51937d3-7f21-4e58-b4c0-a232bb86cffa"], -Cell[188911, 4967, 585, 12, 34, "Message",ExpressionUUID->"b632ecb3-cccf-439e-9acf-10506600d6c2"], -Cell[189499, 4981, 1302, 26, 25, "Output",ExpressionUUID->"31051fb0-f739-4969-a2f7-bd8d6727ae67"] -}, Open ]], -Cell[CellGroupData[{ -Cell[190838, 5012, 1223, 33, 24, "Input",ExpressionUUID->"ff474b7b-6c32-4093-b1f1-d040d5885631"], -Cell[192064, 5047, 761, 14, 34, "Message",ExpressionUUID->"b2d9f72d-d0ea-4323-b7b3-ada02237a187"], -Cell[192828, 5063, 1144, 25, 25, "Output",ExpressionUUID->"3b040127-4a9e-4d9f-b17b-d28180b74a94"] -}, Open ]], -Cell[CellGroupData[{ -Cell[194009, 5093, 1176, 30, 24, "Input",ExpressionUUID->"400634c7-c0fe-4a48-ad30-471c2f3a36f7"], -Cell[195188, 5125, 883, 16, 34, "Message",ExpressionUUID->"dba2fe13-9f85-43a1-89ea-2ace99621ed6"], -Cell[196074, 5143, 1273, 27, 25, "Output",ExpressionUUID->"8c3639a7-269f-4154-9a07-311d3e360bb3"] -}, Open ]], -Cell[197362, 5173, 392, 10, 22, "Input",ExpressionUUID->"99b9c456-f12f-4ac8-9250-306f78fd5028"], -Cell[CellGroupData[{ -Cell[197779, 5187, 1716, 37, 24, "Input",ExpressionUUID->"72103d32-4f62-40c6-81f4-b58adeb371e8"], -Cell[199498, 5226, 607, 12, 34, "Message",ExpressionUUID->"ef4cd860-3180-4a5c-b303-02813e2f0121"], -Cell[200108, 5240, 1779, 35, 25, "Output",ExpressionUUID->"dfda16cd-2b28-4fa2-bf49-0613a7955039"] -}, Open ]], -Cell[CellGroupData[{ -Cell[201924, 5280, 2040, 44, 24, "Input",ExpressionUUID->"0b48a6eb-7bc6-4ef2-8676-c38756eebd58"], -Cell[203967, 5326, 609, 12, 34, "Message",ExpressionUUID->"7eb3df74-b175-455c-9133-7c5c1324e5e4"], -Cell[204579, 5340, 2003, 39, 42, "Output",ExpressionUUID->"860263ec-f1a7-4099-ae81-dc41bc75260c"] -}, Open ]], -Cell[CellGroupData[{ -Cell[206619, 5384, 1248, 33, 24, "Input",ExpressionUUID->"bd67c32f-e5e0-4af5-b855-ddc96fb434e1"], -Cell[207870, 5419, 607, 12, 34, "Message",ExpressionUUID->"309303a3-5834-4fd3-9f66-666c69776fb9"], -Cell[208480, 5433, 1396, 32, 42, "Output",ExpressionUUID->"c2c01b83-76e4-46ca-9316-a03c2dfc091b"] -}, Open ]], -Cell[CellGroupData[{ -Cell[209913, 5470, 1172, 30, 24, "Input",ExpressionUUID->"c42991a7-72da-419c-8267-913486b59b23"], -Cell[211088, 5502, 660, 14, 34, "Message",ExpressionUUID->"7ebcef47-80f3-4f9b-b1c9-09157547f7e8"], -Cell[211751, 5518, 1433, 32, 42, "Output",ExpressionUUID->"7cd8aaae-1e3b-4634-b621-86ad33a5efbe"] -}, Open ]], -Cell[213199, 5553, 395, 10, 22, "Input",ExpressionUUID->"e8bb3e31-71d6-4a73-9f41-f9a2cc1a0ee2"], -Cell[CellGroupData[{ -Cell[213619, 5567, 1595, 35, 24, "Input",ExpressionUUID->"a8c3b62d-31fb-44de-aec6-ca9545f7c876"], -Cell[215217, 5604, 607, 12, 34, "Message",ExpressionUUID->"60cc6c46-5de3-462e-83e0-e198123fe662"], -Cell[215827, 5618, 1786, 39, 42, "Output",ExpressionUUID->"b644d6ed-6ed1-4dda-ba59-b478f9ef549a"] -}, Open ]], -Cell[CellGroupData[{ -Cell[217650, 5662, 1476, 34, 24, "Input",ExpressionUUID->"44461443-de7c-4307-a685-40a7438e02ce"], -Cell[219129, 5698, 675, 13, 34, "Message",ExpressionUUID->"73496fef-3d73-422f-aab4-c90cbfa568b4"], -Cell[219807, 5713, 1626, 36, 44, "Output",ExpressionUUID->"bde133f5-9325-4765-8518-f894d010f6eb"] -}, Open ]], -Cell[CellGroupData[{ -Cell[221470, 5754, 1302, 34, 24, "Input",ExpressionUUID->"766ab0e0-d040-4598-a728-7125209faeb2"], -Cell[222775, 5790, 585, 12, 34, "Message",ExpressionUUID->"6a670210-441d-463a-9057-770218945398"], -Cell[223363, 5804, 1503, 34, 42, "Output",ExpressionUUID->"5661e97f-7626-497e-a74a-dcc986707e39"] -}, Open ]], -Cell[CellGroupData[{ -Cell[224903, 5843, 1284, 35, 24, "Input",ExpressionUUID->"08251920-ed86-4dae-9d28-592b516afd2d"], -Cell[226190, 5880, 326, 5, 25, "Output",ExpressionUUID->"64e027b4-955d-4430-99a7-3f0e6f9b5d14"] -}, Open ]], -Cell[226531, 5888, 495, 12, 22, "Input",ExpressionUUID->"b3e0a7d9-0f31-47c6-b44f-1198c44b72cd"], -Cell[227029, 5902, 246, 6, 22, "Input",ExpressionUUID->"3953145f-6208-42a6-b63d-57cbdb19dd32"], -Cell[CellGroupData[{ -Cell[227300, 5912, 4504, 73, 59, "Input",ExpressionUUID->"327880e8-53d4-4b4b-9c6c-2181013cd61a"], -Cell[231807, 5987, 12094, 254, 169, "Output",ExpressionUUID->"dee28450-2e32-4aa7-ba3c-bc235920cb73"] -}, Open ]], -Cell[243916, 6244, 670, 12, 22, "Input",ExpressionUUID->"97f07ac1-b2ac-4f1e-9bad-da863401cc55"], -Cell[CellGroupData[{ -Cell[244611, 6260, 2047, 42, 24, "Input",ExpressionUUID->"be7dae59-0c34-40bb-83e4-897bb1e021f3"], -Cell[246661, 6304, 590, 12, 34, "Message",ExpressionUUID->"616fbcc8-78fe-497d-9859-bf7515325aad"], -Cell[247254, 6318, 2026, 43, 42, "Output",ExpressionUUID->"824a001d-c983-4f99-9525-e83e7721cd24"] -}, Open ]], -Cell[CellGroupData[{ -Cell[249317, 6366, 2342, 49, 24, "Input",ExpressionUUID->"2ffc2895-d476-46d3-9347-7d6d2ae619d3"], -Cell[251662, 6417, 612, 12, 34, "Message",ExpressionUUID->"9942c662-cc26-460a-b816-226485a3365d"], -Cell[252277, 6431, 2200, 47, 42, "Output",ExpressionUUID->"ebe33558-e057-40e2-9fca-80a6fd30ffa3"] -}, Open ]], -Cell[CellGroupData[{ -Cell[254514, 6483, 2392, 50, 24, "Input",ExpressionUUID->"fd4adab1-b2fe-4095-acde-f64aabc1f88e"], -Cell[256909, 6535, 1104, 17, 25, "Output",ExpressionUUID->"0ed3009d-b7e9-43ea-86c5-e04d0414971d"] -}, Open ]], -Cell[CellGroupData[{ -Cell[258050, 6557, 2542, 52, 24, "Input",ExpressionUUID->"539c7a02-d05e-4353-8090-2aae252722e7"], -Cell[260595, 6611, 588, 12, 34, "Message",ExpressionUUID->"438271ee-4d2b-469d-9706-a9a79d41da8a"], -Cell[261186, 6625, 2322, 46, 42, "Output",ExpressionUUID->"9ad4a86f-04e5-4140-8961-18759d75713c"] -}, Open ]], -Cell[263523, 6674, 248, 6, 22, "Input",ExpressionUUID->"e7d6f2f3-1976-4e35-b716-1013a6ae4e42"], -Cell[CellGroupData[{ -Cell[263796, 6684, 2133, 45, 24, "Input",ExpressionUUID->"e2d11cb6-a412-4999-9036-1a1205f29541"], -Cell[265932, 6731, 610, 12, 34, "Message",ExpressionUUID->"0efedada-e9bc-49dd-9cbf-c04f05b35e18"], -Cell[266545, 6745, 2264, 48, 44, "Output",ExpressionUUID->"e5e6c8ad-5a73-4fe7-a12f-8674c5733837"] -}, Open ]], -Cell[CellGroupData[{ -Cell[268846, 6798, 1015, 27, 24, "Input",ExpressionUUID->"2fa54d4f-5117-47f6-b275-ef0d78b9c6be"], -Cell[269864, 6827, 665, 13, 34, "Message",ExpressionUUID->"db1fb50d-704c-4c06-a597-8260ed118fa9"], -Cell[270532, 6842, 1378, 33, 44, "Output",ExpressionUUID->"b149e004-1c60-4b5f-8791-45633b7f983b"] -}, Open ]], -Cell[271925, 6878, 445, 9, 22, "Input",ExpressionUUID->"8fdda2e0-aa4e-47df-9ab6-ec9df35429e9"], -Cell[CellGroupData[{ -Cell[272395, 6891, 1632, 38, 24, "Input",ExpressionUUID->"bdbdc2b9-4230-40c6-b45a-b646b32856f7"], -Cell[274030, 6931, 738, 15, 34, "Message",ExpressionUUID->"0f719f90-be37-4d0e-9443-c5c4912e617a"], -Cell[274771, 6948, 1926, 41, 44, "Output",ExpressionUUID->"a84d3456-497a-4a0c-a29b-28b338564bb8"] -}, Open ]], -Cell[276712, 6992, 494, 10, 22, "Input",ExpressionUUID->"27623217-ce19-40ca-9797-b3b4114e2e75"], -Cell[CellGroupData[{ -Cell[277231, 7006, 1681, 39, 24, "Input",ExpressionUUID->"488660d4-e09e-4036-b9dd-c6f80e513dc8"], -Cell[278915, 7047, 784, 15, 34, "Message",ExpressionUUID->"ac301f9e-7ba1-4f7f-a5c8-9a2f57b0184a"], -Cell[279702, 7064, 2057, 45, 44, "Output",ExpressionUUID->"bcf209e5-bb1a-4a83-84a0-a39776458e1c"] -}, Open ]], -Cell[CellGroupData[{ -Cell[281796, 7114, 220, 4, 22, "Input",ExpressionUUID->"1d1eae46-26d0-4ce3-a49d-19b51f089c0c"], -Cell[282019, 7120, 338, 9, 40, "Output",ExpressionUUID->"89bf3b75-cacb-457d-8945-a763bebc4743"] -}, Open ]], -Cell[282372, 7132, 822, 19, 24, "Input",ExpressionUUID->"1c520acc-a463-4b50-bdcf-37db80f4147a"], -Cell[283197, 7153, 8018, 119, 71, "Input",ExpressionUUID->"e782fb7b-7593-48a3-89e7-4ffab2f1e362"], -Cell[CellGroupData[{ -Cell[291240, 7276, 11185, 159, 24, "Input",ExpressionUUID->"7a8f1e83-d257-4a90-8356-930702eca062"], -Cell[302428, 7437, 2610, 37, 25, "Output",ExpressionUUID->"c32eaa7b-7087-462c-81c5-6f42bdd408f2"] -}, Open ]], -Cell[305053, 7477, 844, 19, 24, "Input",ExpressionUUID->"d25e92e2-365d-47b2-93f4-f234cc064acf"], -Cell[CellGroupData[{ -Cell[305922, 7500, 4408, 71, 75, "Input",ExpressionUUID->"9b182793-e032-4e26-8ec5-6d73f9a4c7ba"], -Cell[310333, 7573, 15179, 304, 183, "Output",ExpressionUUID->"d54ccf8b-f86b-47dc-b198-e297e7b6abec"] -}, Open ]], -Cell[325527, 7880, 6980, 105, 71, "Input",ExpressionUUID->"73e91892-d41c-4d88-b25a-4eb12d081073"], -Cell[CellGroupData[{ -Cell[332532, 7989, 10557, 150, 24, "Input",ExpressionUUID->"c43246d1-e2a0-4f05-93de-2eea9f4af4d5"], -Cell[343092, 8141, 3931, 74, 42, "Output",ExpressionUUID->"0fff3327-ed0b-41a7-a869-c0dee6c9981f"] -}, Open ]], -Cell[347038, 8218, 862, 19, 24, "Input",ExpressionUUID->"dcd652a3-ec57-446e-aeef-460b34aa6625"], -Cell[CellGroupData[{ -Cell[347925, 8241, 4510, 72, 75, "Input",ExpressionUUID->"88ba1abf-d060-4254-b284-83baf05f8420"], -Cell[352438, 8315, 15051, 302, 183, "Output",ExpressionUUID->"b4a737d4-b44b-48fd-8fd3-fef4dc98fa59"] -}, Open ]], -Cell[CellGroupData[{ -Cell[367526, 8622, 1309, 30, 75, "Input",ExpressionUUID->"c660e976-2150-4b91-abcf-91212e494c00"], -Cell[368838, 8654, 8337, 176, 181, "Output",ExpressionUUID->"cdd868c7-e9fb-4f97-be29-e39eac29e6c9"] -}, Open ]], -Cell[377190, 8833, 6742, 99, 39, "Input",ExpressionUUID->"9c4c9c64-124e-41d7-9cb1-8289628e2e41"], -Cell[CellGroupData[{ -Cell[383957, 8936, 10565, 149, 24, "Input",ExpressionUUID->"c064ead1-9313-4f6d-ad22-1d8fa2a064d7"], -Cell[394525, 9087, 4551, 85, 42, "Output",ExpressionUUID->"494d85db-217e-4aad-b205-5ec4b2407178"] -}, Open ]], -Cell[399091, 9175, 11075, 158, 24, "Input",ExpressionUUID->"61fa25c7-e86f-432a-ae70-b977d030812b"], -Cell[410169, 9335, 7051, 103, 39, "Input",ExpressionUUID->"d1ebd730-d866-4e37-97ba-5842789968e1"], -Cell[CellGroupData[{ -Cell[417245, 9442, 10715, 152, 24, "Input",ExpressionUUID->"98f4578d-53c4-4d17-9f2d-7ec1c8ff5869"], -Cell[427963, 9596, 3687, 67, 42, "Output",ExpressionUUID->"73d25371-0eb2-4922-8347-1728ec8383e7"] -}, Open ]], -Cell[431665, 9666, 11513, 164, 24, "Input",ExpressionUUID->"18633e11-a2da-4ae5-b8e0-6232f9094f97"], -Cell[443181, 9832, 6845, 100, 39, "Input",ExpressionUUID->"0aca4d4b-c5f9-4fcf-8877-4aabbd8d189b"], -Cell[CellGroupData[{ -Cell[450051, 9936, 10425, 147, 24, "Input",ExpressionUUID->"fe89f5d9-5106-49a7-9f79-5e5841f51c4a"], -Cell[460479, 10085, 2311, 33, 25, "Output",ExpressionUUID->"0a8ad4bb-1306-48b8-98a6-15cedc75fea0"] -}, Open ]], -Cell[462805, 10121, 11175, 159, 24, "Input",ExpressionUUID->"97d9179b-2fce-4795-a6e8-5a641f12f4c8"], -Cell[473983, 10282, 70, 0, 22, "Input",ExpressionUUID->"d0c1c5e5-4279-4f37-9054-91bd4b12e663"], -Cell[CellGroupData[{ -Cell[474078, 10286, 70, 0, 22, "Input",ExpressionUUID->"e7b22e66-5408-41f1-92fc-0b182cba2300"], -Cell[474151, 10288, 71, 0, 25, "Output",ExpressionUUID->"c45e3cf2-b293-40c8-829f-fc2ec93ca4a2"] -}, Open ]], -Cell[474237, 10291, 70, 0, 22, "Input",ExpressionUUID->"601dc3bb-443f-48fc-9292-4386b0cf95de"], -Cell[CellGroupData[{ -Cell[474332, 10295, 70, 0, 22, "Input",ExpressionUUID->"03e290fc-0b0d-410c-b202-b7d3f26ad414"], -Cell[474405, 10297, 71, 0, 25, "Output",ExpressionUUID->"6e88e821-6408-4d4a-adf1-2f6c216ef43a"] -}, Open ]], -Cell[474491, 10300, 70, 0, 22, "Input",ExpressionUUID->"4f492156-2dba-4507-b18e-9caff5388fe7"], -Cell[474564, 10302, 70, 0, 22, "Input",ExpressionUUID->"8a388082-44ef-4006-80ee-c06fd30d20af"], -Cell[CellGroupData[{ -Cell[474659, 10306, 70, 0, 22, "Input",ExpressionUUID->"9af58482-a82f-453e-b207-4a531bd7f986"], -Cell[474732, 10308, 72, 0, 18, "Message",ExpressionUUID->"88fad436-fcee-4f3f-aab9-2ed9ad581c02"], -Cell[474807, 10310, 72, 0, 18, "Message",ExpressionUUID->"9b10eb38-aa52-4126-b098-84ffe9cdb921"], -Cell[474882, 10312, 72, 0, 18, "Message",ExpressionUUID->"0050702d-7892-4250-92fe-501fd42f4804"], -Cell[474957, 10314, 72, 0, 18, "Message",ExpressionUUID->"0e9fc6a6-210d-4751-9d76-307964678655"] -}, Open ]], -Cell[CellGroupData[{ -Cell[475066, 10319, 70, 0, 22, "Input",ExpressionUUID->"82ae90cd-9392-4c9d-9e74-43a947d632f8"], -Cell[475139, 10321, 71, 0, 25, "Output",ExpressionUUID->"d0da3922-3101-4b6b-b625-618be7ea231e"] -}, Open ]], -Cell[475225, 10324, 70, 0, 22, "Input",ExpressionUUID->"575a96c7-cbf4-4548-bf79-eea496f9225f"], -Cell[475298, 10326, 70, 0, 22, "Input",ExpressionUUID->"4c9212b3-67d7-472d-8053-a6719a4b6968"], -Cell[CellGroupData[{ -Cell[475393, 10330, 70, 0, 22, "Input",ExpressionUUID->"4da22fc0-9ded-4775-8bdf-688f73c07634"], -Cell[475466, 10332, 71, 0, 25, "Output",ExpressionUUID->"7ae5d432-85f2-4be3-bf47-748a047d213e"] -}, Open ]], -Cell[475552, 10335, 70, 0, 71, "Input",ExpressionUUID->"53e62926-2399-4d89-a1a5-1a9de88f1de1"], -Cell[CellGroupData[{ -Cell[475647, 10339, 70, 0, 24, "Input",ExpressionUUID->"d7a1b84b-a0ad-4cd8-903b-555055205b7f"], -Cell[475720, 10341, 71, 0, 92, "Output",ExpressionUUID->"57ea2507-7842-4828-ae09-5afcd18018ef"] -}, Open ]], -Cell[CellGroupData[{ -Cell[475828, 10346, 70, 0, 22, "Input",ExpressionUUID->"36165250-3b0d-43e7-a7bb-de8bf7b98728"], -Cell[475901, 10348, 71, 0, 25, "Output",ExpressionUUID->"b5989670-6524-408b-9128-911314e751a7"] -}, Open ]], -Cell[475987, 10351, 70, 0, 71, "Input",ExpressionUUID->"3f1dca6c-8ee4-4a6d-bfd4-139952b6134e"], -Cell[CellGroupData[{ -Cell[476082, 10355, 70, 0, 24, "Input",ExpressionUUID->"4d5e8eae-9598-4ba9-97b9-820721b9cf2c"], -Cell[476155, 10357, 71, 0, 108, "Output",ExpressionUUID->"e528eced-04f2-4168-85ee-b92cc07d3a4a"] -}, Open ]], -Cell[476241, 10360, 70, 0, 71, "Input",ExpressionUUID->"058d944c-17d2-44c4-a094-d49c5ebc4b30"], -Cell[CellGroupData[{ -Cell[476336, 10364, 70, 0, 24, "Input",ExpressionUUID->"d3519241-4ab5-4155-9d60-b261c692c1c1"], -Cell[476409, 10366, 71, 0, 25, "Output",ExpressionUUID->"c696dbfc-9a83-45ed-b662-b4e3824d4d3a"] -}, Open ]], -Cell[476495, 10369, 70, 0, 22, "Input",ExpressionUUID->"c64829f7-13ca-41be-b90d-b02b0be6aef7"], -Cell[476568, 10371, 70, 0, 185, "Input",ExpressionUUID->"b80f96d6-6a42-4eb5-bf49-722ec664dd25"], -Cell[476641, 10373, 70, 0, 71, "Input",ExpressionUUID->"948a7964-c664-45bb-ab96-2401383cc094"], -Cell[CellGroupData[{ -Cell[476736, 10377, 70, 0, 24, "Input",ExpressionUUID->"f0d582ea-c723-428e-9a1b-da3da4addd8f"], -Cell[476809, 10379, 72, 0, 34, "Message",ExpressionUUID->"2c34ff2e-d0de-42c1-97ce-5ec9f8f5b795"], -Cell[476884, 10381, 71, 0, 108, "Output",ExpressionUUID->"d46a2655-d289-479c-9592-35e50aabe831"] -}, Open ]], -Cell[CellGroupData[{ -Cell[476992, 10386, 70, 0, 39, "Input",ExpressionUUID->"3c4a1b69-e1ff-4cc9-9eaf-7e24b6138668"], -Cell[477065, 10388, 71, 0, 421, "Output",ExpressionUUID->"9cc868e2-bd8c-4e98-a54f-a01b805fe1c6"] -}, Open ]], -Cell[CellGroupData[{ -Cell[477173, 10393, 70, 0, 134, "Input",ExpressionUUID->"2013220e-65d7-4711-8f02-e8f52d80b46d"], -Cell[477246, 10395, 71, 0, 428, "Output",ExpressionUUID->"898e5549-2826-4078-b4cd-9d551732769a"] -}, Open ]], -Cell[CellGroupData[{ -Cell[477354, 10400, 70, 0, 38, "Input",ExpressionUUID->"e4cb6dcf-d649-4de9-a097-73373ea68146"], -Cell[477427, 10402, 71, 0, 35, "Output",ExpressionUUID->"81df3d82-076a-4d70-8964-0b4744e17318"] -}, Open ]], -Cell[CellGroupData[{ -Cell[477535, 10407, 70, 0, 119, "Input",ExpressionUUID->"dd68a063-22e7-439e-adea-6af0bc3682b7"], -Cell[477608, 10409, 71, 0, 387, "Output",ExpressionUUID->"0944fabd-5c4c-4f1d-8aa6-bbce6f848a27"] -}, Open ]], -Cell[CellGroupData[{ -Cell[477716, 10414, 70, 0, 22, "Input",ExpressionUUID->"bb62dac0-55ce-4eb0-b9f1-470897d67dfe"], -Cell[477789, 10416, 71, 0, 275, "Output",ExpressionUUID->"2c92ad09-18a3-4f8d-837d-f9aeee72e78b"] -}, Open ]], -Cell[CellGroupData[{ -Cell[477897, 10421, 70, 0, 75, "Input",ExpressionUUID->"220c4df0-bee1-4228-b3e2-e1b0766134a3"], -Cell[477970, 10423, 71, 0, 228, "Output",ExpressionUUID->"b948047e-c6cf-42f2-98b9-e19483d53354"] -}, Open ]], -Cell[478056, 10426, 70, 0, 71, "Input",ExpressionUUID->"6f0e01cf-f96f-4c8a-99a0-f3333c060add"], -Cell[CellGroupData[{ -Cell[478151, 10430, 70, 0, 24, "Input",ExpressionUUID->"6a312381-96fc-406f-a1fd-0e852d5ab509"], -Cell[478224, 10432, 71, 0, 92, "Output",ExpressionUUID->"dda0c899-e82a-4b84-9a16-46c6506c9d35"] -}, Open ]], -Cell[478310, 10435, 70, 0, 71, "Input",ExpressionUUID->"0c9a24df-e68c-461a-ba70-0bac82c00f0f"], -Cell[CellGroupData[{ -Cell[478405, 10439, 70, 0, 24, "Input",ExpressionUUID->"209b61e6-ea35-45fb-a7ee-ff8641f61cee"], -Cell[478478, 10441, 71, 0, 92, "Output",ExpressionUUID->"0d97663f-3bc4-425b-a7c0-f3432eb1fcd6"] -}, Open ]], -Cell[478564, 10444, 70, 0, 71, "Input",ExpressionUUID->"450017d5-3e88-4e32-bd3d-dfd0d7644959"], -Cell[CellGroupData[{ -Cell[478659, 10448, 70, 0, 24, "Input",ExpressionUUID->"e297d766-a8fa-4de3-b30a-9a3f30e2c1f8"], -Cell[478732, 10450, 71, 0, 25, "Output",ExpressionUUID->"f2429b01-7984-4070-aaee-10231365b720"] -}, Open ]], -Cell[CellGroupData[{ -Cell[478840, 10455, 70, 0, 22, "Input",ExpressionUUID->"8d3f801c-2293-4ca2-84e7-5a8683b7eaf1"], -Cell[478913, 10457, 71, 0, 25, "Output",ExpressionUUID->"f32370b2-29b4-4a67-b7a5-6cd72b79acb9"] -}, Open ]], -Cell[CellGroupData[{ -Cell[479021, 10462, 70, 0, 22, "Input",ExpressionUUID->"239ef493-7cc7-47b1-81a8-94f331e00ce1"], -Cell[479094, 10464, 71, 0, 25, "Output",ExpressionUUID->"15ee4c9a-c829-445a-b182-767e4df814ff"] -}, Open ]], -Cell[CellGroupData[{ -Cell[479202, 10469, 70, 0, 22, "Input",ExpressionUUID->"b20c0eee-a200-4247-b652-5ba1650e9b5f"], -Cell[479275, 10471, 71, 0, 42, "Output",ExpressionUUID->"5f96eb98-50fe-43bb-9a73-854740c7372f"] -}, Open ]], +Cell[29113, 1037, 418, 11, 40, "Section",ExpressionUUID->"c1a07f43-bf98-4ded-8fe2-acd38d81a62a"], +Cell[29534, 1050, 70, 0, 22, "Input",ExpressionUUID->"9814740b-6ceb-49dd-a8e7-470aa128f596"], +Cell[29607, 1052, 70, 0, 71, "Input",ExpressionUUID->"e5da5cdc-dea4-468f-9f80-7bcb8f7055ed"], Cell[CellGroupData[{ -Cell[479383, 10476, 70, 0, 373, "Input",ExpressionUUID->"3e302e31-0839-4a7a-911f-ef7959a97430"], -Cell[479456, 10478, 71, 0, 170, "Output",ExpressionUUID->"40a49cc7-e27b-498b-9d75-a82273bcd8a7"] +Cell[29702, 1056, 70, 0, 22, "Input",ExpressionUUID->"61971941-a9ac-455d-84ae-8db30be2e665"], +Cell[29775, 1058, 71, 0, 25, "Output",ExpressionUUID->"d79a197b-d3c2-420f-8a75-43a5a1f3eb88"] }, Open ]], +Cell[29861, 1061, 70, 0, 71, "Input",ExpressionUUID->"7251e138-0073-4aed-93ec-409e542ba595"], Cell[CellGroupData[{ -Cell[479564, 10483, 70, 0, 24, "Input",ExpressionUUID->"6deee041-d448-439c-87cd-9df997417af7"], -Cell[479637, 10485, 71, 0, 25, "Output",ExpressionUUID->"7ca09e9d-964f-40c8-bceb-b721d07455d7"] +Cell[29956, 1065, 70, 0, 24, "Input",ExpressionUUID->"83870e45-e831-43bd-830f-3bbd0bc4cf26"], +Cell[30029, 1067, 71, 0, 25, "Output",ExpressionUUID->"608e5f38-8dc5-4659-9821-1c08ee7937a3"] }, Open ]], +Cell[30115, 1070, 70, 0, 71, "Input",ExpressionUUID->"2b68538e-eb4e-4fc5-8598-9d7f4cf47a71"], Cell[CellGroupData[{ -Cell[479745, 10490, 70, 0, 22, "Input",ExpressionUUID->"99574bb0-c58e-4d9b-991d-de0538a79ce2"], -Cell[479818, 10492, 71, 0, 42, "Output",ExpressionUUID->"4286d6ad-13e2-4c9f-a802-01f8b5be79a5"] +Cell[30210, 1074, 70, 0, 24, "Input",ExpressionUUID->"f2eb7ff1-b83a-4711-baeb-03d638af762f"], +Cell[30283, 1076, 71, 0, 25, "Output",ExpressionUUID->"8d8581e1-e769-405e-8440-00d9ea8a80b7"] }, Open ]], +Cell[30369, 1079, 70, 0, 71, "Input",ExpressionUUID->"ff1cfdef-3775-4671-b5a8-7f84d899bb44"], Cell[CellGroupData[{ -Cell[479926, 10497, 70, 0, 22, "Input",ExpressionUUID->"9a24f42c-93c4-41df-8879-8354b7f36469"], -Cell[479999, 10499, 71, 0, 25, "Output",ExpressionUUID->"39eb5162-da89-40a5-8bff-ab21a0a6b4ff"] +Cell[30464, 1083, 70, 0, 24, "Input",ExpressionUUID->"4ac9a3d8-7344-4b36-86cc-927251f84ae6"], +Cell[30537, 1085, 71, 0, 25, "Output",ExpressionUUID->"4020c1a4-5f22-47ef-9d1f-adef13840e75"] }, Open ]], +Cell[30623, 1088, 70, 0, 71, "Input",ExpressionUUID->"be587998-8957-48f9-8d89-e1f575b484d9"], Cell[CellGroupData[{ -Cell[480107, 10504, 70, 0, 22, "Input",ExpressionUUID->"73e6bc7f-3afd-45d8-90d6-30e29942196b"], -Cell[480180, 10506, 71, 0, 25, "Output",ExpressionUUID->"6da5446d-49fe-42de-8af9-2e5e0b368c4e"] +Cell[30718, 1092, 70, 0, 24, "Input",ExpressionUUID->"30f0ed04-9858-4017-8217-985c3efc1c9b"], +Cell[30791, 1094, 71, 0, 25, "Output",ExpressionUUID->"c81e0168-c726-4188-a9c4-724e6bccc499"] }, Open ]], +Cell[30877, 1097, 70, 0, 71, "Input",ExpressionUUID->"689e18ed-1ec8-498a-ad1b-507e0dd03bae"], Cell[CellGroupData[{ -Cell[480288, 10511, 70, 0, 40, "Input",ExpressionUUID->"8c2764e5-f190-4d3c-b052-79717cc35a48"], -Cell[480361, 10513, 71, 0, 42, "Output",ExpressionUUID->"ef502a42-c8ae-45d1-bab3-7517f089824f"] +Cell[30972, 1101, 70, 0, 24, "Input",ExpressionUUID->"d483d5c3-c5f0-4bc3-b35a-ee3705301f57"], +Cell[31045, 1103, 71, 0, 27, "Output",ExpressionUUID->"972e9daa-b8c0-48ea-94a6-5c1206f9ded8"] }, Open ]], -Cell[480447, 10516, 70, 0, 22, "Input",ExpressionUUID->"18b2f6d3-0d19-4706-831e-f2fcc505b53f"], +Cell[31131, 1106, 70, 0, 71, "Input",ExpressionUUID->"4908c8f4-c01f-434c-9530-5ff19546ec45"], Cell[CellGroupData[{ -Cell[480542, 10520, 70, 0, 22, "Input",ExpressionUUID->"00eeff7d-2516-4f30-a51c-9ec970fb3742"], -Cell[480615, 10522, 71, 0, 25, "Output",ExpressionUUID->"ccf1409f-a14b-44eb-bf46-26eb9198a2e8"] +Cell[31226, 1110, 70, 0, 24, "Input",ExpressionUUID->"c63ac5aa-bc1a-4703-8f86-c784cca22af9"], +Cell[31299, 1112, 71, 0, 44, "Output",ExpressionUUID->"8cee96ed-e342-42b4-9a7c-986d1e772ed3"] }, Open ]], +Cell[31385, 1115, 70, 0, 71, "Input",ExpressionUUID->"6dc40e0e-abcd-407f-bbc6-3e7148e2aec4"], Cell[CellGroupData[{ -Cell[480723, 10527, 70, 0, 75, "Input",ExpressionUUID->"e6713a47-0d38-4adf-843b-ed15e3c46c4e"], -Cell[480796, 10529, 71, 0, 25, "Output",ExpressionUUID->"611e7a6b-12f8-4502-81ca-f88453f7d81d"] +Cell[31480, 1119, 70, 0, 24, "Input",ExpressionUUID->"616ce136-6737-40e5-8029-31272add86f8"], +Cell[31553, 1121, 71, 0, 44, "Output",ExpressionUUID->"9d4cc682-8c95-449b-9ae1-a07d60f17b16"] }, Open ]], +Cell[31639, 1124, 70, 0, 71, "Input",ExpressionUUID->"0359663b-ea4b-4f2b-b953-154950f875db"], Cell[CellGroupData[{ -Cell[480904, 10534, 70, 0, 71, "Input",ExpressionUUID->"fe20d7b4-7ac7-4f3c-965a-a64f2c290b79"], -Cell[480977, 10536, 71, 0, 183, "Output",ExpressionUUID->"654cf4f1-b6c1-4354-84c0-60826f56d62e"] +Cell[31734, 1128, 70, 0, 24, "Input",ExpressionUUID->"ec848311-8958-4766-9a5d-9be5abcc44cb"], +Cell[31807, 1130, 71, 0, 44, "Output",ExpressionUUID->"51334039-280f-48e2-b328-4297f777c9de"] }, Open ]], -Cell[481063, 10539, 70, 0, 22, "Input",ExpressionUUID->"9c2f3df4-6178-4694-993b-bda1ee283ce0"], +Cell[31893, 1133, 70, 0, 71, "Input",ExpressionUUID->"49fccc0f-c05a-483f-ad54-254b7500e1ec"], Cell[CellGroupData[{ -Cell[481158, 10543, 70, 0, 75, "Input",ExpressionUUID->"c86851c1-cf2b-41e6-a0f0-e785148a7384"], -Cell[481231, 10545, 71, 0, 25, "Output",ExpressionUUID->"e0d97b17-168d-4d7b-b22e-edf82ae92052"] +Cell[31988, 1137, 70, 0, 24, "Input",ExpressionUUID->"3400ca05-e157-461b-96a6-83634df1cc38"], +Cell[32061, 1139, 72, 0, 22, "Message",ExpressionUUID->"4717bc47-0f9e-459c-a089-7072d9d8546f"], +Cell[32136, 1141, 71, 0, 44, "Output",ExpressionUUID->"9e06fa9c-619d-48be-8bd4-a62423b68459"] }, Open ]], Cell[CellGroupData[{ -Cell[481339, 10550, 70, 0, 157, "Input",ExpressionUUID->"a628642f-9345-446c-9af5-bd9f8be7795e"], -Cell[481412, 10552, 71, 0, 25, "Output",ExpressionUUID->"3faad427-2602-4847-8767-c30225439c4d"] +Cell[32244, 1146, 70, 0, 24, "Input",ExpressionUUID->"7336ac6b-83d1-49ff-a184-4670f1967f5f"], +Cell[32317, 1148, 71, 0, 25, "Output",ExpressionUUID->"a267ea60-447c-4dcc-ab03-202e34d3e02b"] }, Open ]], Cell[CellGroupData[{ -Cell[481520, 10557, 70, 0, 58, "Input",ExpressionUUID->"83bf7d3c-fe44-4a49-91b0-3b230822412d"], -Cell[481593, 10559, 71, 0, 25, "Output",ExpressionUUID->"049539cd-508e-4808-998b-7255f22297e0"] +Cell[32425, 1153, 70, 0, 24, "Input",ExpressionUUID->"15ada2d4-3591-4b28-a4a0-0c24a32c8424"], +Cell[32498, 1155, 71, 0, 25, "Output",ExpressionUUID->"769cfb1a-0cd6-4aa9-816e-ac5e5367d434"] }, Open ]], Cell[CellGroupData[{ -Cell[481701, 10564, 70, 0, 41, "Input",ExpressionUUID->"737114e7-27bf-44e9-90d0-f3e220e1fbe9"], -Cell[481774, 10566, 71, 0, 60, "Output",ExpressionUUID->"bfe13574-c198-44c2-a82a-7a68ac6594b1"] +Cell[32606, 1160, 70, 0, 24, "Input",ExpressionUUID->"49c36534-7e17-40fd-b17b-6c24396cf79b"], +Cell[32679, 1162, 71, 0, 25, "Output",ExpressionUUID->"3eb32547-a996-48e0-bbf9-9f8a2877f2f6"] }, Open ]], Cell[CellGroupData[{ -Cell[481882, 10571, 70, 0, 22, "Input",ExpressionUUID->"00c11329-3fd1-410c-9023-c4475a374c1c"], -Cell[481955, 10573, 71, 0, 25, "Output",ExpressionUUID->"7bb2f702-f67a-409b-9ff6-e4dfb82006a5"] +Cell[32787, 1167, 70, 0, 24, "Input",ExpressionUUID->"1b662f6f-7fb0-44b3-98b2-fcd0cb6cab57"], +Cell[32860, 1169, 71, 0, 25, "Output",ExpressionUUID->"1581c58d-9a8e-473e-b952-16b423bd8281"] }, Open ]], Cell[CellGroupData[{ -Cell[482063, 10578, 70, 0, 39, "Input",ExpressionUUID->"5d1b0a3d-de27-482a-bae3-c23bae163f5a"], -Cell[482136, 10580, 71, 0, 42, "Output",ExpressionUUID->"a6f1a8a6-2049-4a79-91ac-9abd4b607c36"] +Cell[32968, 1174, 70, 0, 24, "Input",ExpressionUUID->"11f063b7-0e7a-4b08-8d80-05ffaf815f0e"], +Cell[33041, 1176, 71, 0, 25, "Output",ExpressionUUID->"59d2c040-d7ec-47c4-8ccb-8dc4f6bdfd9c"] }, Open ]], Cell[CellGroupData[{ -Cell[482244, 10585, 70, 0, 76, "Input",ExpressionUUID->"f6133534-d260-4c20-9384-1504d38050b5"], -Cell[482317, 10587, 71, 0, 171, "Output",ExpressionUUID->"ae94140a-a048-4e2f-ab64-bb4bbb28ced1"] +Cell[33149, 1181, 70, 0, 24, "Input",ExpressionUUID->"73f3d0d8-55bd-4b87-9313-593ad5301d2f"], +Cell[33222, 1183, 71, 0, 177, "Output",ExpressionUUID->"88cd5860-1a82-4fe9-9019-187e9a6284bc"] }, Open ]], -Cell[482403, 10590, 70, 0, 55, "Input",ExpressionUUID->"3449f203-04a7-4ee2-976c-6c588cac8b8c"], +Cell[33308, 1186, 70, 0, 22, "Input",ExpressionUUID->"a5dcf275-1d4e-4c96-a79c-53a3afcdb89b"], Cell[CellGroupData[{ -Cell[482498, 10594, 70, 0, 22, "Input",ExpressionUUID->"8a565b8f-7303-4318-a332-ad1e6cc11f57"], -Cell[482571, 10596, 72, 0, 22, "Message",ExpressionUUID->"60276545-3db0-456d-ae55-b68487ca8c38"], -Cell[482646, 10598, 71, 0, 74, "Output",ExpressionUUID->"71ef8082-2ad9-4072-9555-3b534a868061"] +Cell[33403, 1190, 70, 0, 24, "Input",ExpressionUUID->"d831d23a-4316-405f-82be-49802e861f83"], +Cell[33476, 1192, 71, 0, 40, "Output",ExpressionUUID->"80e78af9-9b53-4cc1-b28d-62d39e95442d"] }, Open ]], Cell[CellGroupData[{ -Cell[482754, 10603, 70, 0, 71, "Input",ExpressionUUID->"931220ee-0e2c-4f75-bb54-332cf08adc26"], -Cell[482827, 10605, 71, 0, 137, "Output",ExpressionUUID->"76515291-b1a5-4c25-9f97-9ab33d68ca06"] +Cell[33584, 1197, 70, 0, 22, "Input",ExpressionUUID->"b077fbbc-1b67-46ce-928c-cb9cb93feb84"], +Cell[33657, 1199, 71, 0, 39, "Output",ExpressionUUID->"fe7374a3-2e61-4f7f-bfa8-7f2610ce7280"] }, Open ]], Cell[CellGroupData[{ -Cell[482935, 10610, 70, 0, 58, "Input",ExpressionUUID->"60091d62-df15-4dc3-84fc-ce944ef9bf9a"], -Cell[483008, 10612, 71, 0, 180, "Output",ExpressionUUID->"2aa49536-d57a-45f7-be94-d293282e519c"] +Cell[33765, 1204, 70, 0, 24, "Input",ExpressionUUID->"7ad3e447-b82f-4f7c-bc15-cc792a2f0f08"], +Cell[33838, 1206, 71, 0, 41, "Output",ExpressionUUID->"18e6e545-3d72-4cad-bb2d-62756bb962d5"] }, Open ]], Cell[CellGroupData[{ -Cell[483116, 10617, 70, 0, 58, "Input",ExpressionUUID->"450ea135-d1f8-46af-bbce-2567632c716d"], -Cell[483189, 10619, 71, 0, 180, "Output",ExpressionUUID->"a4b3b783-b1f7-4ea2-a67e-0c6931c0bfbf"] +Cell[33946, 1211, 70, 0, 22, "Input",ExpressionUUID->"e5a7c569-4ce5-4d3c-98f3-9160229fa5f0"], +Cell[34019, 1213, 71, 0, 41, "Output",ExpressionUUID->"f01cccdd-cd51-4883-b237-195d686deb4a"] }, Open ]], Cell[CellGroupData[{ -Cell[483297, 10624, 70, 0, 39, "Input",ExpressionUUID->"e6be9a58-00ef-4cc4-9f98-b244abdb64a9"], -Cell[483370, 10626, 71, 0, 44, "Output",ExpressionUUID->"5dac9722-8d43-456a-b7f8-6fb8a2409567"] +Cell[34127, 1218, 70, 0, 24, "Input",ExpressionUUID->"667660ba-66f5-4b76-8eaf-75601abced2b"], +Cell[34200, 1220, 71, 0, 25, "Output",ExpressionUUID->"2988841f-72ad-4f38-8e0d-50ce0c5e4c4a"] }, Open ]], Cell[CellGroupData[{ -Cell[483478, 10631, 70, 0, 141, "Input",ExpressionUUID->"51ec65c5-a0e6-4978-a6f1-be5685a51a29"], -Cell[483551, 10633, 71, 0, 138, "Output",ExpressionUUID->"cffe87cf-9e79-490f-bdd3-c4f96ce4a779"] +Cell[34308, 1225, 70, 0, 22, "Input",ExpressionUUID->"a8889652-7842-41cf-8091-72987781207f"], +Cell[34381, 1227, 71, 0, 175, "Output",ExpressionUUID->"c9889d41-efaa-48df-8497-e0395247ab18"] }, Open ]], Cell[CellGroupData[{ -Cell[483659, 10638, 70, 0, 73, "Input",ExpressionUUID->"1df50e30-664e-48e3-9859-86c2671ecf4b"], -Cell[483732, 10640, 71, 0, 181, "Output",ExpressionUUID->"8dce01cb-6835-415b-8420-582e04b50ae1"] +Cell[34489, 1232, 70, 0, 23, "Input",ExpressionUUID->"f492346f-039d-454e-b401-4478d7324c1e"], +Cell[34562, 1234, 71, 0, 25, "Output",ExpressionUUID->"8116d71c-2d49-4040-aba8-7a291ab11d2b"] }, Open ]], -Cell[483818, 10643, 70, 0, 55, "Input",ExpressionUUID->"96edcc0a-bb4d-4e36-be9f-ce6a8a0d98be"], Cell[CellGroupData[{ -Cell[483913, 10647, 70, 0, 24, "Input",ExpressionUUID->"4a8baa30-33ff-46db-9ac4-7fd988d3cfde"], -Cell[483986, 10649, 72, 0, 22, "Message",ExpressionUUID->"28f96585-e12b-4a24-8c48-750f18f8071e"], -Cell[484061, 10651, 71, 0, 60, "Output",ExpressionUUID->"7ec5973e-217a-4934-9c67-94501f20e071"] +Cell[34670, 1239, 70, 0, 25, "Input",ExpressionUUID->"8a8852a1-d6eb-4f81-aae0-a33a01326f50"], +Cell[34743, 1241, 71, 0, 25, "Output",ExpressionUUID->"d72a90fc-a009-4c0c-949a-963bb5b65ef4"] }, Open ]], Cell[CellGroupData[{ -Cell[484169, 10656, 70, 0, 71, "Input",ExpressionUUID->"e9352cf8-02f1-478b-8280-4509621bf9c3"], -Cell[484242, 10658, 71, 0, 138, "Output",ExpressionUUID->"5e62b330-364e-4d8a-8f23-180a2304812a"] +Cell[34851, 1246, 70, 0, 22, "Input",ExpressionUUID->"f758c571-4941-4819-b8ff-bda876db06de"], +Cell[34924, 1248, 71, 0, 39, "Output",ExpressionUUID->"5a0a399e-f5ce-43d7-878e-195ab44a54cc"] }, Open ]], +Cell[35010, 1251, 70, 0, 24, "Input",ExpressionUUID->"b3d86629-c3a8-4e5c-8968-6735fe772663"], Cell[CellGroupData[{ -Cell[484350, 10663, 70, 0, 59, "Input",ExpressionUUID->"0a27f704-930f-4a1b-bf73-10e745ca5c38"], -Cell[484423, 10665, 71, 0, 184, "Output",ExpressionUUID->"0e911c57-92d6-4211-b513-7b06f78d0f94"] +Cell[35105, 1255, 70, 0, 25, "Input",ExpressionUUID->"a06dd50c-b2a6-48cd-a550-24e88107ce4e"], +Cell[35178, 1257, 72, 0, 22, "Message",ExpressionUUID->"231f26c8-d164-4ed2-9d95-3ae6b9e7db4a"], +Cell[35253, 1259, 72, 0, 22, "Message",ExpressionUUID->"9234dcc5-0207-4b2e-8051-0501c80d8d9f"], +Cell[35328, 1261, 72, 0, 22, "Message",ExpressionUUID->"d1fb6878-82d5-4bae-8198-ca5be20a90a5"], +Cell[35403, 1263, 72, 0, 22, "Message",ExpressionUUID->"14e79556-c616-4367-a2e8-6eb65243108f"], +Cell[35478, 1265, 71, 0, 168, "Output",ExpressionUUID->"79b3a56a-fb4e-43df-a5e7-cc282c5e91e5"] }, Open ]], +Cell[35564, 1268, 70, 0, 22, "Input",ExpressionUUID->"16011121-ccb9-4633-8c80-193152571641"], +Cell[35637, 1270, 70, 0, 71, "Input",ExpressionUUID->"dd17419e-1a61-45a6-bc6e-4fc73cef39c7"], Cell[CellGroupData[{ -Cell[484531, 10670, 70, 0, 75, "Input",ExpressionUUID->"0d0ac8b8-8b41-4baf-98d6-ab5c2fbbd568"], -Cell[484604, 10672, 71, 0, 180, "Output",ExpressionUUID->"e860e315-d3af-419a-a95f-08d7aac8e9da"] +Cell[35732, 1274, 70, 0, 24, "Input",ExpressionUUID->"26c43faf-69ad-4747-a4c2-02faedeae0ba"], +Cell[35805, 1276, 72, 0, 22, "Message",ExpressionUUID->"f4aabacf-847b-4f9a-989e-275f0207bfac"], +Cell[35880, 1278, 71, 0, 44, "Output",ExpressionUUID->"54f52e14-1cc2-4199-81ae-b38e003ee6a7"] }, Open ]], -Cell[484690, 10675, 70, 0, 55, "Input",ExpressionUUID->"95e7b2ca-f79f-42f7-a4d6-b9999aaaebbf"], Cell[CellGroupData[{ -Cell[484785, 10679, 70, 0, 22, "Input",ExpressionUUID->"b06f22eb-d540-4a76-85e3-72d785ad1b70"], -Cell[484858, 10681, 71, 0, 42, "Output",ExpressionUUID->"46b348e3-bd8e-4c18-9375-32bbcccbec33"] +Cell[35988, 1283, 70, 0, 22, "Input",ExpressionUUID->"0e67ed2d-901e-4ad6-bc18-0187d868db2a"], +Cell[36061, 1285, 71, 0, 412, "Output",ExpressionUUID->"bb3e229d-42a2-4f31-ba52-03d502114257"] }, Open ]], Cell[CellGroupData[{ -Cell[484966, 10686, 70, 0, 71, "Input",ExpressionUUID->"addaa5fb-500f-4ed8-a5f7-6fd64ad3eaa6"], -Cell[485039, 10688, 71, 0, 138, "Output",ExpressionUUID->"dab5a296-dac7-42c3-83dc-f259ba6d8925"] +Cell[36169, 1290, 70, 0, 97, "Input",ExpressionUUID->"f953e6b7-d6db-4adc-ae62-1eaf92d1b68b"], +Cell[36242, 1292, 71, 0, 428, "Output",ExpressionUUID->"52df7986-73ef-4731-a037-32f90ae8c2ca"] }, Open ]], Cell[CellGroupData[{ -Cell[485147, 10693, 70, 0, 75, "Input",ExpressionUUID->"d36b355d-67fb-4c2e-838b-03fe471dc611"], -Cell[485220, 10695, 71, 0, 138, "Output",ExpressionUUID->"7b83e30f-16ba-4710-9392-892c46b5d312"] +Cell[36350, 1297, 70, 0, 38, "Input",ExpressionUUID->"49320ca4-5c8c-4b1e-98f4-0fce9d6f767d"], +Cell[36423, 1299, 71, 0, 35, "Output",ExpressionUUID->"a5bcadc6-2050-4678-82db-1cc984ce4cf8"] }, Open ]], -Cell[485306, 10698, 70, 0, 55, "Input",ExpressionUUID->"c82c5d89-ecae-4e05-930f-c26cc54103a7"], Cell[CellGroupData[{ -Cell[485401, 10702, 70, 0, 22, "Input",ExpressionUUID->"290e904f-7c29-43f1-8bd5-c9be3d1bef02"], -Cell[485474, 10704, 72, 0, 34, "Message",ExpressionUUID->"54c445a3-7d1c-40ef-870f-ec5a37efb826"], -Cell[485549, 10706, 71, 0, 42, "Output",ExpressionUUID->"67e4a52e-0a2c-4bbb-b96c-829e61f321c4"] +Cell[36531, 1304, 70, 0, 24, "Input",ExpressionUUID->"23c90a2a-3181-4507-b03d-1c6a524d318f"], +Cell[36604, 1306, 71, 0, 58, "Output",ExpressionUUID->"804ea812-1e08-451e-b89b-85e21b7a900b"] }, Open ]], Cell[CellGroupData[{ -Cell[485657, 10711, 70, 0, 71, "Input",ExpressionUUID->"d5e39058-5f9e-47c6-946f-532c8ed529f6"], -Cell[485730, 10713, 71, 0, 138, "Output",ExpressionUUID->"e645c593-9553-43d8-b4f5-be8c82e277ad"] +Cell[36712, 1311, 70, 0, 22, "Input",ExpressionUUID->"411d79ae-3a60-45b7-ad34-0402223bc804"], +Cell[36785, 1313, 71, 0, 44, "Output",ExpressionUUID->"d0487fb6-cc6f-4a82-b7e9-c88e89124f26"] }, Open ]], -Cell[485816, 10716, 70, 0, 55, "Input",ExpressionUUID->"f961015d-b6cb-47e5-9e1a-587921f3fc25"], Cell[CellGroupData[{ -Cell[485911, 10720, 70, 0, 22, "Input",ExpressionUUID->"b0341393-a02b-4e09-8998-73efab4bb17b"], -Cell[485984, 10722, 72, 0, 22, "Message",ExpressionUUID->"6bf66ca0-e854-42d9-a6e5-6c371f075fd1"], -Cell[486059, 10724, 71, 0, 79, "Output",ExpressionUUID->"f3fcddf9-a725-4739-93f0-1701965c61c6"] +Cell[36893, 1318, 70, 0, 99, "Input",ExpressionUUID->"f3f929dc-63b9-41e4-a7fa-bfc6233c0667"], +Cell[36966, 1320, 71, 0, 449, "Output",ExpressionUUID->"849e1d2a-9c50-44de-89d5-857702cb5fd5"] }, Open ]], Cell[CellGroupData[{ -Cell[486167, 10729, 70, 0, 71, "Input",ExpressionUUID->"d47e2a5d-4016-4693-a6ce-5324eab8db08"], -Cell[486240, 10731, 71, 0, 136, "Output",ExpressionUUID->"bff3b92b-b815-4ac0-a4e4-2c9f9d9f5abb"] +Cell[37074, 1325, 70, 0, 22, "Input",ExpressionUUID->"a0caebd2-23a7-4511-9498-0c1a2e9cfe53"], +Cell[37147, 1327, 71, 0, 271, "Output",ExpressionUUID->"7be21de8-007c-4120-a339-1f3ac51c3e60"] }, Open ]], Cell[CellGroupData[{ -Cell[486348, 10736, 70, 0, 22, "Input",ExpressionUUID->"33e14fd0-f4a2-4619-9046-e5d0a24c5515"], -Cell[486421, 10738, 71, 0, 178, "Output",ExpressionUUID->"0487d3ef-3258-426a-b0d1-5b48a90b960f"] +Cell[37255, 1332, 70, 0, 75, "Input",ExpressionUUID->"6fcf53ff-126b-4b26-a83b-148e00bf6b1b"], +Cell[37328, 1334, 71, 0, 181, "Output",ExpressionUUID->"c786cfbb-e4b0-428c-b40c-df3c0c0def56"] }, Open ]], -Cell[486507, 10741, 70, 0, 55, "Input",ExpressionUUID->"fa6a2ed9-7736-4734-8d89-947640bdc4df"], +Cell[37414, 1337, 70, 0, 71, "Input",ExpressionUUID->"9f042e79-5a77-40a7-a4d2-a6d243e6aed3"], Cell[CellGroupData[{ -Cell[486602, 10745, 70, 0, 24, "Input",ExpressionUUID->"b6ce76a3-8eb8-4131-a4d1-f97747ad0a43"], -Cell[486675, 10747, 72, 0, 34, "Message",ExpressionUUID->"9726d445-7313-413a-b996-e5e5833bfc27"], -Cell[486750, 10749, 71, 0, 60, "Output",ExpressionUUID->"0a3d0d0f-5572-4382-8897-9eb6a8ad8875"] +Cell[37509, 1341, 70, 0, 24, "Input",ExpressionUUID->"9dd5f638-04be-4ab9-8e9e-a36242ce03fc"], +Cell[37582, 1343, 71, 0, 44, "Output",ExpressionUUID->"9e62f072-c037-4c2b-a694-0a0eb1b1e9ea"] }, Open ]], +Cell[37668, 1346, 70, 0, 71, "Input",ExpressionUUID->"b83dae54-967b-45b1-81ce-458e168a8389"], Cell[CellGroupData[{ -Cell[486858, 10754, 70, 0, 71, "Input",ExpressionUUID->"f3aa018e-5bd8-4d90-b041-b8e238ccecf2"], -Cell[486931, 10756, 71, 0, 136, "Output",ExpressionUUID->"3fa1f8ac-f980-461c-8d8c-ef235c92c093"] +Cell[37763, 1350, 70, 0, 24, "Input",ExpressionUUID->"9835d85f-5114-4265-bc49-5f2e4c050b32"], +Cell[37836, 1352, 71, 0, 44, "Output",ExpressionUUID->"ebe14f51-7209-4e07-91c9-c24982da80ea"] }, Open ]], +Cell[37922, 1355, 70, 0, 71, "Input",ExpressionUUID->"047dad42-d9f8-4bb8-a64f-7e04a9585915"], Cell[CellGroupData[{ -Cell[487039, 10761, 70, 0, 22, "Input",ExpressionUUID->"0b2df119-bcef-4653-a833-253e2a81e50c"], -Cell[487112, 10763, 71, 0, 178, "Output",ExpressionUUID->"c475e4a0-6cfe-4be2-a1e1-19e2f45f524c"] +Cell[38017, 1359, 70, 0, 24, "Input",ExpressionUUID->"890d932c-2ab7-4f89-a1ee-76f76a9c3c67"], +Cell[38090, 1361, 71, 0, 25, "Output",ExpressionUUID->"e07ab9be-41a7-41c9-ae59-4c3f17b35525"] }, Open ]], Cell[CellGroupData[{ -Cell[487220, 10768, 70, 0, 22, "Input",ExpressionUUID->"1f5c6902-7eed-4c8b-8e0a-99a9b170e1ca"], -Cell[487293, 10770, 71, 0, 25, "Output",ExpressionUUID->"51a1aad9-05b0-462a-891d-22d8f6a6b9c1"] +Cell[38198, 1366, 70, 0, 22, "Input",ExpressionUUID->"2af0cd55-f1de-4186-b4d2-7e0ee2fcbb90"], +Cell[38271, 1368, 71, 0, 25, "Output",ExpressionUUID->"22f7b89c-ce93-4b4d-9c59-f15ec7f6da73"] }, Open ]], Cell[CellGroupData[{ -Cell[487401, 10775, 70, 0, 22, "Input",ExpressionUUID->"e16359b5-e4d6-4bb7-86eb-f63803ad6855"], -Cell[487474, 10777, 71, 0, 51, "Output",ExpressionUUID->"5de69e48-41bd-45f3-a994-7e676e47e408"] +Cell[38379, 1373, 70, 0, 22, "Input",ExpressionUUID->"6029f4f2-49f1-4154-aecc-06d866e07507"], +Cell[38452, 1375, 71, 0, 25, "Output",ExpressionUUID->"15242adf-c742-46be-bda8-6054e9f087b3"] }, Open ]], Cell[CellGroupData[{ -Cell[487582, 10782, 70, 0, 24, "Input",ExpressionUUID->"95054690-5631-4591-bd21-220db7338a94"], -Cell[487655, 10784, 71, 0, 77, "Output",ExpressionUUID->"1831476b-e621-49f5-905a-8c35a3a8d0c4"] +Cell[38560, 1380, 70, 0, 22, "Input",ExpressionUUID->"a4dbeef0-fcd6-4246-a096-026cd5c8fe7d"], +Cell[38633, 1382, 71, 0, 25, "Output",ExpressionUUID->"e5f37624-2f5e-4013-ae6b-6268f8ff6713"] }, Open ]], Cell[CellGroupData[{ -Cell[487763, 10789, 70, 0, 40, "Input",ExpressionUUID->"342ac8ee-ab8e-4ae6-bb1c-86464af5e526"], -Cell[487836, 10791, 72, 0, 22, "Message",ExpressionUUID->"aa233660-6314-440b-a55e-4be02e56a457"], -Cell[487911, 10793, 72, 0, 22, "Message",ExpressionUUID->"8cb1e3ab-1e3f-4b77-b899-3805356aedb6"], -Cell[487986, 10795, 72, 0, 22, "Message",ExpressionUUID->"680d170d-a28d-4f1f-ae74-aad91fb95e48"], -Cell[488061, 10797, 72, 0, 22, "Message",ExpressionUUID->"58554aee-0abc-4545-9de7-f32a62d9fbde"] +Cell[38741, 1387, 70, 0, 246, "Input",ExpressionUUID->"115752ea-f3aa-4038-a6aa-91c3f57bfac5"], +Cell[38814, 1389, 71, 0, 170, "Output",ExpressionUUID->"ffa200df-716b-49a6-86be-94fa59dec869"] }, Open ]], Cell[CellGroupData[{ -Cell[488170, 10802, 70, 0, 24, "Input",ExpressionUUID->"50e71e0c-5917-461a-a368-516214da0cbe"], -Cell[488243, 10804, 71, 0, 182, "Output",ExpressionUUID->"922be907-db35-4063-bac4-a9e321cb3961"] +Cell[38922, 1394, 70, 0, 24, "Input",ExpressionUUID->"8fffab93-64df-4b6d-9647-f5f8bb98486e"], +Cell[38995, 1396, 71, 0, 25, "Output",ExpressionUUID->"20eb8865-5dd8-4dcd-ab85-d54dfd719358"] }, Open ]], -Cell[488329, 10807, 70, 0, 75, "Input",ExpressionUUID->"77b309c5-73e7-45d2-91cc-18b17ef11474"], Cell[CellGroupData[{ -Cell[488424, 10811, 70, 0, 92, "Input",ExpressionUUID->"4a2b2cef-4c8a-419d-af13-1402f00c00ac"], -Cell[488497, 10813, 72, 0, 32, "Message",ExpressionUUID->"915b4994-47ee-4f92-a180-66582fad2eee"], -Cell[488572, 10815, 72, 0, 22, "Message",ExpressionUUID->"d99a257a-bebb-423f-b4c7-c1daf92c9d89"], -Cell[488647, 10817, 72, 0, 32, "Message",ExpressionUUID->"3935845a-b829-45bb-8c68-b38f6c89200d"], -Cell[488722, 10819, 72, 0, 32, "Message",ExpressionUUID->"2cd99774-06cd-4554-9019-8374804b72cc"], -Cell[488797, 10821, 72, 0, 22, "Message",ExpressionUUID->"a63719b3-c483-4dcc-bf9d-07e3ec86a01a"], -Cell[488872, 10823, 72, 0, 22, "Message",ExpressionUUID->"b75c5dbc-0033-4ee6-9b1f-38ed8cbfa052"], -Cell[488947, 10825, 72, 0, 22, "Message",ExpressionUUID->"a8b8b506-1639-4e24-a563-d4136102a4f5"], -Cell[489022, 10827, 72, 0, 22, "Message",ExpressionUUID->"511b399f-cdfc-483b-8b33-e482ad95258c"] +Cell[39103, 1401, 70, 0, 22, "Input",ExpressionUUID->"7c14b679-0a0b-4d2d-86fd-db7da5a08f8d"], +Cell[39176, 1403, 71, 0, 25, "Output",ExpressionUUID->"c86e3d74-dfee-43a3-b88b-5f71c70d4a28"] }, Open ]], Cell[CellGroupData[{ -Cell[489131, 10832, 70, 0, 22, "Input",ExpressionUUID->"ca2c6c9e-8737-4ee8-bc57-68cf26050e9d"], -Cell[489204, 10834, 120, 0, 305, "Output",ExpressionUUID->"fe2c0268-4ac2-4856-a458-2b2ecc705830"] -}, Open ]], -Cell[489339, 10837, 70, 0, 76, "Input",ExpressionUUID->"f06eadd6-9832-4fdb-a4a4-ddef5420835b"] +Cell[39284, 1408, 70, 0, 22, "Input",ExpressionUUID->"17e630bf-a8b6-4486-96e6-7f607c98ab57"], +Cell[39357, 1410, 71, 0, 25, "Output",ExpressionUUID->"34cf2491-74b3-42e9-9f31-17cb7bbb6838"] }, Open ]], Cell[CellGroupData[{ -Cell[489446, 10842, 72, 0, 50, "Section",ExpressionUUID->"73b64eac-273b-425b-a331-b6933d676fd6"], -Cell[489521, 10844, 70, 0, 22, "Input",ExpressionUUID->"d13597be-e72d-4cdb-af3a-f0b94a3f0970"], -Cell[489594, 10846, 70, 0, 71, "Input",ExpressionUUID->"3b10129f-a36e-4d1b-a00b-514cb8ac50ff"], -Cell[CellGroupData[{ -Cell[489689, 10850, 70, 0, 22, "Input",ExpressionUUID->"118d3658-5348-469a-b2ad-f44c69555e8b"], -Cell[489762, 10852, 71, 0, 25, "Output",ExpressionUUID->"40b71c15-7178-4e1d-baaf-3055b8b52605"] +Cell[39465, 1415, 70, 0, 22, "Input",ExpressionUUID->"0598b222-62c5-416e-b305-746b40dd9bc3"], +Cell[39538, 1417, 71, 0, 25, "Output",ExpressionUUID->"c0cfe5fe-aabf-43c5-8e4a-26fc7484f455"] }, Open ]], Cell[CellGroupData[{ -Cell[489870, 10857, 70, 0, 75, "Input",ExpressionUUID->"02d17a86-04cc-4922-b242-dcd51a9d65f8"], -Cell[489943, 10859, 71, 0, 174, "Output",ExpressionUUID->"3d6f89b5-91ac-4aa4-97da-a23913d31784"] +Cell[39646, 1422, 70, 0, 24, "Input",ExpressionUUID->"5af9d17e-db82-48f8-90e9-228210a09ed5"], +Cell[39719, 1424, 71, 0, 25, "Output",ExpressionUUID->"9be1c398-b71f-4b8e-86ff-b57730c34ab5"] }, Open ]], -Cell[490029, 10862, 70, 0, 71, "Input",ExpressionUUID->"2c311680-125d-4d73-90ca-4a60c38bf322"], +Cell[39805, 1427, 70, 0, 22, "Input",ExpressionUUID->"b7b83165-8b6f-4f90-a072-18689e4da274"], Cell[CellGroupData[{ -Cell[490124, 10866, 70, 0, 24, "Input",ExpressionUUID->"9e6a1d24-f014-4fe9-be77-974a12fca0fe"], -Cell[490197, 10868, 71, 0, 25, "Output",ExpressionUUID->"407ae6df-d854-46fa-89cb-b3f036f64b60"] +Cell[39900, 1431, 70, 0, 22, "Input",ExpressionUUID->"6897f3b9-582a-494f-bdf5-c17bb76e55eb"], +Cell[39973, 1433, 71, 0, 25, "Output",ExpressionUUID->"af3bc580-2a55-4a7d-ac98-b39a4d20796c"] }, Open ]], -Cell[490283, 10871, 70, 0, 71, "Input",ExpressionUUID->"e2ac1b79-09f2-4e0b-a239-d0a4c4da0244"], Cell[CellGroupData[{ -Cell[490378, 10875, 70, 0, 24, "Input",ExpressionUUID->"70b9bc85-93e5-4826-92fb-571d71a8eda2"], -Cell[490451, 10877, 71, 0, 25, "Output",ExpressionUUID->"d529a14b-b9bc-40e2-a38b-0a93a86f22cb"] +Cell[40081, 1438, 70, 0, 24, "Input",ExpressionUUID->"934c6620-7229-4e4b-b2ba-810eea6190fc"], +Cell[40154, 1440, 71, 0, 25, "Output",ExpressionUUID->"97e63d9c-91b3-4669-accb-83df4a801f84"] }, Open ]], -Cell[490537, 10880, 70, 0, 71, "Input",ExpressionUUID->"c2982a71-bee2-402b-b711-14ff0e1d975b"], Cell[CellGroupData[{ -Cell[490632, 10884, 70, 0, 24, "Input",ExpressionUUID->"eb3b6f46-8f1b-499b-bd37-73dd9dbe3965"], -Cell[490705, 10886, 71, 0, 25, "Output",ExpressionUUID->"b19a8bbc-696f-478f-8efd-17e3a701f03a"] +Cell[40262, 1445, 70, 0, 71, "Input",ExpressionUUID->"3a1ee666-d77d-4248-b833-dd1b09c23d24"], +Cell[40335, 1447, 71, 0, 183, "Output",ExpressionUUID->"058dec63-327d-4cf0-b0a1-cdf5c026a84b"] }, Open ]], -Cell[490791, 10889, 70, 0, 71, "Input",ExpressionUUID->"ec1f346b-e3d6-4aed-81a9-433cc61075e2"], +Cell[40421, 1450, 70, 0, 22, "Input",ExpressionUUID->"f4bc065b-3d70-4f1f-bbed-9d1c17b3fc3d"], Cell[CellGroupData[{ -Cell[490886, 10893, 70, 0, 24, "Input",ExpressionUUID->"ce1f7cd1-187a-4bdb-9abb-22e60d05d220"], -Cell[490959, 10895, 71, 0, 25, "Output",ExpressionUUID->"ad028f9e-9c96-442a-bc9c-8c249d83de0c"] +Cell[40516, 1454, 70, 0, 24, "Input",ExpressionUUID->"d1ee4b7a-f19c-4764-a00e-c0443a4a655f"], +Cell[40589, 1456, 71, 0, 25, "Output",ExpressionUUID->"1538c9df-d831-46f1-8713-7331dbb17ad5"] }, Open ]], -Cell[491045, 10898, 70, 0, 71, "Input",ExpressionUUID->"f8ba24d7-b465-4f57-b8b9-3eddeb7d14a3"], Cell[CellGroupData[{ -Cell[491140, 10902, 70, 0, 24, "Input",ExpressionUUID->"b4a6df9a-91a8-4635-862f-4bd555c155f7"], -Cell[491213, 10904, 71, 0, 27, "Output",ExpressionUUID->"30b13007-d27d-4650-84b7-1972dd40c547"] +Cell[40697, 1461, 70, 0, 75, "Input",ExpressionUUID->"cb621e05-0372-4be4-8a7f-fa6af95394ed"], +Cell[40770, 1463, 71, 0, 25, "Output",ExpressionUUID->"11752d12-3b73-4277-a911-0c1d26651286"] }, Open ]], Cell[CellGroupData[{ -Cell[491321, 10909, 70, 0, 141, "Input",ExpressionUUID->"abfcd87a-ebce-468a-8f85-c110a9865cea"], -Cell[491394, 10911, 72, 0, 22, "Message",ExpressionUUID->"3860ae9c-b3e1-4baa-bf1a-838d8ea7b786"] +Cell[40878, 1468, 70, 0, 37, "Input",ExpressionUUID->"18d44a4a-c7fc-4ae5-848b-d13406c29337"], +Cell[40951, 1470, 71, 0, 25, "Output",ExpressionUUID->"99c9c147-0bc3-4778-9545-e9c45fe0ac14"] }, Open ]], -Cell[491481, 10914, 70, 0, 22, "Input",ExpressionUUID->"7892ffd7-9d9b-4c1c-8261-52d8988354c2"], Cell[CellGroupData[{ -Cell[491576, 10918, 70, 0, 24, "Input",ExpressionUUID->"55e0fbbd-2ed9-4115-aa6a-046aad10a4ce"], -Cell[491649, 10920, 72, 0, 22, "Message",ExpressionUUID->"02b1987e-bc05-4ab0-846f-f66898511e03"], -Cell[491724, 10922, 72, 0, 22, "Message",ExpressionUUID->"f92d67b7-53eb-418f-9117-85a81f2c7e69"], -Cell[491799, 10924, 72, 0, 22, "Message",ExpressionUUID->"de504e26-62e8-4a6b-81e9-23f16b282fc2"], -Cell[491874, 10926, 72, 0, 22, "Message",ExpressionUUID->"35bee074-7096-46be-9a36-d8f290cd7eee"], -Cell[491949, 10928, 71, 0, 171, "Output",ExpressionUUID->"8edb77b6-128b-4499-b103-824312343bc9"] +Cell[41059, 1475, 70, 0, 24, "Input",ExpressionUUID->"e3524918-77d8-4a79-be8a-6de43155ca32"], +Cell[41132, 1477, 71, 0, 27, "Output",ExpressionUUID->"a9939342-ed73-4ec4-91fc-0ea9e8060540"] }, Open ]], -Cell[492035, 10931, 70, 0, 71, "Input",ExpressionUUID->"4007a06a-c36d-4267-9da4-5dd7578af24b"], Cell[CellGroupData[{ -Cell[492130, 10935, 70, 0, 24, "Input",ExpressionUUID->"bcd862ca-0c6d-49dc-b7f7-a4af1c0fddbd"], -Cell[492203, 10937, 71, 0, 25, "Output",ExpressionUUID->"19b6efb2-e456-4795-9a84-adaa7f819548"] +Cell[41240, 1482, 70, 0, 22, "Input",ExpressionUUID->"5fd94adc-3ec9-44a6-9da8-ece1fda82850"], +Cell[41313, 1484, 71, 0, 25, "Output",ExpressionUUID->"4a09183b-1d26-4467-8906-95ef0ab9c6c8"] }, Open ]], -Cell[492289, 10940, 70, 0, 71, "Input",ExpressionUUID->"41a6091e-cd4b-4760-9253-8fab045b5cfc"], Cell[CellGroupData[{ -Cell[492384, 10944, 70, 0, 24, "Input",ExpressionUUID->"435c2ff9-fab3-4eb0-b11d-2fea08568b69"], -Cell[492457, 10946, 71, 0, 44, "Output",ExpressionUUID->"5c25400b-27ea-497f-9cd2-a931bb65700c"] +Cell[41421, 1489, 70, 0, 39, "Input",ExpressionUUID->"73c66fd5-052d-458a-84d0-ede60e041f24"], +Cell[41494, 1491, 71, 0, 25, "Output",ExpressionUUID->"c0c4b728-d1d8-42c2-a3f1-8b215d3c5a43"] }, Open ]], Cell[CellGroupData[{ -Cell[492565, 10951, 70, 0, 22, "Input",ExpressionUUID->"358e8df2-4ab8-49e0-a232-9b2b7df3ab47"], -Cell[492638, 10953, 71, 0, 25, "Output",ExpressionUUID->"ef8a8bd3-9852-4e8d-963d-b79c1302cb41"] +Cell[41602, 1496, 70, 0, 58, "Input",ExpressionUUID->"7a26d6af-0aab-455f-91db-5512571172b3"], +Cell[41675, 1498, 71, 0, 171, "Output",ExpressionUUID->"1b652f9e-f35c-42cd-a7e0-f01c8229e46b"] }, Open ]], -Cell[492724, 10956, 70, 0, 71, "Input",ExpressionUUID->"2dad3995-6cc5-43e6-92ea-11c5390dee3c"], +Cell[41761, 1501, 70, 0, 55, "Input",ExpressionUUID->"3d32eb0d-fb5d-46ba-bbff-a17aec10d743"], Cell[CellGroupData[{ -Cell[492819, 10960, 70, 0, 24, "Input",ExpressionUUID->"4f0d3f8a-22a1-4de9-aeb5-6a358639a71d"], -Cell[492892, 10962, 71, 0, 44, "Output",ExpressionUUID->"be6fbb63-6068-40a7-ab80-da6b36baec73"] +Cell[41856, 1505, 70, 0, 22, "Input",ExpressionUUID->"40615a3b-3bf4-41cf-af74-188977e3a07e"], +Cell[41929, 1507, 72, 0, 22, "Message",ExpressionUUID->"1cd1ee4c-be11-4530-bf3b-f6416b08a0ff"], +Cell[42004, 1509, 71, 0, 25, "Output",ExpressionUUID->"7acf39dc-8aed-44fe-8bb0-bb9436fd9010"] }, Open ]], -Cell[492978, 10965, 70, 0, 71, "Input",ExpressionUUID->"ab4b4c65-5832-4276-862e-5242fb7d6363"], Cell[CellGroupData[{ -Cell[493073, 10969, 70, 0, 24, "Input",ExpressionUUID->"035b9f37-0cfb-4aba-8123-7cc74903c351"], -Cell[493146, 10971, 71, 0, 25, "Output",ExpressionUUID->"2ad90df1-94b6-4808-b452-aa2bc54eae46"] +Cell[42112, 1514, 70, 0, 71, "Input",ExpressionUUID->"bf8968d9-19d7-4017-b5b9-14c165d48e1d"], +Cell[42185, 1516, 71, 0, 137, "Output",ExpressionUUID->"f716e403-3b85-4db1-bcc7-65265fa14b70"] }, Open ]], -Cell[493232, 10974, 70, 0, 22, "Input",ExpressionUUID->"cc60351b-00d0-4f4a-af87-3e28031d6440"], -Cell[493305, 10976, 70, 0, 57, "Input",ExpressionUUID->"ce42704f-347c-42fe-bde0-05ddaa3a44bc"], -Cell[493378, 10978, 70, 0, 71, "Input",ExpressionUUID->"1f992dbd-bae5-408c-9b30-6cb5bb49ce1a"], Cell[CellGroupData[{ -Cell[493473, 10982, 70, 0, 24, "Input",ExpressionUUID->"d0cd008d-7e0c-44a1-888f-d8ea046ad195"], -Cell[493546, 10984, 72, 0, 22, "Message",ExpressionUUID->"573b50e4-a167-4240-874c-d6a3ee78338f"], -Cell[493621, 10986, 71, 0, 44, "Output",ExpressionUUID->"f3761f04-a50b-4162-a453-129ab3390c0c"] +Cell[42293, 1521, 70, 0, 41, "Input",ExpressionUUID->"a73f44d7-19db-4443-8971-77a7d3cbc4ac"], +Cell[42366, 1523, 71, 0, 180, "Output",ExpressionUUID->"2da9ed36-c74b-4b4e-987d-951628f83457"] }, Open ]], Cell[CellGroupData[{ -Cell[493729, 10991, 70, 0, 22, "Input",ExpressionUUID->"1021d90d-3130-4746-a366-8e537e9f7f92"], -Cell[493802, 10993, 71, 0, 421, "Output",ExpressionUUID->"b2913881-77a8-4ff7-a02c-848342d37f3f"] +Cell[42474, 1528, 70, 0, 41, "Input",ExpressionUUID->"0cce5618-8a99-44e7-86b5-68e7bc48ef0b"], +Cell[42547, 1530, 71, 0, 180, "Output",ExpressionUUID->"1b6560cd-6b3d-4bab-919b-dc6e68e7c444"] }, Open ]], Cell[CellGroupData[{ -Cell[493910, 10998, 70, 0, 97, "Input",ExpressionUUID->"480e1fae-c70a-4dc6-ac76-229ca216edb8"], -Cell[493983, 11000, 71, 0, 428, "Output",ExpressionUUID->"572ddc0e-f61d-4a1f-9173-aebf56a24cca"] +Cell[42655, 1535, 70, 0, 39, "Input",ExpressionUUID->"8485951e-7fc8-43ed-8ba0-ef1e6d664951"], +Cell[42728, 1537, 71, 0, 27, "Output",ExpressionUUID->"e2c67870-453b-427a-95e8-cab50a430376"] }, Open ]], Cell[CellGroupData[{ -Cell[494091, 11005, 70, 0, 38, "Input",ExpressionUUID->"c09664cf-d15b-4a23-8294-e9605ddd22c4"], -Cell[494164, 11007, 71, 0, 35, "Output",ExpressionUUID->"f66300ea-b0c9-492a-9514-2d872304296f"] +Cell[42836, 1542, 70, 0, 75, "Input",ExpressionUUID->"f8206946-5423-4615-81a4-c230b5e80d65"], +Cell[42909, 1544, 71, 0, 138, "Output",ExpressionUUID->"985cd9bf-505a-4fe6-988b-e983fb70bc8a"] }, Open ]], Cell[CellGroupData[{ -Cell[494272, 11012, 70, 0, 99, "Input",ExpressionUUID->"d1a1a08a-7743-4c1f-999e-35d5863f31fb"], -Cell[494345, 11014, 71, 0, 387, "Output",ExpressionUUID->"fdbf7482-f319-434b-a9b0-b63a508b25d3"] +Cell[43017, 1549, 70, 0, 57, "Input",ExpressionUUID->"8088e833-ee02-4258-9f96-8c0e92981bf8"], +Cell[43090, 1551, 71, 0, 181, "Output",ExpressionUUID->"93cd739f-29d0-4b70-aac3-bf2a78f628b7"] }, Open ]], +Cell[43176, 1554, 70, 0, 55, "Input",ExpressionUUID->"bd576e58-f517-4aa4-afda-31a30b3f37f2"], Cell[CellGroupData[{ -Cell[494453, 11019, 70, 0, 22, "Input",ExpressionUUID->"49b749a8-26c7-4701-88ad-41f818e6781b"], -Cell[494526, 11021, 71, 0, 275, "Output",ExpressionUUID->"102d5ef0-bd9b-4a9c-920c-620b92d6e55b"] +Cell[43271, 1558, 70, 0, 24, "Input",ExpressionUUID->"ceb62266-9f07-4658-a4d7-321e2989a78e"], +Cell[43344, 1560, 72, 0, 22, "Message",ExpressionUUID->"5c805d43-a6a3-4259-8167-9ed7a83569c3"], +Cell[43419, 1562, 71, 0, 60, "Output",ExpressionUUID->"ca8008f0-9c0b-428c-bd51-8cef3103b4c4"] }, Open ]], Cell[CellGroupData[{ -Cell[494634, 11026, 70, 0, 75, "Input",ExpressionUUID->"1a7f3257-b002-4e6f-8d52-fb23c32b78c1"], -Cell[494707, 11028, 71, 0, 181, "Output",ExpressionUUID->"98a5d1ee-e995-4639-bbc4-bd6d77881181"] +Cell[43527, 1567, 70, 0, 71, "Input",ExpressionUUID->"ce2413ff-e1c9-412f-8c1c-20f5155a8e4e"], +Cell[43600, 1569, 71, 0, 138, "Output",ExpressionUUID->"970b6b46-2fe0-42a5-8a2d-e2d76a8db9e5"] }, Open ]], -Cell[494793, 11031, 70, 0, 71, "Input",ExpressionUUID->"bc0af480-becb-4018-91b2-4b617fc7951b"], Cell[CellGroupData[{ -Cell[494888, 11035, 70, 0, 24, "Input",ExpressionUUID->"95c86e97-8f9e-443d-9865-56bdfa44d83f"], -Cell[494961, 11037, 71, 0, 44, "Output",ExpressionUUID->"17bd4976-b52d-4a43-bc56-a2b4287abf15"] +Cell[43708, 1574, 70, 0, 59, "Input",ExpressionUUID->"a2b6993a-026b-4527-b432-66adf3e82a38"], +Cell[43781, 1576, 71, 0, 184, "Output",ExpressionUUID->"bf2495ed-92b4-47e0-8f49-b2172527f2d1"] }, Open ]], -Cell[495047, 11040, 70, 0, 71, "Input",ExpressionUUID->"b7a26664-ada5-4185-8605-763a66cf493c"], Cell[CellGroupData[{ -Cell[495142, 11044, 70, 0, 24, "Input",ExpressionUUID->"07a06295-0c86-4571-862c-1b79355e2e42"], -Cell[495215, 11046, 71, 0, 44, "Output",ExpressionUUID->"fb1cb8fb-b198-4921-a417-479e3cab8113"] +Cell[43889, 1581, 70, 0, 75, "Input",ExpressionUUID->"3dce5e91-87e2-45b3-8a1a-d6f943dd975c"], +Cell[43962, 1583, 71, 0, 180, "Output",ExpressionUUID->"69a06601-7d40-4a49-9c86-e61321248df8"] }, Open ]], -Cell[495301, 11049, 70, 0, 71, "Input",ExpressionUUID->"5bb748f9-2e46-4b60-9377-5e64bea9f5ab"], +Cell[44048, 1586, 70, 0, 55, "Input",ExpressionUUID->"8e15ee6e-f796-4feb-a19d-45aa418925bc"], Cell[CellGroupData[{ -Cell[495396, 11053, 70, 0, 24, "Input",ExpressionUUID->"bfcc2298-9520-4e3e-81e5-091982c2dfa8"], -Cell[495469, 11055, 71, 0, 25, "Output",ExpressionUUID->"6ac2fbf2-0ee6-4a56-ab59-573c5f2f4b87"] +Cell[44143, 1590, 70, 0, 22, "Input",ExpressionUUID->"01559a7f-0832-4186-9a48-6dc2654c35f7"], +Cell[44216, 1592, 71, 0, 42, "Output",ExpressionUUID->"c8019c92-12bd-4aec-9d81-dd12103214c5"] }, Open ]], Cell[CellGroupData[{ -Cell[495577, 11060, 70, 0, 22, "Input",ExpressionUUID->"511516ea-bd01-44e3-8941-68151b4f12b2"], -Cell[495650, 11062, 71, 0, 25, "Output",ExpressionUUID->"45204ae8-353a-4794-8699-1021cd2f52f1"] +Cell[44324, 1597, 70, 0, 71, "Input",ExpressionUUID->"64934bdb-d7a0-4854-b9ce-237aaf977e8a"], +Cell[44397, 1599, 71, 0, 138, "Output",ExpressionUUID->"838b5db2-c5d6-4d60-a8cd-e5d80ea3cacb"] }, Open ]], Cell[CellGroupData[{ -Cell[495758, 11067, 70, 0, 22, "Input",ExpressionUUID->"d2bab649-d2f0-49c7-b517-0f8671e732d6"], -Cell[495831, 11069, 71, 0, 25, "Output",ExpressionUUID->"21d0fb37-d7d5-4a4a-9ced-77dce269bbfd"] +Cell[44505, 1604, 70, 0, 141, "Input",ExpressionUUID->"c75788e5-2d5f-4b60-a9a3-c8ab1e900ca6"], +Cell[44578, 1606, 71, 0, 138, "Output",ExpressionUUID->"b026bd64-4322-4d3d-bd25-24c6f375d92e"] }, Open ]], +Cell[44664, 1609, 70, 0, 55, "Input",ExpressionUUID->"8712ec7d-4853-4834-9148-2e0b87e145f3"], Cell[CellGroupData[{ -Cell[495939, 11074, 70, 0, 22, "Input",ExpressionUUID->"9c6e13b7-3832-44aa-8ebe-5eca02c1336e"], -Cell[496012, 11076, 71, 0, 25, "Output",ExpressionUUID->"22a354d9-1544-427a-8c87-f3ecd868bed8"] +Cell[44759, 1613, 70, 0, 22, "Input",ExpressionUUID->"357d2920-878c-453b-80a5-70ba292a5ae8"], +Cell[44832, 1615, 72, 0, 46, "Message",ExpressionUUID->"47f7f2c3-b7e2-4a94-b6cf-25d9f0fa600f"], +Cell[44907, 1617, 71, 0, 58, "Output",ExpressionUUID->"9a6912d5-608a-4795-8a0e-d54603e47fad"] }, Open ]], Cell[CellGroupData[{ -Cell[496120, 11081, 70, 0, 246, "Input",ExpressionUUID->"7f8fd216-7b8a-4b9a-884b-ead2a99859a2"], -Cell[496193, 11083, 71, 0, 170, "Output",ExpressionUUID->"807367f2-a9ad-4b30-bbc1-1b4867e4aa48"] +Cell[45015, 1622, 70, 0, 71, "Input",ExpressionUUID->"5f25fdb0-021a-4328-9d95-e2f4257a4ed7"], +Cell[45088, 1624, 71, 0, 138, "Output",ExpressionUUID->"bf5ad568-a673-4464-9f2c-8e5d79bac130"] }, Open ]], +Cell[45174, 1627, 70, 0, 55, "Input",ExpressionUUID->"52fb4777-4c7f-45e8-ac9f-46d51d41be30"], Cell[CellGroupData[{ -Cell[496301, 11088, 70, 0, 24, "Input",ExpressionUUID->"03ac9924-da39-48d4-9ae4-52f15502e050"], -Cell[496374, 11090, 71, 0, 25, "Output",ExpressionUUID->"87770eb8-8821-46dd-ac7b-46ad45617bdf"] +Cell[45269, 1631, 70, 0, 22, "Input",ExpressionUUID->"0d730e0c-0cc6-4c7f-8384-7f3287a69ea5"], +Cell[45342, 1633, 72, 0, 22, "Message",ExpressionUUID->"e6302471-fb4c-458d-8ff0-f2052addc5e7"], +Cell[45417, 1635, 71, 0, 79, "Output",ExpressionUUID->"795c441e-9e36-4982-b06f-02572be8c468"] }, Open ]], Cell[CellGroupData[{ -Cell[496482, 11095, 70, 0, 22, "Input",ExpressionUUID->"f8907a27-9264-4d86-91e8-8f88597032d7"], -Cell[496555, 11097, 71, 0, 25, "Output",ExpressionUUID->"0d8ea761-c72e-4ef8-b5b3-a30d1c1b3dc4"] +Cell[45525, 1640, 70, 0, 71, "Input",ExpressionUUID->"19ffcc93-81a4-4442-9f7d-bb0a91076a83"], +Cell[45598, 1642, 71, 0, 136, "Output",ExpressionUUID->"7c3bf3fe-4257-44f9-b31f-df5fc8e0a8f6"] }, Open ]], Cell[CellGroupData[{ -Cell[496663, 11102, 70, 0, 22, "Input",ExpressionUUID->"14464e07-8c6d-468d-b2ba-bf425beab7f2"], -Cell[496736, 11104, 71, 0, 25, "Output",ExpressionUUID->"19ec2d02-c81e-4e6a-a56b-a9c11bcbce0c"] +Cell[45706, 1647, 70, 0, 22, "Input",ExpressionUUID->"d27188da-dbec-4862-897d-c79d508f5a06"], +Cell[45779, 1649, 71, 0, 178, "Output",ExpressionUUID->"d3aaacc3-94cd-4f94-b8d3-6f97ce80a7dd"] }, Open ]], +Cell[45865, 1652, 70, 0, 55, "Input",ExpressionUUID->"a7c34ad4-8a20-4d4c-a312-b4abf43e7b84"], Cell[CellGroupData[{ -Cell[496844, 11109, 70, 0, 22, "Input",ExpressionUUID->"0e679d2a-91fe-422e-be1e-aaae26faa51d"], -Cell[496917, 11111, 71, 0, 25, "Output",ExpressionUUID->"546302c6-8a5c-42e6-96c6-7b6b2418f377"] +Cell[45960, 1656, 70, 0, 24, "Input",ExpressionUUID->"f952decb-8392-4bd9-9ca8-68fa98ba4ea0"], +Cell[46033, 1658, 72, 0, 34, "Message",ExpressionUUID->"3f58991c-8f32-42f0-910b-caff5ed428b4"], +Cell[46108, 1660, 71, 0, 76, "Output",ExpressionUUID->"58221ff1-4525-46a7-bdae-792c93f49938"] }, Open ]], Cell[CellGroupData[{ -Cell[497025, 11116, 70, 0, 24, "Input",ExpressionUUID->"c14d1a02-c833-401a-8c13-5e0d4c5eedde"], -Cell[497098, 11118, 71, 0, 25, "Output",ExpressionUUID->"81a1abe7-f5bc-4b0a-8df6-94f7cdcf806e"] +Cell[46216, 1665, 70, 0, 71, "Input",ExpressionUUID->"438a08cf-d91e-4ffb-89f2-a823831c337f"], +Cell[46289, 1667, 71, 0, 136, "Output",ExpressionUUID->"31bd7638-0b3f-414d-858a-3740b7c9aa3d"] }, Open ]], -Cell[497184, 11121, 70, 0, 22, "Input",ExpressionUUID->"443e678e-b73d-44eb-9051-93d8f0b286fa"], Cell[CellGroupData[{ -Cell[497279, 11125, 70, 0, 22, "Input",ExpressionUUID->"6430dd00-07f2-4336-8792-3cd2455e5bf3"], -Cell[497352, 11127, 71, 0, 25, "Output",ExpressionUUID->"09a933ce-8388-4765-beb0-61d5cc751db1"] +Cell[46397, 1672, 70, 0, 55, "Input",ExpressionUUID->"3ca9ff01-d810-4f3b-a0e5-4853c773e631"], +Cell[46470, 1674, 71, 0, 178, "Output",ExpressionUUID->"bf148fd8-9693-4be5-8c41-6d1aeb3bcdce"] }, Open ]], Cell[CellGroupData[{ -Cell[497460, 11132, 70, 0, 24, "Input",ExpressionUUID->"45ac9141-9464-42fd-83c7-33e1eaee2423"], -Cell[497533, 11134, 71, 0, 25, "Output",ExpressionUUID->"65593926-565e-4cf2-bfb8-1244b4fe2f5a"] +Cell[46578, 1679, 70, 0, 22, "Input",ExpressionUUID->"5676beb4-7e67-4262-a1a9-8649d66fc608"], +Cell[46651, 1681, 71, 0, 25, "Output",ExpressionUUID->"4fbceaf0-ac98-4d89-a81b-49f54b7e80b3"] }, Open ]], Cell[CellGroupData[{ -Cell[497641, 11139, 70, 0, 71, "Input",ExpressionUUID->"f9103426-e57d-41de-bc33-9092d98a1912"], -Cell[497714, 11141, 71, 0, 183, "Output",ExpressionUUID->"1cd46633-edd7-4183-a567-b154605f473c"] +Cell[46759, 1686, 70, 0, 22, "Input",ExpressionUUID->"a47e563a-1a70-40e7-b94e-e6dec72f2217"], +Cell[46832, 1688, 71, 0, 51, "Output",ExpressionUUID->"75bbd4ee-6c89-47ad-8378-521f9f78d95c"] }, Open ]], -Cell[497800, 11144, 70, 0, 22, "Input",ExpressionUUID->"1492dec3-1fb8-4180-9817-ee3849924de6"], Cell[CellGroupData[{ -Cell[497895, 11148, 70, 0, 24, "Input",ExpressionUUID->"12e71d93-1674-4c7c-bf6d-cf32f64b5b27"], -Cell[497968, 11150, 71, 0, 25, "Output",ExpressionUUID->"9d4e0ff1-bf10-45e1-9404-5a6532922a19"] +Cell[46940, 1693, 70, 0, 59, "Input",ExpressionUUID->"db5b7fcd-757d-45ac-b959-eb92b6428ee8"], +Cell[47013, 1695, 71, 0, 77, "Output",ExpressionUUID->"66904aad-235c-4592-a25c-527242bad8da"] }, Open ]], Cell[CellGroupData[{ -Cell[498076, 11155, 70, 0, 75, "Input",ExpressionUUID->"148416db-27a0-4bef-b391-5efd6311252f"], -Cell[498149, 11157, 71, 0, 25, "Output",ExpressionUUID->"121ebf81-c91d-48a6-ac44-e859f334c670"] +Cell[47121, 1700, 70, 0, 63, "Input",ExpressionUUID->"4f34a001-11c8-46a5-bab7-43816510fc29"], +Cell[47194, 1702, 72, 0, 22, "Message",ExpressionUUID->"8c252e0f-ebf9-40a0-a65e-5752171a35d8"], +Cell[47269, 1704, 72, 0, 22, "Message",ExpressionUUID->"a000d915-f8c7-4ce4-a811-545a415e24fc"], +Cell[47344, 1706, 72, 0, 22, "Message",ExpressionUUID->"7dde968f-6bef-4b0b-81b3-e52e357f62e2"], +Cell[47419, 1708, 72, 0, 22, "Message",ExpressionUUID->"5f0d7aa7-3d28-4e00-82d5-76ffcee4bd01"] }, Open ]], Cell[CellGroupData[{ -Cell[498257, 11162, 70, 0, 37, "Input",ExpressionUUID->"8e8db3b9-2812-4935-bee8-db8da418d7fa"], -Cell[498330, 11164, 71, 0, 25, "Output",ExpressionUUID->"6b740e62-0e16-4113-af36-c654ab81e160"] +Cell[47528, 1713, 70, 0, 24, "Input",ExpressionUUID->"dee3cd3e-84f4-4b73-b470-f1b7c0baa7b5"], +Cell[47601, 1715, 71, 0, 182, "Output",ExpressionUUID->"18c3e4eb-9e95-422a-b0da-36edbb287ee5"] }, Open ]], +Cell[47687, 1718, 70, 0, 109, "Input",ExpressionUUID->"c9f0635b-0df0-48ed-8c29-17f301861517"], Cell[CellGroupData[{ -Cell[498438, 11169, 70, 0, 24, "Input",ExpressionUUID->"efd88356-0b5e-4a48-86f0-fcc10c921966"], -Cell[498511, 11171, 71, 0, 27, "Output",ExpressionUUID->"844c1ef2-278f-41b9-b3b0-2c85fb0a0a66"] +Cell[47782, 1722, 70, 0, 126, "Input",ExpressionUUID->"437d5765-89f4-444f-abba-e04ffe26d7c9"], +Cell[47855, 1724, 72, 0, 32, "Message",ExpressionUUID->"4c823020-6c4e-407e-8fb9-5a5ec9a49385"], +Cell[47930, 1726, 72, 0, 22, "Message",ExpressionUUID->"0f4aaf4c-9dbc-427f-9089-e02cb3abcf77"], +Cell[48005, 1728, 72, 0, 32, "Message",ExpressionUUID->"8c578de3-6085-49cf-8cf6-84361c2d8524"], +Cell[48080, 1730, 72, 0, 32, "Message",ExpressionUUID->"42ea315f-3868-4b6f-b2f8-24cbc5f4dc34"], +Cell[48155, 1732, 72, 0, 22, "Message",ExpressionUUID->"2ab5fd83-7455-458e-b91b-0d9ee7745efa"], +Cell[48230, 1734, 72, 0, 22, "Message",ExpressionUUID->"3d85a17e-b682-4c90-bcb8-f3301535254d"], +Cell[48305, 1736, 72, 0, 22, "Message",ExpressionUUID->"55552e47-2019-4e0e-94ac-22ab0b441801"], +Cell[48380, 1738, 72, 0, 22, "Message",ExpressionUUID->"760654c4-f428-4c74-891f-ff2a37b6b853"] }, Open ]], Cell[CellGroupData[{ -Cell[498619, 11176, 70, 0, 22, "Input",ExpressionUUID->"16535e55-0968-43b4-a202-3bb6d4ca811d"], -Cell[498692, 11178, 71, 0, 25, "Output",ExpressionUUID->"e17a1817-c7c2-43e2-8085-466fb38900a8"] +Cell[48489, 1743, 70, 0, 22, "Input",ExpressionUUID->"cf8328a2-2e41-4543-bbcc-55e75f60d95a"], +Cell[48562, 1745, 71, 0, 305, "Output",ExpressionUUID->"5407ac23-3194-49ee-8010-3f88ab93d531"] }, Open ]], Cell[CellGroupData[{ -Cell[498800, 11183, 70, 0, 39, "Input",ExpressionUUID->"9035fdc5-d96d-4664-88f1-108a471ce989"], -Cell[498873, 11185, 71, 0, 25, "Output",ExpressionUUID->"8c4ef7e5-0795-4413-8d94-ce34403a2bfe"] +Cell[48670, 1750, 70, 0, 76, "Input",ExpressionUUID->"86ced1f4-0a54-4999-959e-d79bc814f759"], +Cell[48743, 1752, 71, 0, 352, "Output",ExpressionUUID->"93bab345-098c-4ca7-852a-335a5cd0dcf6"] }, Open ]], Cell[CellGroupData[{ -Cell[498981, 11190, 70, 0, 58, "Input",ExpressionUUID->"4ab64f8c-2ace-4772-81bb-2767e4e50a60"], -Cell[499054, 11192, 71, 0, 171, "Output",ExpressionUUID->"6c015ea5-88ab-40d1-b8de-ac5367757b6f"] +Cell[48851, 1757, 70, 0, 24, "Input",ExpressionUUID->"856a5f4c-223c-4aea-beeb-3fbd1534589f"], +Cell[48924, 1759, 71, 0, 25, "Output",ExpressionUUID->"e28c565e-2a35-4030-81ec-c70369667adb"] }, Open ]], -Cell[499140, 11195, 70, 0, 55, "Input",ExpressionUUID->"4a84aff2-f5a6-40f1-9cb1-04d7aa37c80c"], Cell[CellGroupData[{ -Cell[499235, 11199, 70, 0, 22, "Input",ExpressionUUID->"e3b60dd0-3eed-416f-a520-157d341b3b6b"], -Cell[499308, 11201, 72, 0, 22, "Message",ExpressionUUID->"bc8c1031-cd04-4bea-914c-bd471d8b24bf"], -Cell[499383, 11203, 71, 0, 25, "Output",ExpressionUUID->"3a73d7d8-6f0f-43ad-9460-eba9b1dcd3ac"] +Cell[49032, 1764, 70, 0, 24, "Input",ExpressionUUID->"a052bc09-b1cf-4937-8c90-bdb0978ae5fb"], +Cell[49105, 1766, 71, 0, 179, "Output",ExpressionUUID->"27ad9b7a-bb2e-42b7-9b85-f4860d194c8a"] }, Open ]], +Cell[49191, 1769, 70, 0, 75, "Input",ExpressionUUID->"bc95d58f-92c7-4786-bf70-93a6a30e7d08"], Cell[CellGroupData[{ -Cell[499491, 11208, 70, 0, 71, "Input",ExpressionUUID->"c601cd58-c3f4-497d-bcb0-a1a424f26846"], -Cell[499564, 11210, 71, 0, 137, "Output",ExpressionUUID->"d69c4b09-19ca-4566-8ddd-1970295387be"] +Cell[49286, 1773, 70, 0, 24, "Input",ExpressionUUID->"b99c27c3-28f4-463a-bbd4-0d707f24ede5"], +Cell[49359, 1775, 71, 0, 178, "Output",ExpressionUUID->"dbb1ea27-23d8-498f-9931-237735b90888"] }, Open ]], +Cell[49445, 1778, 70, 0, 109, "Input",ExpressionUUID->"e125971c-79d1-4a87-ab30-82edcc7a11b6"], Cell[CellGroupData[{ -Cell[499672, 11215, 70, 0, 24, "Input",ExpressionUUID->"b16a3a8e-59d1-4a82-8bef-8bea0da6d1e1"], -Cell[499745, 11217, 71, 0, 180, "Output",ExpressionUUID->"01b037f0-285f-40fc-9f42-223315bc424a"] +Cell[49540, 1782, 70, 0, 24, "Input",ExpressionUUID->"da2bc76c-d02b-4910-a9ef-13df31a8a85d"], +Cell[49613, 1784, 71, 0, 180, "Output",ExpressionUUID->"3379bb53-2814-44a6-8d6d-c6bf9ff90130"] }, Open ]], +Cell[49699, 1787, 70, 0, 55, "Input",ExpressionUUID->"0ff99b46-5b6d-4857-b18e-faa48625e0b2"], Cell[CellGroupData[{ -Cell[499853, 11222, 70, 0, 24, "Input",ExpressionUUID->"08f508bf-0984-4685-b36b-09bedad9c23d"], -Cell[499926, 11224, 71, 0, 180, "Output",ExpressionUUID->"e9dc8c3c-e0b4-4b4d-bf05-f32ff1248f66"] +Cell[49794, 1791, 70, 0, 22, "Input",ExpressionUUID->"70a7e635-ea68-4ab2-b208-3f27f1f18773"], +Cell[49867, 1793, 71, 0, 25, "Output",ExpressionUUID->"ff4ef488-7509-4a22-b38b-3e5ee979dfec"] }, Open ]], Cell[CellGroupData[{ -Cell[500034, 11229, 70, 0, 39, "Input",ExpressionUUID->"77af0627-0460-481b-9313-f51b13e56b82"], -Cell[500107, 11231, 71, 0, 27, "Output",ExpressionUUID->"7b6a0c85-7cdb-40cf-bdb7-8dfeb3bcafc5"] +Cell[49975, 1798, 70, 0, 71, "Input",ExpressionUUID->"e7efdffa-c82b-4b24-afeb-7b606e3a56b6"], +Cell[50048, 1800, 71, 0, 136, "Output",ExpressionUUID->"ea054bf8-969f-415b-abfb-ad7f9b45bd69"] }, Open ]], +Cell[50134, 1803, 70, 0, 55, "Input",ExpressionUUID->"376c00c5-9f33-4e41-9b82-73d25dddfb86"], Cell[CellGroupData[{ -Cell[500215, 11236, 70, 0, 75, "Input",ExpressionUUID->"96041283-ca41-4bec-a851-fc958143074f"], -Cell[500288, 11238, 71, 0, 138, "Output",ExpressionUUID->"349ef79c-2101-4c31-9834-fd73aa857377"] +Cell[50229, 1807, 70, 0, 22, "Input",ExpressionUUID->"51dc3d02-9fb1-45c0-a232-766e908af724"], +Cell[50302, 1809, 71, 0, 25, "Output",ExpressionUUID->"37d0c2a2-52d2-4d89-8972-8e422f0e5216"] }, Open ]], Cell[CellGroupData[{ -Cell[500396, 11243, 70, 0, 57, "Input",ExpressionUUID->"40271ee7-6593-46be-9bda-2a54c3f1dd65"], -Cell[500469, 11245, 71, 0, 181, "Output",ExpressionUUID->"81aecfb3-e449-466d-a876-7f92452f32c6"] +Cell[50410, 1814, 70, 0, 71, "Input",ExpressionUUID->"b0ed41fc-0793-4607-b285-69dc836fbc46"], +Cell[50483, 1816, 71, 0, 135, "Output",ExpressionUUID->"1a124bff-ae77-4eae-9842-4ec08b7c4be7"] }, Open ]], -Cell[500555, 11248, 70, 0, 55, "Input",ExpressionUUID->"a2ac1df1-ca7c-4dba-a905-59be755b5495"], +Cell[50569, 1819, 70, 0, 55, "Input",ExpressionUUID->"ce3d50ae-7830-43f7-9e8b-ff1617bdfce1"], Cell[CellGroupData[{ -Cell[500650, 11252, 70, 0, 24, "Input",ExpressionUUID->"547cbf46-e936-4848-a00e-8a18f43b0b97"], -Cell[500723, 11254, 72, 0, 22, "Message",ExpressionUUID->"ac9d6d47-c1cf-492c-84b6-9f2bc21eab82"], -Cell[500798, 11256, 71, 0, 44, "Output",ExpressionUUID->"5f76cc71-8024-44a5-9beb-db4c8d4fca3f"] +Cell[50664, 1823, 70, 0, 57, "Input",ExpressionUUID->"1d5c2fc0-e8df-4896-8045-0fde59533d77"], +Cell[50737, 1825, 71, 0, 44, "Output",ExpressionUUID->"2c63f7bd-1cf3-4607-b707-7a6b95e64ad2"] }, Open ]], Cell[CellGroupData[{ -Cell[500906, 11261, 70, 0, 71, "Input",ExpressionUUID->"70c9edfe-5ecc-4c90-9b48-c65dc7b840da"], -Cell[500979, 11263, 71, 0, 138, "Output",ExpressionUUID->"cca07006-2f3d-4d0d-afc1-9a034924d973"] +Cell[50845, 1830, 70, 0, 71, "Input",ExpressionUUID->"e9f77ee6-ddde-4089-a778-5ece4a57f773"], +Cell[50918, 1832, 71, 0, 136, "Output",ExpressionUUID->"a47f9b99-a5ed-4171-b8a9-afdc15370d19"] }, Open ]], +Cell[51004, 1835, 70, 0, 55, "Input",ExpressionUUID->"c66d9b43-8912-4776-8df9-4b82e92385a2"], Cell[CellGroupData[{ -Cell[501087, 11268, 70, 0, 59, "Input",ExpressionUUID->"9ebbad1f-a858-494b-8020-0b77877c4741"], -Cell[501160, 11270, 71, 0, 184, "Output",ExpressionUUID->"4879f7d0-5190-464a-90dc-66903db3e0c9"] +Cell[51099, 1839, 70, 0, 57, "Input",ExpressionUUID->"d3511a9b-2734-4512-8448-59796db57c80"], +Cell[51172, 1841, 71, 0, 44, "Output",ExpressionUUID->"02bbcf9e-2ac0-4d1f-8fa5-b00695e27836"] }, Open ]], Cell[CellGroupData[{ -Cell[501268, 11275, 70, 0, 75, "Input",ExpressionUUID->"5886d572-3cda-4845-a6ab-fded69b22491"], -Cell[501341, 11277, 71, 0, 180, "Output",ExpressionUUID->"4a243cf5-91fd-4307-a4d9-f5501990c8ee"] +Cell[51280, 1846, 70, 0, 71, "Input",ExpressionUUID->"59b991fc-3c45-48aa-9268-cff7572aa8c6"], +Cell[51353, 1848, 71, 0, 136, "Output",ExpressionUUID->"b20c1ede-027a-4011-ba6a-a217ceecc8e8"] }, Open ]], -Cell[501427, 11280, 70, 0, 55, "Input",ExpressionUUID->"efeb4a44-1bdb-4041-9cde-f40d4f7e6804"], +Cell[51439, 1851, 70, 0, 55, "Input",ExpressionUUID->"3597eaa7-3139-4518-bbfe-df34271dde2a"], Cell[CellGroupData[{ -Cell[501522, 11284, 70, 0, 22, "Input",ExpressionUUID->"c6de27eb-5bc8-45db-9b60-29e5e97b710a"], -Cell[501595, 11286, 71, 0, 25, "Output",ExpressionUUID->"bbfdc74b-827c-4766-bc1e-fd9dc14d6024"] +Cell[51534, 1855, 70, 0, 57, "Input",ExpressionUUID->"77c87cdf-033d-4185-b49d-b5d681d7f0f9"], +Cell[51607, 1857, 71, 0, 44, "Output",ExpressionUUID->"78a71b8d-3942-4850-b5d4-5a45d3517416"] }, Open ]], Cell[CellGroupData[{ -Cell[501703, 11291, 70, 0, 71, "Input",ExpressionUUID->"6ac9e8b3-9bd4-4acb-8cb9-ff723572dba3"], -Cell[501776, 11293, 71, 0, 138, "Output",ExpressionUUID->"908d155a-de6a-4d16-8701-26bdc229b1cd"] +Cell[51715, 1862, 70, 0, 71, "Input",ExpressionUUID->"b37e4fd1-1edc-4db8-a29a-c5c0b1ee2464"], +Cell[51788, 1864, 71, 0, 134, "Output",ExpressionUUID->"951d7a74-9aa0-40b2-8c7e-afd33547bd6f"] }, Open ]], +Cell[51874, 1867, 70, 0, 55, "Input",ExpressionUUID->"fc9769af-3482-4891-854c-c4f69b3e7ab2"], Cell[CellGroupData[{ -Cell[501884, 11298, 70, 0, 75, "Input",ExpressionUUID->"4f78fb08-6a38-4557-9e90-92c768da5ece"], -Cell[501957, 11300, 71, 0, 138, "Output",ExpressionUUID->"afe60a00-9560-4f44-9b86-68cede075c99"] +Cell[51969, 1871, 70, 0, 73, "Input",ExpressionUUID->"b726930b-8825-4fc1-bdd4-f13327dfafcc"], +Cell[52042, 1873, 71, 0, 42, "Output",ExpressionUUID->"dcc85e39-87fd-4c7a-adc2-f6dbe9ac4f86"] }, Open ]], -Cell[502043, 11303, 70, 0, 55, "Input",ExpressionUUID->"497f772a-bb61-4620-8207-2e6f226bcf84"], Cell[CellGroupData[{ -Cell[502138, 11307, 70, 0, 22, "Input",ExpressionUUID->"a9845f9a-4a88-4510-a8da-8ae527fe7af5"], -Cell[502211, 11309, 72, 0, 22, "Message",ExpressionUUID->"be0f7494-f3d0-4cea-a8fa-faa16715d971"], -Cell[502286, 11311, 71, 0, 25, "Output",ExpressionUUID->"1687f408-b88f-4c1f-89ab-7a85b56b321d"] +Cell[52150, 1878, 70, 0, 71, "Input",ExpressionUUID->"3d6268b9-9dcd-4abd-a190-2d411c0f9ac5"], +Cell[52223, 1880, 71, 0, 136, "Output",ExpressionUUID->"b95a5d46-00d9-454a-bdbb-7b373fb54a04"] }, Open ]], +Cell[52309, 1883, 70, 0, 55, "Input",ExpressionUUID->"75d213ac-5b7e-4a17-b0e6-82481e033952"], Cell[CellGroupData[{ -Cell[502394, 11316, 70, 0, 71, "Input",ExpressionUUID->"134b85f6-1e18-4ab5-8d8e-ba4de448deba"], -Cell[502467, 11318, 71, 0, 138, "Output",ExpressionUUID->"56035f9d-204f-4262-abd6-2e809bcdbfe4"] +Cell[52404, 1887, 70, 0, 89, "Input",ExpressionUUID->"402a64a2-7215-43ff-afb2-5ffdb07699eb"], +Cell[52477, 1889, 71, 0, 25, "Output",ExpressionUUID->"84187abd-3a8b-42cd-8388-c4431767b6fc"] }, Open ]], -Cell[502553, 11321, 70, 0, 55, "Input",ExpressionUUID->"bac4ba3c-9772-4eea-a624-7b3a59f3702b"], Cell[CellGroupData[{ -Cell[502648, 11325, 70, 0, 22, "Input",ExpressionUUID->"f47caa85-ccf3-4491-9432-418c399b1f82"], -Cell[502721, 11327, 72, 0, 22, "Message",ExpressionUUID->"9793dec7-95eb-44d1-a04d-8dd81fe1078b"], -Cell[502796, 11329, 71, 0, 79, "Output",ExpressionUUID->"844f838b-f9c8-4af5-b6eb-c9a9f0a7d9c4"] +Cell[52585, 1894, 70, 0, 71, "Input",ExpressionUUID->"855b658f-9a32-44de-bcab-f191fa636709"], +Cell[52658, 1896, 71, 0, 133, "Output",ExpressionUUID->"c2f9aac7-afc1-4b9d-9453-1a00347fcbe9"] }, Open ]], Cell[CellGroupData[{ -Cell[502904, 11334, 70, 0, 71, "Input",ExpressionUUID->"739ac51d-0a03-4b17-bfdc-8d68f35f0c23"], -Cell[502977, 11336, 71, 0, 136, "Output",ExpressionUUID->"fceea5d2-3003-4233-bc07-cd744e2cca6c"] +Cell[52766, 1901, 70, 0, 22, "Input",ExpressionUUID->"72c66ca0-a15a-4276-8266-9702097608f9"], +Cell[52839, 1903, 71, 0, 177, "Output",ExpressionUUID->"c22b79eb-939c-44d3-832b-d02d2b74f6d7"] }, Open ]], Cell[CellGroupData[{ -Cell[503085, 11341, 70, 0, 22, "Input",ExpressionUUID->"9776016b-07ba-464f-8f7c-19871343d900"], -Cell[503158, 11343, 71, 0, 178, "Output",ExpressionUUID->"c0233763-1810-4ebb-a219-a6b546ddaa9b"] +Cell[52947, 1908, 70, 0, 63, "Input",ExpressionUUID->"fe1d3062-e3cb-440f-8b39-b4206ce88f50"], +Cell[53020, 1910, 72, 0, 22, "Message",ExpressionUUID->"a8cdbd70-b1ae-4bac-b3e9-4a3a33f415b4"], +Cell[53095, 1912, 72, 0, 22, "Message",ExpressionUUID->"3a00a43c-0975-4a69-8a45-f6d37256351e"], +Cell[53170, 1914, 72, 0, 22, "Message",ExpressionUUID->"490c70b7-6d80-4544-ad78-0bdf86f8cf57"], +Cell[53245, 1916, 72, 0, 22, "Message",ExpressionUUID->"a33d77be-ae6e-4ad0-bc43-7822886c2702"] }, Open ]], -Cell[503244, 11346, 70, 0, 55, "Input",ExpressionUUID->"359460c4-cd9c-4fdd-b45a-cc6976e4f354"], +Cell[53332, 1919, 70, 0, 75, "Input",ExpressionUUID->"4a1ef349-9985-4fd3-a4ef-904651cf68ac"], +Cell[53405, 1921, 70, 0, 109, "Input",ExpressionUUID->"50c02bdb-5ed2-40ab-ba77-b26952532ed9"], +Cell[53478, 1923, 70, 0, 126, "Input",ExpressionUUID->"3f2d1ac4-1ccc-46f3-b1c3-9e780be42bfd"], Cell[CellGroupData[{ -Cell[503339, 11350, 70, 0, 24, "Input",ExpressionUUID->"c143c3b7-2214-4be6-9324-4865d07dfda5"], -Cell[503412, 11352, 72, 0, 22, "Message",ExpressionUUID->"6e22977f-ac51-4420-89c6-e8701b475ca4"], -Cell[503487, 11354, 71, 0, 44, "Output",ExpressionUUID->"18ecae2f-ac15-4aa5-a248-883a3f54920d"] +Cell[53573, 1927, 70, 0, 24, "Input",ExpressionUUID->"7fb890bc-1064-4d99-b6f5-6ecab88b82da"], +Cell[53646, 1929, 71, 0, 182, "Output",ExpressionUUID->"f209a90a-6414-4c82-b1ac-a415e04bb40b"] }, Open ]], Cell[CellGroupData[{ -Cell[503595, 11359, 70, 0, 71, "Input",ExpressionUUID->"86e16904-5038-4aa6-98f1-82398df6a0bf"], -Cell[503668, 11361, 71, 0, 136, "Output",ExpressionUUID->"39284aca-f6b5-4edc-87a0-4cedee932918"] +Cell[53754, 1934, 70, 0, 24, "Input",ExpressionUUID->"2241f538-313e-49d3-adfa-ce7a1941836a"], +Cell[53827, 1936, 71, 0, 178, "Output",ExpressionUUID->"e60c6984-4395-45c5-bdea-cc5d8603b5ea"] }, Open ]], Cell[CellGroupData[{ -Cell[503776, 11366, 70, 0, 22, "Input",ExpressionUUID->"8ab3500c-ebcf-48ec-a5d1-e12a122a7a99"], -Cell[503849, 11368, 71, 0, 178, "Output",ExpressionUUID->"db8b6b35-0df5-4e80-930c-0e8351717f50"] +Cell[53935, 1941, 70, 0, 24, "Input",ExpressionUUID->"72447e76-665c-4e50-939a-7de5c0764602"], +Cell[54008, 1943, 71, 0, 179, "Output",ExpressionUUID->"c1192d4e-ddba-4b86-80cd-25d21e620f98"] }, Open ]], +Cell[54094, 1946, 70, 0, 55, "Input",ExpressionUUID->"cebc93a0-79b0-4da8-98e0-dac61dd498b9"], Cell[CellGroupData[{ -Cell[503957, 11373, 70, 0, 22, "Input",ExpressionUUID->"e89bd1c1-249f-41b0-905c-be326bc141ab"], -Cell[504030, 11375, 71, 0, 25, "Output",ExpressionUUID->"dd1596d9-c6ab-4180-b003-7f24556d206b"] +Cell[54189, 1950, 70, 0, 57, "Input",ExpressionUUID->"599c1193-9a9a-4e09-bef2-d12c1f4a1969"], +Cell[54262, 1952, 72, 0, 34, "Message",ExpressionUUID->"11e2554d-75ea-4c0a-9448-8bfb332a62f3"], +Cell[54337, 1954, 71, 0, 44, "Output",ExpressionUUID->"6b1f6bb2-0a9c-4b87-aa00-e784a50c66dc"] }, Open ]], Cell[CellGroupData[{ -Cell[504138, 11380, 70, 0, 22, "Input",ExpressionUUID->"d1a7862e-f18b-4c80-8d5a-e634a9689bef"], -Cell[504211, 11382, 71, 0, 51, "Output",ExpressionUUID->"8c4f4718-698f-458a-bc05-70e9c5d982c6"] +Cell[54445, 1959, 70, 0, 71, "Input",ExpressionUUID->"61a36220-5b85-4beb-bbe5-4d4a78e82a94"], +Cell[54518, 1961, 71, 0, 135, "Output",ExpressionUUID->"b177731d-7523-4738-97e5-0fab244202d6"] }, Open ]], Cell[CellGroupData[{ -Cell[504319, 11387, 70, 0, 24, "Input",ExpressionUUID->"dc4b3578-5cd8-4e1b-947d-8e9c1354adba"], -Cell[504392, 11389, 71, 0, 77, "Output",ExpressionUUID->"a15a0a15-e7c0-49b4-9e01-a59bb994d72f"] +Cell[54626, 1966, 70, 0, 22, "Input",ExpressionUUID->"bfc95959-ad22-467f-8b96-2c1c826f5655"], +Cell[54699, 1968, 71, 0, 177, "Output",ExpressionUUID->"4bc2cbcd-5582-4860-bb36-8c588aa6b1b0"] }, Open ]], +Cell[54785, 1971, 70, 0, 55, "Input",ExpressionUUID->"4e2d6149-b3b3-4123-babc-92a2df998316"], Cell[CellGroupData[{ -Cell[504500, 11394, 70, 0, 40, "Input",ExpressionUUID->"723aea99-0f8c-40da-85f5-195e41b2654d"], -Cell[504573, 11396, 72, 0, 22, "Message",ExpressionUUID->"5cb341dc-7c78-48ab-88d1-ab0cc344561a"], -Cell[504648, 11398, 72, 0, 22, "Message",ExpressionUUID->"6a2bf270-e5ff-4643-b1d5-c69a090adc70"], -Cell[504723, 11400, 72, 0, 22, "Message",ExpressionUUID->"060503a7-0291-4c71-adc4-62675634b6f4"], -Cell[504798, 11402, 72, 0, 22, "Message",ExpressionUUID->"2c9ec3f8-31af-4f14-88a0-11fa477456f8"] +Cell[54880, 1975, 70, 0, 57, "Input",ExpressionUUID->"d4b73ce5-7524-4652-9579-36229cebbccf"], +Cell[54953, 1977, 71, 0, 44, "Output",ExpressionUUID->"25f27aca-d25c-4d15-ab55-cf857b68dcb2"] }, Open ]], Cell[CellGroupData[{ -Cell[504907, 11407, 70, 0, 24, "Input",ExpressionUUID->"c1833b71-8706-4483-8dca-0336a8da1dc5"], -Cell[504980, 11409, 71, 0, 182, "Output",ExpressionUUID->"74fce54b-483d-41d0-85be-7b73cf199a85"] +Cell[55061, 1982, 70, 0, 71, "Input",ExpressionUUID->"4b312d26-e716-4e13-99c6-2e39cc88c447"], +Cell[55134, 1984, 71, 0, 135, "Output",ExpressionUUID->"ad045ca4-bf3e-45f2-be6a-188c8fb39746"] }, Open ]], -Cell[505066, 11412, 70, 0, 24, "Input",ExpressionUUID->"8b52d9cb-7231-41b1-bb95-f8fe74c01691"], Cell[CellGroupData[{ -Cell[505161, 11416, 70, 0, 41, "Input",ExpressionUUID->"6cece336-c682-4647-a927-a1a85e694c69"], -Cell[505234, 11418, 72, 0, 32, "Message",ExpressionUUID->"81881f29-a4ed-4857-b90d-6a92c6f2a886"], -Cell[505309, 11420, 72, 0, 22, "Message",ExpressionUUID->"65af3e52-5b13-483e-8fb2-b7853704df63"], -Cell[505384, 11422, 72, 0, 32, "Message",ExpressionUUID->"c6071a3b-64f8-48a8-adee-3972a10d88cc"], -Cell[505459, 11424, 72, 0, 32, "Message",ExpressionUUID->"f8745bf6-25a1-40e4-abce-454f4435e2d7"], -Cell[505534, 11426, 72, 0, 22, "Message",ExpressionUUID->"ceaab3b6-1d85-4eaa-90df-9adc58669bfa"], -Cell[505609, 11428, 72, 0, 22, "Message",ExpressionUUID->"078419b7-603f-48cb-878b-7a1c24649e85"], -Cell[505684, 11430, 72, 0, 22, "Message",ExpressionUUID->"db4be287-8a7d-4743-9920-b58a6a24c7f4"], -Cell[505759, 11432, 72, 0, 22, "Message",ExpressionUUID->"348978ad-48d5-4e2e-a007-fa766c84358d"] +Cell[55242, 1989, 70, 0, 22, "Input",ExpressionUUID->"ff569190-822f-433e-ac6c-14b1dcd96ed9"], +Cell[55315, 1991, 71, 0, 177, "Output",ExpressionUUID->"436b5bb4-ba6b-46e9-ab6e-3829cbc4f6f8"] }, Open ]], +Cell[55401, 1994, 70, 0, 55, "Input",ExpressionUUID->"fe675aeb-309d-4146-9e6b-7ccf11b6980f"], Cell[CellGroupData[{ -Cell[505868, 11437, 70, 0, 22, "Input",ExpressionUUID->"6623c3d0-c734-4c97-b5aa-8b4e1e8b5864"], -Cell[505941, 11439, 71, 0, 305, "Output",ExpressionUUID->"36cda7a1-1464-47c1-b5dd-e7362a0dae06"] +Cell[55496, 1998, 70, 0, 41, "Input",ExpressionUUID->"955fd7fe-8805-4dc6-bcd9-f0b6fe561e94"], +Cell[55569, 2000, 71, 0, 44, "Output",ExpressionUUID->"1f525144-95cc-4f1d-a2b1-7ed52efe7b5e"] }, Open ]], Cell[CellGroupData[{ -Cell[506049, 11444, 70, 0, 59, "Input",ExpressionUUID->"62b1f9a0-e25e-4026-863f-3dc2d1cf7efa"], -Cell[506122, 11446, 71, 0, 352, "Output",ExpressionUUID->"e7c528e1-0119-4983-96fd-9e6c2e437ff3"] +Cell[55677, 2005, 70, 0, 71, "Input",ExpressionUUID->"59ee4596-58f4-4760-9707-1639a55478ef"], +Cell[55750, 2007, 71, 0, 136, "Output",ExpressionUUID->"bcf0ddd6-91b4-474e-8418-aafc45056303"] }, Open ]], Cell[CellGroupData[{ -Cell[506230, 11451, 70, 0, 24, "Input",ExpressionUUID->"38aa6414-c597-4e41-98df-f3d0ed970813"], -Cell[506303, 11453, 71, 0, 25, "Output",ExpressionUUID->"8e9f254f-9dee-4f94-a914-cebdcb3f980c"] +Cell[55858, 2012, 70, 0, 22, "Input",ExpressionUUID->"bf8f6059-088d-4951-bbb6-e2c25b6a202b"], +Cell[55931, 2014, 71, 0, 180, "Output",ExpressionUUID->"baf431bc-0457-4cd5-b76b-e8aeacd57202"] }, Open ]], +Cell[56017, 2017, 70, 0, 55, "Input",ExpressionUUID->"21502648-5bb8-4309-888f-8d4797b6965f"], Cell[CellGroupData[{ -Cell[506411, 11458, 70, 0, 24, "Input",ExpressionUUID->"34ae4c2f-5f56-4482-8806-353461f6d9f4"], -Cell[506484, 11460, 71, 0, 179, "Output",ExpressionUUID->"7f5969ff-1171-4f9f-9246-30a6d94b4c74"] +Cell[56112, 2021, 70, 0, 41, "Input",ExpressionUUID->"25c31f45-9b44-4e7a-a888-7c4634fb8ae8"], +Cell[56185, 2023, 72, 0, 22, "Message",ExpressionUUID->"c514ee03-eba1-48e4-af1e-0991d7159e99"], +Cell[56260, 2025, 71, 0, 44, "Output",ExpressionUUID->"8d39b42e-cf19-4334-a472-16b27afd3f8e"] }, Open ]], -Cell[506570, 11463, 70, 0, 24, "Input",ExpressionUUID->"8319df3c-3ce1-4e09-97a9-14327706829b"], Cell[CellGroupData[{ -Cell[506665, 11467, 70, 0, 24, "Input",ExpressionUUID->"d6d361e6-21b7-46e4-8f2c-03c8590c5841"], -Cell[506738, 11469, 71, 0, 178, "Output",ExpressionUUID->"f8ddd75f-2fc4-4ac6-b0ce-203490975bf3"] +Cell[56368, 2030, 70, 0, 71, "Input",ExpressionUUID->"15b1dea7-4387-4196-86ca-e5029d19055e"], +Cell[56441, 2032, 71, 0, 138, "Output",ExpressionUUID->"71a0bd1f-9ee3-45c1-8043-10fc45b089f2"] }, Open ]], -Cell[506824, 11472, 70, 0, 24, "Input",ExpressionUUID->"aa122af0-aec0-4165-9428-aec714e0516d"], Cell[CellGroupData[{ -Cell[506919, 11476, 70, 0, 24, "Input",ExpressionUUID->"c130f428-19cf-4909-a96f-c053c8f42438"], -Cell[506992, 11478, 71, 0, 180, "Output",ExpressionUUID->"85583a5b-eec1-4b78-a332-873f04d6e023"] -}, Open ]], -Cell[507078, 11481, 70, 0, 55, "Input",ExpressionUUID->"8e9d0132-bcad-498f-9e52-cde120c54e03"], +Cell[56549, 2037, 70, 0, 22, "Input",ExpressionUUID->"ea7e7eb2-0ae4-48e4-9de2-2070d9c80ef7"], +Cell[56622, 2039, 71, 0, 177, "Output",ExpressionUUID->"a52313f1-4c10-40c6-b4b1-90cde6f32b05"] +}, Open ]] +}, Closed]], Cell[CellGroupData[{ -Cell[507173, 11485, 70, 0, 22, "Input",ExpressionUUID->"5fa14f5e-886c-46bc-9b14-c6720176213b"], -Cell[507246, 11487, 71, 0, 25, "Output",ExpressionUUID->"9b81114a-14fc-495a-8c08-1d756a623ea4"] -}, Open ]], +Cell[56742, 2045, 203, 4, 40, "Section",ExpressionUUID->"5d9c76ab-41db-4d8f-b32b-3ceed5a29b07"], +Cell[56948, 2051, 213, 4, 22, "Input",ExpressionUUID->"c2736e8b-b9a2-44e3-be7a-35f424888e11"], Cell[CellGroupData[{ -Cell[507354, 11492, 70, 0, 71, "Input",ExpressionUUID->"72235405-3003-49e9-9277-216bdd19750b"], -Cell[507427, 11494, 71, 0, 136, "Output",ExpressionUUID->"f830ee27-fdee-43c7-871a-57560f38bbc6"] +Cell[57186, 2059, 3014, 55, 71, "Input",ExpressionUUID->"a326d1ad-f5a3-49d5-9b86-3a79e4cb291c"], +Cell[60203, 2116, 1282, 23, 25, "Output",ExpressionUUID->"ffe70bdb-bdff-4796-aa96-f06cb79c73c4"] }, Open ]], -Cell[507513, 11497, 70, 0, 55, "Input",ExpressionUUID->"06bb7c1b-6411-48e8-b40c-03313a1b1f6b"], Cell[CellGroupData[{ -Cell[507608, 11501, 70, 0, 22, "Input",ExpressionUUID->"76b93673-a7b3-43a6-9e29-6ad9396401f8"], -Cell[507681, 11503, 71, 0, 25, "Output",ExpressionUUID->"0975a7cd-68c4-4d5a-8ae7-4b1c3ba72757"] +Cell[61522, 2144, 648, 17, 24, "Input",ExpressionUUID->"8eab97ea-e359-40c0-9935-fde12f7b604a"], +Cell[62173, 2163, 940, 19, 44, "Output",ExpressionUUID->"101d44d7-b88e-4a66-9f25-d057b2d4f782"] }, Open ]], Cell[CellGroupData[{ -Cell[507789, 11508, 70, 0, 71, "Input",ExpressionUUID->"c88b880d-b857-40ca-9a63-95d53e55b7bf"], -Cell[507862, 11510, 71, 0, 135, "Output",ExpressionUUID->"de5a51e7-28ce-4c24-a278-a281498822a4"] +Cell[63150, 2187, 4389, 67, 75, "Input",ExpressionUUID->"205f64ad-0fed-40fc-a0ee-a19d5c4d39b3"], +Cell[67542, 2256, 16434, 321, 210, "Output",ExpressionUUID->"50732af7-406a-47af-b446-2d2e30f9e4ac"] }, Open ]], -Cell[507948, 11513, 70, 0, 55, "Input",ExpressionUUID->"56133658-9ffb-4dd9-beea-7a4a9665bb64"], Cell[CellGroupData[{ -Cell[508043, 11517, 70, 0, 24, "Input",ExpressionUUID->"53dbad32-ec5e-415a-ae44-7e175c4cc62d"], -Cell[508116, 11519, 71, 0, 27, "Output",ExpressionUUID->"80c765f8-8713-4e91-a020-01bcee30c8bb"] +Cell[84013, 2582, 4487, 68, 75, "Input",ExpressionUUID->"5755d9a0-f64b-44fe-a9ca-88f25a3c1639"], +Cell[88503, 2652, 12408, 232, 209, "Output",ExpressionUUID->"d5be2d93-8799-4554-97ed-a66db4df9e0a"] }, Open ]], +Cell[100926, 2887, 99, 0, 22, "Input",ExpressionUUID->"d8f49b29-f847-451a-a460-2535964a9a0a"], Cell[CellGroupData[{ -Cell[508224, 11524, 70, 0, 71, "Input",ExpressionUUID->"20576d59-77d2-4587-8b54-e96f4f4789af"], -Cell[508297, 11526, 71, 0, 136, "Output",ExpressionUUID->"410926aa-f2e4-469e-9687-84e7fafafd42"] -}, Open ]], -Cell[508383, 11529, 70, 0, 55, "Input",ExpressionUUID->"61ba87b2-2e59-47a1-b0bf-d6d16b3fe09f"], +Cell[101050, 2891, 923, 21, 24, "Input",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"], +Cell[101976, 2914, 449, 10, 22, "Message",ExpressionUUID->"145a915d-c9de-419a-a397-38dc59eab2c7"], Cell[CellGroupData[{ -Cell[508478, 11533, 70, 0, 24, "Input",ExpressionUUID->"ee9b0b01-61b9-4003-bfdc-0d1ee60b1135"], -Cell[508551, 11535, 71, 0, 27, "Output",ExpressionUUID->"453b95ee-c08d-40f6-bf0f-969f1a6371f5"] +Cell[102450, 2928, 219, 4, 18, "Print",ExpressionUUID->"be68b0fa-b764-4a79-981c-0db832ce234e"], +Cell[102672, 2934, 219, 4, 18, "Print",ExpressionUUID->"d73c9787-d9f9-4c27-a1a6-47c8d8b036e8"] }, Open ]], +Cell[102906, 2941, 542, 11, 22, "Message",ExpressionUUID->"c085af60-db2d-486b-91d9-f33d8538b8d6"], +Cell[103451, 2954, 487, 11, 22, "Message",ExpressionUUID->"810005ce-02df-4791-aa0a-3ff2f96d433b"], +Cell[103941, 2967, 541, 11, 22, "Message",ExpressionUUID->"cfedbf8e-3bc5-43fc-96b4-afbcbadc9ae3"], +Cell[104485, 2980, 479, 10, 22, "Message",ExpressionUUID->"6cff49d4-8a37-4eb1-b4dd-0f5f5c028b78"], Cell[CellGroupData[{ -Cell[508659, 11540, 70, 0, 71, "Input",ExpressionUUID->"a02dbf6e-d3e8-40fc-8f91-97ce44305534"], -Cell[508732, 11542, 71, 0, 136, "Output",ExpressionUUID->"3d534243-6986-4c44-94c8-2cfc7b0c424b"] +Cell[104989, 2994, 217, 4, 18, "Print",ExpressionUUID->"115e28bc-9283-43eb-9baa-35f0d69097d9"], +Cell[105209, 3000, 217, 4, 18, "Print",ExpressionUUID->"ad2a1321-05cf-495e-89e5-7397abe25fdb"], +Cell[105429, 3006, 217, 4, 18, "Print",ExpressionUUID->"b2b22fbf-0722-4677-8953-36ea71d7e4d8"] }, Open ]], -Cell[508818, 11545, 70, 0, 55, "Input",ExpressionUUID->"a540f140-7178-4d36-8160-dbc454e04d20"], -Cell[CellGroupData[{ -Cell[508913, 11549, 70, 0, 41, "Input",ExpressionUUID->"b261c61f-4733-4246-84de-d7d4c5336416"], -Cell[508986, 11551, 71, 0, 27, "Output",ExpressionUUID->"e7d942d6-b5de-4cee-a451-9ff76fd7be44"] +Cell[105661, 3013, 1087, 21, 25, "Output",ExpressionUUID->"559af747-c121-49f5-a7d6-3cc986cf4792"] }, Open ]], Cell[CellGroupData[{ -Cell[509094, 11556, 70, 0, 71, "Input",ExpressionUUID->"21088011-be66-4170-baea-a33a49af9b77"], -Cell[509167, 11558, 71, 0, 134, "Output",ExpressionUUID->"b0a2cefd-b899-46c0-bac8-d8cf64b08797"] -}, Open ]], -Cell[509253, 11561, 70, 0, 55, "Input",ExpressionUUID->"76a3d83f-55a6-4495-92e7-d379873f8bf5"], +Cell[106785, 3039, 707, 20, 22, "Input",ExpressionUUID->"29398383-9203-4cf6-aabb-1d3fe15a5894"], Cell[CellGroupData[{ -Cell[509348, 11565, 70, 0, 41, "Input",ExpressionUUID->"696865ae-6197-4bf6-8cb9-82f7027691af"], -Cell[509421, 11567, 71, 0, 25, "Output",ExpressionUUID->"3f367b1b-5289-479d-8818-8d5026d34c58"] +Cell[107517, 3063, 334, 6, 18, "Print",ExpressionUUID->"43b5ed9d-e166-4ef1-b4bc-e5feed6c7d40"], +Cell[107854, 3071, 334, 6, 18, "Print",ExpressionUUID->"527fb39e-ac1e-4e42-9ef7-fda664ac66d1"], +Cell[108191, 3079, 334, 6, 18, "Print",ExpressionUUID->"65b303aa-bf05-4587-9a83-012d553521bc"], +Cell[108528, 3087, 334, 6, 18, "Print",ExpressionUUID->"1fced350-2162-4d24-b48f-85b2ffbab446"], +Cell[108865, 3095, 334, 6, 18, "Print",ExpressionUUID->"8f0ad46a-2395-463d-9e76-0c7c781ffd27"] }, Open ]], -Cell[CellGroupData[{ -Cell[509529, 11572, 70, 0, 71, "Input",ExpressionUUID->"951b4751-e7a7-43a9-b71d-c342b12ded79"], -Cell[509602, 11574, 71, 0, 136, "Output",ExpressionUUID->"fae7dcfc-1ef8-4f13-b707-cfa52239d7f1"] +Cell[109214, 3104, 908, 19, 42, "Output",ExpressionUUID->"199db095-4a77-417c-9ecf-d6b1726a2dd4"] }, Open ]], -Cell[509688, 11577, 70, 0, 55, "Input",ExpressionUUID->"babf3d02-dfd7-4a2a-bebf-4b6d434fad42"], +Cell[110137, 3126, 100, 0, 22, "Input",ExpressionUUID->"1cfc7180-9002-442b-be6f-5161a5266210"], Cell[CellGroupData[{ -Cell[509783, 11581, 70, 0, 41, "Input",ExpressionUUID->"1eebb6b8-6ebb-4195-968d-534adefebd17"], -Cell[509856, 11583, 71, 0, 25, "Output",ExpressionUUID->"a232f3cb-7d3e-48df-9bea-8365687d0d84"] -}, Open ]], +Cell[110262, 3130, 879, 25, 24, "Input",ExpressionUUID->"c364dda0-78f5-4a76-94b1-e8f7c84b3bff"], +Cell[111144, 3157, 354, 6, 18, "Print",ExpressionUUID->"bcc4cca1-2f58-43d3-ab54-f687ea9c0515"], +Cell[111501, 3165, 677, 13, 22, "Message",ExpressionUUID->"44472613-6417-493b-8650-a7076d0a75ac"], +Cell[112181, 3180, 679, 13, 22, "Message",ExpressionUUID->"8753bbc0-714a-4b51-887f-34e9294a5b8c"], +Cell[112863, 3195, 676, 13, 22, "Message",ExpressionUUID->"5a465db8-95f6-4272-9fed-7ef77831e4db"], +Cell[113542, 3210, 615, 12, 22, "Message",ExpressionUUID->"c20e2cc8-1d67-4a03-97f4-d1ef651cf1a9"], Cell[CellGroupData[{ -Cell[509964, 11588, 70, 0, 71, "Input",ExpressionUUID->"5f407b76-03f3-4ff1-9355-39b331e313a3"], -Cell[510037, 11590, 71, 0, 133, "Output",ExpressionUUID->"4a129c0e-ffcf-454d-816b-8135e08398e6"] +Cell[114182, 3226, 353, 6, 18, "Print",ExpressionUUID->"4863edb1-4f3d-4584-b981-d3621f014c31"], +Cell[114538, 3234, 356, 6, 18, "Print",ExpressionUUID->"043306d6-320e-4ea3-90d3-473014faa5e6"], +Cell[114897, 3242, 355, 6, 18, "Print",ExpressionUUID->"aa6cae97-26ad-48c7-b7ae-f94a27c84707"], +Cell[115255, 3250, 351, 6, 18, "Print",ExpressionUUID->"629a89d7-d085-4397-8c33-76f82e1ddf6e"] }, Open ]], -Cell[CellGroupData[{ -Cell[510145, 11595, 70, 0, 22, "Input",ExpressionUUID->"9fd0d7b3-723a-4745-a726-9fdf2b39fba7"], -Cell[510218, 11597, 71, 0, 177, "Output",ExpressionUUID->"3836ef38-db47-4901-969b-83ab058c6814"] +Cell[115621, 3259, 1148, 26, 42, "Output",ExpressionUUID->"3fe6261d-a73b-4535-aa50-3f64a6b0b220"] }, Open ]], Cell[CellGroupData[{ -Cell[510326, 11602, 70, 0, 40, "Input",ExpressionUUID->"5efa30c9-1db0-40a0-87cf-7301139f0c0b"], -Cell[510399, 11604, 72, 0, 22, "Message",ExpressionUUID->"5e534b6c-3426-4b66-b043-f88446d6a122"], -Cell[510474, 11606, 72, 0, 22, "Message",ExpressionUUID->"e70fcd6d-bb67-4d9b-b064-21ec130c3c66"], -Cell[510549, 11608, 72, 0, 22, "Message",ExpressionUUID->"8cd3b1c6-f9d4-4d4e-a1b5-f963475c50a9"], -Cell[510624, 11610, 72, 0, 22, "Message",ExpressionUUID->"fa8219e9-df11-4a4f-9749-d019df690a87"] -}, Open ]], -Cell[510711, 11613, 70, 0, 24, "Input",ExpressionUUID->"8de9aa7e-dcc9-467a-a151-01458ed626a9"], -Cell[510784, 11615, 70, 0, 24, "Input",ExpressionUUID->"2469b932-43c7-40fe-b6b2-09a5426f4cd8"], -Cell[510857, 11617, 70, 0, 75, "Input",ExpressionUUID->"646dce3a-6abe-45cc-ad68-957f0e7b5df0"], +Cell[116806, 3290, 710, 20, 24, "Input",ExpressionUUID->"549433df-adc9-4102-a29c-48e725ec49b3"], +Cell[117519, 3312, 632, 13, 22, "Message",ExpressionUUID->"1608e2b9-405b-4d6b-b52c-690dd9748913"], +Cell[118154, 3327, 635, 13, 22, "Message",ExpressionUUID->"5ae0efa0-83ab-4ef1-aa59-cd8468a952d2"], +Cell[118792, 3342, 632, 13, 22, "Message",ExpressionUUID->"e2af9227-1724-475c-9fb7-a71cf43a5cea"], +Cell[119427, 3357, 571, 12, 22, "Message",ExpressionUUID->"b8551c8d-a092-44f4-98d0-41ce3a5508ce"], Cell[CellGroupData[{ -Cell[510952, 11621, 70, 0, 24, "Input",ExpressionUUID->"75736ccc-3184-41e4-ad91-58ec0e7d18e0"], -Cell[511025, 11623, 71, 0, 182, "Output",ExpressionUUID->"383df247-9bb0-4186-a605-f482a5332428"] +Cell[120023, 3373, 315, 6, 18, "Print",ExpressionUUID->"6129a4b5-6532-47c6-b231-9309e021d751"], +Cell[120341, 3381, 314, 6, 18, "Print",ExpressionUUID->"f471eab5-283e-4e06-93b6-94580078ed1f"], +Cell[120658, 3389, 314, 6, 18, "Print",ExpressionUUID->"da7ce15e-9cae-4a67-ad15-c7665320945f"], +Cell[120975, 3397, 316, 6, 18, "Print",ExpressionUUID->"b7494ad3-c437-4c64-b909-c3531567b031"], +Cell[121294, 3405, 316, 6, 18, "Print",ExpressionUUID->"42d1a0f1-c797-4c3b-b707-92375f4c52a5"] }, Open ]], -Cell[CellGroupData[{ -Cell[511133, 11628, 70, 0, 24, "Input",ExpressionUUID->"a80f3ed2-25ba-4135-a260-cfaa56bd029f"], -Cell[511206, 11630, 71, 0, 178, "Output",ExpressionUUID->"00b7e598-14de-436a-909a-4cbaeca28f2a"] +Cell[121625, 3414, 1101, 26, 42, "Output",ExpressionUUID->"f068743f-4998-47db-9ecd-b887f047e68c"] }, Open ]], Cell[CellGroupData[{ -Cell[511314, 11635, 70, 0, 24, "Input",ExpressionUUID->"4b799eb5-3e65-4794-974e-5a939ba66bcb"], -Cell[511387, 11637, 71, 0, 179, "Output",ExpressionUUID->"885bd9d7-e4d4-44ca-95e0-dd4b508d7365"] -}, Open ]], -Cell[511473, 11640, 70, 0, 55, "Input",ExpressionUUID->"ec2aa747-d224-4d09-9f95-4d6e808d9847"], +Cell[122763, 3445, 1163, 28, 24, "Input",ExpressionUUID->"d22ce325-6b7f-4f46-b453-76866b23bb27"], +Cell[123929, 3475, 239, 5, 18, "Print",ExpressionUUID->"310770ec-86f5-44b6-9850-cdeb2dd915f1"], +Cell[124171, 3482, 504, 11, 22, "Message",ExpressionUUID->"3fe60794-fe7e-41bd-ac26-9efc9aa63a00"], +Cell[124678, 3495, 508, 11, 22, "Message",ExpressionUUID->"72d9992d-f37f-4c49-b6a2-a2c66433b1ad"], +Cell[125189, 3508, 509, 12, 22, "Message",ExpressionUUID->"a534f03c-582b-4ba1-b096-bdb41a922154"], +Cell[125701, 3522, 503, 11, 22, "Message",ExpressionUUID->"a967a5a1-4448-4786-80a8-38f35d409bbd"], Cell[CellGroupData[{ -Cell[511568, 11644, 70, 0, 41, "Input",ExpressionUUID->"99556b93-887d-4e28-b5f1-4971668c7f14"], -Cell[511641, 11646, 72, 0, 22, "Message",ExpressionUUID->"1b40ccaa-2835-493c-a7e5-216847235f9a"], -Cell[511716, 11648, 71, 0, 27, "Output",ExpressionUUID->"8b3767ad-c5e3-48ba-82d0-1c52a869df6f"] +Cell[126229, 3537, 242, 5, 18, "Print",ExpressionUUID->"28e13ff9-f7bc-40e8-bc19-b17b3285579a"], +Cell[126474, 3544, 243, 5, 18, "Print",ExpressionUUID->"485d97ff-88b9-460e-9e25-9e1795082fe9"], +Cell[126720, 3551, 243, 5, 18, "Print",ExpressionUUID->"64c68ea5-38f6-4644-bd72-a9a48cdd1529"], +Cell[126966, 3558, 242, 5, 18, "Print",ExpressionUUID->"2746afd7-1cf3-4a5d-8e64-b586b47e0fa2"] }, Open ]], -Cell[CellGroupData[{ -Cell[511824, 11653, 70, 0, 71, "Input",ExpressionUUID->"839256a8-d803-4ae9-add8-b09560473faa"], -Cell[511897, 11655, 71, 0, 135, "Output",ExpressionUUID->"c7885b54-938e-4cb0-a8e9-37a1c922529c"] +Cell[127223, 3566, 1525, 34, 44, "Output",ExpressionUUID->"12af84ad-07b2-46b3-b49e-548dd1145fef"] }, Open ]], Cell[CellGroupData[{ -Cell[512005, 11660, 70, 0, 22, "Input",ExpressionUUID->"87bf3c10-aa32-45f8-9d97-5d82421cc560"], -Cell[512078, 11662, 71, 0, 177, "Output",ExpressionUUID->"47c8d510-5692-4ef0-98da-fab1ffe5d797"] -}, Open ]], -Cell[512164, 11665, 70, 0, 55, "Input",ExpressionUUID->"51813a13-5909-4664-9338-ffd80c7cc074"], +Cell[128785, 3605, 1108, 30, 24, "Input",ExpressionUUID->"11802c33-e902-4c87-b4ea-a0ce5f2dcdff"], +Cell[129896, 3637, 194, 4, 18, "Print",ExpressionUUID->"3a95b21c-b439-4347-9f27-2421ae191069"], +Cell[130093, 3643, 588, 12, 22, "Message",ExpressionUUID->"d01ae657-fd68-4c5a-a5a4-9bc6d05ac2f6"], +Cell[130684, 3657, 585, 12, 22, "Message",ExpressionUUID->"307456fb-500d-49b9-a746-81d7042966da"], +Cell[131272, 3671, 585, 12, 22, "Message",ExpressionUUID->"c0aa3875-2d27-49d5-9da8-57fac6b8e5a2"], +Cell[131860, 3685, 524, 11, 22, "Message",ExpressionUUID->"233e7964-0f93-46e8-8009-aac0b7ad58bc"], Cell[CellGroupData[{ -Cell[512259, 11669, 70, 0, 41, "Input",ExpressionUUID->"c1fff837-d7cf-415b-9e16-5b61936973ca"], -Cell[512332, 11671, 71, 0, 27, "Output",ExpressionUUID->"398b730e-ac67-4206-aa79-b7f63452db24"] +Cell[132409, 3700, 192, 4, 18, "Print",ExpressionUUID->"36b2353b-1d99-4f27-bd64-8438c033f263"], +Cell[132604, 3706, 196, 4, 18, "Print",ExpressionUUID->"28d45a89-118a-49ab-bd04-b9c99ecc7ee9"], +Cell[132803, 3712, 198, 4, 18, "Print",ExpressionUUID->"b4c4e710-7f4a-43d7-bd5f-a5b32687c3a4"], +Cell[133004, 3718, 195, 4, 18, "Print",ExpressionUUID->"571f7cd7-89e5-4bb3-a1bf-d845c6ad74bf"] }, Open ]], -Cell[CellGroupData[{ -Cell[512440, 11676, 70, 0, 71, "Input",ExpressionUUID->"d23aa627-f42a-4c0e-a95e-f3c91b885b83"], -Cell[512513, 11678, 71, 0, 135, "Output",ExpressionUUID->"e4310b74-c401-4adb-ad1d-ad463508fd10"] +Cell[133214, 3725, 1583, 36, 60, "Output",ExpressionUUID->"1e2d341a-35ef-40da-a6a6-fe14ef18db31"] }, Open ]], Cell[CellGroupData[{ -Cell[512621, 11683, 70, 0, 22, "Input",ExpressionUUID->"4411a886-15ff-471f-b5de-d2d39484188f"], -Cell[512694, 11685, 71, 0, 177, "Output",ExpressionUUID->"4d6151ce-f884-4d79-985f-bdb1f82642a6"] -}, Open ]], -Cell[512780, 11688, 70, 0, 55, "Input",ExpressionUUID->"958eb5bc-5ccc-4909-8ead-78cd504f0177"], +Cell[134834, 3766, 1206, 32, 24, "Input",ExpressionUUID->"bacf1c86-2f2d-48d5-884c-81947e6029a1"], +Cell[136043, 3800, 650, 14, 22, "Message",ExpressionUUID->"281ccd8d-b05e-42c3-a4f7-f6115ccd4902"], +Cell[136696, 3816, 649, 13, 22, "Message",ExpressionUUID->"a2ece7af-be37-49a1-bf23-cfd395a83cbf"], +Cell[137348, 3831, 649, 13, 22, "Message",ExpressionUUID->"ba89323f-fb09-429e-a7df-5f294213effb"], +Cell[138000, 3846, 644, 13, 22, "Message",ExpressionUUID->"6b9f87a0-364a-4e02-9594-24fc2e7e087a"], Cell[CellGroupData[{ -Cell[512875, 11692, 70, 0, 41, "Input",ExpressionUUID->"d3df9a1e-0315-420f-b74a-67166024b8d9"], -Cell[512948, 11694, 71, 0, 44, "Output",ExpressionUUID->"fba60491-8cb8-456f-9d65-cca9fae53c19"] +Cell[138669, 3863, 379, 7, 18, "Print",ExpressionUUID->"94a46ade-16e7-4394-b4f5-fa2140097d92"], +Cell[139051, 3872, 380, 7, 18, "Print",ExpressionUUID->"76d273d0-1786-4034-9a75-d7fcf740cd53"], +Cell[139434, 3881, 383, 7, 18, "Print",ExpressionUUID->"e49f4cba-85ae-478b-ab09-6c6d78e5c3b7"], +Cell[139820, 3890, 383, 7, 18, "Print",ExpressionUUID->"dd2d6f00-396d-4803-8f74-1dbd4ea1472b"], +Cell[140206, 3899, 383, 7, 18, "Print",ExpressionUUID->"c70d6a63-f498-4689-b7a8-b8bced6c326c"] }, Open ]], -Cell[CellGroupData[{ -Cell[513056, 11699, 70, 0, 71, "Input",ExpressionUUID->"24fe223a-5522-459b-9f8e-a98e4eb55edd"], -Cell[513129, 11701, 71, 0, 136, "Output",ExpressionUUID->"b40cbf52-daa0-4273-a072-74a74bbf3abd"] +Cell[140604, 3909, 1621, 36, 60, "Output",ExpressionUUID->"89db88fc-0608-455a-92e4-e96046987fce"] }, Open ]], Cell[CellGroupData[{ -Cell[513237, 11706, 70, 0, 22, "Input",ExpressionUUID->"a7504f21-1f0b-481e-b618-8f74ffea620f"], -Cell[513310, 11708, 71, 0, 180, "Output",ExpressionUUID->"84f42aad-4959-46e3-9401-798352eb23af"] +Cell[142262, 3950, 5240, 89, 76, "Input",ExpressionUUID->"aee89b99-c52c-426f-9380-809683f9fe8d"], +Cell[147505, 4041, 13233, 253, 171, "Output",ExpressionUUID->"094fdff7-23ff-47ac-8b46-a640d633a3bd"] }, Open ]], -Cell[513396, 11711, 70, 0, 55, "Input",ExpressionUUID->"1e380866-ca84-40f5-a111-1332998088fd"], Cell[CellGroupData[{ -Cell[513491, 11715, 70, 0, 41, "Input",ExpressionUUID->"78ab0d52-7eb3-41bc-8733-cec2b17f6a2e"], -Cell[513564, 11717, 72, 0, 22, "Message",ExpressionUUID->"163ef88d-0f11-45b2-b0d4-ec761d848a5d"], -Cell[513639, 11719, 71, 0, 44, "Output",ExpressionUUID->"30cbc1a9-96de-4fe7-b805-129c95e8cd2d"] +Cell[160775, 4299, 5284, 89, 76, "Input",ExpressionUUID->"86e28df3-e9b9-4c9d-b376-e2250a73da96"], +Cell[166062, 4390, 11890, 219, 171, "Output",ExpressionUUID->"b6b92c28-1fd8-4208-80f6-dc297afdca9e"] }, Open ]], Cell[CellGroupData[{ -Cell[513747, 11724, 70, 0, 71, "Input",ExpressionUUID->"44ea1a51-4a8b-432c-8e54-2e3185867856"], -Cell[513820, 11726, 71, 0, 138, "Output",ExpressionUUID->"8d625824-7fb2-43df-be92-8ed403ac118a"] +Cell[177989, 4614, 770, 21, 22, "Input",ExpressionUUID->"c18b0b40-ab1a-45cd-ade8-999f04490358"], +Cell[178762, 4637, 777, 15, 44, "Output",ExpressionUUID->"48b90621-bf10-4874-b6da-7d12189becdb"] }, Open ]], +Cell[179554, 4655, 677, 20, 24, "Input",ExpressionUUID->"9d9f94f3-e11c-49e5-a722-caf2af60837a"], +Cell[180234, 4677, 9973, 224, 172, "Input",ExpressionUUID->"696e8dad-b679-4cff-9df9-7fa32582e84f"], Cell[CellGroupData[{ -Cell[513928, 11731, 70, 0, 22, "Input",ExpressionUUID->"aa29406b-8c3f-4290-9a5c-4f09ea21554e"], -Cell[514001, 11733, 71, 0, 177, "Output",ExpressionUUID->"7103c19c-f184-4cce-8f18-9df2656851ec"] +Cell[190232, 4905, 1040, 22, 24, "Input",ExpressionUUID->"0f44ea2f-bcb6-4b65-a37b-65515908d127"], +Cell[191275, 4929, 7045, 166, 269, "Output",ExpressionUUID->"d89b3800-3495-45e2-970d-10bf85731c98"] }, Open ]] -}, Closed]], -Cell[CellGroupData[{ -Cell[514121, 11739, 72, 0, 40, "Section",ExpressionUUID->"747c9bc3-63ef-45c3-af83-bc456177b1c8"], -Cell[514196, 11741, 70, 0, 40, "Input",ExpressionUUID->"ebc19a92-5a4d-4254-8fad-8cadbfa1bd32"], -Cell[CellGroupData[{ -Cell[514291, 11745, 70, 0, 24, "Input",ExpressionUUID->"f224ec13-7431-41d4-919e-0ad10e8ff5b2"], -Cell[514364, 11747, 71, 0, 25, "Output",ExpressionUUID->"5043975f-bf54-4984-bf97-09e0c59f4acf"] -}, Open ]], -Cell[CellGroupData[{ -Cell[514472, 11752, 70, 0, 24, "Input",ExpressionUUID->"bdb2aaf8-6c60-4fd6-b0aa-d74503ebfe5d"], -Cell[514545, 11754, 71, 0, 39, "Output",ExpressionUUID->"672f3cb6-b559-424b-b6e9-dff18bdab931"] -}, Open ]], -Cell[CellGroupData[{ -Cell[514653, 11759, 70, 0, 24, "Input",ExpressionUUID->"9581e610-c27e-4ccd-9de0-7344556f685a"], -Cell[514726, 11761, 72, 0, 22, "Message",ExpressionUUID->"926f5636-f494-4b80-9e0f-998a05d07881"], -Cell[514801, 11763, 71, 0, 25, "Output",ExpressionUUID->"3c60fc73-ad7e-4b33-a3eb-fdc35776a150"] -}, Open ]], -Cell[514887, 11766, 70, 0, 24, "Input",ExpressionUUID->"3a793a2c-1a2c-433a-873f-55e7861acacf"], -Cell[CellGroupData[{ -Cell[514982, 11770, 70, 0, 24, "Input",ExpressionUUID->"6a4616ab-41e4-44cc-8806-ee9851e65934"], -Cell[515055, 11772, 71, 0, 177, "Output",ExpressionUUID->"7ae541cc-49f0-4346-9e8f-3995505a8e9f"] -}, Open ]], -Cell[515141, 11775, 70, 0, 24, "Input",ExpressionUUID->"02eee1a8-8fdf-4ef6-8fa3-737b3067106e"], -Cell[CellGroupData[{ -Cell[515236, 11779, 70, 0, 24, "Input",ExpressionUUID->"8858ddfc-1e71-4778-a0b8-512abba3d901"], -Cell[515309, 11781, 71, 0, 179, "Output",ExpressionUUID->"3a7e88f8-603a-4c66-8a1b-065c43aff3cd"] -}, Open ]], -Cell[515395, 11784, 70, 0, 24, "Input",ExpressionUUID->"954f68de-17bb-4b28-b089-18f4c1840d53"], -Cell[CellGroupData[{ -Cell[515490, 11788, 70, 0, 24, "Input",ExpressionUUID->"fd8d9fbd-6567-43cc-a4dc-4c986b02e466"], -Cell[515563, 11790, 71, 0, 178, "Output",ExpressionUUID->"b7f39439-0c1d-40f8-af40-5fed6fd931de"], -Cell[515637, 11792, 71, 0, 25, "Output",ExpressionUUID->"2b7f8ec2-0126-4787-92e3-a6d9dd600de2"] }, Open ]] -}, Closed]] } ] *) diff --git a/schofield.wl b/schofield.wl index 77dce96..40253d4 100644 --- a/schofield.wl +++ b/schofield.wl @@ -213,73 +213,101 @@ levenbergMarquardtStep[M_, λ_, g_] := Quiet[ , LinearSolve::luc ] -levenbergMarquardtAcceleration[M_, λ_, v_, J_, rold_, rf_, h_, β_] := Quiet[ - - Re[LinearSolve[M + λ DiagonalMatrix[Diagonal[M]], Transpose[J].(2/h((rf[β[[All,2]] + h v] - rold) / h - J . v))] / 2] +levenbergMarquardtAcceleration[M_, λ_, v_, J_, rold_, rf_, h_, β_, δ_] := Quiet[ + - Re[LinearSolve[M + λ DiagonalMatrix[Diagonal[M]], Transpose[J].(2/h((rf[Append[β[[All,2]] + h v, δ]] - rold) / h - J . v))] / 2] , LinearSolve::luc ] +levenbergMarquardt[r_, β0_, λ0_ : 1, ν_ : 2, ε_ : 10^-15] := + Module[ + { + n = Length[β0], + rf, Jf + }, + PrintTemporary["Compiling the Jacobian..."]; + Quiet[ + rf = Compile[{{x, _Real, 1}}, + Evaluate[r /. Thread[Rule[First /@ β0, Part[x, #] & /@ Range[n]]]] + ]; + Jf = Compile[{{x, _Real, 1}}, + Evaluate[D[r, {First /@ β0}] /. Thread[Rule[First /@ β0, Part[x, #] & /@ Range[n]]]] + ]; + , Part::partd]; + levenbergMarquardtHelper[1, rf, Jf, β0, λ0, ν, ε] + ] + -levenburgMarquardt[r_, β0_, λ0_ : 1, ν_ : 2, ε_ : 10^-15] := +levenbergMarquardtHelper[Δ_, rf_, Jf_, β0_, λ0_ : 1, ν_ : 1.5, ε_ : 10^-15, accOff_ : False] := Module[ { n = Length[β0], β = β0, λ = λ0, newβ = β0, - x, rf, Jf, oldJ, oldr, newr, M, g, δ, oldC, newC, δlast, - h = 0.1, fvv, α = 0.75, a, v, U, nSteps = 0 + x, oldJ, oldr, newr, M, g, δ, oldC, newC, vlast, + h = 0.1, fvv, α = 0.75, a, v, U, nSteps = 0, reject, μ =3 }, - PrintTemporary["Compiling the Jacobian..."]; - rf = Quiet[Compile[{{x, _Real, 1}}, - Evaluate[r /. Thread[Rule[First /@ β, Part[x, #] & /@ Range[n]]]] - ], Part::partd]; - Jf = Quiet[Compile[{{x, _Real, 1}}, - Evaluate[D[r, {First /@ β}] /. Thread[Rule[First /@ β, Part[x, #] & /@ Range[n]]]] - ], Part::partd]; PrintTemporary["Beginning the algorithm."]; - oldr = rf[β[[All, 2]]]; - oldJ = Jf[β[[All, 2]]]; + oldr = rf[Append[β[[All, 2]], Δ]]; + oldJ = Jf[Append[β[[All, 2]], Δ]]; U = First[SingularValueDecomposition[oldJ]]; oldC = Re[Total[oldr^2]]; newC = oldC; g = Re[Transpose[oldJ] . oldr]; M = Re[Transpose[oldJ] . oldJ]; - v = levenbergMarquardtStep[M, λ / ν, g]; - a = levenbergMarquardtAcceleration[M, λ / ν, v, oldJ, oldr, rf, h, β]; - δ = v + a; - δlast = δ; + v = levenbergMarquardtStep[M, λ, g]; + a = levenbergMarquardtAcceleration[M, λ, v, oldJ, oldr, rf, h, β, Δ]; + δ = v + If[accOff, 0, a]; + vlast = v; PrintTemporary["Current cost value: ", Dynamic[oldC]]; While[Norm[δ] > ε, newβ[[All, 2]] += δ; - newr = rf[newβ[[All, 2]]]; + newr = rf[Append[newβ[[All, 2]], Δ]]; newC = Re[Total[newr^2]]; - While[((1 - δ . δlast / Norm[δ] / Norm[δlast])newC > oldC) || (2 Norm[a] / Norm[v] > α), + While[((1 - v . vlast / Norm[v] / Norm[vlast])newC > oldC) || (2 Norm[a] / Norm[v] > α), + λ *= ν; v = levenbergMarquardtStep[M, λ, g]; - a = levenbergMarquardtAcceleration[M, λ, v, oldJ, oldr, rf, h, β]; - δ = v + a; + a = levenbergMarquardtAcceleration[M, λ, v, oldJ, oldr, rf, h, β, Δ]; + δ = v + If[accOff, 0, a]; newβ = β; newβ[[All, 2]] += δ; - newr = rf[newβ[[All, 2]]]; + newr = rf[Append[newβ[[All, 2]], Δ]]; newC = Re[Total[newr^2]]; - λ *= ν; ]; - λ /= ν; oldC = newC; oldr = newr; β = newβ; - oldJ = Jf[β[[All, 2]]]; + oldJ = Jf[Append[β[[All, 2]], Δ]]; U = First[SingularValueDecomposition[oldJ]]; g = Re[Transpose[oldJ] . oldr]; M = Re[Transpose[oldJ] . oldJ]; - v = levenbergMarquardtStep[M, λ / ν, g]; - a = levenbergMarquardtAcceleration[M, λ / ν, v, oldJ, oldr, rf, h, β]; - δlast = δ; - δ = v + a; + vlast = v; + λ /= μ; + v = levenbergMarquardtStep[M, λ, g]; + a = levenbergMarquardtAcceleration[M, λ, v, oldJ, oldr, rf, h, β, Δ]; + δ = v + If[accOff, 0, a]; nSteps += 1; ]; - Print[nSteps]; {newC, β} ] +annealFit[r_, Δ_, β0_, δ0_ : 10^-5, δ1_ : 10^-13, δδ_ : 100, λ0_ : 1, ν_ : 2, ε_: 10^-15] := +Module[ {lastfit = {1,β0}, rf, Jf, δ = δ0, n = Length[β0]}, + Quiet[ + rf = Compile[{{x, _Real, 1}}, + Evaluate[r /. Thread[Rule[Append[First /@ β0, Δ], Part[x, #] & /@ Range[n + 1]]]] + ]; + Jf = Compile[{{x, _Real, 1}}, + Evaluate[D[r, {First /@ β0}] /. Thread[Rule[Append[First /@ β0, Δ], Part[x, #] & /@ Range[n + 1]]]] + ]; + , Part::partd]; + While[δ >= δ1, + lastfit = levenbergMarquardtHelper[δ, rf, Jf, lastfit[[2]]]; + Print[lastfit[[1]]]; + δ /= δδ; + ]; + lastfit +] + EndPackage[] -- cgit v1.2.3-54-g00ecf