(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 297236, 6812] NotebookOptionsPosition[ 275171, 6512] NotebookOutlinePosition[ 275684, 6531] CellTagsIndexPosition[ 275641, 6528] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[{ StyleBox["Covid-19 Case Fitting Curves", "Title"], "\n", StyleBox["Esmerindo Bernardes", "Author"], "\n", StyleBox["sousa@ifsc.usp.br", "Affiliation"], "\n04/2020 - 05/2021 - 07/2022 - 05/2023" }], "Text", CellChangeTimes->{{3.796547237632004*^9, 3.7965472587694883`*^9}, 3.7965473940725307`*^9, {3.7965474294289565`*^9, 3.7965474671091633`*^9}, { 3.7965475246711864`*^9, 3.7965475427308784`*^9}, {3.8311346591403666`*^9, 3.831134664636945*^9}, {3.864293943255308*^9, 3.864293948984831*^9}, { 3.8678300426341963`*^9, 3.867830043402196*^9}, {3.8853032121209507`*^9, 3.885303216370919*^9}, {3.8944835980035734`*^9, 3.8944835987001286`*^9}}, TextAlignment->Center, TextJustification->1.,ExpressionUUID->"79c1882b-12d4-4336-94a2-cac77e8e48ae"], Cell[CellGroupData[{ Cell[TextData[StyleBox["Model function", FontColor->RGBColor[0.5, 0, 0.5]]], "Subtitle", CellChangeTimes->{{3.867830127019478*^9, 3.8678301312004833`*^9}}, TextAlignment->Center,ExpressionUUID->"80b7cff6-1a9e-472c-a1ed-a6b22e42e134"], Cell[TextData[{ StyleBox["Accumulated cases:", FontColor->RGBColor[0, 0, 1]], " a linear superposition of hyperbolic tangents \nwhere each hyperbolic \ tangent describes one wave.\n\n", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["Z", "N"], "(", "n", ")"}], "=", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "l"], RowBox[{ SubscriptBox["b", "i"], RowBox[{"tanh", "(", RowBox[{ RowBox[{ SubscriptBox["a", "i"], "n"}], "-", SubscriptBox["c", "i"]}], ")"}]}]}], "+", "\[Delta]"}]}], TraditionalForm]], FormatType->TraditionalForm,ExpressionUUID-> "b359aa84-e8c2-4aca-88f3-842524fd89e4"] }], "Text", CellChangeTimes->{{3.867830318549573*^9, 3.867830435697046*^9}, 3.8678307541504*^9, {3.8678308425284023`*^9, 3.867830944577354*^9}, { 3.8678310071053524`*^9, 3.867831070512475*^9}, {3.8678311525075006`*^9, 3.8678311597504992`*^9}, {3.8678315790274253`*^9, 3.867831587519425*^9}}, TextAlignment->Center, TextJustification->1,ExpressionUUID->"a6adaaa0-c19e-4e36-9804-31f280d0559d"], Cell[TextData[{ StyleBox["Cases per week:", FontColor->RGBColor[0, 0, 1]], " first derivative of a linear superposition of hyperbolic tangents.\n\n", Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ SubscriptBox["\[GothicCapitalZ]", "N"], "(", "n", ")"}], "=", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "=", "1"}], "l"], FractionBox[ RowBox[{ SubscriptBox["a", "i"], SubscriptBox["b", "i"]}], RowBox[{ SuperscriptBox["cosh", "2"], "(", RowBox[{ RowBox[{ SubscriptBox["a", "i"], "n"}], "-", SubscriptBox["c", "i"]}], ")"}]]}]}], TraditionalForm]], ExpressionUUID->"652220bb-c954-438e-8dfb-befd4b580dea"] }], "Text", CellChangeTimes->{{3.867830452919488*^9, 3.867830519775468*^9}, 3.8678305541014986`*^9, {3.867831320933484*^9, 3.867831323702485*^9}, { 3.867831356232523*^9, 3.8678314648219013`*^9}, 3.8678315908054276`*^9}, TextAlignment->Center,ExpressionUUID->"be5c8736-934b-45a1-b64b-475e840fbab2"], Cell[CellGroupData[{ Cell["Routines", "Section", CellChangeTimes->{{3.8709413678476343`*^9, 3.870941370279031*^9}},ExpressionUUID->"b45ff5bc-1a50-406c-a509-\ 76e4636410a4"], Cell[CellGroupData[{ Cell["Model functions", "Subsection", CellChangeTimes->{{3.870941479130986*^9, 3.870941481209756*^9}},ExpressionUUID->"fc505297-3fe8-4104-a3c5-\ 30fc749ac8aa"], Cell[BoxData[ RowBox[{ RowBox[{"cshn", "[", RowBox[{"z_", ",", "a_", ",", "b_", ",", "c_"}], "]"}], ":=", RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"a", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"b", "[", RowBox[{"[", "i", "]"}], "]"}], "/", RowBox[{ RowBox[{"Cosh", "[", RowBox[{ RowBox[{ RowBox[{"a", "[", RowBox[{"[", "i", "]"}], "]"}], "*", "z"}], "-", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "^", "2"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "a", "]"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.8678318895904016`*^9, 3.8678318996774015`*^9}, 3.8732921912414303`*^9}, CellLabel->"In[1]:=",ExpressionUUID->"47d21065-13a5-4b2b-98f6-aeb3fbfd2b51"] }, Open ]], Cell[CellGroupData[{ Cell["RMS", "Subsection", CellChangeTimes->{{3.870941553622549*^9, 3.8709415549363317`*^9}},ExpressionUUID->"53272786-40cd-4f50-ab15-\ 7a386e30b2df"], Cell[BoxData[ RowBox[{ RowBox[{"RMS", "[", RowBox[{"R_", ",", "n_", ",", "m_"}], "]"}], ":=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{ RowBox[{"FR", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "2"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], "/", RowBox[{"(", RowBox[{"n", "-", "m"}], ")"}]}], "]"}]}]], "Input", CellLabel->"In[2]:=",ExpressionUUID->"0bd03155-ebb6-412b-a6cb-6b20ef85d23d"] }, Open ]], Cell[CellGroupData[{ Cell["Joined parameters", "Subsection", CellChangeTimes->{{3.9049010362907844`*^9, 3.904901050176361*^9}},ExpressionUUID->"dc210d35-2b83-4392-ab6b-\ b8809f2fc4c8"], Cell[BoxData[ RowBox[{ RowBox[{"Tabc", "[", RowBox[{"aux1_", ",", "aux2_", ",", "l1_", ",", "l2_"}], "]"}], ":=", RowBox[{"Join", "[", RowBox[{ RowBox[{"aux1", "[", RowBox[{"[", RowBox[{"1", ";;", "l1"}], "]"}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"i", "+", "l1"}]], ",", RowBox[{"aux2", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l2"}], "}"}]}], "]"}], ",", RowBox[{"aux1", "[", RowBox[{"[", RowBox[{ RowBox[{"l1", "+", "1"}], ";;", RowBox[{"2", "*", "l1"}]}], "]"}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["c", RowBox[{"i", "+", "l1"}]], ",", RowBox[{"aux2", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "l2"}], ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l2"}], "}"}]}], "]"}], ",", RowBox[{"aux1", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", "*", "l1"}], "+", "1"}], ";;", RowBox[{"3", "*", "l1"}]}], "]"}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"i", "+", "l1"}]], ",", RowBox[{"aux2", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", RowBox[{"2", "*", "l2"}]}], ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l2"}], "}"}]}], "]"}]}], "]"}]}]], "Input", CellLabel->"In[3]:=",ExpressionUUID->"422317cb-d461-417d-a7f0-3f5a8e767875"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Data", "Section", CellChangeTimes->{{3.8709418034969025`*^9, 3.870941804124886*^9}},ExpressionUUID->"9c344c06-58c8-4128-8d89-\ 219690e1ae32"], Cell["\<\ Data import (output from Maple). n (week) ac (accumulated contamination) ad (accumulated death) av (accumulated vaccine) cw (contamination per week) dw (death per week) vw (vaccine per week)\ \>", "Text", CellChangeTimes->{{3.864217791423253*^9, 3.8642177986151648`*^9}, { 3.867832882221464*^9, 3.8678330270923495`*^9}, {3.867833071202381*^9, 3.8678331623660336`*^9}, {3.8704433697334566`*^9, 3.870443376839944*^9}},ExpressionUUID->"ddbec865-54cf-447b-a02a-\ 37d7cdd5e972"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DataBR", "=", RowBox[{ RowBox[{"Import", "[", RowBox[{"\"\\"", ",", RowBox[{"{", "\"\\"", "}"}]}], "]"}], " ", "//", "Short"}]}]], "Input", CellChangeTimes->{{3.875711384956251*^9, 3.875711391116248*^9}, { 3.893357787545845*^9, 3.893357793121047*^9}, {3.8944841442436514`*^9, 3.894484158524002*^9}, 3.8944842082693315`*^9}, CellLabel->"In[4]:=",ExpressionUUID->"980a1573-88cf-4917-88bc-c1dbb49d1b83"], Cell[BoxData[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", "2.`", ",", "0.`", ",", "0.`", ",", "2.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "2", ",", "19.`", ",", "0.`", ",", "0.`", ",", "17.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"\[LeftSkeleton]", "206", "\[RightSkeleton]"}], ",", RowBox[{"{", RowBox[{ "209", ",", "3.8521738`*^7", ",", "710174.`", ",", "5.17634112`*^8", ",", "69234.`", ",", "211.`", ",", "74980.`"}], "}"}]}], "}"}], Short]], "Output", CellChangeTimes->{3.918664988029667*^9}, CellLabel-> "Out[4]//Short=",ExpressionUUID->"7ab53873-ee16-40e0-9c2d-4ebde86265ca"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"nBR", "=", RowBox[{"Length", "[", RowBox[{"DataBR", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.8757114099543405`*^9, 3.8757114160843363`*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"54e70c49-4f26-48b1-abfc-14877e4d3bb9"], Cell[BoxData["209"], "Output", CellChangeTimes->{3.918664991311095*^9}, CellLabel->"Out[5]=",ExpressionUUID->"ef32471a-67fc-4f50-b373-ea515c70afa5"] }, Open ]], Cell[CellGroupData[{ Cell["Contamination", "Subsection", CellChangeTimes->{{3.8709419566949797`*^9, 3.870941959869384*^9}, 3.8709420359170327`*^9},ExpressionUUID->"db6dd233-28c1-46ce-99c3-\ 4206c96e4105"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"DataAll", "=", "DataBR"}]], "Input", CellChangeTimes->{{3.885303593735478*^9, 3.885303601126498*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"7d28f777-8ad8-4b2d-a652-b29e73251dbf"], Cell[BoxData[ TagBox[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "1", ",", "2.`", ",", "0.`", ",", "0.`", ",", "2.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ "2", ",", "19.`", ",", "0.`", ",", "0.`", ",", "17.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"\[LeftSkeleton]", "206", "\[RightSkeleton]"}], ",", RowBox[{"{", RowBox[{ "209", ",", "3.8521738`*^7", ",", "710174.`", ",", "5.17634112`*^8", ",", "69234.`", ",", "211.`", ",", "74980.`"}], "}"}]}], "}"}], Short]], "Output", CellChangeTimes->{3.9186649967712145`*^9}, CellLabel-> "Out[6]//Short=",ExpressionUUID->"90390577-92eb-4dc2-8bfa-bb566b3502df"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"n", "=", "nBR"}]], "Input", CellChangeTimes->{{3.8770884138340664`*^9, 3.877088416334715*^9}, { 3.8853036125486765`*^9, 3.885303614955123*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"d8ad62c2-5ddc-41be-b43e-02c255fe0644"], Cell[BoxData["209"], "Output", CellChangeTimes->{3.9186650002197237`*^9}, CellLabel->"Out[7]=",ExpressionUUID->"06f4318b-fccb-4dbc-b7c1-469b94f3473a"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Data", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"DataAll", "[", RowBox[{"[", RowBox[{"1", ",", "i", ",", "5"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.867833607979697*^9, 3.8678336417547903`*^9}, 3.867834042482584*^9, 3.867834167808469*^9, {3.869228379395009*^9, 3.8692283841724577`*^9}, {3.8692285327297277`*^9, 3.8692285335105352`*^9}, {3.8696639875185523`*^9, 3.869663991411394*^9}, { 3.8707908150861864`*^9, 3.870790820243222*^9}, {3.870891869329871*^9, 3.870891887445064*^9}, {3.8708919270279016`*^9, 3.8708919310272264`*^9}, { 3.877597518035524*^9, 3.8775975217233467`*^9}, {3.8853036238465877`*^9, 3.885303627659087*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"3f170062-35df-41b4-ad55-16984b8c95b3"], Cell[BoxData[ RowBox[{ RowBox[{"Datab", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{"DataAll", "[", RowBox[{"[", RowBox[{"1", ",", "i", ",", "5"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.870891949547256*^9, 3.870891955747621*^9}, { 3.8775975418111525`*^9, 3.877597544376419*^9}, {3.885303638987633*^9, 3.8853036405189724`*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"0f1e731c-9ae9-4b51-a5fc-1464839c4b4f"], Cell[BoxData[ RowBox[{ RowBox[{"gc", "=", RowBox[{"BarChart", "[", RowBox[{"Data", ",", RowBox[{"ImageSize", "->", "800"}], ",", RowBox[{"ImagePadding", "->", "60"}], ",", RowBox[{"BarSpacing", "\[Rule]", "Large"}], ",", RowBox[{"ChartLabels", "\[Rule]", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ",", RowBox[{"ChartStyle", "\[Rule]", "Blue"}], ",", RowBox[{"Frame", "->", RowBox[{"{", RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], ",", RowBox[{"FrameTicks", "->", "False"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "210"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1.6", "*", SuperscriptBox["10", "6"]}]}], "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.8703379978267174`*^9, 3.8703380290143604`*^9}, 3.870338677547329*^9, 3.8707912196612453`*^9, {3.8708776637366166`*^9, 3.8708777320344996`*^9}, {3.870877808093382*^9, 3.8708778242955365`*^9}, 3.870878218443729*^9, {3.87089197651674*^9, 3.870891987903799*^9}, 3.8708920591276574`*^9, 3.8708921042647977`*^9, 3.8708921494281025`*^9, { 3.870893360390463*^9, 3.8708933823700247`*^9}, {3.8770874161586857`*^9, 3.8770874163488903`*^9}, 3.8770884440135345`*^9, 3.877597567357426*^9, 3.8853036629569817`*^9, {3.8853037007712545`*^9, 3.8853037754966154`*^9}, { 3.8853046244511027`*^9, 3.8853046355775223`*^9}, {3.893357868051364*^9, 3.8933578813730707`*^9}, {3.9076612950096416`*^9, 3.907661419699837*^9}, 3.9076614543104033`*^9, 3.9076644632532415`*^9, 3.907764960237671*^9, { 3.908376587908877*^9, 3.908376620971506*^9}, {3.918665017728629*^9, 3.9186650178216295`*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"93adb5a8-31bc-47c2-9007-b0ca9312aeba"], Cell[BoxData["gc"], "Input", CellChangeTimes->{{3.908372947706315*^9, 3.908372948300066*^9}}, CellLabel-> "In[357]:=",ExpressionUUID->"52e5ec29-b98a-4c54-b810-7f6258850f29"] }, Open ]], Cell[CellGroupData[{ Cell["Deaths", "Subsection", CellChangeTimes->{{3.870942006800601*^9, 3.8709420080954022`*^9}},ExpressionUUID->"251fb970-e571-4ea5-af54-\ 71a1ac49be81"], Cell[BoxData[ RowBox[{ RowBox[{"Data", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"DataAll", "[", RowBox[{"[", RowBox[{"1", ",", "i", ",", "6"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.867833607979697*^9, 3.8678336417547903`*^9}, 3.867834042482584*^9, 3.867834167808469*^9, {3.869228379395009*^9, 3.8692283841724577`*^9}, {3.8692285327297277`*^9, 3.8692285335105352`*^9}, {3.8696639875185523`*^9, 3.869663991411394*^9}, { 3.8707908150861864`*^9, 3.870790820243222*^9}, {3.870891869329871*^9, 3.870891887445064*^9}, {3.8708919270279016`*^9, 3.8708919310272264`*^9}, { 3.87094213776725*^9, 3.8709421385938425`*^9}}, CellLabel->"In[11]:=",ExpressionUUID->"575b742e-f6ff-42b1-9c1f-dd0ac86b7797"], Cell[BoxData[ RowBox[{ RowBox[{"Datab", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{"DataAll", "[", RowBox[{"[", RowBox[{"1", ",", "i", ",", "6"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.870891949547256*^9, 3.870891955747621*^9}, { 3.870942154736216*^9, 3.870942155364955*^9}}, CellLabel->"In[12]:=",ExpressionUUID->"74bb772b-acfd-4111-8f3b-66b66a492dce"], Cell[BoxData[ RowBox[{ RowBox[{"gd", "=", RowBox[{"BarChart", "[", RowBox[{"Data", ",", RowBox[{"ImageSize", "->", "800"}], ",", RowBox[{"ImagePadding", "->", "60"}], ",", RowBox[{"BarSpacing", "\[Rule]", "Large"}], ",", RowBox[{"ChartLabels", "\[Rule]", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ",", RowBox[{"ChartStyle", "\[Rule]", "Blue"}], ",", RowBox[{"Frame", "->", RowBox[{"{", RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], ",", RowBox[{"FrameTicks", "->", "False"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"24", "*", SuperscriptBox["10", "3"]}]}], "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.8703379978267174`*^9, 3.8703380290143604`*^9}, 3.870338677547329*^9, 3.8707912196612453`*^9, {3.8708776637366166`*^9, 3.8708777320344996`*^9}, {3.870877808093382*^9, 3.8708778242955365`*^9}, 3.870878218443729*^9, {3.87089197651674*^9, 3.870891987903799*^9}, 3.8708920591276574`*^9, 3.8708921042647977`*^9, 3.8708921494281025`*^9, { 3.870893360390463*^9, 3.8708933823700247`*^9}, {3.8709421691568766`*^9, 3.87094219654668*^9}, 3.870942257629178*^9, 3.871053120411022*^9, { 3.8710551323925123`*^9, 3.8710551571969447`*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"73f1e0f4-fc18-48e7-80f0-9136d9878e48"], Cell[BoxData["gd"], "Input", CellChangeTimes->{{3.904896674136001*^9, 3.9048966742610025`*^9}}, CellLabel->"In[14]:=",ExpressionUUID->"30dcb392-f692-4697-be0c-86025840ddf8"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Contaminations", "Section", CellChangeTimes->{{3.870941623488143*^9, 3.870941624781828*^9}, { 3.8710566572013187`*^9, 3.871056661255905*^9}},ExpressionUUID->"c72d7ca5-a1cb-4eec-a1db-\ 1087298cfd1f"], Cell[CellGroupData[{ Cell["First part", "Subsection", CellChangeTimes->{{3.8709441005548306`*^9, 3.870944103121689*^9}},ExpressionUUID->"d4d8a613-d3ca-4a7e-b8dd-\ 99e76939338b"], Cell[BoxData[ RowBox[{"n1", "=", " ", "96", " ", RowBox[{"(*", "BR", "*)"}]}]], "Input", CellChangeTimes->{{3.885303853688653*^9, 3.885303876799182*^9}, { 3.8853039412389402`*^9, 3.8853039554738045`*^9}, {3.885304648156492*^9, 3.8853046494377527`*^9}, {3.908377906655314*^9, 3.9083779068114004`*^9}}, CellLabel-> "In[394]:=",ExpressionUUID->"a3644006-c726-4b08-a19d-da718b514fa2"], Cell[BoxData[ RowBox[{ RowBox[{"Data1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"DataAll", "[", RowBox[{"[", RowBox[{"1", ",", "i", ",", "5"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n1"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.867833607979697*^9, 3.8678336417547903`*^9}, 3.867834042482584*^9, 3.867834167808469*^9, {3.869228379395009*^9, 3.8692283841724577`*^9}, {3.8692285327297277`*^9, 3.8692285335105352`*^9}, {3.8696639875185523`*^9, 3.869663991411394*^9}, { 3.8707908150861864`*^9, 3.870790820243222*^9}, {3.870891869329871*^9, 3.870891887445064*^9}, {3.8708919270279016`*^9, 3.8708919310272264`*^9}, { 3.87094213776725*^9, 3.8709421385938425`*^9}, {3.8709444109197607`*^9, 3.8709444181136146`*^9}, {3.8770888680926695`*^9, 3.877088868188154*^9}, { 3.8853039688966703`*^9, 3.8853039690060587`*^9}, {3.9083779155615606`*^9, 3.9083779171553125`*^9}},ExpressionUUID->"6738a859-1b22-42cf-b082-\ a48fda9110c8"], Cell[BoxData[ RowBox[{ RowBox[{"Data1b", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{"DataAll", "[", RowBox[{"[", RowBox[{"1", ",", "i", ",", "5"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n1"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.870891949547256*^9, 3.870891955747621*^9}, { 3.870942154736216*^9, 3.870942155364955*^9}, {3.870944422170905*^9, 3.870944429072955*^9}, {3.877088871350814*^9, 3.877088871466403*^9}, { 3.8853039785222006`*^9, 3.885303978647207*^9}, {3.9083779208740616`*^9, 3.9083779216396856`*^9}},ExpressionUUID->"e2d9512f-534c-404e-8f63-\ 766e589a7778"], Cell[BoxData[ RowBox[{"l1", "=", "10"}]], "Input", CellChangeTimes->{{3.870941700057722*^9, 3.870941703626641*^9}, { 3.870943576800144*^9, 3.870943577707052*^9}, {3.8709442099463186`*^9, 3.870944220344717*^9}, {3.8853047181917753`*^9, 3.8853047186448994`*^9}, { 3.885305799588354*^9, 3.8853058001039734`*^9}, {3.885305854624651*^9, 3.885305855921527*^9}, {3.8853060259949713`*^9, 3.8853060266668434`*^9}, { 3.885307432116104*^9, 3.8853074332411003`*^9}, {3.8853083274055295`*^9, 3.8853083303742857`*^9}, {3.885308405159259*^9, 3.8853084058000755`*^9}, { 3.885308511759242*^9, 3.8853085125717373`*^9}, {3.8853086247009425`*^9, 3.885308624810318*^9}, {3.885308672032172*^9, 3.8853086730790586`*^9}, { 3.885308729004796*^9, 3.885308729082919*^9}, {3.8853089268103523`*^9, 3.885308927685171*^9}, {3.885309847597536*^9, 3.8853098479098406`*^9}, { 3.8853102226079473`*^9, 3.8853102227173147`*^9}, {3.8933597295444546`*^9, 3.893359730105548*^9}, {3.8933601503149147`*^9, 3.893360151534171*^9}, { 3.893360202131283*^9, 3.8933602026804967`*^9}, {3.8933602651385827`*^9, 3.893360265853343*^9}, {3.8933603229097652`*^9, 3.893360323027627*^9}, { 3.8933621421327477`*^9, 3.893362142680525*^9}, 3.904897675661442*^9, { 3.904897739908194*^9, 3.9048977404549136`*^9}}, CellLabel-> "In[387]:=",ExpressionUUID->"919a2a64-fcd6-4a02-bb5f-c4a64de8d9f1"], Cell[BoxData[ RowBox[{ RowBox[{"mf1", "=", RowBox[{"cshn", "[", RowBox[{"z", ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["a", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["b", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["c", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.867832129979463*^9, 3.867832158572497*^9}, 3.8708918194752913`*^9, {3.8709442342350492`*^9, 3.8709442476434917`*^9}}, CellLabel-> "In[388]:=",ExpressionUUID->"e31eb85c-ab8e-4ea3-9b33-b8a95000e4ad"], Cell[BoxData[ RowBox[{ RowBox[{"Pars1", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ SubscriptBox["a", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["c", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["b", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.867834570829482*^9, 3.8678345775014815`*^9}, { 3.870942389746482*^9, 3.8709424187653246`*^9}, {3.8709442605776134`*^9, 3.870944290983293*^9}}, CellLabel-> "In[389]:=",ExpressionUUID->"6ab1d067-a4b2-4f2e-b517-208c21e9bf9d"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Cons1", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"0.01", "<", SubscriptBox["a", "i"], "<", "0.96"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"1", "<", SubscriptBox["c", "i"], "<", "80"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ SuperscriptBox["10", "1"], "<", SubscriptBox["b", "i"], "<", SuperscriptBox["10", "7"]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["c", "i"], "/", SubscriptBox["a", "i"]}], "<", "n1"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}]}], "]"}]}], ";"}], " "}]], "Input", CellChangeTimes->{{3.885304247672944*^9, 3.8853042565635853`*^9}, { 3.8853048040867057`*^9, 3.885304804680252*^9}, {3.8853048555117745`*^9, 3.885304855683449*^9}, {3.8853049250797567`*^9, 3.8853049591151047`*^9}, { 3.8853050568741612`*^9, 3.8853050570460224`*^9}, {3.8853051106279087`*^9, 3.885305114737282*^9}, {3.8853051826457787`*^9, 3.885305182802038*^9}, { 3.8853052256177626`*^9, 3.8853052259615107`*^9}, {3.885305275559865*^9, 3.885305276700673*^9}, {3.88530533367214*^9, 3.885305334172145*^9}, { 3.885305393300015*^9, 3.885305393971732*^9}, {3.885305436287636*^9, 3.885305436944083*^9}, {3.8853055231201305`*^9, 3.88530552393264*^9}, { 3.8853056116411304`*^9, 3.8853056117661314`*^9}, {3.8853056549250956`*^9, 3.8853056557065487`*^9}, {3.8853057007558928`*^9, 3.885305701365469*^9}, { 3.8853059187539897`*^9, 3.8853059193008614`*^9}, {3.8853059656476965`*^9, 3.885305966303751*^9}, {3.885306080029665*^9, 3.8853060817640305`*^9}, { 3.8853061308621893`*^9, 3.8853061753032146`*^9}, {3.885306219009184*^9, 3.8853062213529425`*^9}, {3.885306362576228*^9, 3.88530636415434*^9}, { 3.88530770743559*^9, 3.8853077085920277`*^9}, {3.8853077393285723`*^9, 3.8853077399223213`*^9}, {3.885307795330293*^9, 3.885307795971113*^9}, 3.885307847645425*^9, {3.8853079078509197`*^9, 3.8853079084759207`*^9}, { 3.885307971884968*^9, 3.8853079767755923`*^9}, {3.8853080104656305`*^9, 3.8853080119812536`*^9}, {3.8853080908430767`*^9, 3.8853080918431015`*^9}, {3.885308137814732*^9, 3.8853081628955746`*^9}, { 3.885308194132041*^9, 3.8853081959133015`*^9}, {3.8853082425723615`*^9, 3.8853082431350527`*^9}, {3.885308284966072*^9, 3.885308285622325*^9}, { 3.8853085298534937`*^9, 3.8853085299628735`*^9}, {3.8853088056951523`*^9, 3.8853088061951623`*^9}, {3.8853088724323473`*^9, 3.8853088728852577`*^9}, 3.8853089959898567`*^9, {3.8853097202176213`*^9, 3.885309720858058*^9}, { 3.8853097586577654`*^9, 3.8853097626421356`*^9}, {3.885309922804079*^9, 3.885309928819701*^9}, {3.885309970477724*^9, 3.885309971165225*^9}, { 3.8933589572245283`*^9, 3.893358958659233*^9}, {3.8933591358220215`*^9, 3.8933591359182024`*^9}, {3.8933591800516405`*^9, 3.893359180176862*^9}, { 3.893359254006399*^9, 3.893359254914632*^9}, {3.893359330267268*^9, 3.893359330742404*^9}, {3.8933594355298257`*^9, 3.8933594366323586`*^9}, { 3.893359499054765*^9, 3.893359499627181*^9}, {3.8933595697846518`*^9, 3.893359576007849*^9}, {3.8933596397204404`*^9, 3.893359639811404*^9}, { 3.893359696387888*^9, 3.8933596975696697`*^9}, {3.8933598029658904`*^9, 3.8933598368125577`*^9}, {3.893359943201434*^9, 3.893359944314442*^9}, { 3.893359991164522*^9, 3.8933599919295316`*^9}, {3.8933600397556343`*^9, 3.893360040801405*^9}, {3.893360083908104*^9, 3.893360084568057*^9}, { 3.893360393979486*^9, 3.8933603945074177`*^9}, {3.893360452735924*^9, 3.8933604529123516`*^9}, {3.8933604956407957`*^9, 3.8933604964254675`*^9}, {3.893360548497713*^9, 3.8933605499286695`*^9}, { 3.8933621827043734`*^9, 3.8933622016356516`*^9}, {3.9048977814003024`*^9, 3.904897781963*^9}, {3.904897846600715*^9, 3.9048978466161814`*^9}, { 3.9048978821233764`*^9, 3.9048978956419225`*^9}, {3.904897934805147*^9, 3.9048979355869474`*^9}, {3.904897965921009*^9, 3.90489796648332*^9}, { 3.9083779307489204`*^9, 3.9083779313428106`*^9}},ExpressionUUID->"cd1e4f9f-3a61-44bb-ac03-\ b564a3cecf7f"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Cons1", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"0.01", "<", SubscriptBox["a", "i"], "<", "0.6"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"0.1", "<", SubscriptBox["c", "i"], "<", "80"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ SuperscriptBox["10", "1"], "<", SubscriptBox["b", "i"], "<", SuperscriptBox["10", "7"]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"0", "<", RowBox[{ SubscriptBox["c", "i"], "/", SubscriptBox["a", "i"]}], "<", RowBox[{"n1", "+", "4"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}]}], "]"}]}], ";"}], " "}]], "Input", CellChangeTimes->{{3.9083777950292587`*^9, 3.908377820544735*^9}, { 3.9083779349209356`*^9, 3.9083779354678116`*^9}, {3.908377993983528*^9, 3.908377997280428*^9}, {3.908378034218361*^9, 3.9083780347496085`*^9}}, CellLabel-> "In[402]:=",ExpressionUUID->"1adb5054-3273-443a-8d09-ddc4fb505033"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t0", ",", "lsf1"}], "}"}], "=", RowBox[{"AbsoluteTiming", "[", RowBox[{"NonlinearModelFit", "[", RowBox[{"Data1", ",", RowBox[{"{", RowBox[{"mf1", ",", "Cons1"}], "}"}], ",", "Pars1", ",", RowBox[{"{", "z", "}"}], ",", RowBox[{"MaxIterations", "\[Rule]", "60000"}]}], "]"}], "]"}]}], ";", " ", "t0"}]], "Input", CellChangeTimes->{{3.8696649023379245`*^9, 3.8696649531392283`*^9}, { 3.8697258207695074`*^9, 3.869725821480483*^9}, {3.8697265516411*^9, 3.8697265520491714`*^9}, {3.869732294992208*^9, 3.86973229683278*^9}, { 3.869733165401655*^9, 3.8697331661405754`*^9}, {3.8697373580290446`*^9, 3.869737358697692*^9}, {3.869744460132951*^9, 3.869744470596495*^9}, { 3.8697523910705624`*^9, 3.869752393040555*^9}, {3.869755922118797*^9, 3.8697559238834257`*^9}, {3.8697561207431426`*^9, 3.869756121493045*^9}, { 3.869756160011915*^9, 3.869756168565979*^9}, {3.86975627964835*^9, 3.869756281294915*^9}, 3.869838664700287*^9, {3.870265616754628*^9, 3.870265616882077*^9}, {3.87026726926554*^9, 3.870267269435379*^9}, { 3.870892909198313*^9, 3.870892910305993*^9}, 3.8708936939969606`*^9, 3.870894335050465*^9, {3.8709443474842157`*^9, 3.870944356400553*^9}, 3.870944445627025*^9, {3.8853050280109634`*^9, 3.8853050281517916`*^9}, { 3.893359313922022*^9, 3.8933593147862034`*^9}, {3.8944845308631086`*^9, 3.8944845322624216`*^9}, {3.9048975997234635`*^9, 3.904897599801575*^9}, { 3.9083778355447307`*^9, 3.9083778356539497`*^9}}, CellLabel-> "In[403]:=",ExpressionUUID->"3ed0b713-0c5b-4ea2-b5a3-8672433c3d83"], Cell[BoxData[{ RowBox[{ RowBox[{"FR", "=", RowBox[{"lsf1", "[", "\"\\"", "]"}]}], ";"}], "\n", RowBox[{"lsf1", "[", RowBox[{"\"\\"", ",", RowBox[{"VarianceEstimatorFunction", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"RMS", "[", RowBox[{"#", ",", "n1", ",", RowBox[{"3", "*", "l1"}]}], "]"}], "&"}], ")"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.867834878616255*^9, 3.867834878772255*^9}, 3.8692243637591076`*^9, {3.869224444478524*^9, 3.8692244539570875`*^9}, { 3.869229367657488*^9, 3.869229370946748*^9}, {3.870944594624638*^9, 3.8709446032108283`*^9}, {3.8770890473344407`*^9, 3.8770890602566085`*^9}, {3.8853040677297254`*^9, 3.8853040677922115`*^9}, {3.9083779438896866`*^9, 3.9083779445146856`*^9}}, CellLabel-> "In[404]:=",ExpressionUUID->"9105c868-3b2a-4597-8225-05d441f766fc"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"lsf1", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"n1", "+", "4"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}]}], ",", RowBox[{"PlotRange", "->", "Full"}], ",", RowBox[{"Epilog", "->", RowBox[{"Point", "[", "Data1b", "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.8708070875569153`*^9, 3.8708070877519207`*^9}, { 3.8708927694670935`*^9, 3.8708927701268067`*^9}, {3.870944630431551*^9, 3.8709446429311743`*^9}, {3.8853047007061033`*^9, 3.8853047014404097`*^9}, { 3.9083778968271875`*^9, 3.9083778969053116`*^9}, {3.9083779495459385`*^9, 3.9083779579835496`*^9}}, CellLabel-> "In[406]:=",ExpressionUUID->"c4d5c03b-8dd4-42f8-9de4-afb63c3067bf"], Cell[BoxData[ RowBox[{"pars1", "=", RowBox[{"lsf1", "[", "\"\\"", "]"}]}]], "Input", CellChangeTimes->{{3.8709447037162905`*^9, 3.870944706183713*^9}}, CellLabel-> "In[407]:=",ExpressionUUID->"57a46e14-df0e-4679-80dc-0c271f6540c5"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "1"], "\[Rule]", "0.34021560276398`"}], ",", RowBox[{ SubscriptBox["a", "2"], "\[Rule]", "0.18365561466844585`"}], ",", RowBox[{ SubscriptBox["a", "3"], "\[Rule]", "0.599387552917628`"}], ",", RowBox[{ SubscriptBox["a", "4"], "\[Rule]", "0.21232184323617703`"}], ",", RowBox[{ SubscriptBox["a", "5"], "\[Rule]", "0.11592628454961819`"}], ",", RowBox[{ SubscriptBox["a", "6"], "\[Rule]", "0.1852184686874211`"}], ",", RowBox[{ SubscriptBox["a", "7"], "\[Rule]", "0.36328108033834133`"}], ",", RowBox[{ SubscriptBox["a", "8"], "\[Rule]", "0.2655525613171134`"}], ",", RowBox[{ SubscriptBox["a", "9"], "\[Rule]", "0.06788533127270235`"}], ",", RowBox[{ SubscriptBox["a", "10"], "\[Rule]", "0.6000000099997532`"}], ",", RowBox[{ SubscriptBox["c", "1"], "\[Rule]", "14.21644649910547`"}], ",", RowBox[{ SubscriptBox["c", "2"], "\[Rule]", "10.34519280976851`"}], ",", RowBox[{ SubscriptBox["c", "3"], "\[Rule]", "41.648874859162625`"}], ",", RowBox[{ SubscriptBox["c", "4"], "\[Rule]", "3.513794155803186`"}], ",", RowBox[{ SubscriptBox["c", "5"], "\[Rule]", "3.7316961389351393`"}], ",", RowBox[{ SubscriptBox["c", "6"], "\[Rule]", "4.393707527126317`"}], ",", RowBox[{ SubscriptBox["c", "7"], "\[Rule]", "17.250953225533554`"}], ",", RowBox[{ SubscriptBox["c", "8"], "\[Rule]", "17.311967590219375`"}], ",", RowBox[{ SubscriptBox["c", "9"], "\[Rule]", "4.9277713590183785`"}], ",", RowBox[{ SubscriptBox["c", "10"], "\[Rule]", "44.37237274108177`"}], ",", RowBox[{ SubscriptBox["b", "1"], "\[Rule]", "663144.4164750094`"}], ",", RowBox[{ SubscriptBox["b", "2"], "\[Rule]", "2.356167880322695`*^6"}], ",", RowBox[{ SubscriptBox["b", "3"], "\[Rule]", "391790.56452744553`"}], ",", RowBox[{ SubscriptBox["b", "4"], "\[Rule]", "674253.825370191`"}], ",", RowBox[{ SubscriptBox["b", "5"], "\[Rule]", "1.1809796140324108`*^6"}], ",", RowBox[{ SubscriptBox["b", "6"], "\[Rule]", "1.2087077316876717`*^6"}], ",", RowBox[{ SubscriptBox["b", "7"], "\[Rule]", "730228.6631671429`"}], ",", RowBox[{ SubscriptBox["b", "8"], "\[Rule]", "810107.1170989581`"}], ",", RowBox[{ SubscriptBox["b", "9"], "\[Rule]", "3.097326988746786`*^6"}], ",", RowBox[{ SubscriptBox["b", "10"], "\[Rule]", "133014.89787129784`"}]}], "}"}]], "Input",ExpressionUUID->"a2f1540a-8e55-491f-8d08-eb3227b3e956"], Cell[BoxData[ RowBox[{"Pars1", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "i"], ",", RowBox[{ SubscriptBox["a", "i"], "/.", "pars1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["c", "i"], ",", RowBox[{ SubscriptBox["c", "i"], "/.", "pars1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "i"], ",", RowBox[{ SubscriptBox["b", "i"], "/.", "pars1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.8703383358095846`*^9, 3.8703383359032965`*^9}, 3.8703385368297215`*^9, 3.8708069708168297`*^9, {3.8709447711598516`*^9, 3.870944777123497*^9}, {3.8770995071274195`*^9, 3.8770995162602825`*^9}}, CellLabel-> "In[408]:=",ExpressionUUID->"1f2b68f9-5d7a-4ed7-ac66-7cf93ec5aafc"], Cell[BoxData[ RowBox[{"Pars1BR", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "0.3442544314568885`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "2"], ",", "0.06265025791695183`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "3"], ",", "0.11751913671825302`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "4"], ",", "0.3695226437922263`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "5"], ",", "0.19378419843330846`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "6"], ",", "0.29894114249384784`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "7"], ",", "0.18752557321622793`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "8"], ",", "0.21221509339360087`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "9"], ",", "0.5971713010553253`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "10"], ",", "0.9600000099999672`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "1"], ",", "14.38120931929726`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "2"], ",", "4.351620378460686`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "3"], ",", "3.7478183168053985`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "4"], ",", "17.54671424061865`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "5"], ",", "10.903826746993905`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "6"], ",", "19.457759706853334`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "7"], ",", "4.446031475614506`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "8"], ",", "3.516623652679805`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "9"], ",", "41.47475464006512`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "10"], ",", "71.06632302071381`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "633664.3243725311`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "2"], ",", "4.0044840715635186`*^6"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "3"], ",", "1.135564175304713`*^6"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "4"], ",", "686639.3094733317`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "5"], ",", "1.9440307014502825`*^6"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "6"], ",", "549142.436488662`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "7"], ",", "1.178598948495137`*^6"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "8"], ",", "680689.1254867393`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "9"], ",", "370152.93649694487`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "10"], ",", "79019.55848215359`"}], "}"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.8933587887212152`*^9, 3.8933588162926664`*^9}, 3.8933621305306177`*^9, 3.8933622464930716`*^9, 3.89448461630927*^9, 3.904897657203971*^9, 3.904898012945341*^9}, CellLabel-> "In[134]:=",ExpressionUUID->"8e8b57ef-6f28-48ad-be27-d4173bae4035"], Cell["Go Maple!", "Text", CellChangeTimes->{{3.8697246415680885`*^9, 3.869724644647354*^9}},ExpressionUUID->"11bab72b-c843-498d-9164-\ 6321269a8360"], Cell[BoxData[ RowBox[{ RowBox[{"ParsMaple", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ SubscriptBox["a", "i"], "/.", "pars1"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ SubscriptBox["c", "i"], "/.", "pars1"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ SubscriptBox["b", "i"], "/.", "pars1"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.867848620243645*^9, 3.8678486971683884`*^9}, { 3.8679151951023393`*^9, 3.8679151971583385`*^9}, 3.869226041175602*^9, 3.87761538957613*^9, {3.8944847109876146`*^9, 3.8944847651704254`*^9}}, CellLabel-> "In[409]:=",ExpressionUUID->"1fa3207b-9d89-47ac-bfa1-bdd2a6414e32"], Cell[BoxData[ RowBox[{ RowBox[{"Export", "[", RowBox[{ "\"\\"", ",", "ParsMaple", ",", "\"\\""}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.867915697525957*^9, 3.8679157280658646`*^9}, 3.8679157628765945`*^9, {3.8679164509181013`*^9, 3.867916451654106*^9}, 3.867916808995467*^9, 3.867917142053749*^9, {3.867917632604063*^9, 3.8679176413030043`*^9}, {3.867929514447388*^9, 3.867929516560387*^9}, { 3.867930359137655*^9, 3.867930360405655*^9}, {3.869042378475341*^9, 3.8690423865541596`*^9}, {3.8690498646245327`*^9, 3.869049868272987*^9}, 3.869226047759435*^9, {3.869664545710162*^9, 3.869664546845023*^9}, { 3.8697257951606436`*^9, 3.8697257954476876`*^9}, {3.869751738310028*^9, 3.869751744380788*^9}, 3.8697558833468914`*^9, {3.869836556856716*^9, 3.869836556925766*^9}, {3.8703384927006083`*^9, 3.8703384969338017`*^9}, { 3.870339143253948*^9, 3.8703391440818763`*^9}, {3.87036072023104*^9, 3.870360723804949*^9}, 3.870365323681324*^9, {3.870448556460325*^9, 3.870448556651752*^9}, {3.870879015485437*^9, 3.8708790192284355`*^9}, { 3.870893538346167*^9, 3.870893539412013*^9}, 3.87104557858768*^9, { 3.8771008479686832`*^9, 3.877100850810518*^9}, {3.894484730195363*^9, 3.89448473581075*^9}, 3.894484802723254*^9}, CellLabel-> "In[410]:=",ExpressionUUID->"bec225a2-9ef8-4ad0-8be2-c60327f8742f"], Cell[BoxData[ RowBox[{ RowBox[{"gf1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"lsf1", "[", "i", "]"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"n1", "+", "12"}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "200"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1.6", "*", SuperscriptBox["10", "6"]}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", "Magenta", "}"}]}], ",", RowBox[{"GridLines", "->", "Automatic"}], ",", RowBox[{"Frame", "->", "True"}], ",", RowBox[{"ImageSize", "->", "800"}], ",", RowBox[{"ImagePadding", "->", "60"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{ "{", "\"\<\!\(\*SubscriptBox[\(\[ScriptCapitalZ]\), \(a\)]\)(n)\>\"", "}"}], ",", "Below"}], "]"}]}], ",", RowBox[{"FrameLabel", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "None"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "None"}], "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.870893042085024*^9, 3.870893071424758*^9}, { 3.8708932351373615`*^9, 3.870893263626501*^9}, {3.870893298766883*^9, 3.8708932988554955`*^9}, {3.8709636554052777`*^9, 3.8709637057698674`*^9}, { 3.870963784521944*^9, 3.870963790720209*^9}, {3.8709638331309447`*^9, 3.8709638335118675`*^9}, {3.8770995365775566`*^9, 3.877099540165415*^9}, { 3.8853043973507404`*^9, 3.8853044067417297`*^9}, {3.885304530573325*^9, 3.885304533760824*^9}, {3.908378161718917*^9, 3.9083781718437576`*^9}, { 3.908378235531726*^9, 3.908378285048131*^9}}, CellLabel-> "In[417]:=",ExpressionUUID->"e9485626-019c-4a45-b231-29b0cbfff40f"], Cell[BoxData[ RowBox[{"gfc1", "=", RowBox[{"Overlay", "[", RowBox[{"{", RowBox[{"gf1", ",", "gc"}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.8708930927308626`*^9, 3.8708930987028093`*^9}, { 3.8709637151085815`*^9, 3.870963719673771*^9}, {3.870963876897517*^9, 3.8709638841272526`*^9}}, CellLabel-> "In[418]:=",ExpressionUUID->"7f856a76-b2fa-4725-a20a-a52ee624559e"] }, Closed]], Cell[CellGroupData[{ Cell["Second part", "Subsection", CellChangeTimes->{{3.8709441005548306`*^9, 3.870944103121689*^9}, { 3.8709639383725348`*^9, 3.87096394221332*^9}},ExpressionUUID->"898d8142-4872-4e3e-b06a-\ f54f94a176e7"], Cell[BoxData[ RowBox[{"n2", "=", "96"}]], "Input", CellChangeTimes->{{3.8775980142897835`*^9, 3.877598017741531*^9}, { 3.9048969295306463`*^9, 3.9048969314843936`*^9}}, CellLabel-> "In[295]:=",ExpressionUUID->"cc359a44-f488-4c9d-8a11-5974229044a0"], Cell[BoxData[ RowBox[{"n3", "=", "153"}]], "Input", CellLabel-> "In[296]:=",ExpressionUUID->"26f69913-3c5b-4347-add1-4130aec98328"], Cell[BoxData[ RowBox[{ RowBox[{"Data2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Data", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "n2", ",", "n3"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.867833607979697*^9, 3.8678336417547903`*^9}, 3.867834042482584*^9, 3.867834167808469*^9, {3.869228379395009*^9, 3.8692283841724577`*^9}, {3.8692285327297277`*^9, 3.8692285335105352`*^9}, {3.8696639875185523`*^9, 3.869663991411394*^9}, { 3.8707908150861864`*^9, 3.870790820243222*^9}, {3.870891869329871*^9, 3.870891887445064*^9}, {3.8708919270279016`*^9, 3.8708919310272264`*^9}, { 3.87094213776725*^9, 3.8709421385938425`*^9}, {3.8709444109197607`*^9, 3.8709444181136146`*^9}, {3.8709639486815453`*^9, 3.870963961045286*^9}, { 3.8770885127216387`*^9, 3.87708851281291*^9}, {3.8775979842738657`*^9, 3.877597985965374*^9}, {3.8775980310197105`*^9, 3.877598050100524*^9}, { 3.90489691349618*^9, 3.9048969190130215`*^9}, 3.9083753103810635`*^9}, CellLabel-> "In[297]:=",ExpressionUUID->"591fa2db-2ae7-4594-b898-ef97114f8d2a"], Cell[BoxData[ RowBox[{ RowBox[{"Data2b", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{"Data", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "n2", ",", "n3"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.870891949547256*^9, 3.870891955747621*^9}, { 3.870942154736216*^9, 3.870942155364955*^9}, {3.870944422170905*^9, 3.870944429072955*^9}, {3.870963971662084*^9, 3.870963980655541*^9}, { 3.8770885165320873`*^9, 3.877088516656339*^9}, {3.8775980687937145`*^9, 3.8775980895430183`*^9}, {3.877598144366598*^9, 3.8775981627457943`*^9}, { 3.904896922622941*^9, 3.9048969243264837`*^9}, 3.908375319599815*^9}, CellLabel-> "In[298]:=",ExpressionUUID->"2e275371-0b11-4809-8d63-0fc8848217d7"], Cell[BoxData[ RowBox[{"l1", "=", "10"}]], "Input", CellChangeTimes->{{3.877087804782305*^9, 3.8770878106827483`*^9}, { 3.904898029875766*^9, 3.9048980303447547`*^9}}, CellLabel-> "In[299]:=",ExpressionUUID->"96b5e056-1cbc-4e35-b45f-902d0be5a8cf"], Cell[BoxData[ RowBox[{"l2", "=", "6"}]], "Input", CellChangeTimes->{{3.870941700057722*^9, 3.870941703626641*^9}, { 3.870943576800144*^9, 3.870943577707052*^9}, {3.8709442099463186`*^9, 3.870944220344717*^9}, {3.87096398743102*^9, 3.870963987521147*^9}, { 3.877598277243244*^9, 3.877598278296707*^9}, {3.8775999474783506`*^9, 3.8775999485783377`*^9}, {3.8776043932778254`*^9, 3.877604394020425*^9}, { 3.90489706315802*^9, 3.904897063830085*^9}, {3.908375337414407*^9, 3.9083753383518424`*^9}}, CellLabel-> "In[300]:=",ExpressionUUID->"c8410cea-0d57-4af9-8faa-456d7cfb36f1"], Cell[BoxData[ RowBox[{ RowBox[{"mf2", "=", RowBox[{"cshn", "[", RowBox[{"z", ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["a", "i"], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "1"}], ",", RowBox[{"l1", "+", "l2"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["b", "i"], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "1"}], ",", RowBox[{"l1", "+", "l2"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["c", "i"], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "1"}], ",", RowBox[{"l1", "+", "l2"}]}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.867832129979463*^9, 3.867832158572497*^9}, 3.8708918194752913`*^9, {3.8709442342350492`*^9, 3.8709442476434917`*^9}, { 3.8709639958539886`*^9, 3.870964006063445*^9}, {3.8709640539212065`*^9, 3.8709641051602545`*^9}}, CellLabel-> "In[301]:=",ExpressionUUID->"7b9b9d83-1d7b-4250-a272-5215425484e7"], Cell[BoxData[ RowBox[{"Pars2", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ SubscriptBox["a", "i"], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "1"}], ",", RowBox[{"l1", "+", "l2"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["c", "i"], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "1"}], ",", RowBox[{"l1", "+", "l2"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["b", "i"], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "1"}], ",", RowBox[{"l1", "+", "l2"}]}], "}"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.867834570829482*^9, 3.8678345775014815`*^9}, { 3.870942389746482*^9, 3.8709424187653246`*^9}, {3.8709442605776134`*^9, 3.870944290983293*^9}, {3.870964012793183*^9, 3.8709640234502068`*^9}, { 3.8709641225539055`*^9, 3.870964129481372*^9}, {3.870964170592956*^9, 3.8709641774432645`*^9}, 3.9083753723324394`*^9}, CellLabel-> "In[302]:=",ExpressionUUID->"4d5ff2a2-02e8-4315-9690-f16b5cc9b4e7"], Cell[BoxData[ RowBox[{ RowBox[{"Cons2", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"0.01", "<", SubscriptBox["a", "i"], "<", "0.9"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "1"}], ",", RowBox[{"l1", "+", "l2"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"1", "<", SubscriptBox["c", "i"], "<", "80"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "1"}], ",", RowBox[{"l1", "+", "l2"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ SuperscriptBox["10", "1"], "<", SubscriptBox["b", "i"], "<", SuperscriptBox["10", "7"]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "1"}], ",", RowBox[{"l1", "+", "l2"}]}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.870943197443465*^9, 3.870943201625883*^9}, { 3.870944283544839*^9, 3.8709443201375895`*^9}, {3.8709640311805105`*^9, 3.8709640348758936`*^9}, {3.870964133634597*^9, 3.8709641425285974`*^9}, { 3.870964184136936*^9, 3.87096419317742*^9}}, CellLabel->"In[74]:=",ExpressionUUID->"a358bd6e-2fd3-441d-aa07-e16a19918c5a"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Cons2", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"0.01", "<", SubscriptBox["a", "i"], "<", "0.6"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "1"}], ",", RowBox[{"l1", "+", "l2"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"0.1", "<", SubscriptBox["c", "i"], "<", "60"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "1"}], ",", RowBox[{"l1", "+", "l2"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ SuperscriptBox["10", "1"], "<", SubscriptBox["b", "i"], "<", SuperscriptBox["10", "7"]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "1"}], ",", RowBox[{"l1", "+", "l2"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"1", "<", RowBox[{ SubscriptBox["c", "i"], "/", SubscriptBox["a", "i"]}], "<", RowBox[{"n3", "+", "4"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "1"}], ",", RowBox[{"l1", "+", "l2"}]}], "}"}]}], "]"}]}], "]"}]}], ";"}], " "}]], "Input", CellChangeTimes->{{3.8702680472882824`*^9, 3.870268062880148*^9}, { 3.870274527961333*^9, 3.8702745289124813`*^9}, {3.870274712729985*^9, 3.8702747138006673`*^9}, {3.8703380760634556`*^9, 3.870338085777099*^9}, { 3.870338134356515*^9, 3.870338134781331*^9}, {3.870338715435112*^9, 3.870338740776287*^9}, {3.870359410836882*^9, 3.8703594114353127`*^9}, { 3.870359494778078*^9, 3.870359503140952*^9}, 3.8703645089762597`*^9, { 3.8704435176581383`*^9, 3.8704435249828515`*^9}, 3.8704465109072294`*^9, { 3.8704471172830877`*^9, 3.870447117490363*^9}, {3.870448573777196*^9, 3.8704485746457186`*^9}, {3.8707868280045576`*^9, 3.8707869329824204`*^9}, 3.870892974501359*^9, {3.87089364835896*^9, 3.8708936623592963`*^9}, { 3.870894444232833*^9, 3.8708944531899633`*^9}, {3.8708945052751646`*^9, 3.870894509928249*^9}, 3.8709424914766407`*^9, {3.8709443307752733`*^9, 3.870944339866149*^9}, {3.8709641474240932`*^9, 3.8709641588991756`*^9}, { 3.8709641994977407`*^9, 3.8709642292079687`*^9}, {3.8770874902344704`*^9, 3.8770874967737436`*^9}, {3.8770878904304543`*^9, 3.877087890547224*^9}, { 3.877087940184823*^9, 3.877087948274808*^9}, {3.877088035860699*^9, 3.877088036610381*^9}, {3.877088087761205*^9, 3.877088087856166*^9}, { 3.8770886360573907`*^9, 3.8770886361904974`*^9}, 3.877088700692484*^9, { 3.8775984010866833`*^9, 3.877598401251259*^9}, {3.8775988951982093`*^9, 3.8775988969679337`*^9}, {3.8775993225083437`*^9, 3.8775993226093397`*^9}, {3.8775993833177752`*^9, 3.877599384018194*^9}, { 3.877599445377966*^9, 3.877599445448095*^9}, {3.877599518818184*^9, 3.8775995189683037`*^9}, {3.8775995637978663`*^9, 3.877599563951803*^9}, { 3.877599806898203*^9, 3.8775998458581743`*^9}, {3.8775999986891384`*^9, 3.877600000848173*^9}, {3.877600043609413*^9, 3.877600044098344*^9}, { 3.877600076618606*^9, 3.877600076898345*^9}, {3.8776043460862846`*^9, 3.8776043469278917`*^9}, {3.9048970820224433`*^9, 3.904897082132004*^9}, { 3.9048972075790234`*^9, 3.9048972165341406`*^9}, {3.9048972677643414`*^9, 3.90489726784247*^9}, {3.904897326495208*^9, 3.9048973359503546`*^9}, { 3.9048973872419024`*^9, 3.9048973918989*^9}, {3.9048974252655125`*^9, 3.9048974260779753`*^9}, {3.9083754599420753`*^9, 3.9083754837220497`*^9}, {3.908376004968077*^9, 3.908376013749325*^9}, 3.9083760513587*^9, {3.908376112827295*^9, 3.908376116139792*^9}, { 3.908376146843073*^9, 3.9083762062346745`*^9}}, CellLabel-> "In[341]:=",ExpressionUUID->"67ec7e92-a3a0-4bca-8809-a0da020b024c"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t0", ",", "lsf2"}], "}"}], "=", RowBox[{"AbsoluteTiming", "[", RowBox[{"NonlinearModelFit", "[", RowBox[{"Data2", ",", RowBox[{"{", RowBox[{"mf2", ",", "Cons2"}], "}"}], ",", "Pars2", ",", RowBox[{"{", "z", "}"}], ",", RowBox[{"MaxIterations", "\[Rule]", "60000"}]}], "]"}], "]"}]}], ";", " ", "t0"}]], "Input", CellChangeTimes->{{3.8696649023379245`*^9, 3.8696649531392283`*^9}, { 3.8697258207695074`*^9, 3.869725821480483*^9}, {3.8697265516411*^9, 3.8697265520491714`*^9}, {3.869732294992208*^9, 3.86973229683278*^9}, { 3.869733165401655*^9, 3.8697331661405754`*^9}, {3.8697373580290446`*^9, 3.869737358697692*^9}, {3.869744460132951*^9, 3.869744470596495*^9}, { 3.8697523910705624`*^9, 3.869752393040555*^9}, {3.869755922118797*^9, 3.8697559238834257`*^9}, {3.8697561207431426`*^9, 3.869756121493045*^9}, { 3.869756160011915*^9, 3.869756168565979*^9}, {3.86975627964835*^9, 3.869756281294915*^9}, 3.869838664700287*^9, {3.870265616754628*^9, 3.870265616882077*^9}, {3.87026726926554*^9, 3.870267269435379*^9}, { 3.870892909198313*^9, 3.870892910305993*^9}, 3.8708936939969606`*^9, 3.870894335050465*^9, {3.8709443474842157`*^9, 3.870944356400553*^9}, 3.870944445627025*^9, {3.8709642380156755`*^9, 3.870964251855894*^9}, { 3.90489744861427*^9, 3.904897448692395*^9}, {3.9083762138909206`*^9, 3.9083762145005946`*^9}}, CellLabel-> "In[342]:=",ExpressionUUID->"fac56909-b1c8-42cb-a95a-1f5224613c2e"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t0", ",", "lsf2"}], "}"}], "=", RowBox[{"AbsoluteTiming", "[", RowBox[{"NonlinearModelFit", "[", RowBox[{"Data2", ",", RowBox[{"{", RowBox[{"mf2", ",", "Cons2"}], "}"}], ",", "Pars2", ",", RowBox[{"{", "z", "}"}], ",", RowBox[{"Method", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"Method", "->", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"\"\\"", "\[Rule]", "0.5"}], ",", RowBox[{"\"\\"", "->", " ", "2"}], ",", RowBox[{"\"\\"", "\[Rule]", "1"}], ",", RowBox[{"\"\\"", "\[Rule]", "0.5"}], ",", " ", RowBox[{"\"\\"", "->", " ", "0"}]}], "}"}]}]}], "}"}]}]}], "]"}], "]"}]}], ";", " ", "t0"}]], "Input", CellChangeTimes->{ 3.907680022749219*^9, 3.9076822886587563`*^9, {3.9076845696414633`*^9, 3.907684652374186*^9}, {3.9076847527271676`*^9, 3.907684759835952*^9}, { 3.907685739402398*^9, 3.9076857660743885`*^9}, {3.9076858254926267`*^9, 3.9076858397743797`*^9}, {3.9076859161231556`*^9, 3.9076859475619173`*^9}, {3.90768599229951*^9, 3.907686093816348*^9}, { 3.907686641411504*^9, 3.9076866418693438`*^9}, {3.907766644221284*^9, 3.907766676424999*^9}, {3.907766755878854*^9, 3.9077669235857496`*^9}, { 3.907769166246311*^9, 3.90776916763693*^9}, 3.9077692098398933`*^9, { 3.9077692474498825`*^9, 3.907769259106679*^9}, {3.9077692958258996`*^9, 3.907769317513564*^9}, {3.9077697431764593`*^9, 3.907769815005143*^9}, 3.9077700129273043`*^9, {3.9078338516439385`*^9, 3.9078339450450897`*^9}, { 3.9078341346252384`*^9, 3.907834135672042*^9}, {3.9078341733446655`*^9, 3.907834175631542*^9}, {3.907836834891824*^9, 3.9078368349855676`*^9}, { 3.9078370682060547`*^9, 3.9078370689873075`*^9}, {3.907837125007721*^9, 3.9078371250860033`*^9}, {3.907837177196224*^9, 3.9078373547330837`*^9}, { 3.9083731484736395`*^9, 3.908373200318163*^9}, {3.908373230318701*^9, 3.908373256225833*^9}, {3.9083733211633377`*^9, 3.9083734184777527`*^9}, { 3.9083735581980147`*^9, 3.9083735595572047`*^9}, {3.9083736042447233`*^9, 3.90837364522927*^9}, {3.9083736790909243`*^9, 3.9083737782335434`*^9}, { 3.908373869827649*^9, 3.9083738921095*^9}, {3.9083739325632043`*^9, 3.9083739917355537`*^9}, {3.908374045485371*^9, 3.908374045595478*^9}, { 3.908374077002122*^9, 3.9083740987052765`*^9}, {3.9083741370177555`*^9, 3.908374137486521*^9}, {3.9083741821894693`*^9, 3.908374234597658*^9}, { 3.908374313490529*^9, 3.908374313943815*^9}, {3.9083743762250576`*^9, 3.9083744156941333`*^9}, {3.908374449225584*^9, 3.908374449725572*^9}, { 3.908374520585492*^9, 3.90837453128878*^9}, {3.9083745815544024`*^9, 3.9083745819450254`*^9}, {3.908374648304405*^9, 3.90837464922628*^9}, { 3.9083749596946836`*^9, 3.9083749827416043`*^9}, {3.9083758517329707`*^9, 3.90837587859245*^9}}, CellLabel-> "In[311]:=",ExpressionUUID->"166a5f4a-25df-492f-bf6f-f70d88630fb2"], Cell[BoxData[{ RowBox[{ RowBox[{"FR", "=", RowBox[{"lsf2", "[", "\"\\"", "]"}]}], ";"}], "\n", RowBox[{"lsf2", "[", RowBox[{"\"\\"", ",", RowBox[{"VarianceEstimatorFunction", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"RMS", "[", RowBox[{"#", ",", RowBox[{"n3", "-", "n2", "+", "1"}], ",", RowBox[{"3", "*", "l2"}]}], "]"}], "&"}], ")"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.867834878616255*^9, 3.867834878772255*^9}, 3.8692243637591076`*^9, {3.869224444478524*^9, 3.8692244539570875`*^9}, { 3.869229367657488*^9, 3.869229370946748*^9}, {3.870944594624638*^9, 3.8709446032108283`*^9}, {3.8709642777743073`*^9, 3.870964292671986*^9}, 3.8770875898825474`*^9, {3.877087660813163*^9, 3.87708766603794*^9}, { 3.8770877489645805`*^9, 3.8770877548889027`*^9}, {3.9048969857132273`*^9, 3.904896987573018*^9}, 3.908375517487898*^9}, CellLabel-> "In[343]:=",ExpressionUUID->"26ebda72-b06a-45e0-8ca4-96517c355222"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"lsf2", "[", RowBox[{"i", "-", "n2", "+", "1"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"n2", "-", "2"}], ",", RowBox[{"n3", "+", "2"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}]}], ",", RowBox[{"PlotRange", "->", "Full"}], ",", RowBox[{"Epilog", "->", RowBox[{"Point", "[", "Data2b", "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.8708070875569153`*^9, 3.8708070877519207`*^9}, { 3.8708927694670935`*^9, 3.8708927701268067`*^9}, {3.870944630431551*^9, 3.8709446429311743`*^9}, {3.870964310082224*^9, 3.8709643691971035`*^9}, { 3.8770879812225513`*^9, 3.8770879820541553`*^9}, {3.9048970040610304`*^9, 3.9048970348328724`*^9}, {3.908375563019146*^9, 3.908375567175973*^9}, { 3.908375608425969*^9, 3.9083756120197153`*^9}, {3.9083757747330866`*^9, 3.908375775608101*^9}}, CellLabel-> "In[345]:=",ExpressionUUID->"94d53b18-115d-43c0-a73d-0bd67be707cc"], Cell[BoxData[ RowBox[{"pars2", "=", RowBox[{"lsf2", "[", "\"\\"", "]"}]}]], "Input", CellChangeTimes->{{3.8709447037162905`*^9, 3.870944706183713*^9}, { 3.870964389688529*^9, 3.8709643930406733`*^9}}, CellLabel-> "In[346]:=",ExpressionUUID->"8efde151-d94d-42ca-bf34-b0f3a89d6f74"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "11"], "\[Rule]", "0.1174148402688292`"}], ",", RowBox[{ SubscriptBox["a", "12"], "\[Rule]", "0.3559202014274435`"}], ",", RowBox[{ SubscriptBox["a", "13"], "\[Rule]", "0.6000000099999976`"}], ",", RowBox[{ SubscriptBox["a", "14"], "\[Rule]", "0.487113079987704`"}], ",", RowBox[{ SubscriptBox["a", "15"], "\[Rule]", "0.2539487635454348`"}], ",", RowBox[{ SubscriptBox["a", "16"], "\[Rule]", "0.3470700696276073`"}], ",", RowBox[{ SubscriptBox["c", "11"], "\[Rule]", "3.270402947873767`"}], ",", RowBox[{ SubscriptBox["c", "12"], "\[Rule]", "4.641247715944888`"}], ",", RowBox[{ SubscriptBox["c", "13"], "\[Rule]", "5.530858632325461`"}], ",", RowBox[{ SubscriptBox["c", "14"], "\[Rule]", "3.0475613371110413`"}], ",", RowBox[{ SubscriptBox["c", "15"], "\[Rule]", "13.288225956137694`"}], ",", RowBox[{ SubscriptBox["c", "16"], "\[Rule]", "10.002224478846516`"}], ",", RowBox[{ SubscriptBox["b", "11"], "\[Rule]", "1.7631013052131534`*^6"}], ",", RowBox[{ SubscriptBox["b", "12"], "\[Rule]", "604055.2178172288`"}], ",", RowBox[{ SubscriptBox["b", "13"], "\[Rule]", "662169.0675293418`"}], ",", RowBox[{ SubscriptBox["b", "14"], "\[Rule]", "2.656442363393395`*^6"}], ",", RowBox[{ SubscriptBox["b", "15"], "\[Rule]", "1.0345024377270349`*^6"}], ",", RowBox[{ SubscriptBox["b", "16"], "\[Rule]", "631309.9868757344`"}]}], "}"}]], "Input",ExpressionUUID->"72d59050-c03e-41c1-b532-0c9a976918b8"], Cell[BoxData[ RowBox[{"Pars2", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "i"], ",", RowBox[{ SubscriptBox["a", "i"], "/.", "pars2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "1"}], ",", RowBox[{"l1", "+", "l2"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["c", "i"], ",", RowBox[{ SubscriptBox["c", "i"], "/.", "pars2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "1"}], ",", RowBox[{"l1", "+", "l2"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "i"], ",", RowBox[{ SubscriptBox["b", "i"], "/.", "pars2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "1"}], ",", RowBox[{"l1", "+", "l2"}]}], "}"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.8703383358095846`*^9, 3.8703383359032965`*^9}, 3.8703385368297215`*^9, 3.8708069708168297`*^9, {3.8709447711598516`*^9, 3.870944777123497*^9}, {3.870964415028035*^9, 3.870964484931066*^9}}, CellLabel-> "In[347]:=",ExpressionUUID->"efeb5087-f51d-4c95-bc6d-86748962196b"], Cell["Go Maple!", "Text", CellChangeTimes->{{3.8697246415680885`*^9, 3.869724644647354*^9}},ExpressionUUID->"7c5c632c-b2ea-4e74-97fc-\ 7435fb030ba7"], Cell[BoxData[ RowBox[{ RowBox[{"ParsMaple2", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ SubscriptBox["a", RowBox[{"i", "+", "l1"}]], "/.", "pars2"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l2"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ SubscriptBox["c", RowBox[{"i", "+", "l1"}]], "/.", "pars2"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l2"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ SubscriptBox["b", RowBox[{"i", "+", "l1"}]], "/.", "pars2"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l2"}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.867848620243645*^9, 3.8678486971683884`*^9}, { 3.8679151951023393`*^9, 3.8679151971583385`*^9}, 3.869226041175602*^9, 3.87761538957613*^9, {3.8944847109876146`*^9, 3.8944847651704254`*^9}, { 3.9049012180033426`*^9, 3.904901265245146*^9}, {3.9049013145776997`*^9, 3.904901332301627*^9}}, CellLabel-> "In[348]:=",ExpressionUUID->"76ece0fb-aa74-4bee-b252-701dfbcb7121"], Cell[BoxData[ RowBox[{ RowBox[{"Export", "[", RowBox[{ "\"\\"", ",", "ParsMaple2", ",", "\"\\""}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.867915697525957*^9, 3.8679157280658646`*^9}, 3.8679157628765945`*^9, {3.8679164509181013`*^9, 3.867916451654106*^9}, 3.867916808995467*^9, 3.867917142053749*^9, {3.867917632604063*^9, 3.8679176413030043`*^9}, {3.867929514447388*^9, 3.867929516560387*^9}, { 3.867930359137655*^9, 3.867930360405655*^9}, {3.869042378475341*^9, 3.8690423865541596`*^9}, {3.8690498646245327`*^9, 3.869049868272987*^9}, 3.869226047759435*^9, {3.869664545710162*^9, 3.869664546845023*^9}, { 3.8697257951606436`*^9, 3.8697257954476876`*^9}, {3.869751738310028*^9, 3.869751744380788*^9}, 3.8697558833468914`*^9, {3.869836556856716*^9, 3.869836556925766*^9}, {3.8703384927006083`*^9, 3.8703384969338017`*^9}, { 3.870339143253948*^9, 3.8703391440818763`*^9}, {3.87036072023104*^9, 3.870360723804949*^9}, 3.870365323681324*^9, {3.870448556460325*^9, 3.870448556651752*^9}, {3.870879015485437*^9, 3.8708790192284355`*^9}, { 3.870893538346167*^9, 3.870893539412013*^9}, 3.87104557858768*^9, { 3.8771008479686832`*^9, 3.877100850810518*^9}, {3.894484730195363*^9, 3.89448473581075*^9}, 3.894484802723254*^9, {3.9049012673941545`*^9, 3.9049012766681585`*^9}}, CellLabel-> "In[349]:=",ExpressionUUID->"fdfd2541-f325-4eaa-935c-4e3380c865cd"], Cell[BoxData[ RowBox[{ RowBox[{"gf2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"lsf2", "[", RowBox[{"i", "-", "n2", "+", "1"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"n2", "-", "8"}], ",", RowBox[{"n3", "+", "8"}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "200"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1.6", "*", SuperscriptBox["10", "6"]}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", "Red", "}"}]}], ",", RowBox[{"GridLines", "->", "Automatic"}], ",", RowBox[{"Frame", "->", "True"}], ",", RowBox[{"ImageSize", "->", "800"}], ",", RowBox[{"ImagePadding", "->", "60"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{ "{", "\"\<\!\(\*SubscriptBox[\(\[ScriptCapitalZ]\), \(b\)]\)(n)\>\"", "}"}], ",", "Below"}], "]"}]}], ",", RowBox[{"FrameLabel", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "None"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "None"}], "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.870893042085024*^9, 3.870893071424758*^9}, { 3.8708932351373615`*^9, 3.870893263626501*^9}, {3.870893298766883*^9, 3.8708932988554955`*^9}, {3.8709636554052777`*^9, 3.8709637057698674`*^9}, { 3.870963784521944*^9, 3.870963790720209*^9}, {3.8709638331309447`*^9, 3.8709638335118675`*^9}, {3.8709645215678253`*^9, 3.870964549699584*^9}, { 3.877088815433672*^9, 3.877088821650298*^9}, {3.908376353516222*^9, 3.908376404265911*^9}, {3.9083765554698186`*^9, 3.9083765561105924`*^9}, { 3.908376648706165*^9, 3.9083766488936653`*^9}, {3.9083772135712285`*^9, 3.908377231555601*^9}}, CellLabel-> "In[377]:=",ExpressionUUID->"93a2d356-f1fe-4709-9c12-be1d27061769"], Cell[BoxData[ RowBox[{"gfc2", "=", RowBox[{"Overlay", "[", RowBox[{"{", RowBox[{"gf2", ",", "gc"}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.8708930927308626`*^9, 3.8708930987028093`*^9}, { 3.8709637151085815`*^9, 3.870963719673771*^9}, {3.870963876897517*^9, 3.8709638841272526`*^9}, {3.870964560150072*^9, 3.870964564545*^9}}, CellLabel-> "In[378]:=",ExpressionUUID->"7091e121-da3f-4501-a591-a4e36a5e2a4b"], Cell[BoxData[ RowBox[{ RowBox[{"gf12", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"lsf1", "[", "i", "]"}], ",", RowBox[{"lsf2", "[", RowBox[{"i", "-", "n2", "+", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"n3", "+", "8"}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "200"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1.6", "*", SuperscriptBox["10", "6"]}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Magenta", ",", "Red"}], "}"}]}], ",", RowBox[{"GridLines", "->", "Automatic"}], ",", RowBox[{"Frame", "->", "True"}], ",", RowBox[{"ImageSize", "->", "800"}], ",", RowBox[{"ImagePadding", "->", "60"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\<\!\(\*SubscriptBox[\(\[ScriptCapitalZ]\), \(a\)]\)(n)\>\"", ",", "\"\<\!\(\*SubscriptBox[\(\[ScriptCapitalZ]\), \ \(b\)]\)(n)\>\""}], "}"}], ",", "Below"}], "]"}]}], ",", RowBox[{"FrameLabel", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "None"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "None"}], "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.870964711371406*^9, 3.870964733600583*^9}, { 3.870964783638962*^9, 3.870964880301608*^9}, {3.8709649138296537`*^9, 3.87096493651463*^9}, {3.870965147951193*^9, 3.8709651903825254`*^9}, { 3.908378518598301*^9, 3.9083786213806267`*^9}}, CellLabel-> "In[427]:=",ExpressionUUID->"cb8d7e11-0f44-4528-b617-63db8ef0482e"], Cell[BoxData[ RowBox[{"gfc12", "=", RowBox[{"Overlay", "[", RowBox[{"{", RowBox[{"gf12", ",", "gc"}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.87096488840285*^9, 3.8709648918741126`*^9}}, CellLabel-> "In[428]:=",ExpressionUUID->"78b307fa-af54-40f7-b693-914721405c0d"] }, Closed]], Cell[CellGroupData[{ Cell["Third part", "Subsection", CellChangeTimes->{{3.907661184556079*^9, 3.9076611894467144`*^9}},ExpressionUUID->"76ca0c36-0bd7-4937-8654-\ e248873b3420"], Cell[CellGroupData[{ Cell[BoxData["n"], "Input", CellChangeTimes->{3.907662033768695*^9}, CellLabel->"In[11]:=",ExpressionUUID->"83183861-c646-4b34-874d-1eae313f5ace"], Cell[BoxData["209"], "Output", CellChangeTimes->{3.9186650305154686`*^9}, CellLabel->"Out[11]=",ExpressionUUID->"bd32d510-bcda-4d2f-84cd-78c22eb1ac22"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"n2", "=", "96"}]], "Input", CellChangeTimes->{{3.9076620402843475`*^9, 3.907662048722001*^9}}, CellLabel->"In[12]:=",ExpressionUUID->"28304e08-d409-4ca5-88e4-0447e92d232e"], Cell[BoxData["96"], "Output", CellChangeTimes->{3.918665034519373*^9}, CellLabel->"Out[12]=",ExpressionUUID->"a1fcd220-f851-4473-8b21-dc938840194f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"n3", "=", "153"}]], "Input", CellChangeTimes->{{3.8775980142897835`*^9, 3.877598017741531*^9}, { 3.9048969295306463`*^9, 3.9048969314843936`*^9}, {3.907661493607711*^9, 3.907661501607996*^9}, {3.9076623370128837`*^9, 3.907662337841017*^9}, { 3.9076637537421455`*^9, 3.9076637558515177`*^9}, {3.9076641929521227`*^9, 3.9076641930458717`*^9}, {3.9076691325548944`*^9, 3.907669133070523*^9}, { 3.907669193212019*^9, 3.907669193868079*^9}, {3.9076770549888105`*^9, 3.9076770551138105`*^9}, {3.907765536420113*^9, 3.9077655494674892`*^9}, { 3.9077663866246395`*^9, 3.9077663883744535`*^9}, {3.9077669698982477`*^9, 3.907766969991984*^9}, {3.90783347042216*^9, 3.9078334705003986`*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"508e9650-f91f-463b-8b03-c59a3af177c3"], Cell[BoxData["153"], "Output", CellChangeTimes->{3.918665038378661*^9}, CellLabel->"Out[13]=",ExpressionUUID->"15054caf-1cbc-415b-85b5-5b0ffb3da82e"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Data3", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Data", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "n3", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.867833607979697*^9, 3.8678336417547903`*^9}, 3.867834042482584*^9, 3.867834167808469*^9, {3.869228379395009*^9, 3.8692283841724577`*^9}, {3.8692285327297277`*^9, 3.8692285335105352`*^9}, {3.8696639875185523`*^9, 3.869663991411394*^9}, { 3.8707908150861864`*^9, 3.870790820243222*^9}, {3.870891869329871*^9, 3.870891887445064*^9}, {3.8708919270279016`*^9, 3.8708919310272264`*^9}, { 3.87094213776725*^9, 3.8709421385938425`*^9}, {3.8709444109197607`*^9, 3.8709444181136146`*^9}, {3.8709639486815453`*^9, 3.870963961045286*^9}, { 3.8770885127216387`*^9, 3.87708851281291*^9}, {3.8775979842738657`*^9, 3.877597985965374*^9}, {3.8775980310197105`*^9, 3.877598050100524*^9}, { 3.90489691349618*^9, 3.9048969190130215`*^9}, {3.907661524062031*^9, 3.90766152417139*^9}, {3.907662138386825*^9, 3.9076621520430846`*^9}, { 3.9076621901524515`*^9, 3.9076621902305813`*^9}}, CellLabel->"In[14]:=",ExpressionUUID->"1d8dc5ae-2393-4347-a397-53adb48b3c09"], Cell[BoxData[ RowBox[{ RowBox[{"Data3b", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{"Data", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "n3", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.870891949547256*^9, 3.870891955747621*^9}, { 3.870942154736216*^9, 3.870942155364955*^9}, {3.870944422170905*^9, 3.870944429072955*^9}, {3.870963971662084*^9, 3.870963980655541*^9}, { 3.8770885165320873`*^9, 3.877088516656339*^9}, {3.8775980687937145`*^9, 3.8775980895430183`*^9}, {3.877598144366598*^9, 3.8775981627457943`*^9}, { 3.904896922622941*^9, 3.9048969243264837`*^9}, {3.907661532671229*^9, 3.907661532765153*^9}, {3.9076621949647584`*^9, 3.9076621950429225`*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"8041e7f2-9819-4b35-92c1-327564af0ec1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"l1", "=", "10"}]], "Input", CellChangeTimes->{{3.877087804782305*^9, 3.8770878106827483`*^9}, { 3.904898029875766*^9, 3.9048980303447547`*^9}}, CellLabel->"In[16]:=",ExpressionUUID->"4d8f75bc-dfe4-464d-8b79-159764a69419"], Cell[BoxData["10"], "Output", CellChangeTimes->{3.9186650587027216`*^9}, CellLabel->"Out[16]=",ExpressionUUID->"bbcb723f-6545-4b39-a03b-9b39f00fd57b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"l2", "=", "6"}]], "Input", CellChangeTimes->{{3.870941700057722*^9, 3.870941703626641*^9}, { 3.870943576800144*^9, 3.870943577707052*^9}, {3.8709442099463186`*^9, 3.870944220344717*^9}, {3.87096398743102*^9, 3.870963987521147*^9}, { 3.877598277243244*^9, 3.877598278296707*^9}, {3.8775999474783506`*^9, 3.8775999485783377`*^9}, {3.8776043932778254`*^9, 3.877604394020425*^9}, { 3.90489706315802*^9, 3.904897063830085*^9}, {3.9076615609993563`*^9, 3.907661561108903*^9}}, CellLabel->"In[17]:=",ExpressionUUID->"d7fe5530-4ff6-43d8-917e-3f0cb9988925"], Cell[BoxData["6"], "Output", CellChangeTimes->{3.9186650615976195`*^9}, CellLabel->"Out[17]=",ExpressionUUID->"7bfe33dc-b254-484e-a8db-a63fcca22e83"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"l3", "=", "6"}]], "Input", CellChangeTimes->{{3.907661567999322*^9, 3.9076615831413927`*^9}, { 3.9076624483119984`*^9, 3.9076624484057536`*^9}, {3.9076632474177856`*^9, 3.9076632475115347`*^9}, {3.9076635075771704`*^9, 3.9076635082023463`*^9}, { 3.907663976135824*^9, 3.9076639761826124`*^9}, {3.907664683631236*^9, 3.9076646836935453`*^9}, {3.907669073727698*^9, 3.907669073946613*^9}, { 3.90767826561731*^9, 3.907678266398567*^9}, {3.907678303445443*^9, 3.9076783039923096`*^9}, {3.9076783875868444`*^9, 3.9076783883837214`*^9}, { 3.907686408273096*^9, 3.907686408415204*^9}, {3.9076864622635136`*^9, 3.907686462359598*^9}}, CellLabel->"In[18]:=",ExpressionUUID->"ecf59e9a-106f-456c-bb5c-618d896a222b"], Cell[BoxData["6"], "Output", CellChangeTimes->{3.9186650652166557`*^9}, CellLabel->"Out[18]=",ExpressionUUID->"94ba897a-34cc-4651-954f-5d530f8689e8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lt", "=", RowBox[{"l1", "+", "l2", "+", "l3"}]}]], "Input", CellChangeTimes->{{3.907661738688757*^9, 3.9076617422670393`*^9}}, CellLabel->"In[19]:=",ExpressionUUID->"3126bfd8-709b-4772-8b99-9fd8084647cc"], Cell[BoxData["22"], "Output", CellChangeTimes->{3.918665068972458*^9}, CellLabel->"Out[19]=",ExpressionUUID->"d41a35e3-e37c-4073-bab5-423d653b981f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"mf3", "=", RowBox[{"cshn", "[", RowBox[{"z", ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["a", "i"], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "l2", "+", "1"}], ",", "lt"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["b", "i"], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "l2", "+", "1"}], ",", "lt"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["c", "i"], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "l2", "+", "1"}], ",", "lt"}], "}"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.867832129979463*^9, 3.867832158572497*^9}, 3.8708918194752913`*^9, {3.8709442342350492`*^9, 3.8709442476434917`*^9}, { 3.8709639958539886`*^9, 3.870964006063445*^9}, {3.8709640539212065`*^9, 3.8709641051602545`*^9}, {3.9076615952663937`*^9, 3.9076616607670283`*^9}, {3.907661755595152*^9, 3.90766176417321*^9}, { 3.9076628432108974`*^9, 3.907662868382622*^9}}, CellLabel->"In[20]:=",ExpressionUUID->"7ffff6ce-99f9-4d8e-be7a-06fbd10e3d8d"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{"Sech", "[", RowBox[{ RowBox[{"z", " ", SubscriptBox["a", "17"]}], "-", SubscriptBox["c", "17"]}], "]"}], "2"], " ", SubscriptBox["a", "17"], " ", SubscriptBox["b", "17"]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Sech", "[", RowBox[{ RowBox[{"z", " ", SubscriptBox["a", "18"]}], "-", SubscriptBox["c", "18"]}], "]"}], "2"], " ", SubscriptBox["a", "18"], " ", SubscriptBox["b", "18"]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Sech", "[", RowBox[{ RowBox[{"z", " ", SubscriptBox["a", "19"]}], "-", SubscriptBox["c", "19"]}], "]"}], "2"], " ", SubscriptBox["a", "19"], " ", SubscriptBox["b", "19"]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Sech", "[", RowBox[{ RowBox[{"z", " ", SubscriptBox["a", "20"]}], "-", SubscriptBox["c", "20"]}], "]"}], "2"], " ", SubscriptBox["a", "20"], " ", SubscriptBox["b", "20"]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Sech", "[", RowBox[{ RowBox[{"z", " ", SubscriptBox["a", "21"]}], "-", SubscriptBox["c", "21"]}], "]"}], "2"], " ", SubscriptBox["a", "21"], " ", SubscriptBox["b", "21"]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"Sech", "[", RowBox[{ RowBox[{"z", " ", SubscriptBox["a", "22"]}], "-", SubscriptBox["c", "22"]}], "]"}], "2"], " ", SubscriptBox["a", "22"], " ", SubscriptBox["b", "22"]}]}]], "Output", CellChangeTimes->{3.9186650761116576`*^9}, CellLabel->"Out[20]=",ExpressionUUID->"286d756b-3584-432f-bd58-b1576bc767b9"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Pars3", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ SubscriptBox["a", "i"], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "l2", "+", "1"}], ",", "lt"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["c", "i"], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "l2", "+", "1"}], ",", "lt"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["b", "i"], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "l2", "+", "1"}], ",", "lt"}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.867834570829482*^9, 3.8678345775014815`*^9}, { 3.870942389746482*^9, 3.8709424187653246`*^9}, {3.8709442605776134`*^9, 3.870944290983293*^9}, {3.870964012793183*^9, 3.8709640234502068`*^9}, { 3.8709641225539055`*^9, 3.870964129481372*^9}, {3.870964170592956*^9, 3.8709641774432645`*^9}, {3.9076616733920193`*^9, 3.907661685595152*^9}, { 3.90766177104816*^9, 3.907661778345151*^9}, {3.9076628845550423`*^9, 3.9076628976956577`*^9}}, CellLabel->"In[21]:=",ExpressionUUID->"e264287e-e5dd-4e28-a285-43d413c0112c"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Cons3", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"0.01", "<", SubscriptBox["a", "i"], "<", "0.5"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "l2", "+", "1"}], ",", "lt"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"0.1", "<", SubscriptBox["c", "i"], "<", "80"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "l2", "+", "1"}], ",", "lt"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ SuperscriptBox["10", "4"], "<", SubscriptBox["b", "i"], "<", SuperscriptBox["10", "6"]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "l2", "+", "1"}], ",", "lt"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["c", "i"], "/", SubscriptBox["a", "i"]}], "<", RowBox[{"n", "+", "4"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "l2", "+", "1"}], ",", "lt"}], "}"}]}], "]"}]}], "]"}]}], ";"}], " "}]], "Input", CellChangeTimes->{{3.8702680472882824`*^9, 3.870268062880148*^9}, { 3.870274527961333*^9, 3.8702745289124813`*^9}, {3.870274712729985*^9, 3.8702747138006673`*^9}, {3.8703380760634556`*^9, 3.870338085777099*^9}, { 3.870338134356515*^9, 3.870338134781331*^9}, {3.870338715435112*^9, 3.870338740776287*^9}, {3.870359410836882*^9, 3.8703594114353127`*^9}, { 3.870359494778078*^9, 3.870359503140952*^9}, 3.8703645089762597`*^9, { 3.8704435176581383`*^9, 3.8704435249828515`*^9}, 3.8704465109072294`*^9, { 3.8704471172830877`*^9, 3.870447117490363*^9}, {3.870448573777196*^9, 3.8704485746457186`*^9}, {3.8707868280045576`*^9, 3.8707869329824204`*^9}, 3.870892974501359*^9, {3.87089364835896*^9, 3.8708936623592963`*^9}, { 3.870894444232833*^9, 3.8708944531899633`*^9}, {3.8708945052751646`*^9, 3.870894509928249*^9}, 3.8709424914766407`*^9, {3.8709443307752733`*^9, 3.870944339866149*^9}, {3.8709641474240932`*^9, 3.8709641588991756`*^9}, { 3.8709641994977407`*^9, 3.8709642292079687`*^9}, {3.8770874902344704`*^9, 3.8770874967737436`*^9}, {3.8770878904304543`*^9, 3.877087890547224*^9}, { 3.877087940184823*^9, 3.877087948274808*^9}, {3.877088035860699*^9, 3.877088036610381*^9}, {3.877088087761205*^9, 3.877088087856166*^9}, { 3.8770886360573907`*^9, 3.8770886361904974`*^9}, 3.877088700692484*^9, { 3.8775984010866833`*^9, 3.877598401251259*^9}, {3.8775988951982093`*^9, 3.8775988969679337`*^9}, {3.8775993225083437`*^9, 3.8775993226093397`*^9}, {3.8775993833177752`*^9, 3.877599384018194*^9}, { 3.877599445377966*^9, 3.877599445448095*^9}, {3.877599518818184*^9, 3.8775995189683037`*^9}, {3.8775995637978663`*^9, 3.877599563951803*^9}, { 3.877599806898203*^9, 3.8775998458581743`*^9}, {3.8775999986891384`*^9, 3.877600000848173*^9}, {3.877600043609413*^9, 3.877600044098344*^9}, { 3.877600076618606*^9, 3.877600076898345*^9}, {3.8776043460862846`*^9, 3.8776043469278917`*^9}, {3.9048970820224433`*^9, 3.904897082132004*^9}, { 3.9048972075790234`*^9, 3.9048972165341406`*^9}, {3.9048972677643414`*^9, 3.90489726784247*^9}, {3.904897326495208*^9, 3.9048973359503546`*^9}, { 3.9048973872419024`*^9, 3.9048973918989*^9}, {3.9048974252655125`*^9, 3.9048974260779753`*^9}, {3.9076617960641947`*^9, 3.9076618315647583`*^9}, {3.9076629090392694`*^9, 3.9076629269614053`*^9}, {3.907663047337908*^9, 3.9076630539943657`*^9}, { 3.907663120307438*^9, 3.9076631267761946`*^9}, {3.9076631606822968`*^9, 3.907663160776202*^9}, {3.907663220902012*^9, 3.9076632223865347`*^9}, { 3.9076633154502883`*^9, 3.9076633155127773`*^9}, {3.907663374059653*^9, 3.9076633786377764`*^9}, {3.9076634319363346`*^9, 3.9076634323738213`*^9}, {3.9076635707545104`*^9, 3.9076635708326364`*^9}, {3.907663609457635*^9, 3.907663613660569*^9}, { 3.9076636505679817`*^9, 3.907663650646106*^9}, {3.907663697318863*^9, 3.9076636978813653`*^9}, {3.9076638363991795`*^9, 3.907663836492941*^9}, { 3.9076639359166126`*^9, 3.907663935994733*^9}, {3.9076640767943573`*^9, 3.907664081841233*^9}, {3.907664132577097*^9, 3.9076641326707125`*^9}, { 3.907664278390067*^9, 3.907664278483817*^9}, {3.9076645962234044`*^9, 3.907664596332786*^9}, {3.907664651427735*^9, 3.907664652037096*^9}, { 3.907664998679542*^9, 3.9076649992264075`*^9}, {3.907669254603607*^9, 3.9076692566818285`*^9}, {3.9076693093693333`*^9, 3.907669310134959*^9}, { 3.907669362168198*^9, 3.9076693855744286`*^9}, {3.9076771447859273`*^9, 3.9076771448797092`*^9}, {3.9076772171140547`*^9, 3.907677217192375*^9}, { 3.907677273832996*^9, 3.907677273973428*^9}, {3.9076773261461926`*^9, 3.9076773262088475`*^9}, {3.9076773728342953`*^9, 3.9076773826467996`*^9}, {3.9076774453186693`*^9, 3.9076774510218024`*^9}, {3.9076774944440584`*^9, 3.907677517959691*^9}, { 3.907677751885804*^9, 3.9076777526045437`*^9}, {3.9076777883398247`*^9, 3.9076777921685786`*^9}, {3.9076780592566905`*^9, 3.907678085428565*^9}, { 3.907678131648041*^9, 3.907678138804299*^9}, {3.9076781813667912`*^9, 3.9076781819603815`*^9}, {3.9076782167579403`*^9, 3.907678217414172*^9}, { 3.9076783548993425`*^9, 3.907678361774152*^9}, {3.9076784499466734`*^9, 3.9076784503998013`*^9}, {3.9076789708305497`*^9, 3.907678971393036*^9}, { 3.9076790126769133`*^9, 3.907679012833172*^9}, {3.907679060629881*^9, 3.9076790607863007`*^9}, {3.90768403261553*^9, 3.907684043850849*^9}, { 3.9076861329546957`*^9, 3.907686139694079*^9}, {3.907686228523497*^9, 3.907686229153713*^9}, {3.9076862861233883`*^9, 3.9076863144034986`*^9}, { 3.9076863741574755`*^9, 3.907686374256812*^9}, {3.907686481889189*^9, 3.907686482010912*^9}, {3.9076865236253185`*^9, 3.907686523728969*^9}, { 3.907686667473905*^9, 3.9076866681586356`*^9}, {3.907765088411629*^9, 3.907765102459638*^9}, {3.907767049806794*^9, 3.9077670499317913`*^9}, { 3.9077670956036644`*^9, 3.9077671238849125`*^9}, 3.9077687957738447`*^9, { 3.907768852665059*^9, 3.9077688626648626`*^9}, {3.907768913009433*^9, 3.9077689138217697`*^9}, {3.907768945916545*^9, 3.9077689788864636`*^9}, { 3.9077690302614555`*^9, 3.9077690304645853`*^9}, {3.9077690991836433`*^9, 3.9077691004025555`*^9}, {3.9077691327150545`*^9, 3.9077691339181776`*^9}, {3.9077699845829773`*^9, 3.9077699846767187`*^9}, {3.9078340034067593`*^9, 3.9078340035047226`*^9}, {3.9083727558284883`*^9, 3.9083727572816076`*^9}, {3.9083742890193744`*^9, 3.908374289128908*^9}, 3.908374392443656*^9, {3.9083744297099705`*^9, 3.908374431678702*^9}, { 3.908374488866743*^9, 3.9083744948512783`*^9}, {3.908374545257525*^9, 3.9083745524448338`*^9}, {3.908374618648156*^9, 3.908374620523151*^9}, { 3.9083746959602795`*^9, 3.9083746967415533`*^9}}, CellLabel->"In[22]:=",ExpressionUUID->"88bf9ef2-5d86-4be2-b04d-c6aca8b861d1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t0", ",", "lsf3"}], "}"}], "=", RowBox[{"AbsoluteTiming", "[", RowBox[{"NonlinearModelFit", "[", RowBox[{"Data3", ",", RowBox[{"{", RowBox[{"mf3", ",", "Cons3"}], "}"}], ",", "Pars3", ",", RowBox[{"{", "z", "}"}], ",", RowBox[{"MaxIterations", "\[Rule]", "80000"}]}], "]"}], "]"}]}], ";", " ", "t0"}]], "Input", CellChangeTimes->{{3.8696649023379245`*^9, 3.8696649531392283`*^9}, { 3.8697258207695074`*^9, 3.869725821480483*^9}, {3.8697265516411*^9, 3.8697265520491714`*^9}, {3.869732294992208*^9, 3.86973229683278*^9}, { 3.869733165401655*^9, 3.8697331661405754`*^9}, {3.8697373580290446`*^9, 3.869737358697692*^9}, {3.869744460132951*^9, 3.869744470596495*^9}, { 3.8697523910705624`*^9, 3.869752393040555*^9}, {3.869755922118797*^9, 3.8697559238834257`*^9}, {3.8697561207431426`*^9, 3.869756121493045*^9}, { 3.869756160011915*^9, 3.869756168565979*^9}, {3.86975627964835*^9, 3.869756281294915*^9}, 3.869838664700287*^9, {3.870265616754628*^9, 3.870265616882077*^9}, {3.87026726926554*^9, 3.870267269435379*^9}, { 3.870892909198313*^9, 3.870892910305993*^9}, 3.8708936939969606`*^9, 3.870894335050465*^9, {3.8709443474842157`*^9, 3.870944356400553*^9}, 3.870944445627025*^9, {3.8709642380156755`*^9, 3.870964251855894*^9}, { 3.90489744861427*^9, 3.904897448692395*^9}, {3.9076618658774223`*^9, 3.907661878658512*^9}, {3.90766220757425*^9, 3.9076622076524515`*^9}, { 3.907663999887244*^9, 3.9076640013559923`*^9}, {3.9076787227800875`*^9, 3.9076788081882772`*^9}, {3.907678881360155*^9, 3.9076789519867873`*^9}}, CellLabel->"In[23]:=",ExpressionUUID->"9bfeb6d6-3d96-4601-8511-2a9cf47055ef"], Cell[BoxData["1.2983647`"], "Output", CellChangeTimes->{3.9186651142707253`*^9}, CellLabel->"Out[23]=",ExpressionUUID->"fd1bc6b8-e2dc-4b96-a90f-0743dd02a0a3"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t0", ",", "lsf3"}], "}"}], "=", RowBox[{"AbsoluteTiming", "[", RowBox[{"NonlinearModelFit", "[", RowBox[{"Data3", ",", RowBox[{"{", RowBox[{"mf3", ",", "Cons3"}], "}"}], ",", "Pars3", ",", RowBox[{"{", "z", "}"}], ",", RowBox[{"Method", "\[Rule]", RowBox[{"{", "\"\\"", "}"}]}]}], "]"}], "]"}]}], ";", " ", "t0"}]], "Input", CellChangeTimes->{3.907686727834755*^9, 3.907765155835288*^9, 3.90776521389777*^9}, CellLabel->"In[30]:=",ExpressionUUID->"bc367c39-e0ae-4e77-ade1-1e4c742701e3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t0", ",", "lsf3"}], "}"}], "=", RowBox[{"AbsoluteTiming", "[", RowBox[{"NonlinearModelFit", "[", RowBox[{"Data3", ",", RowBox[{"{", RowBox[{"mf3", ",", "Cons3"}], "}"}], ",", "Pars3", ",", RowBox[{"{", "z", "}"}], ",", RowBox[{"Method", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"Method", "->", RowBox[{"{", "\"\\"", "}"}]}]}], "}"}]}]}], "]"}], "]"}]}], ";", " ", "t0"}]], "Input", CellLabel->"In[35]:=",ExpressionUUID->"962b159a-c952-4c61-a9a1-718bbbbcb9e3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t0", ",", "lsf3"}], "}"}], "=", RowBox[{"AbsoluteTiming", "[", RowBox[{"NonlinearModelFit", "[", RowBox[{"Data3", ",", RowBox[{"{", RowBox[{"mf3", ",", "Cons3"}], "}"}], ",", "Pars3", ",", RowBox[{"{", "z", "}"}], ",", RowBox[{"Method", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"Method", "->", RowBox[{"{", "\"\\"", "}"}]}]}], "}"}]}]}], "]"}], "]"}]}], ";", " ", "t0"}]], "Input", CellChangeTimes->{{3.9078380751156673`*^9, 3.9078380810221033`*^9}}, CellLabel->"In[40]:=",ExpressionUUID->"9481b89e-97f1-43f1-a818-72be001c0736"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t0", ",", "lsf3"}], "}"}], "=", RowBox[{"AbsoluteTiming", "[", RowBox[{"NonlinearModelFit", "[", RowBox[{"Data3", ",", RowBox[{"{", RowBox[{"mf3", ",", "Cons3"}], "}"}], ",", "Pars3", ",", RowBox[{"{", "z", "}"}], ",", RowBox[{"Method", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"Method", "->", RowBox[{"{", "\"\\"", "}"}]}]}], "}"}]}]}], "]"}], "]"}]}], ";", " ", "t0"}]], "Input", CellLabel->"In[45]:=",ExpressionUUID->"45aeb3fc-6ee9-4aa8-bfcd-ea9a5140b64e"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t0", ",", "lsf3"}], "}"}], "=", RowBox[{"AbsoluteTiming", "[", RowBox[{"NonlinearModelFit", "[", RowBox[{"Data3", ",", RowBox[{"{", RowBox[{"mf3", ",", "Cons3"}], "}"}], ",", "Pars3", ",", RowBox[{"{", "z", "}"}], ",", RowBox[{"Method", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"Method", "->", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"\"\\"", "\[Rule]", "0.5"}], ",", RowBox[{"\"\\"", "->", " ", "2"}], ",", RowBox[{"\"\\"", "\[Rule]", "1"}], ",", RowBox[{"\"\\"", "\[Rule]", "0.5"}], ",", " ", RowBox[{"\"\\"", "->", " ", "3"}]}], "}"}]}]}], "}"}]}]}], "]"}], "]"}]}], ";", " ", "t0"}]], "Input", CellChangeTimes->{ 3.907680022749219*^9, 3.9076822886587563`*^9, {3.9076845696414633`*^9, 3.907684652374186*^9}, {3.9076847527271676`*^9, 3.907684759835952*^9}, { 3.907685739402398*^9, 3.9076857660743885`*^9}, {3.9076858254926267`*^9, 3.9076858397743797`*^9}, {3.9076859161231556`*^9, 3.9076859475619173`*^9}, {3.90768599229951*^9, 3.907686093816348*^9}, { 3.907686641411504*^9, 3.9076866418693438`*^9}, {3.907766644221284*^9, 3.907766676424999*^9}, {3.907766755878854*^9, 3.9077669235857496`*^9}, { 3.907769166246311*^9, 3.90776916763693*^9}, 3.9077692098398933`*^9, { 3.9077692474498825`*^9, 3.907769259106679*^9}, {3.9077692958258996`*^9, 3.907769317513564*^9}, {3.9077697431764593`*^9, 3.907769815005143*^9}, 3.9077700129273043`*^9, {3.9078338516439385`*^9, 3.9078339450450897`*^9}, { 3.9078341346252384`*^9, 3.907834135672042*^9}, {3.9078341733446655`*^9, 3.907834175631542*^9}, {3.907836834891824*^9, 3.9078368349855676`*^9}, { 3.9078370682060547`*^9, 3.9078370689873075`*^9}, {3.907837125007721*^9, 3.9078371250860033`*^9}, {3.907837177196224*^9, 3.9078373547330837`*^9}, { 3.9083731484736395`*^9, 3.908373200318163*^9}, {3.908373230318701*^9, 3.908373256225833*^9}, {3.9083733211633377`*^9, 3.9083734184777527`*^9}, { 3.9083735581980147`*^9, 3.9083735595572047`*^9}, {3.9083736042447233`*^9, 3.90837364522927*^9}, {3.9083736790909243`*^9, 3.9083737782335434`*^9}, { 3.908373869827649*^9, 3.9083738921095*^9}, {3.9083739325632043`*^9, 3.9083739917355537`*^9}, {3.908374045485371*^9, 3.908374045595478*^9}, { 3.908374077002122*^9, 3.9083740987052765`*^9}, {3.9083741370177555`*^9, 3.908374137486521*^9}, {3.9083741821894693`*^9, 3.908374234597658*^9}, { 3.908374313490529*^9, 3.908374313943815*^9}, {3.9083743762250576`*^9, 3.9083744156941333`*^9}, {3.908374449225584*^9, 3.908374449725572*^9}, { 3.908374520585492*^9, 3.90837453128878*^9}, {3.9083745815544024`*^9, 3.9083745819450254`*^9}, {3.908374648304405*^9, 3.90837464922628*^9}, { 3.9083749596946836`*^9, 3.9083749827416043`*^9}}, CellLabel-> "In[290]:=",ExpressionUUID->"cc85efe8-4917-48d3-bb08-759be6ed21c3"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"FR", "=", RowBox[{"lsf3", "[", "\"\\"", "]"}]}], ";"}], "\n", RowBox[{"lsf3", "[", RowBox[{"\"\\"", ",", RowBox[{"VarianceEstimatorFunction", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"RMS", "[", RowBox[{"#", ",", RowBox[{"n", "-", "n3", "+", "1"}], ",", RowBox[{"3", "*", "l3"}]}], "]"}], "&"}], ")"}]}]}], "]"}]}], "Input", CellChangeTimes->{ 3.907680022749219*^9, 3.9076822886587563`*^9, {3.9076845696414633`*^9, 3.907684652374186*^9}, {3.9076847527271676`*^9, 3.907684759835952*^9}, { 3.907685739402398*^9, 3.9076857660743885`*^9}, {3.9076858254926267`*^9, 3.9076858397743797`*^9}, {3.9076859161231556`*^9, 3.9076859475619173`*^9}, {3.90768599229951*^9, 3.907686093816348*^9}, { 3.907686641411504*^9, 3.9076866418693438`*^9}, {3.907766644221284*^9, 3.907766676424999*^9}, {3.907766755878854*^9, 3.9077669235857496`*^9}, { 3.907769166246311*^9, 3.90776916763693*^9}, 3.9077692098398933`*^9, { 3.9077692474498825`*^9, 3.907769259106679*^9}, {3.9077692958258996`*^9, 3.907769317513564*^9}, {3.9077697431764593`*^9, 3.907769815005143*^9}, 3.9077700129273043`*^9}, CellLabel->"In[24]:=",ExpressionUUID->"6e8757a2-a500-478a-a4c4-51c3111381a4"], Cell[BoxData[ TemplateBox[{ "FittedModel", "constr", "\"The property values \\!\\(\\*RowBox[{\\\"{\\\", \ \\\"\\\\\\\"EstimatedVariance\\\\\\\"\\\", \\\"}\\\"}]\\) assume an \ unconstrained model. The results for these properties may not be valid, \ particularly if the fitted parameters are near a constraint boundary.\"", 2, 25, 1, 17107804849057342300, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.918665121909065*^9}, CellLabel-> "During evaluation of \ In[24]:=",ExpressionUUID->"6e379ac3-07f5-4d76-b82f-6bb819c49d15"], Cell[BoxData["7961.219412184834`"], "Output", CellChangeTimes->{3.918665121936139*^9}, CellLabel->"Out[25]=",ExpressionUUID->"0fbd6d4b-aa1a-4a93-b552-49b0137050a8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"lsf3", "[", RowBox[{"i", "-", "n3", "+", "1"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"n3", "-", "2"}], ",", RowBox[{"n", "+", "3"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"Full", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "20000"}], ",", RowBox[{"8", "*", SuperscriptBox["10", "4"]}]}], "}"}]}], "}"}]}], ",", RowBox[{"Epilog", "->", RowBox[{"Point", "[", "Data3b", "]"}]}]}], "]"}]], "Input", CellChangeTimes->CompressedData[" 1:eJwdyk0og3EcwPGHXFwwDnPwup4sS0pKEeXPMvMytYPE1kabAxnKxmOlljg4 OSCviRaSJG8XNpnDtphl1jRFS1qmPSuTzcjm//sfvn0u38KeQak6maKofBxY 6/qY+vEE0Xn6N1ETLpXRD0HkSBMShU7Hfg229EZ+AM5tWJpE2D1JkRSk87fl Xy9BZDy7JEY+DX8JLotetzqTqGwWLezc8BpyWdTId9GgT6kpA/3KYaJk3CcC n/QZYrBdZ3eAq7FyJ9iA3BGQukqJgioJLw72SjoSYFXfcpYIm/m+RrSN9tOg PTpA9IyjElCjryfWWkPzYmyd9ZfY1mI8boXfaTsFFXfVZvDZnWoBI6rJezCu chD7mRMvqGHYRzDMXfCDiyvNb+DyhXZiDOu1oGkwIjXOgmGXnzjSJVgEDV1q Yk9sdRdUxw6JARN7BM6Yh07AppzpCgZLF4YqQd31owx0iQNEgaLbu4QtUDBE hkPfbuThj8MnFo8srW9iFVoT8R98Tvc6 "], CellLabel->"In[26]:=",ExpressionUUID->"c3dc6b93-fd07-4455-95dd-7f04d33c8ea0"], Cell[BoxData[ GraphicsBox[ InterpretationBox[{ TagBox[{{{}, {}, TagBox[ {RGBColor[1, 0, 0], Thickness[Large], Opacity[1.], LineBox[CompressedData[" 1:eJwV13c81d8fB/CMVKJooBCpKBUaGiq9WkqR8aWsIp/rDikaIkkhM1sJRUqp jFSkrOJa2ZG957VlFKL4nZ9/PJ6Pz/l8znq/3+fctebWuhbc8+bNu8Yzb97/ /980fMI9r80cW9jbv/qub8e3lOPHwogHvFSv39duh9iKcY/t7eYQKqKxmh3b kVKmLmjRYQ4P97yAWzXtGDsyKVrUZY5PcsGffHw7YKWgu/VBnzmcoHVxL38X zHgWGmwcN4el5dKApJ09SDRLCs8m/hU+6LeU1YPZzPPNRr/MUbLEyjQoogcR 9h/NfX+b49acVhf3gl40DJlfGps0h8rSaVH1xl7o1WW6ZPw1R+9NKXlej36c SLiWoM1HgdNWfou/eggjenpVE8Ql+9VO1goM49HfnTNPFlAI1hS4fvboMDin Jk70LaRw0FYl/NyHYdzrt+9yXkxhfUhj7ajXT3yVcxJPEqIQwvhVZBA4Anr5 +cOGwhQ8niUdfPlmBEvsDrLmiFcdKpR4nj0Ck/x5n04tp3B2R17/85ERTNNc dbtWUjiSv2nW4eQongvQbnqLUBBKvZ/HazYK9eSjUUqiFO603lbfbDuKUB6+ YUcxCg2lCceORY5i13NPr5XiFHZm6vpfHhhFizrrXTpxvMHOO0//jcJtVL32 ggQFwwCfYuOlY6jC4g1vJcn4XHQzL28bg2PvwCm9NRQSnEffZB8aw7qAkqvT xPMiPF1CdcZwtdU3S02agmua2q5i6zGs9rjcM0hctNy5cZ3TGLIVtJYEryXr 972ea/r+GISchExaZSj8upa6ZVXMGD5tGHVxW0fh9tYNfqYfxnC+tOLN5vVk fkI6m9d8GUOCRPCk3QYK9MNO8XM/xqCXe23NGlmyvoNvfaVbxvD3ot6xXOKD fK9ffuwZQ/RyZStLOQq8z+vkvoyM4WT6ymChjRQYwvrn9v4Zw5j5RGoKsePs ipeyXOMI469tM9lEYfyD/HW3hePAh08LeOQpCF4d19dfOo5ew1CFN8RvCjH4 cOU4Arhu6mttJuuT6/BTTXwcu98YOv4mlh5IU2BKj6NFWyX68RYKCrxt/n/W j8N9anXRoa0UNnmHL53ZOA6FqJmRHuIN5VeyrbaMo/p4k6ifAgXvkuzy04rj cPyZobpTkcLCqPe3nm0bx/pHERYNxArpMpIWO8j3qAIvWyUKW1MklnrvJONT HE0Q2kbhkVuvyA7lcZz8u7oyjjjp6p73ZsTx345OqG2nYB0SdXE58ZKHl1d3 EFOXr3adIu/bXAhVvb2DwkhncBE/+X7lVra52E4KBvU6zdqk/x3TA+5JxOa6 CoNryPge5K+MO61MxqsdW2NLxj8RdLC8j1jBcbHPmU3jMDBljd/bReFDiuRi 9oZxpG0OFpXeTeHqh5ELqWvHITGVsS+dWORdYMIByXE45XJMz+yh8No5e5W2 2DgOn1N57bOX7F/57ZPrBcfxYhOtRE6FwrDl4YRevnHwTfiOsImTDxlZYd44 ivza9/zZR6Fq9fyyxNExbDFefO7BfgotXTvsivrG4Cen7Kx4gEJMk7yXU/sY dLI8Cy1UyXzltW6klo/hg8+HoXkHKbSXGCQfyR/DCsMm4SfEkmuXSl/OGEPd qKJRJch8Jzs+xr4ag9m62n7VIxR2179Un7w5BvbPeUsbiHWSdop/ujSG9Rny O2yPUuBq0TKXvTCGXj2nW3HH/j/enjvix8dg7b5BQOwEBZttU9bhJN+c+q5t HdUg6yNdPVf8YBRtHyN0fDQpKG2KfOF8bxSHXQps5U5TaLtzZfOi66PgExf/ ck6LvP+pJT5EdxS+GuzTRToUjGwCq3sFR/EkUcgm+gxZrw49F407IzicIOe1 7yypZ1Nxh+5cGkFvrOrzH8Ti684YxxiPQDnGqorHkIL9dIlo/e4RlD35todm TCFg63TigrafmOd9l2uDGYXtp65Z9GQPI8bj0epM4pR/mUZ3I4eh4fZ2h/4F 8r54r8aeW8MIu9tk4WZO9leoskVIeRjb7fYUddMohLOP3U2KHQJFGwmKYVFQ 6wzj8EQNgt98QbyqJQUBH9NTpXcG8c50TV4Nsa4HJ6/ZdBB/jTQm+azIfpYf nGyUHsQDndfGjMuk/zK7CeeYAeSrmq3feI2CX/AI70B2P6z22x3IIrb+rOY9 GdOPZSp+ZwyuU1hdrfOG5tMPU+UMT09bCv1bNxyyMOjH1GaxoV47En8KuVyS v/sgv+r7xzeOFFYs7q/YdLgPGy9IJJ2+TeEodmVMbe6D3Bvmu3HiqyJSUSdE +rB+L1fcgTsUIvfqh18a7MUaw+1RFc4UPB8csa2P7IXEM6eIGy6k/gvqv870 6YV4X1G4uCuFri0ZErK3eiF2k3pocY/CNML97hn2Qjjsgfcfd5JPBUdfOEj0 Qqi9zSPSg0L0NurgvSW9WLJpq9sRTwrXbR0fLePqBX9q3h1fLwp6nSzuzJ4e LORadnu7N4U0i8CsusYeLFA/71BLHHvja5D99x7w1k9cX+tDYcvgZ8sj6T3g Xnvkaj5xg1547aX3PeBi+Vtf9KUwEcUnJ/66B/PeN1oJ+ZH6XxcxdfIpOV+n 5Cw/Eosq63b9DenBX1xnGPlTeBDs56Dk34MZzyzaHPFfNeOj3R49mBIzNFUP pBCYFXf1u0MPJsxemgwT7+f1zJtv24Pfr0cNg4MoNDd3bkyz7sGvkQNn9wST eNAu4h6y7MHYHm+9ZuKf6ZEfIug9GLlbo+PygMSb/a7AYvMe/PwmoyX3kIJw y8iIrWkPhoWsNUqIUVIq+cSkB4MG6epXQsh5lehy7oBRD/qjFhwXeUThOb/f TwODHvT1/nc0nXj3Q3XB4TM96FWKOmQWSmFJ93TfjH4POPaDqvPDKMhmdHxw Ju7K2rM/ltj1z0l/J+KOhW57tcIpyOwNjholbtOu2PXr/96yn7uBfK81VHJn 2GMKYkmjhbtIfy1trG2qT8j65QUvWEDG07QxRaGT+PdW1Tx1Mt4GG+4tnhEU HipqLZg934O6z6c3bY2kcEX4UokMmW/NvMeylcSVsd6Cnyx6UH2iZ53dUwq7 fvVnppL7T1XAjrUSURTS49cVb7rcg8q6O2uyiaelpST5rvXgu3SJOP0ZhVNr JUM07XtQzhRbtfg5hY6dScvmbvegZOrdcv1oCtzhMVaPvXtQhH9C08SVtT84 roE9KPRUX/L0BQVNLuXIitAe5It1LOx7ScZv+OjrIxIvd9zseFxjKJT/FBJ0 eNeDPWMCsxKvKJyTjV/37nMPYot3j2u/Jufhj/Nay4t64Ovk2/w5lpzvK99J h4z0QG1Apk43joLD0zf6k9Mk3s5+rhwk3l/nJxc9v5fUzc4C6QQKkyuaP1WL k/tb154PnokUck3yN7qe6oWgTlm8zDtyflEu3CIGvcjPpF5lEKdduaHUR+vF nkd+T0beUzgUG7f01B2Sjye73A2SyffZhwOqU3rRkehvvDGV1Kc9Zt8zFPvw WGLDGTbxKppZ8KuDfdDzStM2SaPgsqKqME2rD/nm3ccC0im8FZHl07Ppw5uV +5SmMimsPPl91bqkPtjc4vB+Y1OoUS2Z+HCgH//UDrxllFDgmxIdmTMcwJLZ Bb5LSin4i25J5L80AOmPlRc/EnuJa8tw3R3A4XXMTTzl5Dy4/SL61csBuM8F vYisIPHA3c8V9pO8/7k3vLqG1KfaVe8XOA5CyjrppmMtGf/2gYEUn0EoyToZ rKujkMgMcdgaMQjdB8tFrtRTOPGY+xgzcxAhNqqBAk0UstMvqjVND+KV3CKb JOLJkZ8vfBcN4XPLj9NGzRQuS41FT4gOoUGDJfC6hYK84llm744hSG164HGk ncKxBItqceYQlNrO0/uJnZaXfza6PoTDjzYdC+wg5+l41YGjd4dAm/+Vu7WT QgXL/ZnwoyHYZni1u3VRuOVzuXns2RDcr+llbekm+//xl+3N+CG8bu+77cCh UJqsIHI1awipockma3vIecpd/7O9cAhFWnf2fSPee/Jm0VjlEAYzV/xZ2UdB qv5f2XjnEP5db63NIN5lpKrWMTCEJVtiU6h+Cn907Qwvj5Pxhh+8/n6AguXj iggTrmEc0uH/z2CQwkVK90nmgmHoLqzeNkc8Jf6+IlVwGNTXp0IxQxQitmuU ai8fxvUblj81himcCWpQcBEbhttW5bJx4ot5l2M0JYcR0jUXH/6TQpi17a8P a4fx6nHR/UMjFAalEvvebxjGZ92Hlr3Euxw3ME5uGkbhIjN1/1EK6kXi5x23 DKMhS37jrjEKxc3T5ccVhzFg95uvmfjztT1l8duG8Vchq9t1nNwP+FQc4nYM Q5DjnSv/i+Tn5h3zj5Lzd02EfnQF8dO7c4k3dg1DSU/axf43hXuaU0VHdpP5 Lh4wk5og9bM+72Mcccj48505xFqm4SmJxIONRgsZk+S+oTon9N//2+cua+Kf IvXi6Xn1EPK9kPiixLfEG3y8R2+S/gYfuLjq/iH5fPXu61kynkO3Vc5OEH+/ smn1hu2kvcWYfPg0qefOonNDZD6DmrGzB2Yo7Ak7KGG0dRiHd5lXthPHjb47 bClPfm+tWR3j9pdCqo+6lpQcac9XeXPTPwqdYkx5h3Wk/U8vzVLi/SaPC25J DSO09tDaK7MUFp3Q2rBBfBhDX//8WjFHnjfYadiJkOcBrCcm82i4jSDN1eT3 3LD9Wpt5XDSUXJu2vMQ3jCMX6o+8INasEKi7NI8836Y+MMBNg2PEgvu3SLwc Wc311Z+HBh3X60b3B4cQyp0atIOXhoDJyvua3eT5j40qt+bTYHOq/uYw+f0Y mt4mKMVHw+GjXNPlpUMYjg5tZxOfENIzZ+WR59cXevEvpMH1bGtSYRJ5vrK3 NoyfBi7uN70s3yEcnX0ad2AxDR073gvudB1CGOfsnXbioX1dUmx78vxTgewm QRpWLA3UUqKGEG7wyvbzUjIePVUpZ+UhHHtMX167gga7gfW8hhWDCHdd0+Ow kobVp24skM4dxMjFmrQ1IjRo+Wqr5aaQ5/vVzOmiNLRs/hQV+5g8b97w/vcq GpaP5Kquog3iiXT36RVSNGyg/bcqb2QA8Vs5UgnEF2KMby3pHECGSs/IMWka St0lL2lWD6BJry/Ibi0Ng6f5xd6lDkDca6imYR0NJqc2qKx3GUD46O/zzzbS QL3uL364bACP2HzWCttp0Is3Kl6yux8x5QtQQFyw7uqG+E39SGlaKGy2g4YF k1oJZyT6UTPBnxS4kwa6VeBkFVc/RDYvnfy1i4Yz6rr6zqV95F4ieid9Hw3n V+oqdDD6EETb6H/iGA1SET86EduL6fTzR4eJv809axAl9zXz5Q//BKvRUMF7 3Hd+UC+2s7lorcdpMD9bsmyDQy8qpRr33DhJQ1PwMcY1ct4sb/TtiNaiQY5v 7xaVsR5yPx1XnjOkwdj80aSZFrkfvd408MKIBquAk5PVx3pAm2cWddKYhv9C FN6b7O/BzsQS/hATGobd0nUjN5HzWyCmdYspaZ9es36Atwcrvhl4GdFoMD14 +aTNFw4eqn5p+niZBma5orP6Pg4+px3w17am4dOzBMupHRw07Mo8NEDcoJ58 LXELB2sUM2Kkr5D4ONwvrLyGg9dSaTb3r9HAp15bEcrFQca8FN4L9jQsqhk7 GFLYjS52whYBFxpmVpdukTrXjZ3HIxzNH9LwK1HqRZZXF/qivp3VSKchso+9 QqO2A3EBarDuoqGcR/Pkj7w2LEoUvFXBb4GsoTaep6xmXKfkcqx2WiBNOUlr 6E8dJpi+asfOWaBhwM+DM1WF/A1dL5uJrWa/Jvb1V+FRh8r8G+ctcCj0S9iv pirsMenNiTG1gIWTUdna7Co4aB05tNDcAu52UdcavKrwT/nPvmK6Bc6cPL69 SKIKvDwW23RsLPB6qlGh+MQPLI/YL3HO1QLpjUaammkV2P/imyn3PQtc1UsX YCZUgBanF/2KOFg3TsE3qgIpqVbyY24W2NbZGT3hXgGDmid7PDwtyH3uepCa XgUil/7Te+9rAXGJia1NI9+x0SXTd36oBS6oTNzt2fYd2l7qFbHEOvNS43Rk v+NmQPUK7TALbJTTOZ+/+juKIoceh4dbIFn5sVE5z3dcSpeMVYywgMS9UZ2v 8eX48Ot2vuFz8j0bP7Ox6TIcYKjOJcRboOnAN9tlr0ohHbwcJxIssPI3T25n cCl4v/be7SCeVxivVHC3FEUiwdyiieR9dRjkGpXiTH7P/LvvyX4MzHd+tLQU lzcECuimWMDZu2cuwrEEUZ2dqya+WkD10mr1JbRiuC5NNQrIsoBp5t1M8f+K Qd/n91g+m3zfWjdf5XAxtgTvkTRlW+DI+ao7CdLF+HzYV/pbrgVuGof/obUU oeLZLrnwQgtAda+o6LkicJt57VT9YYHco9/GzzEKcaAm2LCb+ITH6b4zZwth rxHp5FNlAbP2yQjqeCF+7kn61lBtgdUuKjKf5QrRJNxsYldngXcrPZ5r9H3D pxwlt3fNFtiRV5EhbvMNVnJ11TK9FljF5Sy8zKcAryI6pguJX4m5XbziVICO 5UNSV/os8PS4/LlOmwIYzuO2/NpPvn90V9usfgHU6jfPGg9ZYE/TQt3lawsg ff+O7MMxC0w27dv9Ji0f1cOydgv+WUDw42jE4Zk86IWsCYwj5vTE2YqM5KHq gEic1qwFuOXecs90EfvMb300ZwHJZ34rJ8ryUCnfpbaRmw6LQgfBpOg8fKc/ E1FfQMdVW9NPB7XzUNQinuItTMdRmcyzph9zcdJ9+XeFZXS8HIjq2BWfi8Kt i/sriaMqbfoko3PxzXFaUnwFHQdEUo+sDsxFwep6tzgROqSEbVYVX8pF7pkQ fXLDx1JEsXnlc/GlTOi3oCwdG5MFDzxIyMFUuI7AK+IYqk0vLyYH2xlB6yBH x/ErfA3cUTmImVuue3UjHRcv3RKMDsqBn5JoYo08HTdsWw/Z2efANEiS9VSR jtO5/EpMtRyEnz9/d48SHZUZC91NkIMq+aePKoiF2jTLTVRycCJHOp9nOx21 bv6Szgo5UPq1bh1zJx2ufsU1Z0VzMO+MfLPSXjpKXror7x5gQ0Xm4q9C4uIY voM93WxcH45bTKnQ0XC2OPd5Gxu97ltVHu6jQ9uiTm5/DRsVn5Qe/TlAh37X 1zuT2Ww8X7Vbh32YDk/7eGnvx2wcaT6S958GmU9v9f6hM2zUjKdm/SE+krQ4 OlaXDSa/UsZTTToGn3bcvn6aDZ/dEkkDp+lwf/Xk8lY10j7wV5SrDh2fbF+q 79hF2qu9dEw6Q4eyuTfNQ4yNaRNxe8OzdPiXFy5euJK8fy3w2hzx7t8zkQ+E 2XgfddvylCEdL8ZbGRX8pP20vkGnMR1pUw8e1/3Lhk8i387lF+hYPBt0XoST jTX5joqpxDp+jn06ndl41zQmb2pOhxtV1Bzalo3qRa1r4yg6jF+WdJxoJO1p n5YeodPRpMJ0Vqog7R22Lu4jPj90xCG/LBuHA6P5/Bl0/JJ5GsEoyQbji/+/ BiYdQ5NNR4sLSHsx5sDVi3SU9cioin4l7RVbOGJWdNALbybNz8xG1TG9ji/E IrcERObSsvHnKur5L9NRnpV1b9kn0r5UrOC5DR3iyvW70hNJ+04/9okrdPi8 1zs67y3pb5r3yzAxTcSGRzuezFduNFnlGh39dbtvLn1D5uNc+LzSlo6tGefs BKOzIZPp+fjSDTp809gfvzzLxuWp4w8W2tEx0Oq54mZUNhZa57up2tPRLSIg sSgyG3qxbk71xGdaD6a2PMnGs+6jdtdv0lEBtmnm42yomOQwYx3oUPSuf/8w LBsej1wuHLtFh2T7El3/UDLeykNGbcQJST+6Ah9l45J61imR23RoGbkXv3+Y jbR7d46+Jy6LUF1R/iAbfFmqBzSc6LCB+N7fwdmI2pWp4HKHjslHQlwmQdkY uuIoJ3mXjna+NWFPAkn/CfukPxMXau6d7A7Ixo91acLDznQUnMn8GeSfDWnT m/xeLnTYWh67M+GXDavwPTzrXcn+za76ak7MJ/zpl+E9OlR2y6jo+2bjP40b Q7+Ix1ZGWTb6kP49lDn+bnSUDs0qWxIPsn+1yLvToWE4GsJFvHc2qTaP+Nw5 Rc9n97PhvvfadzMPOoStbvCeJK68vr1whvgew4tvxjsbUu9Gs0M86fj4Qskr mdhq4F3aNi867gzv9bhBnCprk1RC7O1pPwNiPnPFeIY3HYzteW3LiXUjhl9w 36cjUn5220+vbDytS4iIIK7dtqC/knhw+aWQPT50cPsV8nwl3qO1xf8H8VfB nQ5JxG7eAx6XfekIWrzvxDviyrzYu4v8SH5fqWN+JF7DZXnzBfG79MW1bOKL +zddPehP6uW/et864s92vZYNxBJdmp4TxLxJryjbADqiU+2yJcj4dIbpJkKB dMhYXtp5ijhyk6x+HPFH95NNzsT9tG5NtSASv+pKyVnEu6NeqLUT/wk79mkB Wa97jdRBx2CyX0Kf2s4QfxdZt0f0AalX0ymb3xJL6nYofSCmmd0OFiTrb+n7 bJPmQzoe8p1Ybkuc8s1MppdYwNYopouYh1da3DWE5Nv0v+MmZH+fOEQKpD6i I9hF5QVF9r/v47n5eqEk3xVd9ceJd41KzA4Tf9bO4L5P4qec8fjn+nDy/PNT 1UoSXxLRRr1fiU8835jrTOKP2bKq3egxHbm6pjv2kvjk1g+tDHhCzovYqoyv JH6Ds49mbYygI6O74o03ie/1CqMJWcR3JsOkz5H4V1tw0mskkqy/9VC4GMkP 79SZg9rPyPrGB2j1hWdDXPb11l5i5pt40RGSb/FBeuJ3n9MhuG3wxCzJx7KL CROJ0SS/B4drlJ5mY/ka04SlMXRs+jK1fZjk+wvvxY9fEQffm61WfEnmN/nJ 8+ArOu6rjbHtY7Jh8F2IZv2aDvOsmxelSb144sJeXR5Lx9ktu/zySX1Z37PB 0y+Rjoh04V7L9Gx8/K/SVvYdqQ9yedZSpH6pZTlRX4hTzHwXNH4h6xFWqzr8 no633/IMGWwy3lNevzWT6bhro7i5qjAbyu8GzQVT6ej8JRY3U5+NfIkw7ZfE /EzvWKkmMh6vY6oH0ujQc//hfrIlGw7mkasupZP681G0KLkjG19WaH8vyaTj lsw++cYB0v/NpAM+bLL/cfPareayoaj0cOm2HDquXW0+p8zNhljPjfZq4p6T D9Lmz2djQE/FTSqPjuTTixd8IedFgFJ2yYcCOlZ1b3jkI8JGQ0+ZcX0J2Z+C dyufKrKRE/luq1MpHW+G3LZ3bWcjXj9oTqaMDtGibu5t5Ly6k6MfbVVOh4OT wMf2/Wysf9rUP1dB6v/Hp2ufnmTj8pn+m7K1dJLX8ZQng42zgiWniol3uC3M PX6RDeQmSNrUkfy5sjJtiTUby7dfyU6tJ/v5brl50g02PgtOLdRsomOt1EXn s+5scOfND73WTsfT9HX7+F+x8WjH2pSsATJ/sR+dosPkfF+q4WY0SEd8/Ogd +zE2Wvpv6P0ifta2M6V1gg3Z5yVjcsN0aN5iTmTPsZEsZK/oP0L2P1DnZ7Vw DiqHyl6f+03qr0HchQO7cyD42vHx9CwdC3ftLpTwyME711eWD+bo0DXsktD3 yYGeaeVehXkMqGw+x3wQmIMnIhvrLnAxYC/XNi33JAfybj9WFPIwsNJA+EX0 e3JfMZf3e7SQgVOjOw6ONefAVaLu7s5lDMTcb+2W2p8Lp8N7djYSf3QNpH07 nAsHZmiP83IG/L5/3+ugnouryQany1cwkOL7VWb6TC7MNerFLUUZuKVVGGl1 NReHHRtSnkowUFimJ7w5LhfzmpoG+eUYeOhaLvhkfR7+ch2Iek/84sKLruAt eZiSi/jPYCMDuY36uY925mHk2rm0l5sYqOfNXJV7NA+ti1s8sIWBbW0O0R8s 8vBlX6vMjW0MNOqMVM+PzcPtx+0G7ftIf5tOPnl5IB9fxhS43PYzQLGNHfcd z8esuuObjQcYyL8TpNyhnQ+nKZFpa1UGinS1VlG0fNzR13g8CwYUv/hv2+uT D+eln5rF1RjYk50sY92aDzad1/0r8UzYVVGl/nxwf9FRoI4zsKUtRYjvdz5c rAadYk8w8DWkTWOMvwCuhWul955iICtgprdqdwHcXH3Mz2gzkK5Rt0YopAD5 DfX808RvXq6vVn9eAL7tckkROgwkRcYci3xbAPe2bJ5uXQZO39zFG1ZQAI8D ky+u6TNIfUxV7pgugNfkhZ4AIwZKwiNitjC+wffibqtiGgMSWu80LhkVwrOn VJhmwUCg95nfTaxCuFC0T3+JV71mPr92k/weMQ7kVmAwcPR51h2xsEKYnxoI DWCR+YrwrdRtKMSezU/z9C+T+Intk5OwKMKOV8oXh4kpv4igU3ZFUFhXIuRh zYCwoadEglcR1on/Mf5sw8D34/8yFiUWYcni/8ZWX2PgmP0yBfwtQmc/n1Sb HQNTmSc+0Z4Vo4UekWtvT9Z/w5nrEp+KUdexw1L4JgMd+1qDVpQWo6zB7ONh BwYS32zlKvpDfn8VpZ166ciAntKJcvqZEvjFXra3dGbAdt+yA+clS+ElO38N jwsDoF1yjthdinvPH+c8Ju7SEhNX1C3FzfBvS0pdGTDTqThz2rMUNG+Zl4ru DLzOGV/6bKoUey1rKn55M6CheXcmr78MPkrPjcPvM7DG6fG0i2A5WiYudR/0 YYA5sq4sTakc91zn//H2ZeCkbHvcc/tyfH+yU3ptAANKH/cdPLbgO5jlQZc1 HzJwZssrz8Ox35H+8PzUGPGPifK6ka/fscRE3iU0hMTb0ii5oervSO7Nftj5 iIFK39LtVdwVmOMazbgZTr7nmml7y6wCITu1Fsc8ZWDQ3tpOYUsl+qZXPzwV xYAJ1wb20eOV2J/NWTNK3BgSqZ9uXokOTaft+5+T9ez0/FUaXomtjATDyhcM KAcFyr9Z+gO5YYtfz75hQP/s2zPbBasgala77UUsAwLCc1pVClWwlI1OV49j wHJom3SvdhWEklTKH8ST8ZYbyrNCqmBcwpqQTyT7wQmr7ZetxthswdGzyQxM q0YVRZ+vwVxfU/Eo8YKJ2NKFbjUQqB7V9flI6kte5d3GuBrIxYlfyE5hQOHV cfXi6RqYnLW+vTmVAX6HExqNEbUoSBRJmctkIFz4zEjJVB2emFnIvS5g4EhA YCJ9rhFvTjm8PfyNgV/vj+/dsKMJKbv8lZuJtYY1kg8ymlAhkHpkWREDD8a/ Cjl/bwJfqoCZYwkZn+iKmpmYZlwRTg7VrmBgmb325rcXWqHG5ub/08BA0LOE 2tBb7Qht4XUPaCT15JB4Rf2jdvRP83FvbGJgPfdmpnByO3x3LJ4+08zAjZV+ rkaD7ah6sbw/uZWB55K1cQImHbjgsb7IpouBt+P+bcHKnfgQLau2sJvkM+8r KS7tTvBmbWQ/JVbZJ717r2UnXk9tSSvjMPBt/JzkbEQnhlnKsVv6GLBiZN/z 4O6Co4aad+8Q2f/vqfTZjC6UMU/w3R1mQPuU2umPlV2QcjvpIvqTgf419n8W 9HaBnXnaQW2Egevx627YCndjkeJZyxdjDAQ8nMMG024YnTLk7Bsn9VbK5sTl K92IZxib/yDWrDkycMC1G9pRpkbcv0l93r/JivGyGyHCzJNmkwzsv/W6Jbqz G71bLfMniTfOHGprH+2Gykmrw/5TpD6mRIk8nOtGs4uNypc/DAz0Drb+t4oD hadXU/SnSTxGhS402cDB3fTr24eI77amBVUqcbD+l728xF8GJkb7xnnVOLgh dCsmifgp5SD+RYuDgi23ZU79I/Xq3l21NgMOxNTvRHYQvzSOMLa8wIGlhfNq h1kGdiyXNTZmcZDh7BoiPEfqM93Z9IMNB0si3Za9IT5WeCvish0HZmkefpjH xP4VQTT/2xy8r/HiryOuc9outcKVA6MD2ZaOXEwYPBj+a+rJAe+LqSJpbiZi 1k6tHPfh4C2/0uY84qP3LomVBnBgcIVxn8XDxNXSN3VDwRxw10UOCPIysTP4 rI5+CAfxqjWnPhAPz1yN5gnl4MxLwfgz85no494n8od4nsAxgRliaa5lorvC OIi96mj1lI8Jn0DNvenkuV59UsmRBUzo/v6t7PWIg9mDA1t6iRdvtB2IesjB 6xgZX5+FTNxrUz7HQ/rXFTQaUlrExJn87Unv/Tn4ey1Qs5p4QvHG3oT7HMQ0 fEu4yc9ER4G36aQ7B1qH5i1Zs5iJSpfmT4HOHEy92n2ZTbzVSHjy9i0Oni+x LqMLMJFy4th45nUONGxjFBYLMlGzVDP6v0scTDQ2+yUSf9JrljxkwUHU4ZU/ /1vCxPv4uFBPEw5OvtHQmiJ22u3K2PIfB5E30pceEmKC/5tIe5AqByeax6y7 iWd4ZrKMdnAwdkT+u5cwE+fCJc55yXGgJhwWULmMifMb5p+WXcLBUNwNYdpK Jp7Ru58mV5H4XPb2ykIRJjYsnd69IK8buNldEU88fGp5Rn1yNx6o6QX9FmXC pdbeViC4G/vbty33WM3EJiGf3wInu3FfZGhFrBTZfz0pk9SXXdh5e73taWkm gvZPfcny70JLp3H1GPG4x/5Lrje7sP190cN9MkyEfwhnq2t0oeHUa5HS9Uxk lJt8OvyzE5ucKbGRTUw8YO53FlTohJ9Al62XPBNqrxLH14l2YuwR7YfMZhIv a6ScFOd1Iu2thZ/+FiZiR/2HFSs7oNHE4E1XYGJgxUqx1Tc6cHm31YjbDiZG KrrKPL62o5I9qCm1k4ntVW1hPG/asev0pbjPxG2SvZyQoHbM0S7TB5SZCHxq nsNPb0dAkE2T9h4mBARSn/+3pB0fhq5/Ez/ARPnUEulIizaI3Py94SPxF+7A woM6bXDgveF6WpUJsX1luYIH2nBE3E7V+SCTzHNEZvvKNlSduJnMOUT6M9q9 nubfisno21Hv1ZhYXxPwRcGqBSaKs/9OHmdiMOPL/Aj1FmSlORl3ET99szTF Vq4FnhV3RETVyfxk76xjdjVj9Zyzj+MpJtKU1lw0opqx38jd/rg2iV9Z2Qo/ 2yZMKe5PGyLe/CjYmXW2CR/nj80E6zBhJ7tnM3tvExTen7vTpsvE31/zggfI +SC9UNn9pj4Tswf4JZcGNaKpub9A6gwTFX6y5kV2jQhLilqUT/y9vC9r9lwj lpkK+C4zIPljsS60fHMjeFM6g+OMSL5D0fFPSQOy7odV6xgzccfsdJRFSgNu X9ASnSJuW2z97khUAyYE0sOPnmNCK/S7i45tA3qpoGfNpuT7l3XpIesb8GLv iU5XMxIPgRyv68INuLB0dr38BRIv37N4Mmbr0ZDGen3DnInQNw8vuTTUo0T4 UOJSCyZoQyP5JSH15D43MfKRWCOn9ny1ez2OZcZvN6GTfExawKNqV48vTLGU 1wwmFlonJ8sb1uPd158ZhyyZ4Ax7+GmvrYfVw5ezPcSm80tM96yox6aLxvC7 yIROrGfejQX1eC5SkNNgxUSY0cbHY8N1eHApsuiaNRNdSxXz87LroH1ET2C1 DROvllj4HvpUB8FV/KeziPsDtkXzJ9TBPde2QuAqE/vq/JXvhtXhcPjm5UnE KgbO1+UD6jBn3a5neI0JY/Pf7pIedbAX16x7eZ2JZC8au962DjtHuVdr2DIh 8XPR16hLdRjN/2w8RqxCvd4Vb1EHy6vrW1XtmHBOvW7gc6YOJoUz3bU3mQio +nBQb18dfuRMr7/mwIRhQ7CAl3IdTn75Qy25RfIp4/eVMcU67EmabD/qSPL1 X3C16YY6JCZMSLcRq/d9g7l0HWRf/za9dZvs53m7NSHidVgRMd783onUE+Ny Gf9ldbj/aExC8w4Zb2Vcge6SOnAHjRr3Ehf4XWw8yl+HEfef9WucmVgb/Id6 z10HhvOwWBrxIqdrTPm5WrTcGjqr70LqWezGmbKZWhTbDFTfd2XiseNH7tDf tTh8sX+F3D0misMyxdLHavHZou8/NvGC+WZzfCO1UDTrDTrnxgTb8LXAraFa xBj1VEwRyyaUhooM1EJSnyP0wJ2J7Fil2breWjzQ6tZS9GCi9JphWDanFi5H O0stPMn+tv0Y4u6sxR/VDgEuLyYOf++yNGqvhc3e9lNPiHMtdr6sbq1Fz442 793epN6G9fJcb6nFeYXWwkrikE8HRnY216J6Y8vCy/dJ/HFcqkWbaqGxrvn4 Ih+yPm4iayUaa5Ej2eT+griFbn74UEMtVMQa8w76kvrRWxvrXl+L98saeBuJ X/wcKB2oq8VGwfojN/yYsM5attaG+OmCOhdhf1IfstPFlxOLcNdmxxMrrdPc XVVbC9+/1fNOBDAhdVHq5wdi3smqg53EEmP2WW+Jb43+cHIKJPF/3Eu+gHhs oDJzVRATqz1ob2eIWZyKv8nER0Jny06R77e1fd+nHUzaW8gKfyI+21juMEDM 5nae2U/GW1Zdlur+gAnN3HsizcTHvpdOrX1Iznfd64MhZH4ZRSW7M4mvxhsu siTz355XfMMghAnzTVwz+mR93nwt+jhO/Mbql7YRWT/ptMJffo9IPhvYPrlB 1jck+dsO+VAmJP/Y28SS9b/3Jv+9WRiZb/UBvrMdtZiJzhuZIX6/dt9EGdm/ q5G5io/CSX+Cm4pNumthFsxOKH3MhM0XgaDPZP9rfbMHmU/Ifmcs/urWX4vT nlmbeSOYiA7jOc4YrMX+21/eqEQyIVRWOmxB4kuMkfbyVRQZz61Tz47/qcWP oJj6g89Ivh6RtnxG4tXvS5BgHbGcb9kKgdlazBe5aLswmoky3aO1y3jqMJYr foz1komltDVFzYJ1KJG53SUfS+4nKosFN8vWweM0SyyH2I1xs8hmE6kPDvoa xnGkHgk0LsnZUofUiq3J9+OZEHay2uezow4xd1tcB98yYTVWxo49VAfnloPr 3iYxscTZ/H6vaR328285q5ZMzoPyAGYTVYcpZbH7LcRF/4qu1jPqcNl3ZGxJ CqkfzZb6w9akXux/xrb+TOJ7tOqy09067ArnNt+WSZ6fvrhxeXQd+vXzopLz meAW2GzLP1SH2WLOZ8MCJrlHrPY+OFYH4cMLK2aJeXsdlzlMknqicIpLvZAJ f/En47Nc9XDnq7jQXMzEilLaf0dF6yHzqUmGr4LUxxPSGs8P18NI7NeLs41M XC+vXz34uB5FDTJvpn8yEbz2t7+IXgOO+RXy3BVhoeBeHvLiGlFay76oChao G1P3LvA3w+rqwqUqLBbayjJX/1BrQWBCy3QlsXWd7OfTp1qQ0pvMuWjJAmvS fWWRVgvmmV74EnGRBe5AywNZBi0IPpV2iesyC9Wqi3zjLFuQtt6q5NtV8r7X xCUvvxYsqi33OuvIQoh0kk9JTQsUlsXYjhBnifx8btzYAl1Nxwtet1nwV3d3 GGxtwZOcjXvTnVjYJqlcsLyvBUrvnHvXOJP+VqSa35ppgYHXjuMcNxZWVMhG 50q3ImbfI15bfxZMl62+I3C5Feuyn1etDmBhvmR/3/VrrYhSe/sii7juYd1o p30rwnXyjgoEsSC8o+tdjWsr/Bnj96IfsNDBKVy+MrwV9sFa8yvDWJgs3ceW /9aK32LG1XbhLHwLY/wQK2sl+UF/KfmYhYmks9eEq1ph9eb2MdYTFo5kL/dd 19aKC1/j3OY9ZSFP8kvWj6lWnBxYwKf4ggWe06fUzoq0ocBmeU0VsZ6aqWLK qjYcnVgT4/CShZ1dz6QkJdugyrVLLT+GhcV513t41rdhhyjN/dwb0p8Oc8m+ 7W2QOJLF5/OWBT67IrqrdhvCvhXXbEsk72fu/HJbj9y3TtfG1BLTHp0YdjVo g5DhsNq69yyInT42k2zWBl5rCY+0JPL+bQvhD1faMBRuv6DvMwtyhXls05A2 rD9WWuWayoKo52xZX3gbTH6ufb4mjTwvupvr8rQNJUeK9+ulsyCzo+N9x+s2 xA5KXv2aycLBG18aqYw20FVzmh6yWUiY5VqRzmlDZK9orFIOC77vd184N9iG 6iAru2LimMo/tivGyPx7Vi7jymPBuGZhIvtfG2QCmMetClhI3pLeuVmkHS3t gh8Ol7Cw8f2Wyien2iHiY36nmfiw74bqHN12aO76pGFfyoLjbinvBUbtyPA2 60koY2HJKkmTHmY7wnckSayqYMFmwsBxlSe53zYv6E8ibp//rW5XQDsWeZp8 Ol3Jgto1mRrb0HbYN83XvfeDBUWdmzRjcv8962bg8bOahYyTvCZ1Je3wU0zQ 864h8Xg+fJdITTvy67lkNtSyUHXxgOWtVnJfVojLMKpj4WLrxPSXsXasqP03 mtfAwtZYI+Yh8Q583xht8qSV5MsN77jf18l9nLd7zc42Fh4tkTSuuNuBb62y 7cXEF66HBrf5dCArJNZipp2Fjyf2+0W87EAi74fLRl0sWL5S3vG2vgPybeNK Y8SiF149ONzTgZh05XGvbhb0d2jULPvdgcirqXapHBaOX3vjclGY/F5oy7or 1scCr+I+szWaneDP4D7yjjg6gcf5g0kn3B8dnX+in+Sf4xdJH6tOOJ3+5mU3 wELxkynulb6duJRRHlQzxEJoortudEUnNEJbXjwYI+uZpnv+N6sL365JM7aM s8AllBLv7dSFo1rmm3KJ/UYl9t4O7sJ+Pk7C+C8ST593/7z7pQubrw+l6E6y oGu0+dPOVd2I0VK82U/8ZPG3191K3ZDZfGWfyxQLTl48F7nVu7G649fX939Y GP5vpZqHQzf4tf9+E/rLQplQyJ3Jjm64b1a9/5p4xdueroOz3eBecFcT/1i4 2fC1iHc1B9OZPJXWsyxU3t4mJUh+L/ZvXtxYNs8SPAZlhwyLOShcsHrIZ74l xNo08xfX9iBya2DwNj5LvIuQHTaa7cHV/xaq1BBzWd/9ZSXbi9VPJ9ylFlpi LGZnZK99Lyx3/ZD+wG+JAJFGmTi5PqianCw4s9gSUzK3vG/r92GZS/alGWIP tnTQ9nt9SCtNTDsqaIll5sxk/a4+8Fv46NUutUSV/2TO38R+tHjzzNwSIt+7 oLPFrLsfH945PJMWtsTRh0peReIDMPrLHGYtswQGq78W3B9AXPAxz78rLPHc 59bMqP0gNNiz6WtXW2KFwdbNaT7DkO61Nc8njn8mvX5+9TB+CQ4tvChuiftC hiqJa37iiWGjfrKEJSKuZNTsTfmJoZFPP9WkLHF6MLf48q0RsEUUQwaIq6zf fLd8OYKQ/TH7A6Qt4cc4+1bp+whUPR941a+1xI0gyRm5jaPwk7qyzmq9JR5d tojf1DEK82O9hUIbLNFW/vJ33bIx7LpoavOROMhO+rz10TG0pGhmzspa4o7s q+UXYsegcFr+bOAmS4ToXDpb4DyOs+WXLJ4Tz/v/n+c4/gf00KQE "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, Slot["HighlightElements"], Slot["LayoutOptions"], Slot["Meta"], Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, Annotation[{ Directive[ Opacity[1.], AbsoluteThickness[2], RGBColor[1, 0, 0], Thickness[Large]], Line[CompressedData[" 1:eJwV13c81d8fB/CMVKJooBCpKBUaGiq9WkqR8aWsIp/rDikaIkkhM1sJRUqp jFSkrOJa2ZG957VlFKL4nZ9/PJ6Pz/l8znq/3+fctebWuhbc8+bNu8Yzb97/ /980fMI9r80cW9jbv/qub8e3lOPHwogHvFSv39duh9iKcY/t7eYQKqKxmh3b kVKmLmjRYQ4P97yAWzXtGDsyKVrUZY5PcsGffHw7YKWgu/VBnzmcoHVxL38X zHgWGmwcN4el5dKApJ09SDRLCs8m/hU+6LeU1YPZzPPNRr/MUbLEyjQoogcR 9h/NfX+b49acVhf3gl40DJlfGps0h8rSaVH1xl7o1WW6ZPw1R+9NKXlej36c SLiWoM1HgdNWfou/eggjenpVE8Ql+9VO1goM49HfnTNPFlAI1hS4fvboMDin Jk70LaRw0FYl/NyHYdzrt+9yXkxhfUhj7ajXT3yVcxJPEqIQwvhVZBA4Anr5 +cOGwhQ8niUdfPlmBEvsDrLmiFcdKpR4nj0Ck/x5n04tp3B2R17/85ERTNNc dbtWUjiSv2nW4eQongvQbnqLUBBKvZ/HazYK9eSjUUqiFO603lbfbDuKUB6+ YUcxCg2lCceORY5i13NPr5XiFHZm6vpfHhhFizrrXTpxvMHOO0//jcJtVL32 ggQFwwCfYuOlY6jC4g1vJcn4XHQzL28bg2PvwCm9NRQSnEffZB8aw7qAkqvT xPMiPF1CdcZwtdU3S02agmua2q5i6zGs9rjcM0hctNy5cZ3TGLIVtJYEryXr 972ea/r+GISchExaZSj8upa6ZVXMGD5tGHVxW0fh9tYNfqYfxnC+tOLN5vVk fkI6m9d8GUOCRPCk3QYK9MNO8XM/xqCXe23NGlmyvoNvfaVbxvD3ot6xXOKD fK9ffuwZQ/RyZStLOQq8z+vkvoyM4WT6ymChjRQYwvrn9v4Zw5j5RGoKsePs ipeyXOMI469tM9lEYfyD/HW3hePAh08LeOQpCF4d19dfOo5ew1CFN8RvCjH4 cOU4Arhu6mttJuuT6/BTTXwcu98YOv4mlh5IU2BKj6NFWyX68RYKCrxt/n/W j8N9anXRoa0UNnmHL53ZOA6FqJmRHuIN5VeyrbaMo/p4k6ifAgXvkuzy04rj cPyZobpTkcLCqPe3nm0bx/pHERYNxArpMpIWO8j3qAIvWyUKW1MklnrvJONT HE0Q2kbhkVuvyA7lcZz8u7oyjjjp6p73ZsTx345OqG2nYB0SdXE58ZKHl1d3 EFOXr3adIu/bXAhVvb2DwkhncBE/+X7lVra52E4KBvU6zdqk/x3TA+5JxOa6 CoNryPge5K+MO61MxqsdW2NLxj8RdLC8j1jBcbHPmU3jMDBljd/bReFDiuRi 9oZxpG0OFpXeTeHqh5ELqWvHITGVsS+dWORdYMIByXE45XJMz+yh8No5e5W2 2DgOn1N57bOX7F/57ZPrBcfxYhOtRE6FwrDl4YRevnHwTfiOsImTDxlZYd44 ivza9/zZR6Fq9fyyxNExbDFefO7BfgotXTvsivrG4Cen7Kx4gEJMk7yXU/sY dLI8Cy1UyXzltW6klo/hg8+HoXkHKbSXGCQfyR/DCsMm4SfEkmuXSl/OGEPd qKJRJch8Jzs+xr4ag9m62n7VIxR2179Un7w5BvbPeUsbiHWSdop/ujSG9Rny O2yPUuBq0TKXvTCGXj2nW3HH/j/enjvix8dg7b5BQOwEBZttU9bhJN+c+q5t HdUg6yNdPVf8YBRtHyN0fDQpKG2KfOF8bxSHXQps5U5TaLtzZfOi66PgExf/ ck6LvP+pJT5EdxS+GuzTRToUjGwCq3sFR/EkUcgm+gxZrw49F407IzicIOe1 7yypZ1Nxh+5cGkFvrOrzH8Ti684YxxiPQDnGqorHkIL9dIlo/e4RlD35todm TCFg63TigrafmOd9l2uDGYXtp65Z9GQPI8bj0epM4pR/mUZ3I4eh4fZ2h/4F 8r54r8aeW8MIu9tk4WZO9leoskVIeRjb7fYUddMohLOP3U2KHQJFGwmKYVFQ 6wzj8EQNgt98QbyqJQUBH9NTpXcG8c50TV4Nsa4HJ6/ZdBB/jTQm+azIfpYf nGyUHsQDndfGjMuk/zK7CeeYAeSrmq3feI2CX/AI70B2P6z22x3IIrb+rOY9 GdOPZSp+ZwyuU1hdrfOG5tMPU+UMT09bCv1bNxyyMOjH1GaxoV47En8KuVyS v/sgv+r7xzeOFFYs7q/YdLgPGy9IJJ2+TeEodmVMbe6D3Bvmu3HiqyJSUSdE +rB+L1fcgTsUIvfqh18a7MUaw+1RFc4UPB8csa2P7IXEM6eIGy6k/gvqv870 6YV4X1G4uCuFri0ZErK3eiF2k3pocY/CNML97hn2Qjjsgfcfd5JPBUdfOEj0 Qqi9zSPSg0L0NurgvSW9WLJpq9sRTwrXbR0fLePqBX9q3h1fLwp6nSzuzJ4e LORadnu7N4U0i8CsusYeLFA/71BLHHvja5D99x7w1k9cX+tDYcvgZ8sj6T3g Xnvkaj5xg1547aX3PeBi+Vtf9KUwEcUnJ/66B/PeN1oJ+ZH6XxcxdfIpOV+n 5Cw/Eosq63b9DenBX1xnGPlTeBDs56Dk34MZzyzaHPFfNeOj3R49mBIzNFUP pBCYFXf1u0MPJsxemgwT7+f1zJtv24Pfr0cNg4MoNDd3bkyz7sGvkQNn9wST eNAu4h6y7MHYHm+9ZuKf6ZEfIug9GLlbo+PygMSb/a7AYvMe/PwmoyX3kIJw y8iIrWkPhoWsNUqIUVIq+cSkB4MG6epXQsh5lehy7oBRD/qjFhwXeUThOb/f TwODHvT1/nc0nXj3Q3XB4TM96FWKOmQWSmFJ93TfjH4POPaDqvPDKMhmdHxw Ju7K2rM/ltj1z0l/J+KOhW57tcIpyOwNjholbtOu2PXr/96yn7uBfK81VHJn 2GMKYkmjhbtIfy1trG2qT8j65QUvWEDG07QxRaGT+PdW1Tx1Mt4GG+4tnhEU HipqLZg934O6z6c3bY2kcEX4UokMmW/NvMeylcSVsd6Cnyx6UH2iZ53dUwq7 fvVnppL7T1XAjrUSURTS49cVb7rcg8q6O2uyiaelpST5rvXgu3SJOP0ZhVNr JUM07XtQzhRbtfg5hY6dScvmbvegZOrdcv1oCtzhMVaPvXtQhH9C08SVtT84 roE9KPRUX/L0BQVNLuXIitAe5It1LOx7ScZv+OjrIxIvd9zseFxjKJT/FBJ0 eNeDPWMCsxKvKJyTjV/37nMPYot3j2u/Jufhj/Nay4t64Ovk2/w5lpzvK99J h4z0QG1Apk43joLD0zf6k9Mk3s5+rhwk3l/nJxc9v5fUzc4C6QQKkyuaP1WL k/tb154PnokUck3yN7qe6oWgTlm8zDtyflEu3CIGvcjPpF5lEKdduaHUR+vF nkd+T0beUzgUG7f01B2Sjye73A2SyffZhwOqU3rRkehvvDGV1Kc9Zt8zFPvw WGLDGTbxKppZ8KuDfdDzStM2SaPgsqKqME2rD/nm3ccC0im8FZHl07Ppw5uV +5SmMimsPPl91bqkPtjc4vB+Y1OoUS2Z+HCgH//UDrxllFDgmxIdmTMcwJLZ Bb5LSin4i25J5L80AOmPlRc/EnuJa8tw3R3A4XXMTTzl5Dy4/SL61csBuM8F vYisIPHA3c8V9pO8/7k3vLqG1KfaVe8XOA5CyjrppmMtGf/2gYEUn0EoyToZ rKujkMgMcdgaMQjdB8tFrtRTOPGY+xgzcxAhNqqBAk0UstMvqjVND+KV3CKb JOLJkZ8vfBcN4XPLj9NGzRQuS41FT4gOoUGDJfC6hYK84llm744hSG164HGk ncKxBItqceYQlNrO0/uJnZaXfza6PoTDjzYdC+wg5+l41YGjd4dAm/+Vu7WT QgXL/ZnwoyHYZni1u3VRuOVzuXns2RDcr+llbekm+//xl+3N+CG8bu+77cCh UJqsIHI1awipockma3vIecpd/7O9cAhFWnf2fSPee/Jm0VjlEAYzV/xZ2UdB qv5f2XjnEP5db63NIN5lpKrWMTCEJVtiU6h+Cn907Qwvj5Pxhh+8/n6AguXj iggTrmEc0uH/z2CQwkVK90nmgmHoLqzeNkc8Jf6+IlVwGNTXp0IxQxQitmuU ai8fxvUblj81himcCWpQcBEbhttW5bJx4ot5l2M0JYcR0jUXH/6TQpi17a8P a4fx6nHR/UMjFAalEvvebxjGZ92Hlr3Euxw3ME5uGkbhIjN1/1EK6kXi5x23 DKMhS37jrjEKxc3T5ccVhzFg95uvmfjztT1l8duG8Vchq9t1nNwP+FQc4nYM Q5DjnSv/i+Tn5h3zj5Lzd02EfnQF8dO7c4k3dg1DSU/axf43hXuaU0VHdpP5 Lh4wk5og9bM+72Mcccj48505xFqm4SmJxIONRgsZk+S+oTon9N//2+cua+Kf IvXi6Xn1EPK9kPiixLfEG3y8R2+S/gYfuLjq/iH5fPXu61kynkO3Vc5OEH+/ smn1hu2kvcWYfPg0qefOonNDZD6DmrGzB2Yo7Ak7KGG0dRiHd5lXthPHjb47 bClPfm+tWR3j9pdCqo+6lpQcac9XeXPTPwqdYkx5h3Wk/U8vzVLi/SaPC25J DSO09tDaK7MUFp3Q2rBBfBhDX//8WjFHnjfYadiJkOcBrCcm82i4jSDN1eT3 3LD9Wpt5XDSUXJu2vMQ3jCMX6o+8INasEKi7NI8836Y+MMBNg2PEgvu3SLwc Wc311Z+HBh3X60b3B4cQyp0atIOXhoDJyvua3eT5j40qt+bTYHOq/uYw+f0Y mt4mKMVHw+GjXNPlpUMYjg5tZxOfENIzZ+WR59cXevEvpMH1bGtSYRJ5vrK3 NoyfBi7uN70s3yEcnX0ad2AxDR073gvudB1CGOfsnXbioX1dUmx78vxTgewm QRpWLA3UUqKGEG7wyvbzUjIePVUpZ+UhHHtMX167gga7gfW8hhWDCHdd0+Ow kobVp24skM4dxMjFmrQ1IjRo+Wqr5aaQ5/vVzOmiNLRs/hQV+5g8b97w/vcq GpaP5Kquog3iiXT36RVSNGyg/bcqb2QA8Vs5UgnEF2KMby3pHECGSs/IMWka St0lL2lWD6BJry/Ibi0Ng6f5xd6lDkDca6imYR0NJqc2qKx3GUD46O/zzzbS QL3uL364bACP2HzWCttp0Is3Kl6yux8x5QtQQFyw7uqG+E39SGlaKGy2g4YF k1oJZyT6UTPBnxS4kwa6VeBkFVc/RDYvnfy1i4Yz6rr6zqV95F4ieid9Hw3n V+oqdDD6EETb6H/iGA1SET86EduL6fTzR4eJv809axAl9zXz5Q//BKvRUMF7 3Hd+UC+2s7lorcdpMD9bsmyDQy8qpRr33DhJQ1PwMcY1ct4sb/TtiNaiQY5v 7xaVsR5yPx1XnjOkwdj80aSZFrkfvd408MKIBquAk5PVx3pAm2cWddKYhv9C FN6b7O/BzsQS/hATGobd0nUjN5HzWyCmdYspaZ9es36Atwcrvhl4GdFoMD14 +aTNFw4eqn5p+niZBma5orP6Pg4+px3w17am4dOzBMupHRw07Mo8NEDcoJ58 LXELB2sUM2Kkr5D4ONwvrLyGg9dSaTb3r9HAp15bEcrFQca8FN4L9jQsqhk7 GFLYjS52whYBFxpmVpdukTrXjZ3HIxzNH9LwK1HqRZZXF/qivp3VSKchso+9 QqO2A3EBarDuoqGcR/Pkj7w2LEoUvFXBb4GsoTaep6xmXKfkcqx2WiBNOUlr 6E8dJpi+asfOWaBhwM+DM1WF/A1dL5uJrWa/Jvb1V+FRh8r8G+ctcCj0S9iv pirsMenNiTG1gIWTUdna7Co4aB05tNDcAu52UdcavKrwT/nPvmK6Bc6cPL69 SKIKvDwW23RsLPB6qlGh+MQPLI/YL3HO1QLpjUaammkV2P/imyn3PQtc1UsX YCZUgBanF/2KOFg3TsE3qgIpqVbyY24W2NbZGT3hXgGDmid7PDwtyH3uepCa XgUil/7Te+9rAXGJia1NI9+x0SXTd36oBS6oTNzt2fYd2l7qFbHEOvNS43Rk v+NmQPUK7TALbJTTOZ+/+juKIoceh4dbIFn5sVE5z3dcSpeMVYywgMS9UZ2v 8eX48Ot2vuFz8j0bP7Ox6TIcYKjOJcRboOnAN9tlr0ohHbwcJxIssPI3T25n cCl4v/be7SCeVxivVHC3FEUiwdyiieR9dRjkGpXiTH7P/LvvyX4MzHd+tLQU lzcECuimWMDZu2cuwrEEUZ2dqya+WkD10mr1JbRiuC5NNQrIsoBp5t1M8f+K Qd/n91g+m3zfWjdf5XAxtgTvkTRlW+DI+ao7CdLF+HzYV/pbrgVuGof/obUU oeLZLrnwQgtAda+o6LkicJt57VT9YYHco9/GzzEKcaAm2LCb+ITH6b4zZwth rxHp5FNlAbP2yQjqeCF+7kn61lBtgdUuKjKf5QrRJNxsYldngXcrPZ5r9H3D pxwlt3fNFtiRV5EhbvMNVnJ11TK9FljF5Sy8zKcAryI6pguJX4m5XbziVICO 5UNSV/os8PS4/LlOmwIYzuO2/NpPvn90V9usfgHU6jfPGg9ZYE/TQt3lawsg ff+O7MMxC0w27dv9Ji0f1cOydgv+WUDw42jE4Zk86IWsCYwj5vTE2YqM5KHq gEic1qwFuOXecs90EfvMb300ZwHJZ34rJ8ryUCnfpbaRmw6LQgfBpOg8fKc/ E1FfQMdVW9NPB7XzUNQinuItTMdRmcyzph9zcdJ9+XeFZXS8HIjq2BWfi8Kt i/sriaMqbfoko3PxzXFaUnwFHQdEUo+sDsxFwep6tzgROqSEbVYVX8pF7pkQ fXLDx1JEsXnlc/GlTOi3oCwdG5MFDzxIyMFUuI7AK+IYqk0vLyYH2xlB6yBH x/ErfA3cUTmImVuue3UjHRcv3RKMDsqBn5JoYo08HTdsWw/Z2efANEiS9VSR jtO5/EpMtRyEnz9/d48SHZUZC91NkIMq+aePKoiF2jTLTVRycCJHOp9nOx21 bv6Szgo5UPq1bh1zJx2ufsU1Z0VzMO+MfLPSXjpKXror7x5gQ0Xm4q9C4uIY voM93WxcH45bTKnQ0XC2OPd5Gxu97ltVHu6jQ9uiTm5/DRsVn5Qe/TlAh37X 1zuT2Ww8X7Vbh32YDk/7eGnvx2wcaT6S958GmU9v9f6hM2zUjKdm/SE+krQ4 OlaXDSa/UsZTTToGn3bcvn6aDZ/dEkkDp+lwf/Xk8lY10j7wV5SrDh2fbF+q 79hF2qu9dEw6Q4eyuTfNQ4yNaRNxe8OzdPiXFy5euJK8fy3w2hzx7t8zkQ+E 2XgfddvylCEdL8ZbGRX8pP20vkGnMR1pUw8e1/3Lhk8i387lF+hYPBt0XoST jTX5joqpxDp+jn06ndl41zQmb2pOhxtV1Bzalo3qRa1r4yg6jF+WdJxoJO1p n5YeodPRpMJ0Vqog7R22Lu4jPj90xCG/LBuHA6P5/Bl0/JJ5GsEoyQbji/+/ BiYdQ5NNR4sLSHsx5sDVi3SU9cioin4l7RVbOGJWdNALbybNz8xG1TG9ji/E IrcERObSsvHnKur5L9NRnpV1b9kn0r5UrOC5DR3iyvW70hNJ+04/9okrdPi8 1zs67y3pb5r3yzAxTcSGRzuezFduNFnlGh39dbtvLn1D5uNc+LzSlo6tGefs BKOzIZPp+fjSDTp809gfvzzLxuWp4w8W2tEx0Oq54mZUNhZa57up2tPRLSIg sSgyG3qxbk71xGdaD6a2PMnGs+6jdtdv0lEBtmnm42yomOQwYx3oUPSuf/8w LBsej1wuHLtFh2T7El3/UDLeykNGbcQJST+6Ah9l45J61imR23RoGbkXv3+Y jbR7d46+Jy6LUF1R/iAbfFmqBzSc6LCB+N7fwdmI2pWp4HKHjslHQlwmQdkY uuIoJ3mXjna+NWFPAkn/CfukPxMXau6d7A7Ixo91acLDznQUnMn8GeSfDWnT m/xeLnTYWh67M+GXDavwPTzrXcn+za76ak7MJ/zpl+E9OlR2y6jo+2bjP40b Q7+Ix1ZGWTb6kP49lDn+bnSUDs0qWxIPsn+1yLvToWE4GsJFvHc2qTaP+Nw5 Rc9n97PhvvfadzMPOoStbvCeJK68vr1whvgew4tvxjsbUu9Gs0M86fj4Qskr mdhq4F3aNi867gzv9bhBnCprk1RC7O1pPwNiPnPFeIY3HYzteW3LiXUjhl9w 36cjUn5220+vbDytS4iIIK7dtqC/knhw+aWQPT50cPsV8nwl3qO1xf8H8VfB nQ5JxG7eAx6XfekIWrzvxDviyrzYu4v8SH5fqWN+JF7DZXnzBfG79MW1bOKL +zddPehP6uW/et864s92vZYNxBJdmp4TxLxJryjbADqiU+2yJcj4dIbpJkKB dMhYXtp5ijhyk6x+HPFH95NNzsT9tG5NtSASv+pKyVnEu6NeqLUT/wk79mkB Wa97jdRBx2CyX0Kf2s4QfxdZt0f0AalX0ymb3xJL6nYofSCmmd0OFiTrb+n7 bJPmQzoe8p1Ybkuc8s1MppdYwNYopouYh1da3DWE5Nv0v+MmZH+fOEQKpD6i I9hF5QVF9r/v47n5eqEk3xVd9ceJd41KzA4Tf9bO4L5P4qec8fjn+nDy/PNT 1UoSXxLRRr1fiU8835jrTOKP2bKq3egxHbm6pjv2kvjk1g+tDHhCzovYqoyv JH6Ds49mbYygI6O74o03ie/1CqMJWcR3JsOkz5H4V1tw0mskkqy/9VC4GMkP 79SZg9rPyPrGB2j1hWdDXPb11l5i5pt40RGSb/FBeuJ3n9MhuG3wxCzJx7KL CROJ0SS/B4drlJ5mY/ka04SlMXRs+jK1fZjk+wvvxY9fEQffm61WfEnmN/nJ 8+ArOu6rjbHtY7Jh8F2IZv2aDvOsmxelSb144sJeXR5Lx9ktu/zySX1Z37PB 0y+Rjoh04V7L9Gx8/K/SVvYdqQ9yedZSpH6pZTlRX4hTzHwXNH4h6xFWqzr8 no633/IMGWwy3lNevzWT6bhro7i5qjAbyu8GzQVT6ej8JRY3U5+NfIkw7ZfE /EzvWKkmMh6vY6oH0ujQc//hfrIlGw7mkasupZP681G0KLkjG19WaH8vyaTj lsw++cYB0v/NpAM+bLL/cfPareayoaj0cOm2HDquXW0+p8zNhljPjfZq4p6T D9Lmz2djQE/FTSqPjuTTixd8IedFgFJ2yYcCOlZ1b3jkI8JGQ0+ZcX0J2Z+C dyufKrKRE/luq1MpHW+G3LZ3bWcjXj9oTqaMDtGibu5t5Ly6k6MfbVVOh4OT wMf2/Wysf9rUP1dB6v/Hp2ufnmTj8pn+m7K1dJLX8ZQng42zgiWniol3uC3M PX6RDeQmSNrUkfy5sjJtiTUby7dfyU6tJ/v5brl50g02PgtOLdRsomOt1EXn s+5scOfND73WTsfT9HX7+F+x8WjH2pSsATJ/sR+dosPkfF+q4WY0SEd8/Ogd +zE2Wvpv6P0ifta2M6V1gg3Z5yVjcsN0aN5iTmTPsZEsZK/oP0L2P1DnZ7Vw DiqHyl6f+03qr0HchQO7cyD42vHx9CwdC3ftLpTwyME711eWD+bo0DXsktD3 yYGeaeVehXkMqGw+x3wQmIMnIhvrLnAxYC/XNi33JAfybj9WFPIwsNJA+EX0 e3JfMZf3e7SQgVOjOw6ONefAVaLu7s5lDMTcb+2W2p8Lp8N7djYSf3QNpH07 nAsHZmiP83IG/L5/3+ugnouryQany1cwkOL7VWb6TC7MNerFLUUZuKVVGGl1 NReHHRtSnkowUFimJ7w5LhfzmpoG+eUYeOhaLvhkfR7+ch2Iek/84sKLruAt eZiSi/jPYCMDuY36uY925mHk2rm0l5sYqOfNXJV7NA+ti1s8sIWBbW0O0R8s 8vBlX6vMjW0MNOqMVM+PzcPtx+0G7ftIf5tOPnl5IB9fxhS43PYzQLGNHfcd z8esuuObjQcYyL8TpNyhnQ+nKZFpa1UGinS1VlG0fNzR13g8CwYUv/hv2+uT D+eln5rF1RjYk50sY92aDzad1/0r8UzYVVGl/nxwf9FRoI4zsKUtRYjvdz5c rAadYk8w8DWkTWOMvwCuhWul955iICtgprdqdwHcXH3Mz2gzkK5Rt0YopAD5 DfX808RvXq6vVn9eAL7tckkROgwkRcYci3xbAPe2bJ5uXQZO39zFG1ZQAI8D ky+u6TNIfUxV7pgugNfkhZ4AIwZKwiNitjC+wffibqtiGgMSWu80LhkVwrOn VJhmwUCg95nfTaxCuFC0T3+JV71mPr92k/weMQ7kVmAwcPR51h2xsEKYnxoI DWCR+YrwrdRtKMSezU/z9C+T+Intk5OwKMKOV8oXh4kpv4igU3ZFUFhXIuRh zYCwoadEglcR1on/Mf5sw8D34/8yFiUWYcni/8ZWX2PgmP0yBfwtQmc/n1Sb HQNTmSc+0Z4Vo4UekWtvT9Z/w5nrEp+KUdexw1L4JgMd+1qDVpQWo6zB7ONh BwYS32zlKvpDfn8VpZ166ciAntKJcvqZEvjFXra3dGbAdt+yA+clS+ElO38N jwsDoF1yjthdinvPH+c8Ju7SEhNX1C3FzfBvS0pdGTDTqThz2rMUNG+Zl4ru DLzOGV/6bKoUey1rKn55M6CheXcmr78MPkrPjcPvM7DG6fG0i2A5WiYudR/0 YYA5sq4sTakc91zn//H2ZeCkbHvcc/tyfH+yU3ptAANKH/cdPLbgO5jlQZc1 HzJwZssrz8Ox35H+8PzUGPGPifK6ka/fscRE3iU0hMTb0ii5oervSO7Nftj5 iIFK39LtVdwVmOMazbgZTr7nmml7y6wCITu1Fsc8ZWDQ3tpOYUsl+qZXPzwV xYAJ1wb20eOV2J/NWTNK3BgSqZ9uXokOTaft+5+T9ez0/FUaXomtjATDyhcM KAcFyr9Z+gO5YYtfz75hQP/s2zPbBasgala77UUsAwLCc1pVClWwlI1OV49j wHJom3SvdhWEklTKH8ST8ZYbyrNCqmBcwpqQTyT7wQmr7ZetxthswdGzyQxM q0YVRZ+vwVxfU/Eo8YKJ2NKFbjUQqB7V9flI6kte5d3GuBrIxYlfyE5hQOHV cfXi6RqYnLW+vTmVAX6HExqNEbUoSBRJmctkIFz4zEjJVB2emFnIvS5g4EhA YCJ9rhFvTjm8PfyNgV/vj+/dsKMJKbv8lZuJtYY1kg8ymlAhkHpkWREDD8a/ Cjl/bwJfqoCZYwkZn+iKmpmYZlwRTg7VrmBgmb325rcXWqHG5ub/08BA0LOE 2tBb7Qht4XUPaCT15JB4Rf2jdvRP83FvbGJgPfdmpnByO3x3LJ4+08zAjZV+ rkaD7ah6sbw/uZWB55K1cQImHbjgsb7IpouBt+P+bcHKnfgQLau2sJvkM+8r KS7tTvBmbWQ/JVbZJ717r2UnXk9tSSvjMPBt/JzkbEQnhlnKsVv6GLBiZN/z 4O6Co4aad+8Q2f/vqfTZjC6UMU/w3R1mQPuU2umPlV2QcjvpIvqTgf419n8W 9HaBnXnaQW2Egevx627YCndjkeJZyxdjDAQ8nMMG024YnTLk7Bsn9VbK5sTl K92IZxib/yDWrDkycMC1G9pRpkbcv0l93r/JivGyGyHCzJNmkwzsv/W6Jbqz G71bLfMniTfOHGprH+2Gykmrw/5TpD6mRIk8nOtGs4uNypc/DAz0Drb+t4oD hadXU/SnSTxGhS402cDB3fTr24eI77amBVUqcbD+l728xF8GJkb7xnnVOLgh dCsmifgp5SD+RYuDgi23ZU79I/Xq3l21NgMOxNTvRHYQvzSOMLa8wIGlhfNq h1kGdiyXNTZmcZDh7BoiPEfqM93Z9IMNB0si3Za9IT5WeCvish0HZmkefpjH xP4VQTT/2xy8r/HiryOuc9outcKVA6MD2ZaOXEwYPBj+a+rJAe+LqSJpbiZi 1k6tHPfh4C2/0uY84qP3LomVBnBgcIVxn8XDxNXSN3VDwRxw10UOCPIysTP4 rI5+CAfxqjWnPhAPz1yN5gnl4MxLwfgz85no494n8od4nsAxgRliaa5lorvC OIi96mj1lI8Jn0DNvenkuV59UsmRBUzo/v6t7PWIg9mDA1t6iRdvtB2IesjB 6xgZX5+FTNxrUz7HQ/rXFTQaUlrExJn87Unv/Tn4ey1Qs5p4QvHG3oT7HMQ0 fEu4yc9ER4G36aQ7B1qH5i1Zs5iJSpfmT4HOHEy92n2ZTbzVSHjy9i0Oni+x LqMLMJFy4th45nUONGxjFBYLMlGzVDP6v0scTDQ2+yUSf9JrljxkwUHU4ZU/ /1vCxPv4uFBPEw5OvtHQmiJ22u3K2PIfB5E30pceEmKC/5tIe5AqByeax6y7 iWd4ZrKMdnAwdkT+u5cwE+fCJc55yXGgJhwWULmMifMb5p+WXcLBUNwNYdpK Jp7Ru58mV5H4XPb2ykIRJjYsnd69IK8buNldEU88fGp5Rn1yNx6o6QX9FmXC pdbeViC4G/vbty33WM3EJiGf3wInu3FfZGhFrBTZfz0pk9SXXdh5e73taWkm gvZPfcny70JLp3H1GPG4x/5Lrje7sP190cN9MkyEfwhnq2t0oeHUa5HS9Uxk lJt8OvyzE5ucKbGRTUw8YO53FlTohJ9Al62XPBNqrxLH14l2YuwR7YfMZhIv a6ScFOd1Iu2thZ/+FiZiR/2HFSs7oNHE4E1XYGJgxUqx1Tc6cHm31YjbDiZG KrrKPL62o5I9qCm1k4ntVW1hPG/asev0pbjPxG2SvZyQoHbM0S7TB5SZCHxq nsNPb0dAkE2T9h4mBARSn/+3pB0fhq5/Ez/ARPnUEulIizaI3Py94SPxF+7A woM6bXDgveF6WpUJsX1luYIH2nBE3E7V+SCTzHNEZvvKNlSduJnMOUT6M9q9 nubfisno21Hv1ZhYXxPwRcGqBSaKs/9OHmdiMOPL/Aj1FmSlORl3ET99szTF Vq4FnhV3RETVyfxk76xjdjVj9Zyzj+MpJtKU1lw0opqx38jd/rg2iV9Z2Qo/ 2yZMKe5PGyLe/CjYmXW2CR/nj80E6zBhJ7tnM3tvExTen7vTpsvE31/zggfI +SC9UNn9pj4Tswf4JZcGNaKpub9A6gwTFX6y5kV2jQhLilqUT/y9vC9r9lwj lpkK+C4zIPljsS60fHMjeFM6g+OMSL5D0fFPSQOy7odV6xgzccfsdJRFSgNu X9ASnSJuW2z97khUAyYE0sOPnmNCK/S7i45tA3qpoGfNpuT7l3XpIesb8GLv iU5XMxIPgRyv68INuLB0dr38BRIv37N4Mmbr0ZDGen3DnInQNw8vuTTUo0T4 UOJSCyZoQyP5JSH15D43MfKRWCOn9ny1ez2OZcZvN6GTfExawKNqV48vTLGU 1wwmFlonJ8sb1uPd158ZhyyZ4Ax7+GmvrYfVw5ezPcSm80tM96yox6aLxvC7 yIROrGfejQX1eC5SkNNgxUSY0cbHY8N1eHApsuiaNRNdSxXz87LroH1ET2C1 DROvllj4HvpUB8FV/KeziPsDtkXzJ9TBPde2QuAqE/vq/JXvhtXhcPjm5UnE KgbO1+UD6jBn3a5neI0JY/Pf7pIedbAX16x7eZ2JZC8au962DjtHuVdr2DIh 8XPR16hLdRjN/2w8RqxCvd4Vb1EHy6vrW1XtmHBOvW7gc6YOJoUz3bU3mQio +nBQb18dfuRMr7/mwIRhQ7CAl3IdTn75Qy25RfIp4/eVMcU67EmabD/qSPL1 X3C16YY6JCZMSLcRq/d9g7l0HWRf/za9dZvs53m7NSHidVgRMd783onUE+Ny Gf9ldbj/aExC8w4Zb2Vcge6SOnAHjRr3Ehf4XWw8yl+HEfef9WucmVgb/Id6 z10HhvOwWBrxIqdrTPm5WrTcGjqr70LqWezGmbKZWhTbDFTfd2XiseNH7tDf tTh8sX+F3D0misMyxdLHavHZou8/NvGC+WZzfCO1UDTrDTrnxgTb8LXAraFa xBj1VEwRyyaUhooM1EJSnyP0wJ2J7Fil2breWjzQ6tZS9GCi9JphWDanFi5H O0stPMn+tv0Y4u6sxR/VDgEuLyYOf++yNGqvhc3e9lNPiHMtdr6sbq1Fz442 793epN6G9fJcb6nFeYXWwkrikE8HRnY216J6Y8vCy/dJ/HFcqkWbaqGxrvn4 Ih+yPm4iayUaa5Ej2eT+griFbn74UEMtVMQa8w76kvrRWxvrXl+L98saeBuJ X/wcKB2oq8VGwfojN/yYsM5attaG+OmCOhdhf1IfstPFlxOLcNdmxxMrrdPc XVVbC9+/1fNOBDAhdVHq5wdi3smqg53EEmP2WW+Jb43+cHIKJPF/3Eu+gHhs oDJzVRATqz1ob2eIWZyKv8nER0Jny06R77e1fd+nHUzaW8gKfyI+21juMEDM 5nae2U/GW1Zdlur+gAnN3HsizcTHvpdOrX1Iznfd64MhZH4ZRSW7M4mvxhsu siTz355XfMMghAnzTVwz+mR93nwt+jhO/Mbql7YRWT/ptMJffo9IPhvYPrlB 1jck+dsO+VAmJP/Y28SS9b/3Jv+9WRiZb/UBvrMdtZiJzhuZIX6/dt9EGdm/ q5G5io/CSX+Cm4pNumthFsxOKH3MhM0XgaDPZP9rfbMHmU/Ifmcs/urWX4vT nlmbeSOYiA7jOc4YrMX+21/eqEQyIVRWOmxB4kuMkfbyVRQZz61Tz47/qcWP oJj6g89Ivh6RtnxG4tXvS5BgHbGcb9kKgdlazBe5aLswmoky3aO1y3jqMJYr foz1komltDVFzYJ1KJG53SUfS+4nKosFN8vWweM0SyyH2I1xs8hmE6kPDvoa xnGkHgk0LsnZUofUiq3J9+OZEHay2uezow4xd1tcB98yYTVWxo49VAfnloPr 3iYxscTZ/H6vaR328285q5ZMzoPyAGYTVYcpZbH7LcRF/4qu1jPqcNl3ZGxJ CqkfzZb6w9akXux/xrb+TOJ7tOqy09067ArnNt+WSZ6fvrhxeXQd+vXzopLz meAW2GzLP1SH2WLOZ8MCJrlHrPY+OFYH4cMLK2aJeXsdlzlMknqicIpLvZAJ f/En47Nc9XDnq7jQXMzEilLaf0dF6yHzqUmGr4LUxxPSGs8P18NI7NeLs41M XC+vXz34uB5FDTJvpn8yEbz2t7+IXgOO+RXy3BVhoeBeHvLiGlFay76oChao G1P3LvA3w+rqwqUqLBbayjJX/1BrQWBCy3QlsXWd7OfTp1qQ0pvMuWjJAmvS fWWRVgvmmV74EnGRBe5AywNZBi0IPpV2iesyC9Wqi3zjLFuQtt6q5NtV8r7X xCUvvxYsqi33OuvIQoh0kk9JTQsUlsXYjhBnifx8btzYAl1Nxwtet1nwV3d3 GGxtwZOcjXvTnVjYJqlcsLyvBUrvnHvXOJP+VqSa35ppgYHXjuMcNxZWVMhG 50q3ImbfI15bfxZMl62+I3C5Feuyn1etDmBhvmR/3/VrrYhSe/sii7juYd1o p30rwnXyjgoEsSC8o+tdjWsr/Bnj96IfsNDBKVy+MrwV9sFa8yvDWJgs3ceW /9aK32LG1XbhLHwLY/wQK2sl+UF/KfmYhYmks9eEq1ph9eb2MdYTFo5kL/dd 19aKC1/j3OY9ZSFP8kvWj6lWnBxYwKf4ggWe06fUzoq0ocBmeU0VsZ6aqWLK qjYcnVgT4/CShZ1dz6QkJdugyrVLLT+GhcV513t41rdhhyjN/dwb0p8Oc8m+ 7W2QOJLF5/OWBT67IrqrdhvCvhXXbEsk72fu/HJbj9y3TtfG1BLTHp0YdjVo g5DhsNq69yyInT42k2zWBl5rCY+0JPL+bQvhD1faMBRuv6DvMwtyhXls05A2 rD9WWuWayoKo52xZX3gbTH6ufb4mjTwvupvr8rQNJUeK9+ulsyCzo+N9x+s2 xA5KXv2aycLBG18aqYw20FVzmh6yWUiY5VqRzmlDZK9orFIOC77vd184N9iG 6iAru2LimMo/tivGyPx7Vi7jymPBuGZhIvtfG2QCmMetClhI3pLeuVmkHS3t gh8Ol7Cw8f2Wyien2iHiY36nmfiw74bqHN12aO76pGFfyoLjbinvBUbtyPA2 60koY2HJKkmTHmY7wnckSayqYMFmwsBxlSe53zYv6E8ibp//rW5XQDsWeZp8 Ol3Jgto1mRrb0HbYN83XvfeDBUWdmzRjcv8962bg8bOahYyTvCZ1Je3wU0zQ 864h8Xg+fJdITTvy67lkNtSyUHXxgOWtVnJfVojLMKpj4WLrxPSXsXasqP03 mtfAwtZYI+Yh8Q583xht8qSV5MsN77jf18l9nLd7zc42Fh4tkTSuuNuBb62y 7cXEF66HBrf5dCArJNZipp2Fjyf2+0W87EAi74fLRl0sWL5S3vG2vgPybeNK Y8SiF149ONzTgZh05XGvbhb0d2jULPvdgcirqXapHBaOX3vjclGY/F5oy7or 1scCr+I+szWaneDP4D7yjjg6gcf5g0kn3B8dnX+in+Sf4xdJH6tOOJ3+5mU3 wELxkynulb6duJRRHlQzxEJoortudEUnNEJbXjwYI+uZpnv+N6sL365JM7aM s8AllBLv7dSFo1rmm3KJ/UYl9t4O7sJ+Pk7C+C8ST593/7z7pQubrw+l6E6y oGu0+dPOVd2I0VK82U/8ZPG3191K3ZDZfGWfyxQLTl48F7nVu7G649fX939Y GP5vpZqHQzf4tf9+E/rLQplQyJ3Jjm64b1a9/5p4xdueroOz3eBecFcT/1i4 2fC1iHc1B9OZPJXWsyxU3t4mJUh+L/ZvXtxYNs8SPAZlhwyLOShcsHrIZ74l xNo08xfX9iBya2DwNj5LvIuQHTaa7cHV/xaq1BBzWd/9ZSXbi9VPJ9ylFlpi LGZnZK99Lyx3/ZD+wG+JAJFGmTi5PqianCw4s9gSUzK3vG/r92GZS/alGWIP tnTQ9nt9SCtNTDsqaIll5sxk/a4+8Fv46NUutUSV/2TO38R+tHjzzNwSIt+7 oLPFrLsfH945PJMWtsTRh0peReIDMPrLHGYtswQGq78W3B9AXPAxz78rLPHc 59bMqP0gNNiz6WtXW2KFwdbNaT7DkO61Nc8njn8mvX5+9TB+CQ4tvChuiftC hiqJa37iiWGjfrKEJSKuZNTsTfmJoZFPP9WkLHF6MLf48q0RsEUUQwaIq6zf fLd8OYKQ/TH7A6Qt4cc4+1bp+whUPR941a+1xI0gyRm5jaPwk7qyzmq9JR5d tojf1DEK82O9hUIbLNFW/vJ33bIx7LpoavOROMhO+rz10TG0pGhmzspa4o7s q+UXYsegcFr+bOAmS4ToXDpb4DyOs+WXLJ4Tz/v/n+c4/gf00KQE "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PlotRange" -> {{151, 212}, {-20000., 80000.}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {151.00000000000034`, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], AbsoluteThickness[2], RGBColor[1, 0, 0], Thickness[Large]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>]]& )[<| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PlotRange" -> {{151, 212}, {-20000., 80000.}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {151.00000000000034`, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], AbsoluteThickness[2], RGBColor[1, 0, 0], Thickness[Large]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, { Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { 4.503599627370496*^15, -4.503599627370496*^15}}]}, Annotation[{{{{}, {}, Annotation[{ Directive[ Opacity[1.], AbsoluteThickness[2], RGBColor[1, 0, 0], Thickness[Large]], Line[CompressedData[" 1:eJwV13c81d8fB/CMVKJooBCpKBUaGiq9WkqR8aWsIp/rDikaIkkhM1sJRUqp jFSkrOJa2ZG957VlFKL4nZ9/PJ6Pz/l8znq/3+fctebWuhbc8+bNu8Yzb97/ /980fMI9r80cW9jbv/qub8e3lOPHwogHvFSv39duh9iKcY/t7eYQKqKxmh3b kVKmLmjRYQ4P97yAWzXtGDsyKVrUZY5PcsGffHw7YKWgu/VBnzmcoHVxL38X zHgWGmwcN4el5dKApJ09SDRLCs8m/hU+6LeU1YPZzPPNRr/MUbLEyjQoogcR 9h/NfX+b49acVhf3gl40DJlfGps0h8rSaVH1xl7o1WW6ZPw1R+9NKXlej36c SLiWoM1HgdNWfou/eggjenpVE8Ql+9VO1goM49HfnTNPFlAI1hS4fvboMDin Jk70LaRw0FYl/NyHYdzrt+9yXkxhfUhj7ajXT3yVcxJPEqIQwvhVZBA4Anr5 +cOGwhQ8niUdfPlmBEvsDrLmiFcdKpR4nj0Ck/x5n04tp3B2R17/85ERTNNc dbtWUjiSv2nW4eQongvQbnqLUBBKvZ/HazYK9eSjUUqiFO603lbfbDuKUB6+ YUcxCg2lCceORY5i13NPr5XiFHZm6vpfHhhFizrrXTpxvMHOO0//jcJtVL32 ggQFwwCfYuOlY6jC4g1vJcn4XHQzL28bg2PvwCm9NRQSnEffZB8aw7qAkqvT xPMiPF1CdcZwtdU3S02agmua2q5i6zGs9rjcM0hctNy5cZ3TGLIVtJYEryXr 972ea/r+GISchExaZSj8upa6ZVXMGD5tGHVxW0fh9tYNfqYfxnC+tOLN5vVk fkI6m9d8GUOCRPCk3QYK9MNO8XM/xqCXe23NGlmyvoNvfaVbxvD3ot6xXOKD fK9ffuwZQ/RyZStLOQq8z+vkvoyM4WT6ymChjRQYwvrn9v4Zw5j5RGoKsePs ipeyXOMI469tM9lEYfyD/HW3hePAh08LeOQpCF4d19dfOo5ew1CFN8RvCjH4 cOU4Arhu6mttJuuT6/BTTXwcu98YOv4mlh5IU2BKj6NFWyX68RYKCrxt/n/W j8N9anXRoa0UNnmHL53ZOA6FqJmRHuIN5VeyrbaMo/p4k6ifAgXvkuzy04rj cPyZobpTkcLCqPe3nm0bx/pHERYNxArpMpIWO8j3qAIvWyUKW1MklnrvJONT HE0Q2kbhkVuvyA7lcZz8u7oyjjjp6p73ZsTx345OqG2nYB0SdXE58ZKHl1d3 EFOXr3adIu/bXAhVvb2DwkhncBE/+X7lVra52E4KBvU6zdqk/x3TA+5JxOa6 CoNryPge5K+MO61MxqsdW2NLxj8RdLC8j1jBcbHPmU3jMDBljd/bReFDiuRi 9oZxpG0OFpXeTeHqh5ELqWvHITGVsS+dWORdYMIByXE45XJMz+yh8No5e5W2 2DgOn1N57bOX7F/57ZPrBcfxYhOtRE6FwrDl4YRevnHwTfiOsImTDxlZYd44 ivza9/zZR6Fq9fyyxNExbDFefO7BfgotXTvsivrG4Cen7Kx4gEJMk7yXU/sY dLI8Cy1UyXzltW6klo/hg8+HoXkHKbSXGCQfyR/DCsMm4SfEkmuXSl/OGEPd qKJRJch8Jzs+xr4ag9m62n7VIxR2179Un7w5BvbPeUsbiHWSdop/ujSG9Rny O2yPUuBq0TKXvTCGXj2nW3HH/j/enjvix8dg7b5BQOwEBZttU9bhJN+c+q5t HdUg6yNdPVf8YBRtHyN0fDQpKG2KfOF8bxSHXQps5U5TaLtzZfOi66PgExf/ ck6LvP+pJT5EdxS+GuzTRToUjGwCq3sFR/EkUcgm+gxZrw49F407IzicIOe1 7yypZ1Nxh+5cGkFvrOrzH8Ti684YxxiPQDnGqorHkIL9dIlo/e4RlD35todm TCFg63TigrafmOd9l2uDGYXtp65Z9GQPI8bj0epM4pR/mUZ3I4eh4fZ2h/4F 8r54r8aeW8MIu9tk4WZO9leoskVIeRjb7fYUddMohLOP3U2KHQJFGwmKYVFQ 6wzj8EQNgt98QbyqJQUBH9NTpXcG8c50TV4Nsa4HJ6/ZdBB/jTQm+azIfpYf nGyUHsQDndfGjMuk/zK7CeeYAeSrmq3feI2CX/AI70B2P6z22x3IIrb+rOY9 GdOPZSp+ZwyuU1hdrfOG5tMPU+UMT09bCv1bNxyyMOjH1GaxoV47En8KuVyS v/sgv+r7xzeOFFYs7q/YdLgPGy9IJJ2+TeEodmVMbe6D3Bvmu3HiqyJSUSdE +rB+L1fcgTsUIvfqh18a7MUaw+1RFc4UPB8csa2P7IXEM6eIGy6k/gvqv870 6YV4X1G4uCuFri0ZErK3eiF2k3pocY/CNML97hn2Qjjsgfcfd5JPBUdfOEj0 Qqi9zSPSg0L0NurgvSW9WLJpq9sRTwrXbR0fLePqBX9q3h1fLwp6nSzuzJ4e LORadnu7N4U0i8CsusYeLFA/71BLHHvja5D99x7w1k9cX+tDYcvgZ8sj6T3g Xnvkaj5xg1547aX3PeBi+Vtf9KUwEcUnJ/66B/PeN1oJ+ZH6XxcxdfIpOV+n 5Cw/Eosq63b9DenBX1xnGPlTeBDs56Dk34MZzyzaHPFfNeOj3R49mBIzNFUP pBCYFXf1u0MPJsxemgwT7+f1zJtv24Pfr0cNg4MoNDd3bkyz7sGvkQNn9wST eNAu4h6y7MHYHm+9ZuKf6ZEfIug9GLlbo+PygMSb/a7AYvMe/PwmoyX3kIJw y8iIrWkPhoWsNUqIUVIq+cSkB4MG6epXQsh5lehy7oBRD/qjFhwXeUThOb/f TwODHvT1/nc0nXj3Q3XB4TM96FWKOmQWSmFJ93TfjH4POPaDqvPDKMhmdHxw Ju7K2rM/ltj1z0l/J+KOhW57tcIpyOwNjholbtOu2PXr/96yn7uBfK81VHJn 2GMKYkmjhbtIfy1trG2qT8j65QUvWEDG07QxRaGT+PdW1Tx1Mt4GG+4tnhEU HipqLZg934O6z6c3bY2kcEX4UokMmW/NvMeylcSVsd6Cnyx6UH2iZ53dUwq7 fvVnppL7T1XAjrUSURTS49cVb7rcg8q6O2uyiaelpST5rvXgu3SJOP0ZhVNr JUM07XtQzhRbtfg5hY6dScvmbvegZOrdcv1oCtzhMVaPvXtQhH9C08SVtT84 roE9KPRUX/L0BQVNLuXIitAe5It1LOx7ScZv+OjrIxIvd9zseFxjKJT/FBJ0 eNeDPWMCsxKvKJyTjV/37nMPYot3j2u/Jufhj/Nay4t64Ovk2/w5lpzvK99J h4z0QG1Apk43joLD0zf6k9Mk3s5+rhwk3l/nJxc9v5fUzc4C6QQKkyuaP1WL k/tb154PnokUck3yN7qe6oWgTlm8zDtyflEu3CIGvcjPpF5lEKdduaHUR+vF nkd+T0beUzgUG7f01B2Sjye73A2SyffZhwOqU3rRkehvvDGV1Kc9Zt8zFPvw WGLDGTbxKppZ8KuDfdDzStM2SaPgsqKqME2rD/nm3ccC0im8FZHl07Ppw5uV +5SmMimsPPl91bqkPtjc4vB+Y1OoUS2Z+HCgH//UDrxllFDgmxIdmTMcwJLZ Bb5LSin4i25J5L80AOmPlRc/EnuJa8tw3R3A4XXMTTzl5Dy4/SL61csBuM8F vYisIPHA3c8V9pO8/7k3vLqG1KfaVe8XOA5CyjrppmMtGf/2gYEUn0EoyToZ rKujkMgMcdgaMQjdB8tFrtRTOPGY+xgzcxAhNqqBAk0UstMvqjVND+KV3CKb JOLJkZ8vfBcN4XPLj9NGzRQuS41FT4gOoUGDJfC6hYK84llm744hSG164HGk ncKxBItqceYQlNrO0/uJnZaXfza6PoTDjzYdC+wg5+l41YGjd4dAm/+Vu7WT QgXL/ZnwoyHYZni1u3VRuOVzuXns2RDcr+llbekm+//xl+3N+CG8bu+77cCh UJqsIHI1awipockma3vIecpd/7O9cAhFWnf2fSPee/Jm0VjlEAYzV/xZ2UdB qv5f2XjnEP5db63NIN5lpKrWMTCEJVtiU6h+Cn907Qwvj5Pxhh+8/n6AguXj iggTrmEc0uH/z2CQwkVK90nmgmHoLqzeNkc8Jf6+IlVwGNTXp0IxQxQitmuU ai8fxvUblj81himcCWpQcBEbhttW5bJx4ot5l2M0JYcR0jUXH/6TQpi17a8P a4fx6nHR/UMjFAalEvvebxjGZ92Hlr3Euxw3ME5uGkbhIjN1/1EK6kXi5x23 DKMhS37jrjEKxc3T5ccVhzFg95uvmfjztT1l8duG8Vchq9t1nNwP+FQc4nYM Q5DjnSv/i+Tn5h3zj5Lzd02EfnQF8dO7c4k3dg1DSU/axf43hXuaU0VHdpP5 Lh4wk5og9bM+72Mcccj48505xFqm4SmJxIONRgsZk+S+oTon9N//2+cua+Kf IvXi6Xn1EPK9kPiixLfEG3y8R2+S/gYfuLjq/iH5fPXu61kynkO3Vc5OEH+/ smn1hu2kvcWYfPg0qefOonNDZD6DmrGzB2Yo7Ak7KGG0dRiHd5lXthPHjb47 bClPfm+tWR3j9pdCqo+6lpQcac9XeXPTPwqdYkx5h3Wk/U8vzVLi/SaPC25J DSO09tDaK7MUFp3Q2rBBfBhDX//8WjFHnjfYadiJkOcBrCcm82i4jSDN1eT3 3LD9Wpt5XDSUXJu2vMQ3jCMX6o+8INasEKi7NI8836Y+MMBNg2PEgvu3SLwc Wc311Z+HBh3X60b3B4cQyp0atIOXhoDJyvua3eT5j40qt+bTYHOq/uYw+f0Y mt4mKMVHw+GjXNPlpUMYjg5tZxOfENIzZ+WR59cXevEvpMH1bGtSYRJ5vrK3 NoyfBi7uN70s3yEcnX0ad2AxDR073gvudB1CGOfsnXbioX1dUmx78vxTgewm QRpWLA3UUqKGEG7wyvbzUjIePVUpZ+UhHHtMX167gga7gfW8hhWDCHdd0+Ow kobVp24skM4dxMjFmrQ1IjRo+Wqr5aaQ5/vVzOmiNLRs/hQV+5g8b97w/vcq GpaP5Kquog3iiXT36RVSNGyg/bcqb2QA8Vs5UgnEF2KMby3pHECGSs/IMWka St0lL2lWD6BJry/Ibi0Ng6f5xd6lDkDca6imYR0NJqc2qKx3GUD46O/zzzbS QL3uL364bACP2HzWCttp0Is3Kl6yux8x5QtQQFyw7uqG+E39SGlaKGy2g4YF k1oJZyT6UTPBnxS4kwa6VeBkFVc/RDYvnfy1i4Yz6rr6zqV95F4ieid9Hw3n V+oqdDD6EETb6H/iGA1SET86EduL6fTzR4eJv809axAl9zXz5Q//BKvRUMF7 3Hd+UC+2s7lorcdpMD9bsmyDQy8qpRr33DhJQ1PwMcY1ct4sb/TtiNaiQY5v 7xaVsR5yPx1XnjOkwdj80aSZFrkfvd408MKIBquAk5PVx3pAm2cWddKYhv9C FN6b7O/BzsQS/hATGobd0nUjN5HzWyCmdYspaZ9es36Atwcrvhl4GdFoMD14 +aTNFw4eqn5p+niZBma5orP6Pg4+px3w17am4dOzBMupHRw07Mo8NEDcoJ58 LXELB2sUM2Kkr5D4ONwvrLyGg9dSaTb3r9HAp15bEcrFQca8FN4L9jQsqhk7 GFLYjS52whYBFxpmVpdukTrXjZ3HIxzNH9LwK1HqRZZXF/qivp3VSKchso+9 QqO2A3EBarDuoqGcR/Pkj7w2LEoUvFXBb4GsoTaep6xmXKfkcqx2WiBNOUlr 6E8dJpi+asfOWaBhwM+DM1WF/A1dL5uJrWa/Jvb1V+FRh8r8G+ctcCj0S9iv pirsMenNiTG1gIWTUdna7Co4aB05tNDcAu52UdcavKrwT/nPvmK6Bc6cPL69 SKIKvDwW23RsLPB6qlGh+MQPLI/YL3HO1QLpjUaammkV2P/imyn3PQtc1UsX YCZUgBanF/2KOFg3TsE3qgIpqVbyY24W2NbZGT3hXgGDmid7PDwtyH3uepCa XgUil/7Te+9rAXGJia1NI9+x0SXTd36oBS6oTNzt2fYd2l7qFbHEOvNS43Rk v+NmQPUK7TALbJTTOZ+/+juKIoceh4dbIFn5sVE5z3dcSpeMVYywgMS9UZ2v 8eX48Ot2vuFz8j0bP7Ox6TIcYKjOJcRboOnAN9tlr0ohHbwcJxIssPI3T25n cCl4v/be7SCeVxivVHC3FEUiwdyiieR9dRjkGpXiTH7P/LvvyX4MzHd+tLQU lzcECuimWMDZu2cuwrEEUZ2dqya+WkD10mr1JbRiuC5NNQrIsoBp5t1M8f+K Qd/n91g+m3zfWjdf5XAxtgTvkTRlW+DI+ao7CdLF+HzYV/pbrgVuGof/obUU oeLZLrnwQgtAda+o6LkicJt57VT9YYHco9/GzzEKcaAm2LCb+ITH6b4zZwth rxHp5FNlAbP2yQjqeCF+7kn61lBtgdUuKjKf5QrRJNxsYldngXcrPZ5r9H3D pxwlt3fNFtiRV5EhbvMNVnJ11TK9FljF5Sy8zKcAryI6pguJX4m5XbziVICO 5UNSV/os8PS4/LlOmwIYzuO2/NpPvn90V9usfgHU6jfPGg9ZYE/TQt3lawsg ff+O7MMxC0w27dv9Ji0f1cOydgv+WUDw42jE4Zk86IWsCYwj5vTE2YqM5KHq gEic1qwFuOXecs90EfvMb300ZwHJZ34rJ8ryUCnfpbaRmw6LQgfBpOg8fKc/ E1FfQMdVW9NPB7XzUNQinuItTMdRmcyzph9zcdJ9+XeFZXS8HIjq2BWfi8Kt i/sriaMqbfoko3PxzXFaUnwFHQdEUo+sDsxFwep6tzgROqSEbVYVX8pF7pkQ fXLDx1JEsXnlc/GlTOi3oCwdG5MFDzxIyMFUuI7AK+IYqk0vLyYH2xlB6yBH x/ErfA3cUTmImVuue3UjHRcv3RKMDsqBn5JoYo08HTdsWw/Z2efANEiS9VSR jtO5/EpMtRyEnz9/d48SHZUZC91NkIMq+aePKoiF2jTLTVRycCJHOp9nOx21 bv6Szgo5UPq1bh1zJx2ufsU1Z0VzMO+MfLPSXjpKXror7x5gQ0Xm4q9C4uIY voM93WxcH45bTKnQ0XC2OPd5Gxu97ltVHu6jQ9uiTm5/DRsVn5Qe/TlAh37X 1zuT2Ww8X7Vbh32YDk/7eGnvx2wcaT6S958GmU9v9f6hM2zUjKdm/SE+krQ4 OlaXDSa/UsZTTToGn3bcvn6aDZ/dEkkDp+lwf/Xk8lY10j7wV5SrDh2fbF+q 79hF2qu9dEw6Q4eyuTfNQ4yNaRNxe8OzdPiXFy5euJK8fy3w2hzx7t8zkQ+E 2XgfddvylCEdL8ZbGRX8pP20vkGnMR1pUw8e1/3Lhk8i387lF+hYPBt0XoST jTX5joqpxDp+jn06ndl41zQmb2pOhxtV1Bzalo3qRa1r4yg6jF+WdJxoJO1p n5YeodPRpMJ0Vqog7R22Lu4jPj90xCG/LBuHA6P5/Bl0/JJ5GsEoyQbji/+/ BiYdQ5NNR4sLSHsx5sDVi3SU9cioin4l7RVbOGJWdNALbybNz8xG1TG9ji/E IrcERObSsvHnKur5L9NRnpV1b9kn0r5UrOC5DR3iyvW70hNJ+04/9okrdPi8 1zs67y3pb5r3yzAxTcSGRzuezFduNFnlGh39dbtvLn1D5uNc+LzSlo6tGefs BKOzIZPp+fjSDTp809gfvzzLxuWp4w8W2tEx0Oq54mZUNhZa57up2tPRLSIg sSgyG3qxbk71xGdaD6a2PMnGs+6jdtdv0lEBtmnm42yomOQwYx3oUPSuf/8w LBsej1wuHLtFh2T7El3/UDLeykNGbcQJST+6Ah9l45J61imR23RoGbkXv3+Y jbR7d46+Jy6LUF1R/iAbfFmqBzSc6LCB+N7fwdmI2pWp4HKHjslHQlwmQdkY uuIoJ3mXjna+NWFPAkn/CfukPxMXau6d7A7Ixo91acLDznQUnMn8GeSfDWnT m/xeLnTYWh67M+GXDavwPTzrXcn+za76ak7MJ/zpl+E9OlR2y6jo+2bjP40b Q7+Ix1ZGWTb6kP49lDn+bnSUDs0qWxIPsn+1yLvToWE4GsJFvHc2qTaP+Nw5 Rc9n97PhvvfadzMPOoStbvCeJK68vr1whvgew4tvxjsbUu9Gs0M86fj4Qskr mdhq4F3aNi867gzv9bhBnCprk1RC7O1pPwNiPnPFeIY3HYzteW3LiXUjhl9w 36cjUn5220+vbDytS4iIIK7dtqC/knhw+aWQPT50cPsV8nwl3qO1xf8H8VfB nQ5JxG7eAx6XfekIWrzvxDviyrzYu4v8SH5fqWN+JF7DZXnzBfG79MW1bOKL +zddPehP6uW/et864s92vZYNxBJdmp4TxLxJryjbADqiU+2yJcj4dIbpJkKB dMhYXtp5ijhyk6x+HPFH95NNzsT9tG5NtSASv+pKyVnEu6NeqLUT/wk79mkB Wa97jdRBx2CyX0Kf2s4QfxdZt0f0AalX0ymb3xJL6nYofSCmmd0OFiTrb+n7 bJPmQzoe8p1Ybkuc8s1MppdYwNYopouYh1da3DWE5Nv0v+MmZH+fOEQKpD6i I9hF5QVF9r/v47n5eqEk3xVd9ceJd41KzA4Tf9bO4L5P4qec8fjn+nDy/PNT 1UoSXxLRRr1fiU8835jrTOKP2bKq3egxHbm6pjv2kvjk1g+tDHhCzovYqoyv JH6Ds49mbYygI6O74o03ie/1CqMJWcR3JsOkz5H4V1tw0mskkqy/9VC4GMkP 79SZg9rPyPrGB2j1hWdDXPb11l5i5pt40RGSb/FBeuJ3n9MhuG3wxCzJx7KL CROJ0SS/B4drlJ5mY/ka04SlMXRs+jK1fZjk+wvvxY9fEQffm61WfEnmN/nJ 8+ArOu6rjbHtY7Jh8F2IZv2aDvOsmxelSb144sJeXR5Lx9ktu/zySX1Z37PB 0y+Rjoh04V7L9Gx8/K/SVvYdqQ9yedZSpH6pZTlRX4hTzHwXNH4h6xFWqzr8 no633/IMGWwy3lNevzWT6bhro7i5qjAbyu8GzQVT6ej8JRY3U5+NfIkw7ZfE /EzvWKkmMh6vY6oH0ujQc//hfrIlGw7mkasupZP681G0KLkjG19WaH8vyaTj lsw++cYB0v/NpAM+bLL/cfPareayoaj0cOm2HDquXW0+p8zNhljPjfZq4p6T D9Lmz2djQE/FTSqPjuTTixd8IedFgFJ2yYcCOlZ1b3jkI8JGQ0+ZcX0J2Z+C dyufKrKRE/luq1MpHW+G3LZ3bWcjXj9oTqaMDtGibu5t5Ly6k6MfbVVOh4OT wMf2/Wysf9rUP1dB6v/Hp2ufnmTj8pn+m7K1dJLX8ZQng42zgiWniol3uC3M PX6RDeQmSNrUkfy5sjJtiTUby7dfyU6tJ/v5brl50g02PgtOLdRsomOt1EXn s+5scOfND73WTsfT9HX7+F+x8WjH2pSsATJ/sR+dosPkfF+q4WY0SEd8/Ogd +zE2Wvpv6P0ifta2M6V1gg3Z5yVjcsN0aN5iTmTPsZEsZK/oP0L2P1DnZ7Vw DiqHyl6f+03qr0HchQO7cyD42vHx9CwdC3ftLpTwyME711eWD+bo0DXsktD3 yYGeaeVehXkMqGw+x3wQmIMnIhvrLnAxYC/XNi33JAfybj9WFPIwsNJA+EX0 e3JfMZf3e7SQgVOjOw6ONefAVaLu7s5lDMTcb+2W2p8Lp8N7djYSf3QNpH07 nAsHZmiP83IG/L5/3+ugnouryQany1cwkOL7VWb6TC7MNerFLUUZuKVVGGl1 NReHHRtSnkowUFimJ7w5LhfzmpoG+eUYeOhaLvhkfR7+ch2Iek/84sKLruAt eZiSi/jPYCMDuY36uY925mHk2rm0l5sYqOfNXJV7NA+ti1s8sIWBbW0O0R8s 8vBlX6vMjW0MNOqMVM+PzcPtx+0G7ftIf5tOPnl5IB9fxhS43PYzQLGNHfcd z8esuuObjQcYyL8TpNyhnQ+nKZFpa1UGinS1VlG0fNzR13g8CwYUv/hv2+uT D+eln5rF1RjYk50sY92aDzad1/0r8UzYVVGl/nxwf9FRoI4zsKUtRYjvdz5c rAadYk8w8DWkTWOMvwCuhWul955iICtgprdqdwHcXH3Mz2gzkK5Rt0YopAD5 DfX808RvXq6vVn9eAL7tckkROgwkRcYci3xbAPe2bJ5uXQZO39zFG1ZQAI8D ky+u6TNIfUxV7pgugNfkhZ4AIwZKwiNitjC+wffibqtiGgMSWu80LhkVwrOn VJhmwUCg95nfTaxCuFC0T3+JV71mPr92k/weMQ7kVmAwcPR51h2xsEKYnxoI DWCR+YrwrdRtKMSezU/z9C+T+Intk5OwKMKOV8oXh4kpv4igU3ZFUFhXIuRh zYCwoadEglcR1on/Mf5sw8D34/8yFiUWYcni/8ZWX2PgmP0yBfwtQmc/n1Sb HQNTmSc+0Z4Vo4UekWtvT9Z/w5nrEp+KUdexw1L4JgMd+1qDVpQWo6zB7ONh BwYS32zlKvpDfn8VpZ166ciAntKJcvqZEvjFXra3dGbAdt+yA+clS+ElO38N jwsDoF1yjthdinvPH+c8Ju7SEhNX1C3FzfBvS0pdGTDTqThz2rMUNG+Zl4ru DLzOGV/6bKoUey1rKn55M6CheXcmr78MPkrPjcPvM7DG6fG0i2A5WiYudR/0 YYA5sq4sTakc91zn//H2ZeCkbHvcc/tyfH+yU3ptAANKH/cdPLbgO5jlQZc1 HzJwZssrz8Ox35H+8PzUGPGPifK6ka/fscRE3iU0hMTb0ii5oervSO7Nftj5 iIFK39LtVdwVmOMazbgZTr7nmml7y6wCITu1Fsc8ZWDQ3tpOYUsl+qZXPzwV xYAJ1wb20eOV2J/NWTNK3BgSqZ9uXokOTaft+5+T9ez0/FUaXomtjATDyhcM KAcFyr9Z+gO5YYtfz75hQP/s2zPbBasgala77UUsAwLCc1pVClWwlI1OV49j wHJom3SvdhWEklTKH8ST8ZYbyrNCqmBcwpqQTyT7wQmr7ZetxthswdGzyQxM q0YVRZ+vwVxfU/Eo8YKJ2NKFbjUQqB7V9flI6kte5d3GuBrIxYlfyE5hQOHV cfXi6RqYnLW+vTmVAX6HExqNEbUoSBRJmctkIFz4zEjJVB2emFnIvS5g4EhA YCJ9rhFvTjm8PfyNgV/vj+/dsKMJKbv8lZuJtYY1kg8ymlAhkHpkWREDD8a/ Cjl/bwJfqoCZYwkZn+iKmpmYZlwRTg7VrmBgmb325rcXWqHG5ub/08BA0LOE 2tBb7Qht4XUPaCT15JB4Rf2jdvRP83FvbGJgPfdmpnByO3x3LJ4+08zAjZV+ rkaD7ah6sbw/uZWB55K1cQImHbjgsb7IpouBt+P+bcHKnfgQLau2sJvkM+8r KS7tTvBmbWQ/JVbZJ717r2UnXk9tSSvjMPBt/JzkbEQnhlnKsVv6GLBiZN/z 4O6Co4aad+8Q2f/vqfTZjC6UMU/w3R1mQPuU2umPlV2QcjvpIvqTgf419n8W 9HaBnXnaQW2Egevx627YCndjkeJZyxdjDAQ8nMMG024YnTLk7Bsn9VbK5sTl K92IZxib/yDWrDkycMC1G9pRpkbcv0l93r/JivGyGyHCzJNmkwzsv/W6Jbqz G71bLfMniTfOHGprH+2Gykmrw/5TpD6mRIk8nOtGs4uNypc/DAz0Drb+t4oD hadXU/SnSTxGhS402cDB3fTr24eI77amBVUqcbD+l728xF8GJkb7xnnVOLgh dCsmifgp5SD+RYuDgi23ZU79I/Xq3l21NgMOxNTvRHYQvzSOMLa8wIGlhfNq h1kGdiyXNTZmcZDh7BoiPEfqM93Z9IMNB0si3Za9IT5WeCvish0HZmkefpjH xP4VQTT/2xy8r/HiryOuc9outcKVA6MD2ZaOXEwYPBj+a+rJAe+LqSJpbiZi 1k6tHPfh4C2/0uY84qP3LomVBnBgcIVxn8XDxNXSN3VDwRxw10UOCPIysTP4 rI5+CAfxqjWnPhAPz1yN5gnl4MxLwfgz85no494n8od4nsAxgRliaa5lorvC OIi96mj1lI8Jn0DNvenkuV59UsmRBUzo/v6t7PWIg9mDA1t6iRdvtB2IesjB 6xgZX5+FTNxrUz7HQ/rXFTQaUlrExJn87Unv/Tn4ey1Qs5p4QvHG3oT7HMQ0 fEu4yc9ER4G36aQ7B1qH5i1Zs5iJSpfmT4HOHEy92n2ZTbzVSHjy9i0Oni+x LqMLMJFy4th45nUONGxjFBYLMlGzVDP6v0scTDQ2+yUSf9JrljxkwUHU4ZU/ /1vCxPv4uFBPEw5OvtHQmiJ22u3K2PIfB5E30pceEmKC/5tIe5AqByeax6y7 iWd4ZrKMdnAwdkT+u5cwE+fCJc55yXGgJhwWULmMifMb5p+WXcLBUNwNYdpK Jp7Ru58mV5H4XPb2ykIRJjYsnd69IK8buNldEU88fGp5Rn1yNx6o6QX9FmXC pdbeViC4G/vbty33WM3EJiGf3wInu3FfZGhFrBTZfz0pk9SXXdh5e73taWkm gvZPfcny70JLp3H1GPG4x/5Lrje7sP190cN9MkyEfwhnq2t0oeHUa5HS9Uxk lJt8OvyzE5ucKbGRTUw8YO53FlTohJ9Al62XPBNqrxLH14l2YuwR7YfMZhIv a6ScFOd1Iu2thZ/+FiZiR/2HFSs7oNHE4E1XYGJgxUqx1Tc6cHm31YjbDiZG KrrKPL62o5I9qCm1k4ntVW1hPG/asev0pbjPxG2SvZyQoHbM0S7TB5SZCHxq nsNPb0dAkE2T9h4mBARSn/+3pB0fhq5/Ez/ARPnUEulIizaI3Py94SPxF+7A woM6bXDgveF6WpUJsX1luYIH2nBE3E7V+SCTzHNEZvvKNlSduJnMOUT6M9q9 nubfisno21Hv1ZhYXxPwRcGqBSaKs/9OHmdiMOPL/Aj1FmSlORl3ET99szTF Vq4FnhV3RETVyfxk76xjdjVj9Zyzj+MpJtKU1lw0opqx38jd/rg2iV9Z2Qo/ 2yZMKe5PGyLe/CjYmXW2CR/nj80E6zBhJ7tnM3tvExTen7vTpsvE31/zggfI +SC9UNn9pj4Tswf4JZcGNaKpub9A6gwTFX6y5kV2jQhLilqUT/y9vC9r9lwj lpkK+C4zIPljsS60fHMjeFM6g+OMSL5D0fFPSQOy7odV6xgzccfsdJRFSgNu X9ASnSJuW2z97khUAyYE0sOPnmNCK/S7i45tA3qpoGfNpuT7l3XpIesb8GLv iU5XMxIPgRyv68INuLB0dr38BRIv37N4Mmbr0ZDGen3DnInQNw8vuTTUo0T4 UOJSCyZoQyP5JSH15D43MfKRWCOn9ny1ez2OZcZvN6GTfExawKNqV48vTLGU 1wwmFlonJ8sb1uPd158ZhyyZ4Ax7+GmvrYfVw5ezPcSm80tM96yox6aLxvC7 yIROrGfejQX1eC5SkNNgxUSY0cbHY8N1eHApsuiaNRNdSxXz87LroH1ET2C1 DROvllj4HvpUB8FV/KeziPsDtkXzJ9TBPde2QuAqE/vq/JXvhtXhcPjm5UnE KgbO1+UD6jBn3a5neI0JY/Pf7pIedbAX16x7eZ2JZC8au962DjtHuVdr2DIh 8XPR16hLdRjN/2w8RqxCvd4Vb1EHy6vrW1XtmHBOvW7gc6YOJoUz3bU3mQio +nBQb18dfuRMr7/mwIRhQ7CAl3IdTn75Qy25RfIp4/eVMcU67EmabD/qSPL1 X3C16YY6JCZMSLcRq/d9g7l0HWRf/za9dZvs53m7NSHidVgRMd783onUE+Ny Gf9ldbj/aExC8w4Zb2Vcge6SOnAHjRr3Ehf4XWw8yl+HEfef9WucmVgb/Id6 z10HhvOwWBrxIqdrTPm5WrTcGjqr70LqWezGmbKZWhTbDFTfd2XiseNH7tDf tTh8sX+F3D0misMyxdLHavHZou8/NvGC+WZzfCO1UDTrDTrnxgTb8LXAraFa xBj1VEwRyyaUhooM1EJSnyP0wJ2J7Fil2breWjzQ6tZS9GCi9JphWDanFi5H O0stPMn+tv0Y4u6sxR/VDgEuLyYOf++yNGqvhc3e9lNPiHMtdr6sbq1Fz442 793epN6G9fJcb6nFeYXWwkrikE8HRnY216J6Y8vCy/dJ/HFcqkWbaqGxrvn4 Ih+yPm4iayUaa5Ej2eT+griFbn74UEMtVMQa8w76kvrRWxvrXl+L98saeBuJ X/wcKB2oq8VGwfojN/yYsM5attaG+OmCOhdhf1IfstPFlxOLcNdmxxMrrdPc XVVbC9+/1fNOBDAhdVHq5wdi3smqg53EEmP2WW+Jb43+cHIKJPF/3Eu+gHhs oDJzVRATqz1ob2eIWZyKv8nER0Jny06R77e1fd+nHUzaW8gKfyI+21juMEDM 5nae2U/GW1Zdlur+gAnN3HsizcTHvpdOrX1Iznfd64MhZH4ZRSW7M4mvxhsu siTz355XfMMghAnzTVwz+mR93nwt+jhO/Mbql7YRWT/ptMJffo9IPhvYPrlB 1jck+dsO+VAmJP/Y28SS9b/3Jv+9WRiZb/UBvrMdtZiJzhuZIX6/dt9EGdm/ q5G5io/CSX+Cm4pNumthFsxOKH3MhM0XgaDPZP9rfbMHmU/Ifmcs/urWX4vT nlmbeSOYiA7jOc4YrMX+21/eqEQyIVRWOmxB4kuMkfbyVRQZz61Tz47/qcWP oJj6g89Ivh6RtnxG4tXvS5BgHbGcb9kKgdlazBe5aLswmoky3aO1y3jqMJYr foz1komltDVFzYJ1KJG53SUfS+4nKosFN8vWweM0SyyH2I1xs8hmE6kPDvoa xnGkHgk0LsnZUofUiq3J9+OZEHay2uezow4xd1tcB98yYTVWxo49VAfnloPr 3iYxscTZ/H6vaR328285q5ZMzoPyAGYTVYcpZbH7LcRF/4qu1jPqcNl3ZGxJ CqkfzZb6w9akXux/xrb+TOJ7tOqy09067ArnNt+WSZ6fvrhxeXQd+vXzopLz meAW2GzLP1SH2WLOZ8MCJrlHrPY+OFYH4cMLK2aJeXsdlzlMknqicIpLvZAJ f/En47Nc9XDnq7jQXMzEilLaf0dF6yHzqUmGr4LUxxPSGs8P18NI7NeLs41M XC+vXz34uB5FDTJvpn8yEbz2t7+IXgOO+RXy3BVhoeBeHvLiGlFay76oChao G1P3LvA3w+rqwqUqLBbayjJX/1BrQWBCy3QlsXWd7OfTp1qQ0pvMuWjJAmvS fWWRVgvmmV74EnGRBe5AywNZBi0IPpV2iesyC9Wqi3zjLFuQtt6q5NtV8r7X xCUvvxYsqi33OuvIQoh0kk9JTQsUlsXYjhBnifx8btzYAl1Nxwtet1nwV3d3 GGxtwZOcjXvTnVjYJqlcsLyvBUrvnHvXOJP+VqSa35ppgYHXjuMcNxZWVMhG 50q3ImbfI15bfxZMl62+I3C5Feuyn1etDmBhvmR/3/VrrYhSe/sii7juYd1o p30rwnXyjgoEsSC8o+tdjWsr/Bnj96IfsNDBKVy+MrwV9sFa8yvDWJgs3ceW /9aK32LG1XbhLHwLY/wQK2sl+UF/KfmYhYmks9eEq1ph9eb2MdYTFo5kL/dd 19aKC1/j3OY9ZSFP8kvWj6lWnBxYwKf4ggWe06fUzoq0ocBmeU0VsZ6aqWLK qjYcnVgT4/CShZ1dz6QkJdugyrVLLT+GhcV513t41rdhhyjN/dwb0p8Oc8m+ 7W2QOJLF5/OWBT67IrqrdhvCvhXXbEsk72fu/HJbj9y3TtfG1BLTHp0YdjVo g5DhsNq69yyInT42k2zWBl5rCY+0JPL+bQvhD1faMBRuv6DvMwtyhXls05A2 rD9WWuWayoKo52xZX3gbTH6ufb4mjTwvupvr8rQNJUeK9+ulsyCzo+N9x+s2 xA5KXv2aycLBG18aqYw20FVzmh6yWUiY5VqRzmlDZK9orFIOC77vd184N9iG 6iAru2LimMo/tivGyPx7Vi7jymPBuGZhIvtfG2QCmMetClhI3pLeuVmkHS3t gh8Ol7Cw8f2Wyien2iHiY36nmfiw74bqHN12aO76pGFfyoLjbinvBUbtyPA2 60koY2HJKkmTHmY7wnckSayqYMFmwsBxlSe53zYv6E8ibp//rW5XQDsWeZp8 Ol3Jgto1mRrb0HbYN83XvfeDBUWdmzRjcv8962bg8bOahYyTvCZ1Je3wU0zQ 864h8Xg+fJdITTvy67lkNtSyUHXxgOWtVnJfVojLMKpj4WLrxPSXsXasqP03 mtfAwtZYI+Yh8Q583xht8qSV5MsN77jf18l9nLd7zc42Fh4tkTSuuNuBb62y 7cXEF66HBrf5dCArJNZipp2Fjyf2+0W87EAi74fLRl0sWL5S3vG2vgPybeNK Y8SiF149ONzTgZh05XGvbhb0d2jULPvdgcirqXapHBaOX3vjclGY/F5oy7or 1scCr+I+szWaneDP4D7yjjg6gcf5g0kn3B8dnX+in+Sf4xdJH6tOOJ3+5mU3 wELxkynulb6duJRRHlQzxEJoortudEUnNEJbXjwYI+uZpnv+N6sL365JM7aM s8AllBLv7dSFo1rmm3KJ/UYl9t4O7sJ+Pk7C+C8ST593/7z7pQubrw+l6E6y oGu0+dPOVd2I0VK82U/8ZPG3191K3ZDZfGWfyxQLTl48F7nVu7G649fX939Y GP5vpZqHQzf4tf9+E/rLQplQyJ3Jjm64b1a9/5p4xdueroOz3eBecFcT/1i4 2fC1iHc1B9OZPJXWsyxU3t4mJUh+L/ZvXtxYNs8SPAZlhwyLOShcsHrIZ74l xNo08xfX9iBya2DwNj5LvIuQHTaa7cHV/xaq1BBzWd/9ZSXbi9VPJ9ylFlpi LGZnZK99Lyx3/ZD+wG+JAJFGmTi5PqianCw4s9gSUzK3vG/r92GZS/alGWIP tnTQ9nt9SCtNTDsqaIll5sxk/a4+8Fv46NUutUSV/2TO38R+tHjzzNwSIt+7 oLPFrLsfH945PJMWtsTRh0peReIDMPrLHGYtswQGq78W3B9AXPAxz78rLPHc 59bMqP0gNNiz6WtXW2KFwdbNaT7DkO61Nc8njn8mvX5+9TB+CQ4tvChuiftC hiqJa37iiWGjfrKEJSKuZNTsTfmJoZFPP9WkLHF6MLf48q0RsEUUQwaIq6zf fLd8OYKQ/TH7A6Qt4cc4+1bp+whUPR941a+1xI0gyRm5jaPwk7qyzmq9JR5d tojf1DEK82O9hUIbLNFW/vJ33bIx7LpoavOROMhO+rz10TG0pGhmzspa4o7s q+UXYsegcFr+bOAmS4ToXDpb4DyOs+WXLJ4Tz/v/n+c4/gf00KQE "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PlotRange" -> {{151, 212}, {-20000., 80000.}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {151.00000000000034`, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ Opacity[1.], AbsoluteThickness[2], RGBColor[1, 0, 0], Thickness[Large]]}, "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{151.00000000000034`, 0}, DisplayFunction->Identity, Epilog->PointBox[{{153, 76277.}, {154, 74441.}, {155, 64313.}, { 156, 56841.}, {157, 34092.}, {158, 62055.}, {159, 59994.}, { 160, 59163.}, {161, 53986.}, {162, 60591.}, {163, 38838.}, { 164, 49140.}, {165, 42186.}, {166, 38553.}, {167, 23950.}, { 168, 41416.}, {169, 25691.}, {170, 22229.}, {171, 24659.}, { 172, 13408.}, {173, 16726.}, {174, 15370.}, {175, 11240.}, { 176, 10846.}, {177, 11092.}, {178, 12464.}, {179, 11353.}, { 180, 10642.}, {181, 11332.}, {182, 8156.}, {183, 13161.}, { 184, 12149.}, {185, 5185.}, {186, -10918.}, {187, 18834.}, { 188, 30956.}, {189, 22007.}, {190, 8695.}, {191, 47099.}, { 192, 44231.}, {193, 44412.}, {194, 27921.}, {195, 26496.}, { 196, 29638.}, {197, 28222.}, {198, 24042.}, {199, 29997.}, { 200, 16703.}, {201, 33489.}, {202, 19950.}, {203, 34050.}, { 204, 38456.}, {205, 34833.}, {206, 36154.}, {207, 33020.}, { 208, 45177.}, {209, 69234.}}], 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]], ImagePadding->All, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultGraphicsInteraction" -> { "Version" -> 1.2, "TrackMousePosition" -> {True, False}, "Effects" -> { "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, "Droplines" -> { "freeformCursorMode" -> True, "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange->{{151, 212}, {-20000., 80000.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, {0, 0}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.918665132564804*^9}, CellLabel->"Out[26]=",ExpressionUUID->"f83b6d28-78ac-4dee-9a00-97bfd34d614e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"pars3", "=", RowBox[{"lsf3", "[", "\"\\"", "]"}]}]], "Input", CellChangeTimes->{{3.8709447037162905`*^9, 3.870944706183713*^9}, { 3.870964389688529*^9, 3.8709643930406733`*^9}, {3.907662555783662*^9, 3.907662560080538*^9}}, CellLabel->"In[27]:=",ExpressionUUID->"35d99eab-bd3d-4b02-b4d0-d8e979ab9d4d"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "17"], "\[Rule]", "0.05259018903730917`"}], ",", RowBox[{ SubscriptBox["a", "18"], "\[Rule]", "0.4248970206553723`"}], ",", RowBox[{ SubscriptBox["a", "19"], "\[Rule]", "0.5000000099999989`"}], ",", RowBox[{ SubscriptBox["a", "20"], "\[Rule]", "0.409809079436609`"}], ",", RowBox[{ SubscriptBox["a", "21"], "\[Rule]", "0.11684692597294524`"}], ",", RowBox[{ SubscriptBox["a", "22"], "\[Rule]", "0.5000000099999995`"}], ",", RowBox[{ SubscriptBox["c", "17"], "\[Rule]", "2.9635608321029325`"}], ",", RowBox[{ SubscriptBox["c", "18"], "\[Rule]", "0.5934672438955724`"}], ",", RowBox[{ SubscriptBox["c", "19"], "\[Rule]", "30.50195364635578`"}], ",", RowBox[{ SubscriptBox["c", "20"], "\[Rule]", "3.0499212449457205`"}], ",", RowBox[{ SubscriptBox["c", "21"], "\[Rule]", "1.2729408870193393`"}], ",", RowBox[{ SubscriptBox["c", "22"], "\[Rule]", "20.049524548135505`"}], ",", RowBox[{ SubscriptBox["b", "17"], "\[Rule]", "629569.49960185`"}], ",", RowBox[{ SubscriptBox["b", "18"], "\[Rule]", "147781.62005191733`"}], ",", RowBox[{ SubscriptBox["b", "19"], "\[Rule]", "1.0000000000998992`*^6"}], ",", RowBox[{ SubscriptBox["b", "20"], "\[Rule]", "59265.29999894921`"}], ",", RowBox[{ SubscriptBox["b", "21"], "\[Rule]", "352150.6546609944`"}], ",", RowBox[{ SubscriptBox["b", "22"], "\[Rule]", "57737.01417100171`"}]}], "}"}]], "Output", CellChangeTimes->{3.918665146754589*^9}, CellLabel->"Out[27]=",ExpressionUUID->"ce33b8d1-7355-4b9d-b988-bb26196d19f7"] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "17"], "\[Rule]", "0.05259018903730917`"}], ",", RowBox[{ SubscriptBox["a", "18"], "\[Rule]", "0.4248970206553723`"}], ",", RowBox[{ SubscriptBox["a", "19"], "\[Rule]", "0.5000000099999989`"}], ",", RowBox[{ SubscriptBox["a", "20"], "\[Rule]", "0.409809079436609`"}], ",", RowBox[{ SubscriptBox["a", "21"], "\[Rule]", "0.11684692597294524`"}], ",", RowBox[{ SubscriptBox["a", "22"], "\[Rule]", "0.5000000099999995`"}], ",", RowBox[{ SubscriptBox["c", "17"], "\[Rule]", "2.9635608321029325`"}], ",", RowBox[{ SubscriptBox["c", "18"], "\[Rule]", "0.5934672438955724`"}], ",", RowBox[{ SubscriptBox["c", "19"], "\[Rule]", "30.50195364635578`"}], ",", RowBox[{ SubscriptBox["c", "20"], "\[Rule]", "3.0499212449457205`"}], ",", RowBox[{ SubscriptBox["c", "21"], "\[Rule]", "1.2729408870193393`"}], ",", RowBox[{ SubscriptBox["c", "22"], "\[Rule]", "20.049524548135505`"}], ",", RowBox[{ SubscriptBox["b", "17"], "\[Rule]", "629569.49960185`"}], ",", RowBox[{ SubscriptBox["b", "18"], "\[Rule]", "147781.62005191733`"}], ",", RowBox[{ SubscriptBox["b", "19"], "\[Rule]", "1.0000000000998992`*^6"}], ",", RowBox[{ SubscriptBox["b", "20"], "\[Rule]", "59265.29999894921`"}], ",", RowBox[{ SubscriptBox["b", "21"], "\[Rule]", "352150.6546609944`"}], ",", RowBox[{ SubscriptBox["b", "22"], "\[Rule]", "57737.01417100171`"}]}], "}"}]], "Input", CellChangeTimes->{{3.9186651820672116`*^9, 3.9186651960473857`*^9}},ExpressionUUID->"34a86510-6ad9-46a4-bedc-\ e49c1a58e723"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "17"], "\[Rule]", "0.5`"}], ",", RowBox[{ SubscriptBox["a", "18"], "\[Rule]", "0.1950922974053174`"}], ",", RowBox[{ SubscriptBox["a", "19"], "\[Rule]", "0.24760795038853178`"}], ",", RowBox[{ SubscriptBox["a", "20"], "\[Rule]", "0.45960907062158396`"}], ",", RowBox[{ SubscriptBox["a", "21"], "\[Rule]", "0.18630193324026556`"}], ",", RowBox[{ SubscriptBox["a", "22"], "\[Rule]", "0.05288236739435117`"}], ",", RowBox[{ SubscriptBox["c", "17"], "\[Rule]", "71.01886674722282`"}], ",", RowBox[{ SubscriptBox["c", "18"], "\[Rule]", "1.6849523651720035`"}], ",", RowBox[{ SubscriptBox["c", "19"], "\[Rule]", "11.21344381301426`"}], ",", RowBox[{ SubscriptBox["c", "20"], "\[Rule]", "0.5588045382572836`"}], ",", RowBox[{ SubscriptBox["c", "21"], "\[Rule]", "25.88167897170759`"}], ",", RowBox[{ SubscriptBox["c", "22"], "\[Rule]", "0.4103325757414098`"}], ",", RowBox[{ SubscriptBox["b", "17"], "\[Rule]", "487110.9677730558`"}], ",", RowBox[{ SubscriptBox["b", "18"], "\[Rule]", "161433.40892857817`"}], ",", RowBox[{ SubscriptBox["b", "19"], "\[Rule]", "910147.9490974662`"}], ",", RowBox[{ SubscriptBox["b", "20"], "\[Rule]", "106365.42373089133`"}], ",", RowBox[{ SubscriptBox["b", "21"], "\[Rule]", "253240.1041622933`"}], ",", RowBox[{ SubscriptBox["b", "22"], "\[Rule]", "495072.7065197839`"}]}], "}"}]], "Input",ExpressionUUID->"5b71d522-7182-4f6c-b1b0-684d236c5535"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "17"], "\[Rule]", "0.16305472151867859`"}], ",", RowBox[{ SubscriptBox["a", "18"], "\[Rule]", "0.26104937388046123`"}], ",", RowBox[{ SubscriptBox["a", "19"], "\[Rule]", "0.3539217259281477`"}], ",", RowBox[{ SubscriptBox["a", "20"], "\[Rule]", "0.11217348209463326`"}], ",", RowBox[{ SubscriptBox["a", "21"], "\[Rule]", "0.3149144667485326`"}], ",", RowBox[{ SubscriptBox["a", "22"], "\[Rule]", "0.11929171880148229`"}], ",", RowBox[{ SubscriptBox["c", "17"], "\[Rule]", "18.494907070954756`"}], ",", RowBox[{ SubscriptBox["c", "18"], "\[Rule]", "50.51954467139468`"}], ",", RowBox[{ SubscriptBox["c", "19"], "\[Rule]", "49.39774755727376`"}], ",", RowBox[{ SubscriptBox["c", "20"], "\[Rule]", "1.0347818899375927`"}], ",", RowBox[{ SubscriptBox["c", "21"], "\[Rule]", "0.1`"}], ",", RowBox[{ SubscriptBox["c", "22"], "\[Rule]", "4.963783148920079`"}], ",", RowBox[{ SubscriptBox["b", "17"], "\[Rule]", "264900.1096874074`"}], ",", RowBox[{ SubscriptBox["b", "18"], "\[Rule]", "140837.77371690777`"}], ",", RowBox[{ SubscriptBox["b", "19"], "\[Rule]", "591901.154688666`"}], ",", RowBox[{ SubscriptBox["b", "20"], "\[Rule]", "465989.40727218677`"}], ",", RowBox[{ SubscriptBox["b", "21"], "\[Rule]", "178709.97264323078`"}], ",", RowBox[{ SubscriptBox["b", "22"], "\[Rule]", "267044.6238703088`"}]}], "}"}]], "Input",ExpressionUUID->"0fe9b297-035f-46bc-9789-04d4ba180c26"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "17"], "\[Rule]", "0.05106535775310851`"}], ",", RowBox[{ SubscriptBox["a", "18"], "\[Rule]", "0.29144690900730263`"}], ",", RowBox[{ SubscriptBox["a", "19"], "\[Rule]", "0.43417300919747115`"}], ",", RowBox[{ SubscriptBox["a", "20"], "\[Rule]", "0.12018508267875898`"}], ",", RowBox[{ SubscriptBox["a", "21"], "\[Rule]", "0.5387338333137469`"}], ",", RowBox[{ SubscriptBox["a", "22"], "\[Rule]", "0.6`"}], ",", RowBox[{ SubscriptBox["c", "17"], "\[Rule]", "2.198571586091153`"}], ",", RowBox[{ SubscriptBox["c", "18"], "\[Rule]", "45.74811732067876`"}], ",", RowBox[{ SubscriptBox["c", "19"], "\[Rule]", "52.89692730469241`"}], ",", RowBox[{ SubscriptBox["c", "20"], "\[Rule]", "1.0012090332581143`"}], ",", RowBox[{ SubscriptBox["c", "21"], "\[Rule]", "0.7145377087060496`"}], ",", RowBox[{ SubscriptBox["c", "22"], "\[Rule]", "25.0841617968805`"}], ",", RowBox[{ SubscriptBox["b", "17"], "\[Rule]", "320761.8367953987`"}], ",", RowBox[{ SubscriptBox["b", "18"], "\[Rule]", "234014.4706722478`"}], ",", RowBox[{ SubscriptBox["b", "19"], "\[Rule]", "624071.5407899718`"}], ",", RowBox[{ SubscriptBox["b", "20"], "\[Rule]", "450970.477863821`"}], ",", RowBox[{ SubscriptBox["b", "21"], "\[Rule]", "91558.84461164151`"}], ",", RowBox[{ SubscriptBox["b", "22"], "\[Rule]", "350944.046357481`"}]}], "}"}]], "Input",ExpressionUUID->"c50dcf9d-9912-4926-a073-ba6a92b5e38a"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ SubscriptBox["a", "17"], "\[Rule]", "0.14977211619776876`"}], ",", RowBox[{ SubscriptBox["a", "18"], "\[Rule]", "0.3001729728670107`"}], ",", RowBox[{ SubscriptBox["a", "19"], "\[Rule]", "0.38465958542850825`"}], ",", RowBox[{ SubscriptBox["a", "20"], "\[Rule]", "0.18670861777962097`"}], ",", RowBox[{ SubscriptBox["a", "21"], "\[Rule]", "0.076621252519706`"}], ",", RowBox[{ SubscriptBox["a", "22"], "\[Rule]", "0.06519976931349596`"}], ",", RowBox[{ SubscriptBox["c", "17"], "\[Rule]", "6.612159057874141`"}], ",", RowBox[{ SubscriptBox["c", "18"], "\[Rule]", "44.44050411384107`"}], ",", RowBox[{ SubscriptBox["c", "19"], "\[Rule]", "44.26419431588458`"}], ",", RowBox[{ SubscriptBox["c", "20"], "\[Rule]", "20.240159154036018`"}], ",", RowBox[{ SubscriptBox["c", "21"], "\[Rule]", "0.1`"}], ",", RowBox[{ SubscriptBox["c", "22"], "\[Rule]", "0.22843516172832784`"}], ",", RowBox[{ SubscriptBox["b", "17"], "\[Rule]", "380537.3971346515`"}], ",", RowBox[{ SubscriptBox["b", "18"], "\[Rule]", "227450.53954509864`"}], ",", RowBox[{ SubscriptBox["b", "19"], "\[Rule]", "510242.7397772788`"}], ",", RowBox[{ SubscriptBox["b", "20"], "\[Rule]", "503848.11399058707`"}], ",", RowBox[{ SubscriptBox["b", "21"], "\[Rule]", "361742.85256340884`"}], ",", RowBox[{ SubscriptBox["b", "22"], "\[Rule]", "568240.9051427492`"}]}], "}"}]], "Input",ExpressionUUID->"b36c6b73-4644-4717-adda-729ea608f570"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Pars3", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "i"], ",", RowBox[{ SubscriptBox["a", "i"], "/.", "pars3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "l2", "+", "1"}], ",", "lt"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["c", "i"], ",", RowBox[{ SubscriptBox["c", "i"], "/.", "pars3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "l2", "+", "1"}], ",", "lt"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "i"], ",", RowBox[{ SubscriptBox["b", "i"], "/.", "pars3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "l2", "+", "1"}], ",", "lt"}], "}"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.8703383358095846`*^9, 3.8703383359032965`*^9}, 3.8703385368297215`*^9, 3.8708069708168297`*^9, {3.8709447711598516`*^9, 3.870944777123497*^9}, {3.870964415028035*^9, 3.870964484931066*^9}, { 3.907662569565779*^9, 3.9076626375516863`*^9}, {3.907679133629845*^9, 3.907679150255654*^9}}, CellLabel->"In[28]:=",ExpressionUUID->"8c5e49a0-51c9-4d71-b270-951b7ee47add"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "17"], ",", "0.05259018903730917`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "18"], ",", "0.4248970206553723`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "19"], ",", "0.5000000099999989`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "20"], ",", "0.409809079436609`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "21"], ",", "0.11684692597294524`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "22"], ",", "0.5000000099999995`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "17"], ",", "2.9635608321029325`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "18"], ",", "0.5934672438955724`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "19"], ",", "30.50195364635578`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "20"], ",", "3.0499212449457205`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "21"], ",", "1.2729408870193393`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "22"], ",", "20.049524548135505`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "17"], ",", "629569.49960185`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "18"], ",", "147781.62005191733`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "19"], ",", "1.0000000000998992`*^6"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "20"], ",", "59265.29999894921`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "21"], ",", "352150.6546609944`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "22"], ",", "57737.01417100171`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.91866520911478*^9}, CellLabel->"Out[28]=",ExpressionUUID->"3f114fd8-fa38-4e17-a1a9-3713d0fc2a7b"] }, Open ]], Cell["Go Maple!", "Text", CellChangeTimes->{{3.8697246415680885`*^9, 3.869724644647354*^9}},ExpressionUUID->"7f2a7075-9d19-4f8a-b68d-\ 07066efd5655"], Cell[BoxData[ RowBox[{ RowBox[{"ParsMaple3", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ SubscriptBox["a", RowBox[{"i", "+", "l1", "+", "l2"}]], "/.", "pars3"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l3"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ SubscriptBox["c", RowBox[{"i", "+", "l1", "+", "l2"}]], "/.", "pars3"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l3"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ SubscriptBox["b", RowBox[{"i", "+", "l1", "+", "l2"}]], "/.", "pars3"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l3"}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.867848620243645*^9, 3.8678486971683884`*^9}, { 3.8679151951023393`*^9, 3.8679151971583385`*^9}, 3.869226041175602*^9, 3.87761538957613*^9, {3.8944847109876146`*^9, 3.8944847651704254`*^9}, { 3.9049012180033426`*^9, 3.904901265245146*^9}, {3.9049013145776997`*^9, 3.904901332301627*^9}, {3.907662642411029*^9, 3.9076627122566643`*^9}}, CellLabel->"In[29]:=",ExpressionUUID->"835cbea5-93e6-4f43-af35-e3e53e67be79"], Cell[BoxData[ RowBox[{ RowBox[{"Export", "[", RowBox[{ "\"\\"", ",", "ParsMaple3", ",", "\"\\""}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.867915697525957*^9, 3.8679157280658646`*^9}, 3.8679157628765945`*^9, {3.8679164509181013`*^9, 3.867916451654106*^9}, 3.867916808995467*^9, 3.867917142053749*^9, {3.867917632604063*^9, 3.8679176413030043`*^9}, {3.867929514447388*^9, 3.867929516560387*^9}, { 3.867930359137655*^9, 3.867930360405655*^9}, {3.869042378475341*^9, 3.8690423865541596`*^9}, {3.8690498646245327`*^9, 3.869049868272987*^9}, 3.869226047759435*^9, {3.869664545710162*^9, 3.869664546845023*^9}, { 3.8697257951606436`*^9, 3.8697257954476876`*^9}, {3.869751738310028*^9, 3.869751744380788*^9}, 3.8697558833468914`*^9, {3.869836556856716*^9, 3.869836556925766*^9}, {3.8703384927006083`*^9, 3.8703384969338017`*^9}, { 3.870339143253948*^9, 3.8703391440818763`*^9}, {3.87036072023104*^9, 3.870360723804949*^9}, 3.870365323681324*^9, {3.870448556460325*^9, 3.870448556651752*^9}, {3.870879015485437*^9, 3.8708790192284355`*^9}, { 3.870893538346167*^9, 3.870893539412013*^9}, 3.87104557858768*^9, { 3.8771008479686832`*^9, 3.877100850810518*^9}, {3.894484730195363*^9, 3.89448473581075*^9}, 3.894484802723254*^9, {3.9049012673941545`*^9, 3.9049012766681585`*^9}, {3.9076627180379143`*^9, 3.907662721912905*^9}}, CellLabel->"In[30]:=",ExpressionUUID->"7b2224eb-2335-433a-a22d-2b362e623c34"], Cell[BoxData[ RowBox[{ RowBox[{"gf3", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"lsf3", "[", RowBox[{"i", "-", "n3", "+", "1"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"n3", "-", "32"}], ",", RowBox[{"n", "+", "4"}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "200"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1.6", "*", SuperscriptBox["10", "6"]}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", "Black", "}"}]}], ",", RowBox[{"GridLines", "->", "Automatic"}], ",", RowBox[{"Frame", "->", "True"}], ",", RowBox[{"ImageSize", "->", "800"}], ",", RowBox[{"ImagePadding", "->", "60"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{ "{", "\"\<\!\(\*SubscriptBox[\(\[ScriptCapitalZ]\), \(c\)]\)(n)\>\"", "}"}], ",", "Below"}], "]"}]}], ",", RowBox[{"FrameLabel", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "None"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "None"}], "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.870893042085024*^9, 3.870893071424758*^9}, { 3.8708932351373615`*^9, 3.870893263626501*^9}, {3.870893298766883*^9, 3.8708932988554955`*^9}, {3.8709636554052777`*^9, 3.8709637057698674`*^9}, { 3.870963784521944*^9, 3.870963790720209*^9}, {3.8709638331309447`*^9, 3.8709638335118675`*^9}, {3.8709645215678253`*^9, 3.870964549699584*^9}, { 3.877088815433672*^9, 3.877088821650298*^9}, {3.9076627264283814`*^9, 3.907662744069765*^9}, {3.9083769260993233`*^9, 3.9083769295836983`*^9}, { 3.9083769704118233`*^9, 3.908376992334343*^9}, {3.908377053771652*^9, 3.908377141633727*^9}, {3.9083784576914473`*^9, 3.9083784597697997`*^9}}, CellLabel-> "In[422]:=",ExpressionUUID->"f7b56427-094c-4a11-a0f6-f0bc7ee8b277"], Cell[BoxData[ RowBox[{"gfc3", "=", RowBox[{"Overlay", "[", RowBox[{"{", RowBox[{"gf3", ",", "gc"}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.8708930927308626`*^9, 3.8708930987028093`*^9}, { 3.8709637151085815`*^9, 3.870963719673771*^9}, {3.870963876897517*^9, 3.8709638841272526`*^9}, {3.870964560150072*^9, 3.870964564545*^9}, { 3.907662749913515*^9, 3.907662755835391*^9}}, CellLabel-> "In[423]:=",ExpressionUUID->"da24a1a5-319f-45b5-bfe2-e03b756d58a4"], Cell[BoxData[ RowBox[{"gf123", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"lsf1", "[", "i", "]"}], ",", RowBox[{"lsf2", "[", RowBox[{"i", "-", "n2", "+", "1"}], "]"}], ",", RowBox[{"lsf3", "[", RowBox[{"i", "-", "n3", "+", "1"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"n", "+", "4"}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "200"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"1.6", "*", SuperscriptBox["10", "6"]}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Magenta", ",", "Red", ",", "Black"}], "}"}]}], ",", RowBox[{"GridLines", "->", "Automatic"}], ",", RowBox[{"Frame", "->", "True"}], ",", RowBox[{"ImageSize", "->", "800"}], ",", RowBox[{"ImagePadding", "->", "60"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\<\!\(\*SubscriptBox[\(\[ScriptCapitalZ]\), \(a\)]\)(n)\>\"", ",", "\"\<\!\(\*SubscriptBox[\(\[ScriptCapitalZ]\), \(b\)]\)(n)\>\"", ",", "\"\<\!\(\*SubscriptBox[\(\[ScriptCapitalZ]\), \ \(c\)]\)(n)\>\""}], "}"}], ",", "Below"}], "]"}]}], ",", RowBox[{"FrameLabel", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "None"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "None"}], "}"}]}], "}"}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.870964711371406*^9, 3.870964733600583*^9}, { 3.870964783638962*^9, 3.870964880301608*^9}, {3.8709649138296537`*^9, 3.87096493651463*^9}, {3.870965147951193*^9, 3.8709651903825254`*^9}, 3.9076627644291286`*^9, {3.9083773403993535`*^9, 3.908377499825526*^9}, { 3.908378351845461*^9, 3.908378404065998*^9}}, CellLabel-> "In[419]:=",ExpressionUUID->"9c2e8333-974e-420c-b386-e8870dbb2e56"], Cell[BoxData[ RowBox[{"gfc123", "=", RowBox[{"Overlay", "[", RowBox[{"{", RowBox[{"gf123", ",", "gc"}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.9083775761538453`*^9, 3.908377583966338*^9}}, CellLabel-> "In[420]:=",ExpressionUUID->"5b8f49be-5b58-49ef-a707-5458dc59fead"], Cell[BoxData[ RowBox[{"gfc123", "=", RowBox[{"Overlay", "[", RowBox[{"{", RowBox[{"gf1", ",", "gf2", ",", "gf3", ",", "gc"}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.87096488840285*^9, 3.8709648918741126`*^9}, 3.907662768585229*^9, {3.9083771648524747`*^9, 3.908377174883727*^9}, { 3.9083784373164225`*^9, 3.9083784388007927`*^9}}, CellLabel-> "In[424]:=",ExpressionUUID->"ac1e3965-9099-4015-b71b-7630442b90b8"] }, Open ]], Cell[CellGroupData[{ Cell["Joint parameters", "Subsection", CellChangeTimes->{{3.871043208282177*^9, 3.8710432117624273`*^9}},ExpressionUUID->"9bca91aa-a2f1-4d56-b884-\ 426f694047c5"], Cell[BoxData[ RowBox[{ RowBox[{"Tabc", "[", RowBox[{ "aux1_", ",", "aux2_", ",", "aux3_", ",", "l1_", ",", "l2_", ",", "l3_"}], "]"}], ":=", RowBox[{"Join", "[", RowBox[{ RowBox[{"aux1", "[", RowBox[{"[", RowBox[{"1", ";;", "l1"}], "]"}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"i", "+", "l1"}]], ",", RowBox[{"aux2", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l2"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"i", "+", "l1", "+", "l2"}]], ",", RowBox[{"aux3", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l3"}], "}"}]}], "]"}], ",", RowBox[{"aux1", "[", RowBox[{"[", RowBox[{ RowBox[{"l1", "+", "1"}], ";;", RowBox[{"2", "*", "l1"}]}], "]"}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["c", RowBox[{"i", "+", "l1"}]], ",", RowBox[{"aux2", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "l2"}], ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l2"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["c", RowBox[{"i", "+", "l1", "+", "l2"}]], ",", RowBox[{"aux3", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "l3"}], ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l3"}], "}"}]}], "]"}], ",", RowBox[{"aux1", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", "*", "l1"}], "+", "1"}], ";;", RowBox[{"3", "*", "l1"}]}], "]"}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"i", "+", "l1"}]], ",", RowBox[{"aux2", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", RowBox[{"2", "*", "l2"}]}], ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l2"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"i", "+", "l1", "+", "l2"}]], ",", RowBox[{"aux3", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", RowBox[{"2", "*", "l3"}]}], ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l3"}], "}"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.87104457892337*^9, 3.87104471153677*^9}, 3.871044747799478*^9, {3.8710448500107675`*^9, 3.8710448741324635`*^9}, { 3.9048991727469015`*^9, 3.904899184765229*^9}, {3.9083787551638975`*^9, 3.9083787705865335`*^9}, {3.908378918087345*^9, 3.908378953540469*^9}, { 3.9083790424154787`*^9, 3.9083791385430365`*^9}, {3.908379182715185*^9, 3.908379195762058*^9}, {3.9083792430752316`*^9, 3.90837924321586*^9}, { 3.908379413701865*^9, 3.908379413748742*^9}, {3.908379452343031*^9, 3.908379482062382*^9}}, CellLabel-> "In[429]:=",ExpressionUUID->"fc152712-ee36-400a-a424-9767fbd1c621"], Cell[BoxData[ RowBox[{"Pars", "=", RowBox[{"Tabc", "[", RowBox[{ "Pars1", ",", "Pars2", ",", "Pars3", ",", "l1", ",", "l2", ",", "l3"}], "]"}]}]], "Input", CellChangeTimes->{{3.9048988835789995`*^9, 3.904898946091647*^9}, { 3.9048990392197084`*^9, 3.9048990392822037`*^9}, {3.9048992058163624`*^9, 3.9048992070823984`*^9}, {3.9083794904842634`*^9, 3.9083795012967587`*^9}}, CellLabel-> "In[435]:=",ExpressionUUID->"976ae3e0-57b6-4f17-bc69-1484359b4d6c"], Cell[BoxData[ RowBox[{"ParsM", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Pars", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"3", "*", RowBox[{"(", RowBox[{"l1", "+", "l2", "+", "l3"}], ")"}]}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.9083796776095533`*^9, 3.908379679265813*^9}}, CellLabel-> "In[436]:=",ExpressionUUID->"28e2fc1b-f9f1-42ed-a30a-75f579303514"], Cell[BoxData[ RowBox[{"ParsM", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Pars1BR", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"3", "*", RowBox[{"(", RowBox[{"l1", "+", "0"}], ")"}]}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.893362493814966*^9, 3.893362503429675*^9}}, CellLabel->"In[25]:=",ExpressionUUID->"3f6348e1-0fef-41ca-ad70-bcefe4ea95bd"], Cell[BoxData[ RowBox[{ RowBox[{"Export", "[", RowBox[{ "\"\\"", ",", "ParsM", ",", "\"\\""}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.8770997847964945`*^9, 3.877099793386468*^9}, { 3.893362388166809*^9, 3.893362391239275*^9}, 3.8933624263378887`*^9, { 3.8933625183862476`*^9, 3.893362531747977*^9}, 3.904899277940061*^9}, CellLabel-> "In[437]:=",ExpressionUUID->"864be332-a77f-4354-8f69-a39f487ee6ba"], Cell[BoxData[ RowBox[{"ParsBRc", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "0.3442544314568885`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "2"], ",", "0.06265025791695183`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "3"], ",", "0.11751913671825302`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "4"], ",", "0.3695226437922263`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "5"], ",", "0.19378419843330846`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "6"], ",", "0.29894114249384784`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "7"], ",", "0.18752557321622793`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "8"], ",", "0.21221509339360087`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "9"], ",", "0.5971713010553253`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "10"], ",", "0.9600000099999672`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "11"], ",", "0.6000000100054333`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "12"], ",", "0.22157316504842214`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "13"], ",", "0.19779096864618154`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "14"], ",", "0.6000000100018034`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "15"], ",", "0.3250359893137727`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "16"], ",", "0.05092284557133669`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "17"], ",", "0.6000000099999716`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "18"], ",", "0.6000000099999978`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "1"], ",", "14.38120931929726`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "2"], ",", "4.351620378460686`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "3"], ",", "3.7478183168053985`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "4"], ",", "17.54671424061865`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "5"], ",", "10.903826746993905`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "6"], ",", "19.457759706853334`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "7"], ",", "4.446031475614506`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "8"], ",", "3.516623652679805`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "9"], ",", "41.47475464006512`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "10"], ",", "71.06632302071381`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "11"], ",", "3.3242044737711267`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "12"], ",", "2.7965316615865374`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "13"], ",", "5.633124600538097`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "14"], ",", "4.027765699621836`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "15"], ",", "16.940564466764428`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "16"], ",", "3.022304386922389`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "17"], ",", "2.518949546658343`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "18"], ",", "5.436739265157799`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "633664.3243725311`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "2"], ",", "4.0044840715635186`*^6"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "3"], ",", "1.135564175304713`*^6"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "4"], ",", "686639.3094733317`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "5"], ",", "1.9440307014502825`*^6"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "6"], ",", "549142.436488662`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "7"], ",", "1.178598948495137`*^6"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "8"], ",", "680689.1254867393`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "9"], ",", "370152.93649694487`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "10"], ",", "79019.55848215359`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "11"], ",", "920994.5623687214`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "12"], ",", "1.0226601270489899`*^6"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "13"], ",", "1.9668264057100106`*^6"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "14"], ",", "1.351941244276504`*^6"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "15"], ",", "692029.5451003822`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "16"], ",", "1.1248643751510964`*^6"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "17"], ",", "135827.8438653382`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "18"], ",", "678825.3872858201`"}], "}"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.9048993332656107`*^9, 3.904899365053023*^9}}, CellLabel->"In[27]:=",ExpressionUUID->"42406004-0047-4213-ba5e-c5607d601621"], Cell[BoxData[ RowBox[{ RowBox[{"ParsUSc", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "0.22307323041929009`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "2"], ",", "0.46626237661958264`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "3"], ",", "0.2858617973432077`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "4"], ",", "0.5889348660805614`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "5"], ",", "0.269154465636806`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "6"], ",", "0.06696604631700814`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "7"], ",", "0.48462232049929177`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "8"], ",", "0.5429243341906766`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "9"], ",", "0.5877996581269637`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "10"], ",", "0.15870457585807324`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "11"], ",", "0.290831710931846`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "12"], ",", "0.21220602021402282`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "13"], ",", "0.028658433031011843`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "14"], ",", "0.6065802948734511`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "15"], ",", "0.6616591166626528`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "16"], ",", "0.1255880312581142`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "17"], ",", "0.3655277215373987`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "1"], ",", "5.942158564428258`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "2"], ",", "20.380190456077532`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "3"], ",", "18.574452856249945`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "4"], ",", "30.15739461022833`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "5"], ",", "3.668747115167499`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "6"], ",", "3.310702150300672`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "7"], ",", "22.988822305378054`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "8"], ",", "29.385332300047775`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "9"], ",", "0.3655277215373987`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "10"], ",", "19.96380498296387`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "11"], ",", "9.082681348053972`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "12"], ",", "14.090047144010972`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "13"], ",", "2.457470772507497`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "14"], ",", "2.1105418187161815`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "15"], ",", "18.994858171374325`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "16"], ",", "19.422408277503614`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "17"], ",", "3.298842077560371`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "1.6296647872806403`*^6"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "2"], ",", "1.2552303394426382`*^6"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "3"], ",", "886397.2717791495`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "4"], ",", "1.775234431633412`*^6"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "5"], ",", "760606.4057041183`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "6"], ",", "8.244728731029832`*^6"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "7"], ",", "1.883600316780816`*^6"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "8"], ",", "737239.1395470635`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "9"], ",", "3.298842077560371`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "10"], ",", "2.8775094990698076`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "11"], ",", "639997.8081759373`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "12"], ",", "4.347049924845669`*^6"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "13"], ",", "1.5626173188986466`*^6"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "14"], ",", "4.371205197098493`*^6"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "15"], ",", "8.040848471546578`*^6"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "16"], ",", "5.221108990394659`*^6"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "17"], ",", "5.80930989835473`*^6"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.877099829935419*^9, 3.8770998365362988`*^9}, { 3.8776047876883574`*^9, 3.877604789572139*^9}}, CellLabel->"In[28]:=",ExpressionUUID->"d0792500-13e2-4b2d-b73d-d3eb0e0c7e5f"] }, Closed]], Cell[CellGroupData[{ Cell["All", "Subsection", CellChangeTimes->{{3.8709441947786517`*^9, 3.8709441956603746`*^9}},ExpressionUUID->"8cf1d87c-89f4-4242-a4a4-\ d1ac79da9065"], Cell[BoxData[ RowBox[{"l", "=", "16"}]], "Input", CellChangeTimes->{{3.870941700057722*^9, 3.870941703626641*^9}, { 3.870943576800144*^9, 3.870943577707052*^9}, {3.877606072903012*^9, 3.8776060749367027`*^9}, {3.8855624544166975`*^9, 3.8855624545104866`*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"fbd3b7f1-0622-47fe-819b-e3174ee7a4af"], Cell[BoxData[ RowBox[{ RowBox[{"mf", "=", RowBox[{"cshn", "[", RowBox[{"z", ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["a", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["b", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["c", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.867832129979463*^9, 3.867832158572497*^9}, 3.8708918194752913`*^9}, CellLabel->"In[11]:=",ExpressionUUID->"4931fa6b-24a0-4de9-8358-9929a13a1039"], Cell[BoxData[ RowBox[{ RowBox[{"Pars", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ SubscriptBox["a", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["c", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["b", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.867834570829482*^9, 3.8678345775014815`*^9}, { 3.870942389746482*^9, 3.8709424187653246`*^9}}, CellLabel->"In[12]:=",ExpressionUUID->"1018d7f9-8778-4c69-8363-10123b67c0e6"], Cell[BoxData[ RowBox[{ RowBox[{"Cons", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"0.01", "<", SubscriptBox["a", "i"], "<", "0.9"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"1", "<", SubscriptBox["c", "i"], "<", "80"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ SuperscriptBox["10", "1"], "<", SubscriptBox["b", "i"], "<", SuperscriptBox["10", "7"]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.870943197443465*^9, 3.870943201625883*^9}}, CellLabel->"In[18]:=",ExpressionUUID->"acb2c888-3248-4660-90d6-24e25e67ccd9"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Cons", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"0.01", "<", SubscriptBox["a", "i"], "<", "2.5"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"1", "<", SubscriptBox["c", "i"], "<", "80"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ SuperscriptBox["10", "1"], "<", SubscriptBox["b", "i"], "<", SuperscriptBox["10", "7"]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["c", "i"], "/", SubscriptBox["a", "i"]}], "<", RowBox[{"n", "+", "2"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}]}], "]"}]}], ";"}], " "}]], "Input", CellChangeTimes->{{3.8702680472882824`*^9, 3.870268062880148*^9}, { 3.870274527961333*^9, 3.8702745289124813`*^9}, {3.870274712729985*^9, 3.8702747138006673`*^9}, {3.8703380760634556`*^9, 3.870338085777099*^9}, { 3.870338134356515*^9, 3.870338134781331*^9}, {3.870338715435112*^9, 3.870338740776287*^9}, {3.870359410836882*^9, 3.8703594114353127`*^9}, { 3.870359494778078*^9, 3.870359503140952*^9}, 3.8703645089762597`*^9, { 3.8704435176581383`*^9, 3.8704435249828515`*^9}, 3.8704465109072294`*^9, { 3.8704471172830877`*^9, 3.870447117490363*^9}, {3.870448573777196*^9, 3.8704485746457186`*^9}, {3.8707868280045576`*^9, 3.8707869329824204`*^9}, 3.870892974501359*^9, {3.87089364835896*^9, 3.8708936623592963`*^9}, { 3.870894444232833*^9, 3.8708944531899633`*^9}, {3.8708945052751646`*^9, 3.870894509928249*^9}, 3.8709424914766407`*^9, 3.8710454439888363`*^9, { 3.877100748287959*^9, 3.8771007483712378`*^9}, {3.877606147034653*^9, 3.8776061544831514`*^9}, {3.8776062168979917`*^9, 3.877606217031622*^9}, { 3.8776062821348906`*^9, 3.8776062931383066`*^9}, {3.8776063744335375`*^9, 3.8776063745873184`*^9}, {3.8776064238679185`*^9, 3.8776064239865093`*^9}, {3.8776064782443686`*^9, 3.8776065050666475`*^9}, {3.8776065400088463`*^9, 3.877606540769662*^9}, { 3.8776120040949388`*^9, 3.877612008213312*^9}, {3.8776120669677286`*^9, 3.8776120680432634`*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"add0452d-0f32-4abe-9d7c-2a8acf596353"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Cons", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"0.01", "<", SubscriptBox["a", "i"], "<", "4.6"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"1", "<", SubscriptBox["c", "i"], "<", "280"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ SuperscriptBox["10", "1"], "<", SubscriptBox["b", "i"], "<", SuperscriptBox["10", "7"]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["c", "i"], "/", SubscriptBox["a", "i"]}], "<", RowBox[{"n", "+", "2"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}]}], "]"}]}], ";"}], " "}]], "Input", CellChangeTimes->{{3.885562747591427*^9, 3.8855627537177215`*^9}, { 3.8855628740212135`*^9, 3.885562875021226*^9}, {3.885563093999267*^9, 3.885563094108673*^9}, {3.885563179349765*^9, 3.8855631833501177`*^9}, { 3.8855632999828453`*^9, 3.8855633004985065`*^9}, {3.8855634051452284`*^9, 3.8855634064264812`*^9}, {3.8855674821771092`*^9, 3.8855674827862844`*^9}, { 3.8855675430256763`*^9, 3.8855675437288013`*^9}, {3.885567598983508*^9, 3.8855675994836683`*^9}, {3.8855677636516743`*^9, 3.885567764182722*^9}, { 3.8855694766221066`*^9, 3.885569478153169*^9}}, CellLabel->"In[71]:=",ExpressionUUID->"f476cebe-9218-4d02-acf6-89cd076a668b"], Cell[BoxData[ RowBox[{"Cons", "//", "Short"}]], "Input", CellChangeTimes->{{3.870942368113262*^9, 3.87094241536086*^9}, { 3.8709653784232564`*^9, 3.8709653794744134`*^9}}, CellLabel->"In[99]:=",ExpressionUUID->"4a9d94fb-fd4b-4a8a-8546-fb8d42ab4015"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t0", ",", "lsf"}], "}"}], "=", RowBox[{"AbsoluteTiming", "[", RowBox[{"NonlinearModelFit", "[", RowBox[{"Data", ",", RowBox[{"{", RowBox[{"mf", ",", "Cons"}], "}"}], ",", "Pars", ",", RowBox[{"{", "z", "}"}], ",", RowBox[{"MaxIterations", "\[Rule]", "40000"}]}], "]"}], "]"}]}], ";", " ", "t0"}]], "Input", CellChangeTimes->{{3.8696649023379245`*^9, 3.8696649531392283`*^9}, { 3.8697258207695074`*^9, 3.869725821480483*^9}, {3.8697265516411*^9, 3.8697265520491714`*^9}, {3.869732294992208*^9, 3.86973229683278*^9}, { 3.869733165401655*^9, 3.8697331661405754`*^9}, {3.8697373580290446`*^9, 3.869737358697692*^9}, {3.869744460132951*^9, 3.869744470596495*^9}, { 3.8697523910705624`*^9, 3.869752393040555*^9}, {3.869755922118797*^9, 3.8697559238834257`*^9}, {3.8697561207431426`*^9, 3.869756121493045*^9}, { 3.869756160011915*^9, 3.869756168565979*^9}, {3.86975627964835*^9, 3.869756281294915*^9}, 3.869838664700287*^9, {3.870265616754628*^9, 3.870265616882077*^9}, {3.87026726926554*^9, 3.870267269435379*^9}, { 3.870892909198313*^9, 3.870892910305993*^9}, 3.8708936939969606`*^9, 3.870894335050465*^9, {3.8710451286298876`*^9, 3.871045128809559*^9}}, CellLabel->"In[72]:=",ExpressionUUID->"d87c187a-9670-4a1c-a83a-fe19bb88633c"], Cell[BoxData[{ RowBox[{ RowBox[{"FR", "=", RowBox[{"lsf", "[", "\"\\"", "]"}]}], ";"}], "\n", RowBox[{"lsf", "[", RowBox[{"\"\\"", ",", RowBox[{"VarianceEstimatorFunction", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"RMS", "[", RowBox[{"#", ",", "n", ",", RowBox[{"3", "*", "l"}]}], "]"}], "&"}], ")"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.867834878616255*^9, 3.867834878772255*^9}, 3.8692243637591076`*^9, {3.869224444478524*^9, 3.8692244539570875`*^9}, { 3.869229367657488*^9, 3.869229370946748*^9}}, CellLabel->"In[73]:=",ExpressionUUID->"9c5934b0-179f-45d6-97c9-3fc57e8e5efb"], Cell[BoxData[ RowBox[{"lsf", "[", "z", "]"}]], "Input", CellChangeTimes->{{3.877614596006403*^9, 3.877614601881892*^9}, { 3.877614653475318*^9, 3.877614658158794*^9}, {3.877614710801098*^9, 3.8776147185943856`*^9}, {3.8776147638477893`*^9, 3.877614774376788*^9}}, CellLabel->"In[65]:=",ExpressionUUID->"86ba14f5-0ec5-4759-bfcb-1e5b167a4368"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"lsf", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "160"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}]}], ",", RowBox[{"PlotRange", "->", "Full"}], ",", RowBox[{"Epilog", "->", RowBox[{"Point", "[", "Datab", "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.8708070875569153`*^9, 3.8708070877519207`*^9}, { 3.8708927694670935`*^9, 3.8708927701268067`*^9}, {3.877100788988387*^9, 3.8771007899602*^9}, {3.885562630509494*^9, 3.885562631212621*^9}}, CellLabel->"In[66]:=",ExpressionUUID->"22a9ea35-674f-41a0-91e3-d0ab3d537c4f"], Cell[BoxData[ RowBox[{"pars", "=", RowBox[{"lsf", "[", "\"\\"", "]"}]}]], "Input", CellChangeTimes->{{3.8709447037162905`*^9, 3.870944706183713*^9}, { 3.870966985723645*^9, 3.8709669903137703`*^9}}, CellLabel-> "In[216]:=",ExpressionUUID->"597b583c-03fa-42e3-b48e-cb6d8b30e33d"], Cell[BoxData[ RowBox[{ RowBox[{"Pars", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "i"], ",", RowBox[{ SubscriptBox["a", "i"], "/.", "pars"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["c", "i"], ",", RowBox[{ SubscriptBox["c", "i"], "/.", "pars"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "i"], ",", RowBox[{ SubscriptBox["b", "i"], "/.", "pars"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.8703383358095846`*^9, 3.8703383359032965`*^9}, 3.8703385368297215`*^9, 3.8708069708168297`*^9, {3.8709447711598516`*^9, 3.870944777123497*^9}, {3.870967026265746*^9, 3.8709670433658247`*^9}, 3.87104556011141*^9, 3.877100930672902*^9}, CellLabel-> "In[208]:=",ExpressionUUID->"dc637d05-948b-4e9c-902b-2879c62737a3"], Cell["Go Maple!", "Text", CellChangeTimes->{{3.8697246415680885`*^9, 3.869724644647354*^9}},ExpressionUUID->"f1614df4-cb52-445d-bbc7-\ 8abd06148c4a"], Cell[BoxData[ RowBox[{"ParsMaple", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ SubscriptBox["a", "i"], "/.", "pars"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ SubscriptBox["c", "i"], "/.", "pars"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ SubscriptBox["b", "i"], "/.", "pars"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.867848620243645*^9, 3.8678486971683884`*^9}, { 3.8679151951023393`*^9, 3.8679151971583385`*^9}, 3.869226041175602*^9, 3.87761538957613*^9}, CellLabel-> "In[217]:=",ExpressionUUID->"097d0611-bab5-45cf-953e-507ade9e8796"], Cell[BoxData[ RowBox[{ RowBox[{"Export", "[", RowBox[{ "\"\\"", ",", "ParsMaple", ",", "\"\\""}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.867915697525957*^9, 3.8679157280658646`*^9}, 3.8679157628765945`*^9, {3.8679164509181013`*^9, 3.867916451654106*^9}, 3.867916808995467*^9, 3.867917142053749*^9, {3.867917632604063*^9, 3.8679176413030043`*^9}, {3.867929514447388*^9, 3.867929516560387*^9}, { 3.867930359137655*^9, 3.867930360405655*^9}, {3.869042378475341*^9, 3.8690423865541596`*^9}, {3.8690498646245327`*^9, 3.869049868272987*^9}, 3.869226047759435*^9, {3.869664545710162*^9, 3.869664546845023*^9}, { 3.8697257951606436`*^9, 3.8697257954476876`*^9}, {3.869751738310028*^9, 3.869751744380788*^9}, 3.8697558833468914`*^9, {3.869836556856716*^9, 3.869836556925766*^9}, {3.8703384927006083`*^9, 3.8703384969338017`*^9}, { 3.870339143253948*^9, 3.8703391440818763`*^9}, {3.87036072023104*^9, 3.870360723804949*^9}, 3.870365323681324*^9, {3.870448556460325*^9, 3.870448556651752*^9}, {3.870879015485437*^9, 3.8708790192284355`*^9}, { 3.870893538346167*^9, 3.870893539412013*^9}, 3.87104557858768*^9, { 3.8771008479686832`*^9, 3.877100850810518*^9}}, CellLabel-> "In[210]:=",ExpressionUUID->"55c9bd54-93f6-4d7c-aa86-732147512f0c"], Cell[BoxData[ RowBox[{ RowBox[{"gf", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"lsf", "[", "i", "]"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "150"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "150"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"6", "*", SuperscriptBox["10", "6"]}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", "Red", "}"}]}], ",", RowBox[{"GridLines", "->", "Automatic"}], ",", RowBox[{"Frame", "->", "True"}], ",", RowBox[{"ImageSize", "->", "800"}], ",", RowBox[{"ImagePadding", "->", "60"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{ "{", "\"\<\!\(\*SubscriptBox[\(\[ScriptCapitalZ]\), \ \(147\)]\)(n)\>\"", "}"}], ",", "Below"}], "]"}]}], ",", RowBox[{"FrameLabel", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "None"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "None"}], "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.870893042085024*^9, 3.870893071424758*^9}, { 3.8708932351373615`*^9, 3.870893263626501*^9}, {3.870893298766883*^9, 3.8708932988554955`*^9}, {3.8709636554052777`*^9, 3.8709637057698674`*^9}, { 3.870963784521944*^9, 3.870963790720209*^9}, {3.8709638331309447`*^9, 3.8709638335118675`*^9}, {3.8709670491579113`*^9, 3.870967064159026*^9}, { 3.877612148546461*^9, 3.8776121645978775`*^9}}, CellLabel-> "In[204]:=",ExpressionUUID->"78076fd0-a60f-4a22-8db5-5bfac7cb10b4"], Cell[BoxData[ RowBox[{"gfc", "=", RowBox[{"Overlay", "[", RowBox[{"{", RowBox[{"gf", ",", "gc"}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.8708930927308626`*^9, 3.8708930987028093`*^9}, { 3.8709637151085815`*^9, 3.870963719673771*^9}, {3.870963876897517*^9, 3.8709638841272526`*^9}, {3.8709670733660917`*^9, 3.8709670763221116`*^9}, { 3.871045252774228*^9, 3.8710452607917747`*^9}, {3.8776122076375575`*^9, 3.8776122156493917`*^9}}, CellLabel-> "In[205]:=",ExpressionUUID->"7bbb9ee2-3ea8-479c-b137-646676e9d40b"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Deaths", "Section", CellChangeTimes->{{3.870941623488143*^9, 3.870941624781828*^9}},ExpressionUUID->"d335295a-360c-4ea8-8148-\ 12a2a7be3e4e"], Cell[CellGroupData[{ Cell["All", "Subsection", CellChangeTimes->{{3.8709441947786517`*^9, 3.8709441956603746`*^9}},ExpressionUUID->"cd9101aa-571f-406e-b312-\ a006b1c92f75"], Cell[BoxData[ RowBox[{"l", "=", "16"}]], "Input", CellChangeTimes->{{3.870941700057722*^9, 3.870941703626641*^9}, { 3.870943576800144*^9, 3.870943577707052*^9}}, CellLabel-> "In[133]:=",ExpressionUUID->"bed05695-006c-4eb6-878c-65a5ce4266ec"], Cell[BoxData[ RowBox[{ RowBox[{"mf", "=", RowBox[{"cshn", "[", RowBox[{"z", ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["a", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["b", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["c", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.867832129979463*^9, 3.867832158572497*^9}, 3.8708918194752913`*^9}, CellLabel-> "In[134]:=",ExpressionUUID->"1879b5b4-edfd-4554-9894-8a66c4454fb6"], Cell[BoxData[ RowBox[{ RowBox[{"Pars", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ SubscriptBox["a", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["c", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["b", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.867834570829482*^9, 3.8678345775014815`*^9}, { 3.870942389746482*^9, 3.8709424187653246`*^9}}, CellLabel->"In[29]:=",ExpressionUUID->"63a1013e-93a8-4fb9-8ce3-cb23f701b3b0"], Cell[BoxData[ RowBox[{ RowBox[{"Cons", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"0.01", "<", SubscriptBox["a", "i"], "<", "0.9"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"1", "<", SubscriptBox["c", "i"], "<", "80"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ SuperscriptBox["10", "1"], "<", SubscriptBox["b", "i"], "<", SuperscriptBox["10", "7"]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.870943197443465*^9, 3.870943201625883*^9}}, CellLabel->"In[18]:=",ExpressionUUID->"2e13a3de-eed2-4653-a637-d329f7322a8d"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Cons", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"0.01", "<", SubscriptBox["a", "i"], "<", "0.96"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"1", "<", SubscriptBox["c", "i"], "<", "80"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ SuperscriptBox["10", "1"], "<", SubscriptBox["b", "i"], "<", SuperscriptBox["10", "7"]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["c", "i"], "/", SubscriptBox["a", "i"]}], "<", "n"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}]}], "]"}]}], ";"}], " "}]], "Input", CellChangeTimes->{{3.8702680472882824`*^9, 3.870268062880148*^9}, { 3.870274527961333*^9, 3.8702745289124813`*^9}, {3.870274712729985*^9, 3.8702747138006673`*^9}, {3.8703380760634556`*^9, 3.870338085777099*^9}, { 3.870338134356515*^9, 3.870338134781331*^9}, {3.870338715435112*^9, 3.870338740776287*^9}, {3.870359410836882*^9, 3.8703594114353127`*^9}, { 3.870359494778078*^9, 3.870359503140952*^9}, 3.8703645089762597`*^9, { 3.8704435176581383`*^9, 3.8704435249828515`*^9}, 3.8704465109072294`*^9, { 3.8704471172830877`*^9, 3.870447117490363*^9}, {3.870448573777196*^9, 3.8704485746457186`*^9}, {3.8707868280045576`*^9, 3.8707869329824204`*^9}, 3.870892974501359*^9, {3.87089364835896*^9, 3.8708936623592963`*^9}, { 3.870894444232833*^9, 3.8708944531899633`*^9}, {3.8708945052751646`*^9, 3.870894509928249*^9}, 3.8709424914766407`*^9, 3.8710454439888363`*^9}, CellLabel-> "In[135]:=",ExpressionUUID->"b4d5036b-b7eb-45ad-aa98-48ef609fe014"], Cell[BoxData[ RowBox[{"Cons", "//", "Short"}]], "Input", CellChangeTimes->{{3.870942368113262*^9, 3.87094241536086*^9}, { 3.8709653784232564`*^9, 3.8709653794744134`*^9}}, CellLabel->"In[99]:=",ExpressionUUID->"512de362-116b-49b3-a5a3-9376312c59ce"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t0", ",", "lsf"}], "}"}], "=", RowBox[{"AbsoluteTiming", "[", RowBox[{"NonlinearModelFit", "[", RowBox[{"Data", ",", RowBox[{"{", RowBox[{"mf", ",", "Cons"}], "}"}], ",", "Pars", ",", RowBox[{"{", "z", "}"}], ",", RowBox[{"MaxIterations", "\[Rule]", "40000"}]}], "]"}], "]"}]}], ";", " ", "t0"}]], "Input", CellChangeTimes->{{3.8696649023379245`*^9, 3.8696649531392283`*^9}, { 3.8697258207695074`*^9, 3.869725821480483*^9}, {3.8697265516411*^9, 3.8697265520491714`*^9}, {3.869732294992208*^9, 3.86973229683278*^9}, { 3.869733165401655*^9, 3.8697331661405754`*^9}, {3.8697373580290446`*^9, 3.869737358697692*^9}, {3.869744460132951*^9, 3.869744470596495*^9}, { 3.8697523910705624`*^9, 3.869752393040555*^9}, {3.869755922118797*^9, 3.8697559238834257`*^9}, {3.8697561207431426`*^9, 3.869756121493045*^9}, { 3.869756160011915*^9, 3.869756168565979*^9}, {3.86975627964835*^9, 3.869756281294915*^9}, 3.869838664700287*^9, {3.870265616754628*^9, 3.870265616882077*^9}, {3.87026726926554*^9, 3.870267269435379*^9}, { 3.870892909198313*^9, 3.870892910305993*^9}, 3.8708936939969606`*^9, 3.870894335050465*^9, {3.8710451286298876`*^9, 3.871045128809559*^9}}, CellLabel-> "In[136]:=",ExpressionUUID->"e2c58dbd-4bd7-45a8-bcda-e9bcc73e5b5e"], Cell[BoxData[{ RowBox[{ RowBox[{"FR", "=", RowBox[{"lsf", "[", "\"\\"", "]"}]}], ";"}], "\n", RowBox[{"lsf", "[", RowBox[{"\"\\"", ",", RowBox[{"VarianceEstimatorFunction", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"RMS", "[", RowBox[{"#", ",", "n", ",", RowBox[{"3", "*", "l"}]}], "]"}], "&"}], ")"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.867834878616255*^9, 3.867834878772255*^9}, 3.8692243637591076`*^9, {3.869224444478524*^9, 3.8692244539570875`*^9}, { 3.869229367657488*^9, 3.869229370946748*^9}}, CellLabel-> "In[137]:=",ExpressionUUID->"c867c94f-59e0-4ce0-aed0-5a3a04d1156c"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"lsf", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"n", "+", "10"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}]}], ",", RowBox[{"PlotRange", "->", "Full"}], ",", RowBox[{"Epilog", "->", RowBox[{"Point", "[", "Datab", "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.8708070875569153`*^9, 3.8708070877519207`*^9}, { 3.8708927694670935`*^9, 3.8708927701268067`*^9}}, CellLabel-> "In[139]:=",ExpressionUUID->"de9ca565-4254-45cb-9c47-ad85f95c5d08"], Cell[BoxData[ RowBox[{"pars", "=", RowBox[{"lsf", "[", "\"\\"", "]"}]}]], "Input", CellChangeTimes->{{3.8709447037162905`*^9, 3.870944706183713*^9}, { 3.870966985723645*^9, 3.8709669903137703`*^9}}, CellLabel-> "In[140]:=",ExpressionUUID->"82be80d3-9d7c-4d4d-b14a-843b3fbc4133"], Cell[BoxData[ RowBox[{ RowBox[{"Pars", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "i"], ",", RowBox[{ SubscriptBox["a", "i"], "/.", "pars"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["c", "i"], ",", RowBox[{ SubscriptBox["c", "i"], "/.", "pars"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "i"], ",", RowBox[{ SubscriptBox["b", "i"], "/.", "pars"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.8703383358095846`*^9, 3.8703383359032965`*^9}, 3.8703385368297215`*^9, 3.8708069708168297`*^9, {3.8709447711598516`*^9, 3.870944777123497*^9}, {3.870967026265746*^9, 3.8709670433658247`*^9}, 3.87104556011141*^9}, CellLabel-> "In[141]:=",ExpressionUUID->"e7acdc00-60c1-43ac-a816-4a2138f6c147"], Cell["Go Maple!", "Text", CellChangeTimes->{{3.8697246415680885`*^9, 3.869724644647354*^9}},ExpressionUUID->"9fccfbc0-db4c-4aae-aaae-\ 9360d4e2cefd"], Cell[BoxData[ RowBox[{ RowBox[{"ParsMaple", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ SubscriptBox["a", "i"], "/.", "pars"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ SubscriptBox["c", "i"], "/.", "pars"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ SubscriptBox["b", "i"], "/.", "pars"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l"}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.867848620243645*^9, 3.8678486971683884`*^9}, { 3.8679151951023393`*^9, 3.8679151971583385`*^9}, 3.869226041175602*^9}, CellLabel-> "In[142]:=",ExpressionUUID->"5ad82bff-0fbd-4410-b058-72e8687a6875"], Cell[BoxData[ RowBox[{ RowBox[{"Export", "[", RowBox[{ "\"\\"", ",", "ParsMaple", ",", "\"\\""}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.867915697525957*^9, 3.8679157280658646`*^9}, 3.8679157628765945`*^9, {3.8679164509181013`*^9, 3.867916451654106*^9}, 3.867916808995467*^9, 3.867917142053749*^9, {3.867917632604063*^9, 3.8679176413030043`*^9}, {3.867929514447388*^9, 3.867929516560387*^9}, { 3.867930359137655*^9, 3.867930360405655*^9}, {3.869042378475341*^9, 3.8690423865541596`*^9}, {3.8690498646245327`*^9, 3.869049868272987*^9}, 3.869226047759435*^9, {3.869664545710162*^9, 3.869664546845023*^9}, { 3.8697257951606436`*^9, 3.8697257954476876`*^9}, {3.869751738310028*^9, 3.869751744380788*^9}, 3.8697558833468914`*^9, {3.869836556856716*^9, 3.869836556925766*^9}, {3.8703384927006083`*^9, 3.8703384969338017`*^9}, { 3.870339143253948*^9, 3.8703391440818763`*^9}, {3.87036072023104*^9, 3.870360723804949*^9}, 3.870365323681324*^9, {3.870448556460325*^9, 3.870448556651752*^9}, {3.870879015485437*^9, 3.8708790192284355`*^9}, { 3.870893538346167*^9, 3.870893539412013*^9}, 3.87104557858768*^9, { 3.8732958250200577`*^9, 3.8732958252666883`*^9}}, CellLabel-> "In[143]:=",ExpressionUUID->"65396194-ba47-41a1-bfd2-30afc764a0dd"], Cell[BoxData[ RowBox[{ RowBox[{"gf", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"lsf", "[", "i", "]"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "140"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"24", "*", SuperscriptBox["10", "3"]}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", "Red", "}"}]}], ",", RowBox[{"GridLines", "->", "Automatic"}], ",", RowBox[{"Frame", "->", "True"}], ",", RowBox[{"ImageSize", "->", "800"}], ",", RowBox[{"ImagePadding", "->", "60"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{ "{", "\"\<\!\(\*SubscriptBox[\(\[ScriptCapitalZ]\), \ \(140\)]\)(n)\>\"", "}"}], ",", "Below"}], "]"}]}], ",", RowBox[{"FrameLabel", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "None"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "None"}], "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.870893042085024*^9, 3.870893071424758*^9}, { 3.8708932351373615`*^9, 3.870893263626501*^9}, {3.870893298766883*^9, 3.8708932988554955`*^9}, {3.8709636554052777`*^9, 3.8709637057698674`*^9}, { 3.870963784521944*^9, 3.870963790720209*^9}, {3.8709638331309447`*^9, 3.8709638335118675`*^9}, {3.8709670491579113`*^9, 3.870967064159026*^9}, { 3.8710567021854973`*^9, 3.871056709206452*^9}, {3.8732958527142677`*^9, 3.8732958663303823`*^9}}, CellLabel-> "In[144]:=",ExpressionUUID->"ba9550fc-392b-41cd-9870-c14997dbafed"], Cell[BoxData[ RowBox[{"gfd", "=", RowBox[{"Overlay", "[", RowBox[{"{", RowBox[{"gf", ",", "gd"}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.8708930927308626`*^9, 3.8708930987028093`*^9}, { 3.8709637151085815`*^9, 3.870963719673771*^9}, {3.870963876897517*^9, 3.8709638841272526`*^9}, {3.8709670733660917`*^9, 3.8709670763221116`*^9}, { 3.871045252774228*^9, 3.8710452607917747`*^9}}, CellLabel-> "In[145]:=",ExpressionUUID->"4b9c3dd4-19c8-4b6c-9f60-581ef19a4b93"] }, Closed]], Cell[CellGroupData[{ Cell["First part", "Subsection", CellChangeTimes->{{3.8709441005548306`*^9, 3.870944103121689*^9}},ExpressionUUID->"66afd28b-f580-40f2-ab1d-\ a1e947869f46"], Cell[BoxData[ RowBox[{ RowBox[{"Data1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"DataAll", "[", RowBox[{"[", RowBox[{"1", ",", "i", ",", "6"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "75"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.867833607979697*^9, 3.8678336417547903`*^9}, 3.867834042482584*^9, 3.867834167808469*^9, {3.869228379395009*^9, 3.8692283841724577`*^9}, {3.8692285327297277`*^9, 3.8692285335105352`*^9}, {3.8696639875185523`*^9, 3.869663991411394*^9}, { 3.8707908150861864`*^9, 3.870790820243222*^9}, {3.870891869329871*^9, 3.870891887445064*^9}, {3.8708919270279016`*^9, 3.8708919310272264`*^9}, { 3.87094213776725*^9, 3.8709421385938425`*^9}, {3.8709444109197607`*^9, 3.8709444181136146`*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"91f8ecca-2e58-44b4-b65c-f9330de3ae66"], Cell[BoxData[ RowBox[{ RowBox[{"Data1b", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{"DataAll", "[", RowBox[{"[", RowBox[{"1", ",", "i", ",", "6"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "75"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.870891949547256*^9, 3.870891955747621*^9}, { 3.870942154736216*^9, 3.870942155364955*^9}, {3.870944422170905*^9, 3.870944429072955*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"0034a340-1fa2-49cf-94a0-5ee247f6966a"], Cell[BoxData[ RowBox[{"l1", "=", "8"}]], "Input", CellChangeTimes->{{3.870941700057722*^9, 3.870941703626641*^9}, { 3.870943576800144*^9, 3.870943577707052*^9}, {3.8709442099463186`*^9, 3.870944220344717*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"10542a1f-a53e-43f1-b326-90c5553b8c2a"], Cell[BoxData[ RowBox[{ RowBox[{"mf1", "=", RowBox[{"cshn", "[", RowBox[{"z", ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["a", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["b", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["c", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.867832129979463*^9, 3.867832158572497*^9}, 3.8708918194752913`*^9, {3.8709442342350492`*^9, 3.8709442476434917`*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"a8fbbeb5-886e-45cd-936b-c45a66e7aa9e"], Cell[BoxData[ RowBox[{ RowBox[{"Pars1", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ SubscriptBox["a", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["c", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["b", "i"], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.867834570829482*^9, 3.8678345775014815`*^9}, { 3.870942389746482*^9, 3.8709424187653246`*^9}, {3.8709442605776134`*^9, 3.870944290983293*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"0280e91f-a6d9-406f-ab00-3b1749ed26b5"], Cell[BoxData[ RowBox[{ RowBox[{"Cons1", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"0.01", "<", SubscriptBox["a", "i"], "<", "0.9"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"1", "<", SubscriptBox["c", "i"], "<", "80"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ SuperscriptBox["10", "1"], "<", SubscriptBox["b", "i"], "<", SuperscriptBox["10", "7"]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.870943197443465*^9, 3.870943201625883*^9}, { 3.870944283544839*^9, 3.8709443201375895`*^9}}, CellLabel->"In[40]:=",ExpressionUUID->"1bc98aba-dac9-4ea4-8490-749971a7b616"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Cons1", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"0.01", "<", SubscriptBox["a", "i"], "<", "0.96"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"1", "<", SubscriptBox["c", "i"], "<", "90"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ SuperscriptBox["10", "1"], "<", SubscriptBox["b", "i"], "<", SuperscriptBox["10", "6"]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["c", "i"], "/", SubscriptBox["a", "i"]}], "<", "n"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}]}], "]"}]}], ";"}], " "}]], "Input", CellChangeTimes->{{3.8702680472882824`*^9, 3.870268062880148*^9}, { 3.870274527961333*^9, 3.8702745289124813`*^9}, {3.870274712729985*^9, 3.8702747138006673`*^9}, {3.8703380760634556`*^9, 3.870338085777099*^9}, { 3.870338134356515*^9, 3.870338134781331*^9}, {3.870338715435112*^9, 3.870338740776287*^9}, {3.870359410836882*^9, 3.8703594114353127`*^9}, { 3.870359494778078*^9, 3.870359503140952*^9}, 3.8703645089762597`*^9, { 3.8704435176581383`*^9, 3.8704435249828515`*^9}, 3.8704465109072294`*^9, { 3.8704471172830877`*^9, 3.870447117490363*^9}, {3.870448573777196*^9, 3.8704485746457186`*^9}, {3.8707868280045576`*^9, 3.8707869329824204`*^9}, 3.870892974501359*^9, {3.87089364835896*^9, 3.8708936623592963`*^9}, { 3.870894444232833*^9, 3.8708944531899633`*^9}, {3.8708945052751646`*^9, 3.870894509928249*^9}, 3.8709424914766407`*^9, {3.8709443307752733`*^9, 3.870944339866149*^9}, {3.871056838055213*^9, 3.8710568522492886`*^9}, { 3.871056909373443*^9, 3.8710569098387823`*^9}, {3.8710576380394773`*^9, 3.871057642402381*^9}, {3.871057806961446*^9, 3.8710578087198954`*^9}, { 3.871057864428071*^9, 3.8710578653910975`*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"cc34ef7c-6dbe-40fa-b47a-f9f441dcb0d3"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t0", ",", "lsf1"}], "}"}], "=", RowBox[{"AbsoluteTiming", "[", RowBox[{"NonlinearModelFit", "[", RowBox[{"Data1", ",", RowBox[{"{", RowBox[{"mf1", ",", "Cons1"}], "}"}], ",", "Pars1", ",", RowBox[{"{", "z", "}"}], ",", RowBox[{"MaxIterations", "\[Rule]", "40000"}]}], "]"}], "]"}]}], ";", " ", "t0"}]], "Input", CellChangeTimes->{{3.8696649023379245`*^9, 3.8696649531392283`*^9}, { 3.8697258207695074`*^9, 3.869725821480483*^9}, {3.8697265516411*^9, 3.8697265520491714`*^9}, {3.869732294992208*^9, 3.86973229683278*^9}, { 3.869733165401655*^9, 3.8697331661405754`*^9}, {3.8697373580290446`*^9, 3.869737358697692*^9}, {3.869744460132951*^9, 3.869744470596495*^9}, { 3.8697523910705624`*^9, 3.869752393040555*^9}, {3.869755922118797*^9, 3.8697559238834257`*^9}, {3.8697561207431426`*^9, 3.869756121493045*^9}, { 3.869756160011915*^9, 3.869756168565979*^9}, {3.86975627964835*^9, 3.869756281294915*^9}, 3.869838664700287*^9, {3.870265616754628*^9, 3.870265616882077*^9}, {3.87026726926554*^9, 3.870267269435379*^9}, { 3.870892909198313*^9, 3.870892910305993*^9}, 3.8708936939969606`*^9, 3.870894335050465*^9, {3.8709443474842157`*^9, 3.870944356400553*^9}, 3.870944445627025*^9, {3.8710567765875664`*^9, 3.8710567767085204`*^9}}, CellLabel->"In[11]:=",ExpressionUUID->"ec5a62f9-cb07-4b16-b983-142ac3963670"], Cell[BoxData[{ RowBox[{ RowBox[{"FR", "=", RowBox[{"lsf1", "[", "\"\\"", "]"}]}], ";"}], "\n", RowBox[{"lsf1", "[", RowBox[{"\"\\"", ",", RowBox[{"VarianceEstimatorFunction", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"RMS", "[", RowBox[{"#", ",", "75", ",", RowBox[{"3", "*", "l1"}]}], "]"}], "&"}], ")"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.867834878616255*^9, 3.867834878772255*^9}, 3.8692243637591076`*^9, {3.869224444478524*^9, 3.8692244539570875`*^9}, { 3.869229367657488*^9, 3.869229370946748*^9}, {3.870944594624638*^9, 3.8709446032108283`*^9}, {3.8732927012769575`*^9, 3.8732927091266403`*^9}, 3.873292894230918*^9}, CellLabel->"In[17]:=",ExpressionUUID->"9ea867a0-6970-4605-a870-2b09a8a9bc87"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"lsf1", "[", "i", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "80"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}]}], ",", RowBox[{"PlotRange", "->", "Full"}], ",", RowBox[{"Epilog", "->", RowBox[{"Point", "[", "Data1b", "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.8708070875569153`*^9, 3.8708070877519207`*^9}, { 3.8708927694670935`*^9, 3.8708927701268067`*^9}, {3.870944630431551*^9, 3.8709446429311743`*^9}}, CellLabel->"In[19]:=",ExpressionUUID->"e2c5f4bc-43a9-4131-9092-e9138138ce44"], Cell[BoxData[ RowBox[{"pars1", "=", RowBox[{"lsf1", "[", "\"\\"", "]"}]}]], "Input", CellChangeTimes->{{3.8709447037162905`*^9, 3.870944706183713*^9}}, CellLabel->"In[16]:=",ExpressionUUID->"3ac0b1c9-30ff-4706-8b2f-0daa32fc1b7e"], Cell[BoxData[ RowBox[{"Pars1", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "i"], ",", RowBox[{ SubscriptBox["a", "i"], "/.", "pars1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["c", "i"], ",", RowBox[{ SubscriptBox["c", "i"], "/.", "pars1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "i"], ",", RowBox[{ SubscriptBox["b", "i"], "/.", "pars1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l1"}], "}"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.8703383358095846`*^9, 3.8703383359032965`*^9}, 3.8703385368297215`*^9, 3.8708069708168297`*^9, {3.8709447711598516`*^9, 3.870944777123497*^9}, {3.8710579208737564`*^9, 3.871057930010552*^9}}, CellLabel-> "In[122]:=",ExpressionUUID->"db259c83-f156-4b2b-aca3-de1d01a49e95"], Cell[BoxData[ RowBox[{"Pars1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "1"], ",", "0.1381608070121996`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "2"], ",", "0.14638418501069994`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "3"], ",", "0.5279302641157294`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "4"], ",", "0.9157789286701654`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "5"], ",", "0.2173116437906986`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "6"], ",", "0.29520749024480714`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "7"], ",", "0.5834548838763242`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["a", "8"], ",", "0.08556712721338508`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "1"], ",", "4.016173455884751`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "2"], ",", "6.657301100425359`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "3"], ",", "24.93065167827863`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "4"], ",", "47.00255809930365`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "5"], ",", "11.681824205982881`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "6"], ",", "4.65227584335838`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "7"], ",", "7.29846129780184`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["c", "8"], ",", "5.436268385557547`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "1"], ",", "48876.959694935125`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "2"], ",", "49993.15567563796`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "3"], ",", "12649.417137695442`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "4"], ",", "4748.186990122024`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "5"], ",", "77120.98352739475`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "6"], ",", "36936.084869910555`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "7"], ",", "18751.91815379085`"}], "}"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["b", "8"], ",", "58988.11396158941`"}], "}"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.8732929644874673`*^9, 3.8732929705500402`*^9}}, CellLabel-> "In[121]:=",ExpressionUUID->"8cd3b1de-68b1-4652-a162-6b090fc37590"], Cell[BoxData[ RowBox[{ RowBox[{"gf1", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"lsf1", "[", "i", "]"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "140"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"24", "*", SuperscriptBox["10", "3"]}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", "Red", "}"}]}], ",", RowBox[{"GridLines", "->", "Automatic"}], ",", RowBox[{"Frame", "->", "True"}], ",", RowBox[{"ImageSize", "->", "800"}], ",", RowBox[{"ImagePadding", "->", "60"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{ "{", "\"\<\!\(\*SubscriptBox[\(\[ScriptCapitalZ]\), \(a\)]\)(n)\>\"", "}"}], ",", "Below"}], "]"}]}], ",", RowBox[{"FrameLabel", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "None"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "None"}], "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.870893042085024*^9, 3.870893071424758*^9}, { 3.8708932351373615`*^9, 3.870893263626501*^9}, {3.870893298766883*^9, 3.8708932988554955`*^9}, {3.8709636554052777`*^9, 3.8709637057698674`*^9}, { 3.870963784521944*^9, 3.870963790720209*^9}, {3.8709638331309447`*^9, 3.8709638335118675`*^9}, {3.8710577516420135`*^9, 3.871057767453901*^9}}, CellLabel->"In[21]:=",ExpressionUUID->"9970887a-0428-45a5-8181-dd5e56a8e31a"], Cell[BoxData[ RowBox[{"gfd1", "=", RowBox[{"Overlay", "[", RowBox[{"{", RowBox[{"gf1", ",", "gd"}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.8708930927308626`*^9, 3.8708930987028093`*^9}, { 3.8709637151085815`*^9, 3.870963719673771*^9}, {3.870963876897517*^9, 3.8709638841272526`*^9}, {3.8710577808461533`*^9, 3.8710577874358983`*^9}}, CellLabel->"In[25]:=",ExpressionUUID->"a17d4ce1-fe07-4bad-a2e9-3ea827c395ef"] }, Closed]], Cell[CellGroupData[{ Cell["Second part", "Subsection", CellChangeTimes->{{3.8709441005548306`*^9, 3.870944103121689*^9}, { 3.8709639383725348`*^9, 3.87096394221332*^9}},ExpressionUUID->"96d408fb-f1c8-434a-90e1-\ fdea94cb786e"], Cell[BoxData[ RowBox[{ RowBox[{"Data2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"DataAll", "[", RowBox[{"[", RowBox[{"1", ",", "i", ",", "6"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "75", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.867833607979697*^9, 3.8678336417547903`*^9}, 3.867834042482584*^9, 3.867834167808469*^9, {3.869228379395009*^9, 3.8692283841724577`*^9}, {3.8692285327297277`*^9, 3.8692285335105352`*^9}, {3.8696639875185523`*^9, 3.869663991411394*^9}, { 3.8707908150861864`*^9, 3.870790820243222*^9}, {3.870891869329871*^9, 3.870891887445064*^9}, {3.8708919270279016`*^9, 3.8708919310272264`*^9}, { 3.87094213776725*^9, 3.8709421385938425`*^9}, {3.8709444109197607`*^9, 3.8709444181136146`*^9}, {3.8709639486815453`*^9, 3.870963961045286*^9}}, CellLabel->"In[26]:=",ExpressionUUID->"4b4c2ec0-15a2-45f9-88a7-f00cad117989"], Cell[BoxData[ RowBox[{ RowBox[{"Data2b", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"i", ",", RowBox[{"DataAll", "[", RowBox[{"[", RowBox[{"1", ",", "i", ",", "6"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "75", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.870891949547256*^9, 3.870891955747621*^9}, { 3.870942154736216*^9, 3.870942155364955*^9}, {3.870944422170905*^9, 3.870944429072955*^9}, {3.870963971662084*^9, 3.870963980655541*^9}}, CellLabel->"In[27]:=",ExpressionUUID->"fd4630b0-589d-48fc-8e5f-201a22f34466"], Cell[BoxData[ RowBox[{"l2", "=", "8"}]], "Input", CellChangeTimes->{{3.870941700057722*^9, 3.870941703626641*^9}, { 3.870943576800144*^9, 3.870943577707052*^9}, {3.8709442099463186`*^9, 3.870944220344717*^9}, {3.87096398743102*^9, 3.870963987521147*^9}}, CellLabel->"In[28]:=",ExpressionUUID->"8e6d0dfd-6454-47a3-9b72-2eece97625b7"], Cell[BoxData[ RowBox[{ RowBox[{"mf2", "=", RowBox[{"cshn", "[", RowBox[{"z", ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["a", "i"], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "1"}], ",", RowBox[{"l1", "+", "l2"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["b", "i"], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "1"}], ",", RowBox[{"l1", "+", "l2"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["c", "i"], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "1"}], ",", RowBox[{"l1", "+", "l2"}]}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.867832129979463*^9, 3.867832158572497*^9}, 3.8708918194752913`*^9, {3.8709442342350492`*^9, 3.8709442476434917`*^9}, { 3.8709639958539886`*^9, 3.870964006063445*^9}, {3.8709640539212065`*^9, 3.8709641051602545`*^9}}, CellLabel->"In[29]:=",ExpressionUUID->"42480e1c-df2c-4c77-a303-7306d3526e34"], Cell[BoxData[ RowBox[{ RowBox[{"Pars2", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ SubscriptBox["a", "i"], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "1"}], ",", RowBox[{"l1", "+", "l2"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["c", "i"], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "1"}], ",", RowBox[{"l1", "+", "l2"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ SubscriptBox["b", "i"], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "1"}], ",", RowBox[{"l1", "+", "l2"}]}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.867834570829482*^9, 3.8678345775014815`*^9}, { 3.870942389746482*^9, 3.8709424187653246`*^9}, {3.8709442605776134`*^9, 3.870944290983293*^9}, {3.870964012793183*^9, 3.8709640234502068`*^9}, { 3.8709641225539055`*^9, 3.870964129481372*^9}, {3.870964170592956*^9, 3.8709641774432645`*^9}}, CellLabel->"In[43]:=",ExpressionUUID->"c8d0907d-8e73-4d52-b6a2-e861bf04cc74"], Cell[BoxData[ RowBox[{ RowBox[{"Cons2", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"0.01", "<", SubscriptBox["a", "i"], "<", "0.9"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "1"}], ",", RowBox[{"l1", "+", "l2"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"1", "<", SubscriptBox["c", "i"], "<", "80"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "1"}], ",", RowBox[{"l1", "+", "l2"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ SuperscriptBox["10", "1"], "<", SubscriptBox["b", "i"], "<", SuperscriptBox["10", "7"]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "1"}], ",", RowBox[{"l1", "+", "l2"}]}], "}"}]}], "]"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.870943197443465*^9, 3.870943201625883*^9}, { 3.870944283544839*^9, 3.8709443201375895`*^9}, {3.8709640311805105`*^9, 3.8709640348758936`*^9}, {3.870964133634597*^9, 3.8709641425285974`*^9}, { 3.870964184136936*^9, 3.87096419317742*^9}}, CellLabel->"In[74]:=",ExpressionUUID->"3e77d8a9-d9a3-4ff7-bc6a-f522b8824ea1"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Cons2", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"0.01", "<", SubscriptBox["a", "i"], "<", "0.98"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "1"}], ",", RowBox[{"l1", "+", "l2"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"0.1", "<", SubscriptBox["c", "i"], "<", "90"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "1"}], ",", RowBox[{"l1", "+", "l2"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{ SuperscriptBox["10", "1"], "<", SubscriptBox["b", "i"], "<", SuperscriptBox["10", "6"]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "1"}], ",", RowBox[{"l1", "+", "l2"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"5", "<", RowBox[{ SubscriptBox["c", "i"], "/", SubscriptBox["a", "i"]}], "<", "n"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "1"}], ",", RowBox[{"l1", "+", "l2"}]}], "}"}]}], "]"}]}], "]"}]}], ";"}], " "}]], "Input", CellChangeTimes->{{3.8702680472882824`*^9, 3.870268062880148*^9}, { 3.870274527961333*^9, 3.8702745289124813`*^9}, {3.870274712729985*^9, 3.8702747138006673`*^9}, {3.8703380760634556`*^9, 3.870338085777099*^9}, { 3.870338134356515*^9, 3.870338134781331*^9}, {3.870338715435112*^9, 3.870338740776287*^9}, {3.870359410836882*^9, 3.8703594114353127`*^9}, { 3.870359494778078*^9, 3.870359503140952*^9}, 3.8703645089762597`*^9, { 3.8704435176581383`*^9, 3.8704435249828515`*^9}, 3.8704465109072294`*^9, { 3.8704471172830877`*^9, 3.870447117490363*^9}, {3.870448573777196*^9, 3.8704485746457186`*^9}, {3.8707868280045576`*^9, 3.8707869329824204`*^9}, 3.870892974501359*^9, {3.87089364835896*^9, 3.8708936623592963`*^9}, { 3.870894444232833*^9, 3.8708944531899633`*^9}, {3.8708945052751646`*^9, 3.870894509928249*^9}, 3.8709424914766407`*^9, {3.8709443307752733`*^9, 3.870944339866149*^9}, {3.8709641474240932`*^9, 3.8709641588991756`*^9}, { 3.8709641994977407`*^9, 3.8709642292079687`*^9}, {3.871057997425127*^9, 3.871058010808834*^9}, {3.871058136627864*^9, 3.8710581374740925`*^9}, { 3.8710581983406124`*^9, 3.871058207632083*^9}, {3.871058250276015*^9, 3.871058281720549*^9}, {3.8710583333025413`*^9, 3.8710583397348056`*^9}, { 3.8732934766766386`*^9, 3.8732934847178607`*^9}, {3.8732935860422187`*^9, 3.8732935869682226`*^9}, {3.8732936571064262`*^9, 3.873293662371318*^9}, { 3.873293740177701*^9, 3.8732937558818274`*^9}, {3.8732938163835344`*^9, 3.873293832654558*^9}, 3.8732938918912926`*^9, {3.8732939687956233`*^9, 3.8732939749546776`*^9}, {3.8732940343213444`*^9, 3.8732940521766996`*^9}, {3.8732940823778353`*^9, 3.87329413179287*^9}, { 3.8732942159247503`*^9, 3.8732942203154693`*^9}, {3.8732942887336044`*^9, 3.8732942893794236`*^9}}, CellLabel-> "In[109]:=",ExpressionUUID->"9e7cfe2d-4a5c-4b8d-9589-ad0a92c450fb"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"t0", ",", "lsf2"}], "}"}], "=", RowBox[{"AbsoluteTiming", "[", RowBox[{"NonlinearModelFit", "[", RowBox[{"Data2", ",", RowBox[{"{", RowBox[{"mf2", ",", "Cons2"}], "}"}], ",", "Pars2", ",", RowBox[{"{", "z", "}"}], ",", RowBox[{"MaxIterations", "\[Rule]", "30000"}]}], "]"}], "]"}]}], ";", " ", "t0"}]], "Input", CellChangeTimes->{{3.8696649023379245`*^9, 3.8696649531392283`*^9}, { 3.8697258207695074`*^9, 3.869725821480483*^9}, {3.8697265516411*^9, 3.8697265520491714`*^9}, {3.869732294992208*^9, 3.86973229683278*^9}, { 3.869733165401655*^9, 3.8697331661405754`*^9}, {3.8697373580290446`*^9, 3.869737358697692*^9}, {3.869744460132951*^9, 3.869744470596495*^9}, { 3.8697523910705624`*^9, 3.869752393040555*^9}, {3.869755922118797*^9, 3.8697559238834257`*^9}, {3.8697561207431426`*^9, 3.869756121493045*^9}, { 3.869756160011915*^9, 3.869756168565979*^9}, {3.86975627964835*^9, 3.869756281294915*^9}, 3.869838664700287*^9, {3.870265616754628*^9, 3.870265616882077*^9}, {3.87026726926554*^9, 3.870267269435379*^9}, { 3.870892909198313*^9, 3.870892910305993*^9}, 3.8708936939969606`*^9, 3.870894335050465*^9, {3.8709443474842157`*^9, 3.870944356400553*^9}, 3.870944445627025*^9, {3.8709642380156755`*^9, 3.870964251855894*^9}}, CellLabel-> "In[110]:=",ExpressionUUID->"7a0df496-b5a8-4638-8bff-f764498bb1f9"], Cell[BoxData[{ RowBox[{ RowBox[{"FR", "=", RowBox[{"lsf2", "[", "\"\\"", "]"}]}], ";"}], "\n", RowBox[{"lsf2", "[", RowBox[{"\"\\"", ",", RowBox[{"VarianceEstimatorFunction", "\[Rule]", RowBox[{"(", RowBox[{ RowBox[{"RMS", "[", RowBox[{"#", ",", RowBox[{"n", "-", "74"}], ",", RowBox[{"3", "*", "l2"}]}], "]"}], "&"}], ")"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.867834878616255*^9, 3.867834878772255*^9}, 3.8692243637591076`*^9, {3.869224444478524*^9, 3.8692244539570875`*^9}, { 3.869229367657488*^9, 3.869229370946748*^9}, {3.870944594624638*^9, 3.8709446032108283`*^9}, {3.8709642777743073`*^9, 3.870964292671986*^9}, { 3.8732931134856486`*^9, 3.873293133160251*^9}}, CellLabel-> "In[111]:=",ExpressionUUID->"7d833c5d-f61f-4775-9b56-d89bc598521b"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"lsf2", "[", RowBox[{"i", "-", "74"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "69", ",", "140"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Thick"}], "}"}]}], ",", RowBox[{"PlotRange", "->", "Full"}], ",", RowBox[{"Epilog", "->", RowBox[{"Point", "[", "Data2b", "]"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.8708070875569153`*^9, 3.8708070877519207`*^9}, { 3.8708927694670935`*^9, 3.8708927701268067`*^9}, {3.870944630431551*^9, 3.8709446429311743`*^9}, {3.870964310082224*^9, 3.8709643691971035`*^9}}, CellLabel-> "In[113]:=",ExpressionUUID->"998e1c25-cff4-4a1f-99e3-4afdc0f5ee1d"], Cell[BoxData[ RowBox[{"pars2", "=", RowBox[{"lsf2", "[", "\"\\"", "]"}]}]], "Input", CellChangeTimes->{{3.8709447037162905`*^9, 3.870944706183713*^9}, { 3.870964389688529*^9, 3.8709643930406733`*^9}}, CellLabel-> "In[114]:=",ExpressionUUID->"7fe546e9-3de1-493c-8231-218e620333f3"], Cell[BoxData[ RowBox[{"Pars2", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", "i"], ",", RowBox[{ SubscriptBox["a", "i"], "/.", "pars2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "1"}], ",", RowBox[{"l1", "+", "l2"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["c", "i"], ",", RowBox[{ SubscriptBox["c", "i"], "/.", "pars2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "1"}], ",", RowBox[{"l1", "+", "l2"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", "i"], ",", RowBox[{ SubscriptBox["b", "i"], "/.", "pars2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"l1", "+", "1"}], ",", RowBox[{"l1", "+", "l2"}]}], "}"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.8703383358095846`*^9, 3.8703383359032965`*^9}, 3.8703385368297215`*^9, 3.8708069708168297`*^9, {3.8709447711598516`*^9, 3.870944777123497*^9}, {3.870964415028035*^9, 3.870964484931066*^9}}, CellLabel-> "In[115]:=",ExpressionUUID->"64cf2943-8185-47e1-b396-99cff3998851"], Cell[BoxData[ RowBox[{"Pars2", "="}]], "Input", CellChangeTimes->{{3.8732946889226494`*^9, 3.8732946933004026`*^9}},ExpressionUUID->"35b9f060-be60-4061-89db-\ dc30a01ab22e"], Cell[BoxData[ RowBox[{ RowBox[{"gf2", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"lsf2", "[", RowBox[{"i", "-", "74"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "69", ",", "140"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"24", "*", SuperscriptBox["10", "3"]}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", "Red", "}"}]}], ",", RowBox[{"GridLines", "->", "Automatic"}], ",", RowBox[{"Frame", "->", "True"}], ",", RowBox[{"ImageSize", "->", "800"}], ",", RowBox[{"ImagePadding", "->", "60"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{ "{", "\"\<\!\(\*SubscriptBox[\(\[ScriptCapitalZ]\), \(b\)]\)(n)\>\"", "}"}], ",", "Below"}], "]"}]}], ",", RowBox[{"FrameLabel", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "None"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "None"}], "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.870893042085024*^9, 3.870893071424758*^9}, { 3.8708932351373615`*^9, 3.870893263626501*^9}, {3.870893298766883*^9, 3.8708932988554955`*^9}, {3.8709636554052777`*^9, 3.8709637057698674`*^9}, { 3.870963784521944*^9, 3.870963790720209*^9}, {3.8709638331309447`*^9, 3.8709638335118675`*^9}, {3.8709645215678253`*^9, 3.870964549699584*^9}, { 3.8732933413224607`*^9, 3.873293352454122*^9}}, CellLabel-> "In[116]:=",ExpressionUUID->"548568e7-4e57-4b8e-8a5d-f3fcb236bb65"], Cell[BoxData[ RowBox[{"gfd2", "=", RowBox[{"Overlay", "[", RowBox[{"{", RowBox[{"gf2", ",", "gd"}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.8708930927308626`*^9, 3.8708930987028093`*^9}, { 3.8709637151085815`*^9, 3.870963719673771*^9}, {3.870963876897517*^9, 3.8709638841272526`*^9}, {3.870964560150072*^9, 3.870964564545*^9}, { 3.873293220343669*^9, 3.8732932314936385`*^9}}, CellLabel-> "In[117]:=",ExpressionUUID->"f62348a3-aa7a-4568-acf5-a6f840dc5307"], Cell[BoxData[ RowBox[{ RowBox[{"gf12", "=", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"lsf1", "[", "i", "]"}], ",", RowBox[{"lsf2", "[", RowBox[{"i", "-", "74"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "140"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "140"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"24", "*", SuperscriptBox["10", "3"]}]}], "}"}]}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Red", ",", "Brown"}], "}"}]}], ",", RowBox[{"GridLines", "->", "Automatic"}], ",", RowBox[{"Frame", "->", "True"}], ",", RowBox[{"ImageSize", "->", "800"}], ",", RowBox[{"ImagePadding", "->", "60"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"Placed", "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\<\!\(\*SubscriptBox[\(\[ScriptCapitalZ]\), \(a\)]\)(n)\>\"", ",", "\"\<\!\(\*SubscriptBox[\(\[ScriptCapitalZ]\), \ \(b\)]\)(n)\>\""}], "}"}], ",", "Below"}], "]"}]}], ",", RowBox[{"FrameLabel", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "None"}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "None"}], "}"}]}], "}"}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.870964711371406*^9, 3.870964733600583*^9}, { 3.870964783638962*^9, 3.870964880301608*^9}, {3.8709649138296537`*^9, 3.87096493651463*^9}, {3.870965147951193*^9, 3.8709651903825254`*^9}, { 3.873293389452095*^9, 3.873293396580164*^9}}, CellLabel-> "In[118]:=",ExpressionUUID->"b11329de-3c58-4555-b3d4-ff126824b21e"], Cell[BoxData[ RowBox[{"gfd12", "=", RowBox[{"Overlay", "[", RowBox[{"{", RowBox[{"gf12", ",", "gd"}], "}"}], "]"}]}]], "Input", CellChangeTimes->{{3.87096488840285*^9, 3.8709648918741126`*^9}, { 3.873293407505667*^9, 3.8732934158881917`*^9}}, CellLabel-> "In[119]:=",ExpressionUUID->"77836a2c-fac0-4f84-bb7a-56b14d7bcab4"] }, Closed]], Cell[CellGroupData[{ Cell["Joint parameters", "Subsection", CellChangeTimes->{{3.871043208282177*^9, 3.8710432117624273`*^9}},ExpressionUUID->"f63965c0-0312-4951-a10f-\ 2e08913e4d42"], Cell[BoxData[ RowBox[{ RowBox[{"Tabc", "[", RowBox[{"aux1_", ",", "aux2_", ",", "l1_", ",", "l2_"}], "]"}], ":=", RowBox[{"Join", "[", RowBox[{ RowBox[{"aux1", "[", RowBox[{"[", RowBox[{"1", ";;", "l1"}], "]"}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["a", RowBox[{"i", "+", "l1"}]], ",", RowBox[{"aux2", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l2"}], "}"}]}], "]"}], ",", RowBox[{"aux1", "[", RowBox[{"[", RowBox[{ RowBox[{"l1", "+", "1"}], ";;", RowBox[{"2", "*", "l1"}]}], "]"}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["c", RowBox[{"i", "+", "l1"}]], ",", RowBox[{"aux2", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "l1"}], ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l2"}], "}"}]}], "]"}], ",", RowBox[{"aux1", "[", RowBox[{"[", RowBox[{ RowBox[{ RowBox[{"2", "*", "l1"}], "+", "1"}], ";;", RowBox[{"3", "*", "l1"}]}], "]"}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ SubscriptBox["b", RowBox[{"i", "+", "l1"}]], ",", RowBox[{"aux2", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", RowBox[{"2", "*", "l1"}]}], ",", "2"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "l2"}], "}"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.87104457892337*^9, 3.87104471153677*^9}, 3.871044747799478*^9, {3.8710448500107675`*^9, 3.8710448741324635`*^9}}, CellLabel-> "In[123]:=",ExpressionUUID->"e5adb368-73bb-44cc-b62a-e93d1cca2c6e"], Cell[BoxData[ RowBox[{"Pars", "=", RowBox[{"Tabc", "[", RowBox[{"Pars1", ",", "Pars2", ",", "l1", ",", "l2"}], "]"}]}]], "Input", CellChangeTimes->{{3.8710447678753657`*^9, 3.8710447920978208`*^9}, { 3.873294763084342*^9, 3.8732947711704564`*^9}}, CellLabel-> "In[130]:=",ExpressionUUID->"9d92ad06-e5d8-41f7-9a52-7bf087179751"], Cell[BoxData[ RowBox[{"ParsM", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Pars", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"3", "*", RowBox[{"(", RowBox[{"l1", "+", "l2"}], ")"}]}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.8732949860616693`*^9, 3.873295007979524*^9}, 3.8732950843915386`*^9, {3.8732951590278554`*^9, 3.873295170659943*^9}, { 3.8732952059978976`*^9, 3.8732952709208856`*^9}, {3.873295319556636*^9, 3.8732953247722964`*^9}}, CellLabel-> "In[131]:=",ExpressionUUID->"454c593b-a8c0-4ba8-8bd0-14bdf10290a3"], Cell[BoxData[ RowBox[{ RowBox[{"Export", "[", RowBox[{ "\"\\"", ",", "ParsM", ",", "\"\\""}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.8732953716610055`*^9, 3.8732953847095757`*^9}}, CellLabel-> "In[132]:=",ExpressionUUID->"b2cbd333-a4e4-4eef-9685-6fe25eb047b3"] }, Closed]] }, Closed]] }, Open ]] }, WindowSize->{1348.8, 691.1999999999999}, WindowMargins->{{Automatic, 1073.1000000000001`}, { Automatic, 49.199999999999996`}}, TaggingRules-><|"TryRealOnly" -> False|>, Magnification:>1., FrontEndVersion->"13.3 for Microsoft Windows (64-bit) (July 24, 2023)", StyleDefinitions->"Default.nb", ExpressionUUID->"c8bdd9ec-4051-4b6a-93a9-0270cef2231b" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 782, 15, 146, "Text",ExpressionUUID->"79c1882b-12d4-4336-94a2-cac77e8e48ae"], Cell[CellGroupData[{ Cell[1365, 39, 236, 3, 53, "Subtitle",ExpressionUUID->"80b7cff6-1a9e-472c-a1ed-a6b22e42e134"], Cell[1604, 44, 1137, 30, 99, "Text",ExpressionUUID->"a6adaaa0-c19e-4e36-9804-31f280d0559d"], Cell[2744, 76, 1023, 27, 85, "Text",ExpressionUUID->"be5c8736-934b-45a1-b64b-475e840fbab2"], Cell[CellGroupData[{ Cell[3792, 107, 155, 3, 67, "Section",ExpressionUUID->"b45ff5bc-1a50-406c-a509-76e4636410a4"], Cell[CellGroupData[{ Cell[3972, 114, 163, 3, 54, "Subsection",ExpressionUUID->"fc505297-3fe8-4104-a3c5-30fc749ac8aa"], Cell[4138, 119, 882, 25, 28, "Input",ExpressionUUID->"47d21065-13a5-4b2b-98f6-aeb3fbfd2b51"] }, Open ]], Cell[CellGroupData[{ Cell[5057, 149, 153, 3, 54, "Subsection",ExpressionUUID->"53272786-40cd-4f50-ab15-7a386e30b2df"], Cell[5213, 154, 514, 15, 28, "Input",ExpressionUUID->"0bd03155-ebb6-412b-a6cb-6b20ef85d23d"] }, Open ]], Cell[CellGroupData[{ Cell[5764, 174, 167, 3, 54, "Subsection",ExpressionUUID->"dc210d35-2b83-4392-ab6b-b8809f2fc4c8"], Cell[5934, 179, 1837, 57, 48, "Input",ExpressionUUID->"422317cb-d461-417d-a7f0-3f5a8e767875"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[7820, 242, 151, 3, 67, "Section",ExpressionUUID->"9c344c06-58c8-4128-8d89-219690e1ae32"], Cell[7974, 247, 492, 14, 196, "Text",ExpressionUUID->"ddbec865-54cf-447b-a02a-37d7cdd5e972"], Cell[CellGroupData[{ Cell[8491, 265, 512, 10, 28, "Input",ExpressionUUID->"980a1573-88cf-4917-88bc-c1dbb49d1b83"], Cell[9006, 277, 718, 20, 49, "Output",ExpressionUUID->"7ab53873-ee16-40e0-9c2d-4ebde86265ca"] }, Open ]], Cell[CellGroupData[{ Cell[9761, 302, 291, 6, 28, "Input",ExpressionUUID->"54e70c49-4f26-48b1-abfc-14877e4d3bb9"], Cell[10055, 310, 150, 2, 32, "Output",ExpressionUUID->"ef32471a-67fc-4f50-b373-ea515c70afa5"] }, Open ]], Cell[CellGroupData[{ Cell[10242, 317, 188, 3, 54, "Subsection",ExpressionUUID->"db6dd233-28c1-46ce-99c3-4206c96e4105"], Cell[CellGroupData[{ Cell[10455, 324, 204, 3, 28, "Input",ExpressionUUID->"7d28f777-8ad8-4b2d-a652-b29e73251dbf"], Cell[10662, 329, 720, 20, 49, "Output",ExpressionUUID->"90390577-92eb-4dc2-8bfa-bb566b3502df"] }, Open ]], Cell[CellGroupData[{ Cell[11419, 354, 248, 4, 28, "Input",ExpressionUUID->"d8ad62c2-5ddc-41be-b43e-02c255fe0644"], Cell[11670, 360, 152, 2, 32, "Output",ExpressionUUID->"06f4318b-fccb-4dbc-b7c1-469b94f3473a"] }, Open ]], Cell[11837, 365, 897, 18, 28, "Input",ExpressionUUID->"3f170062-35df-41b4-ad55-16984b8c95b3"], Cell[12737, 385, 599, 15, 28, "Input",ExpressionUUID->"0f1e731c-9ae9-4b51-a5fc-1464839c4b4f"], Cell[13339, 402, 2001, 42, 108, "Input",ExpressionUUID->"93adb5a8-31bc-47c2-9007-b0ca9312aeba"], Cell[15343, 446, 177, 3, 28, "Input",ExpressionUUID->"52e5ec29-b98a-4c54-b810-7f6258850f29"] }, Open ]], Cell[CellGroupData[{ Cell[15557, 454, 156, 3, 54, "Subsection",ExpressionUUID->"251fb970-e571-4ea5-af54-71a1ac49be81"], Cell[15716, 459, 845, 17, 28, "Input",ExpressionUUID->"575b742e-f6ff-42b1-9c1f-dd0ac86b7797"], Cell[16564, 478, 547, 14, 28, "Input",ExpressionUUID->"74bb772b-acfd-4111-8f3b-66b66a492dce"], Cell[17114, 494, 1641, 37, 53, "Input",ExpressionUUID->"73f1e0f4-fc18-48e7-80f0-9136d9878e48"], Cell[18758, 533, 175, 2, 28, "Input",ExpressionUUID->"30dcb392-f692-4697-be0c-86025840ddf8"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[18982, 541, 210, 4, 67, "Section",ExpressionUUID->"c72d7ca5-a1cb-4eec-a1db-1087298cfd1f"], Cell[CellGroupData[{ Cell[19217, 549, 160, 3, 54, "Subsection",ExpressionUUID->"d4d8a613-d3ca-4a7e-b8dd-99e76939338b"], Cell[19380, 554, 393, 7, 28, "Input",ExpressionUUID->"a3644006-c726-4b08-a19d-da718b514fa2"], Cell[19776, 563, 1035, 20, 28, "Input",ExpressionUUID->"6738a859-1b22-42cf-b082-a48fda9110c8"], Cell[20814, 585, 726, 17, 28, "Input",ExpressionUUID->"e2d9512f-534c-404e-8f63-766e589a7778"], Cell[21543, 604, 1392, 20, 28, "Input",ExpressionUUID->"919a2a64-fcd6-4a02-bb5f-c4a64de8d9f1"], Cell[22938, 626, 847, 24, 28, "Input",ExpressionUUID->"e31eb85c-ab8e-4ea3-9b33-b8a95000e4ad"], Cell[23788, 652, 865, 25, 28, "Input",ExpressionUUID->"6ab1d067-a4b2-4f2e-b517-208c21e9bf9d"], Cell[24656, 679, 4586, 82, 31, "Input",ExpressionUUID->"cd1e4f9f-3a61-44bb-ac03-b564a3cecf7f"], Cell[29245, 763, 1445, 40, 31, "Input",ExpressionUUID->"1adb5054-3273-443a-8d09-ddc4fb505033"], Cell[30693, 805, 1673, 30, 28, "Input",ExpressionUUID->"3ed0b713-0c5b-4ea2-b5a3-8672433c3d83"], Cell[32369, 837, 897, 19, 48, "Input",ExpressionUUID->"9105c868-3b2a-4597-8225-05d441f766fc"], Cell[33269, 858, 841, 19, 28, "Input",ExpressionUUID->"c4d5c03b-8dd4-42f8-9de4-afb63c3067bf"], Cell[34113, 879, 259, 5, 28, "Input",ExpressionUUID->"57a46e14-df0e-4679-80dc-0c271f6540c5"], Cell[34375, 886, 2575, 63, 105, "Input",ExpressionUUID->"a2f1540a-8e55-491f-8d08-eb3227b3e956"], Cell[36953, 951, 1241, 35, 28, "Input",ExpressionUUID->"1f2b68f9-5d7a-4ed7-ac66-7cf93ec5aafc"], Cell[38197, 988, 3516, 99, 124, "Input",ExpressionUUID->"8e8b57ef-6f28-48ad-be27-d4173bae4035"], Cell[41716, 1089, 153, 3, 35, "Text",ExpressionUUID->"11bab72b-c843-498d-9164-6321269a8360"], Cell[41872, 1094, 1020, 28, 28, "Input",ExpressionUUID->"1fa3207b-9d89-47ac-bfa1-bdd2a6414e32"], Cell[42895, 1124, 1432, 23, 28, "Input",ExpressionUUID->"bec225a2-9ef8-4ad0-8be2-c60327f8742f"], Cell[44330, 1149, 1997, 48, 53, "Input",ExpressionUUID->"e9485626-019c-4a45-b231-29b0cbfff40f"], Cell[46330, 1199, 393, 9, 28, "Input",ExpressionUUID->"7f856a76-b2fa-4725-a20a-a52ee624559e"] }, Closed]], Cell[CellGroupData[{ Cell[46760, 1213, 211, 4, 38, "Subsection",ExpressionUUID->"898d8142-4872-4e3e-b06a-f54f94a176e7"], Cell[46974, 1219, 255, 5, 28, "Input",ExpressionUUID->"cc359a44-f488-4c9d-8a11-5974229044a0"], Cell[47232, 1226, 135, 3, 28, "Input",ExpressionUUID->"26f69913-3c5b-4347-add1-4130aec98328"], Cell[47370, 1231, 1139, 21, 28, "Input",ExpressionUUID->"591fa2db-2ae7-4594-b898-ef97114f8d2a"], Cell[48512, 1254, 836, 18, 28, "Input",ExpressionUUID->"2e275371-0b11-4809-8d63-0fc8848217d7"], Cell[49351, 1274, 253, 5, 28, "Input",ExpressionUUID->"96b5e056-1cbc-4e35-b45f-902d0be5a8cf"], Cell[49607, 1281, 593, 10, 28, "Input",ExpressionUUID->"c8410cea-0d57-4af9-8faa-456d7cfb36f1"], Cell[50203, 1293, 1139, 32, 28, "Input",ExpressionUUID->"7b9b9d83-1d7b-4250-a272-5215425484e7"], Cell[51345, 1327, 1185, 31, 28, "Input",ExpressionUUID->"4d5ff2a2-02e8-4315-9690-f16b5cc9b4e7"], Cell[52533, 1360, 1328, 36, 31, "Input",ExpressionUUID->"a358bd6e-2fd3-441d-aa07-e16a19918c5a"], Cell[53864, 1398, 3977, 79, 53, "Input",ExpressionUUID->"67ec7e92-a3a0-4bca-8809-a0da020b024c"], Cell[57844, 1479, 1566, 29, 28, "Input",ExpressionUUID->"fac56909-b1c8-42cb-a95a-1f5224613c2e"], Cell[59413, 1510, 3169, 54, 86, "Input",ExpressionUUID->"166a5f4a-25df-492f-bf6f-f70d88630fb2"], Cell[62585, 1566, 1028, 21, 48, "Input",ExpressionUUID->"26ebda72-b06a-45e0-8ca4-96517c355222"], Cell[63616, 1589, 1050, 23, 28, "Input",ExpressionUUID->"94d53b18-115d-43c0-a73d-0bd67be707cc"], Cell[64669, 1614, 310, 6, 28, "Input",ExpressionUUID->"8efde151-d94d-42ca-bf34-b0f3a89d6f74"], Cell[64982, 1622, 1605, 39, 86, "Input",ExpressionUUID->"72d59050-c03e-41c1-b532-0c9a976918b8"], Cell[66590, 1663, 1417, 41, 28, "Input",ExpressionUUID->"efeb5087-f51d-4c95-bc6d-86748962196b"], Cell[68010, 1706, 153, 3, 35, "Text",ExpressionUUID->"7c5c632c-b2ea-4e74-97fc-7435fb030ba7"], Cell[68166, 1711, 1218, 33, 28, "Input",ExpressionUUID->"76ece0fb-aa74-4bee-b252-701dfbcb7121"], Cell[69387, 1746, 1487, 24, 28, "Input",ExpressionUUID->"fdfd2541-f325-4eaa-935c-4e3380c865cd"], Cell[70877, 1772, 2111, 51, 53, "Input",ExpressionUUID->"93a2d356-f1fe-4709-9c12-be1d27061769"], Cell[72991, 1825, 436, 9, 28, "Input",ExpressionUUID->"7091e121-da3f-4501-a591-a4e36a5e2a4b"], Cell[73430, 1836, 1922, 50, 53, "Input",ExpressionUUID->"cb8d7e11-0f44-4528-b617-63db8ef0482e"], Cell[75355, 1888, 290, 7, 28, "Input",ExpressionUUID->"78b307fa-af54-40f7-b693-914721405c0d"] }, Closed]], Cell[CellGroupData[{ Cell[75682, 1900, 160, 3, 38, "Subsection",ExpressionUUID->"76ca0c36-0bd7-4937-8654-e248873b3420"], Cell[CellGroupData[{ Cell[75867, 1907, 148, 2, 28, "Input",ExpressionUUID->"83183861-c646-4b34-874d-1eae313f5ace"], Cell[76018, 1911, 153, 2, 32, "Output",ExpressionUUID->"bd32d510-bcda-4d2f-84cd-78c22eb1ac22"] }, Open ]], Cell[CellGroupData[{ Cell[76208, 1918, 198, 3, 28, "Input",ExpressionUUID->"28304e08-d409-4ca5-88e4-0447e92d232e"], Cell[76409, 1923, 150, 2, 32, "Output",ExpressionUUID->"a1fcd220-f851-4473-8b21-dc938840194f"] }, Open ]], Cell[CellGroupData[{ Cell[76596, 1930, 804, 11, 28, "Input",ExpressionUUID->"508e9650-f91f-463b-8b03-c59a3af177c3"], Cell[77403, 1943, 151, 2, 32, "Output",ExpressionUUID->"15054caf-1cbc-415b-85b5-5b0ffb3da82e"] }, Open ]], Cell[77569, 1948, 1261, 22, 28, "Input",ExpressionUUID->"1d8dc5ae-2393-4347-a397-53adb48b3c09"], Cell[78833, 1972, 903, 18, 28, "Input",ExpressionUUID->"8041e7f2-9819-4b35-92c1-327564af0ec1"], Cell[CellGroupData[{ Cell[79761, 1994, 249, 4, 28, "Input",ExpressionUUID->"4d8f75bc-dfe4-464d-8b79-159764a69419"], Cell[80013, 2000, 152, 2, 32, "Output",ExpressionUUID->"bbcb723f-6545-4b39-a03b-9b39f00fd57b"] }, Open ]], Cell[CellGroupData[{ Cell[80202, 2007, 589, 9, 28, "Input",ExpressionUUID->"d7fe5530-4ff6-43d8-917e-3f0cb9988925"], Cell[80794, 2018, 151, 2, 32, "Output",ExpressionUUID->"7bfe33dc-b254-484e-a8db-a63fcca22e83"] }, Open ]], Cell[CellGroupData[{ Cell[80982, 2025, 750, 11, 28, "Input",ExpressionUUID->"ecf59e9a-106f-456c-bb5c-618d896a222b"], Cell[81735, 2038, 151, 2, 32, "Output",ExpressionUUID->"94ba897a-34cc-4651-954f-5d530f8689e8"] }, Open ]], Cell[CellGroupData[{ Cell[81923, 2045, 233, 4, 28, "Input",ExpressionUUID->"3126bfd8-709b-4772-8b99-9fd8084647cc"], Cell[82159, 2051, 150, 2, 32, "Output",ExpressionUUID->"d41a35e3-e37c-4073-bab5-423d653b981f"] }, Open ]], Cell[CellGroupData[{ Cell[82346, 2058, 1189, 29, 28, "Input",ExpressionUUID->"7ffff6ce-99f9-4d8e-be7a-06fbd10e3d8d"], Cell[83538, 2089, 1695, 57, 32, "Output",ExpressionUUID->"286d756b-3584-432f-bd58-b1576bc767b9"] }, Open ]], Cell[85248, 2149, 1300, 33, 28, "Input",ExpressionUUID->"e264287e-e5dd-4e28-a285-43d413c0112c"], Cell[86551, 2184, 7207, 123, 31, "Input",ExpressionUUID->"88bf9ef2-5d86-4be2-b04d-c6aca8b861d1"], Cell[CellGroupData[{ Cell[93783, 2311, 1761, 30, 28, "Input",ExpressionUUID->"9bfeb6d6-3d96-4601-8511-2a9cf47055ef"], Cell[95547, 2343, 160, 2, 32, "Output",ExpressionUUID->"fd1bc6b8-e2dc-4b96-a90f-0743dd02a0a3"] }, Open ]], Cell[95722, 2348, 623, 16, 28, "Input",ExpressionUUID->"bc367c39-e0ae-4e77-ade1-1e4c742701e3"], Cell[96348, 2366, 659, 17, 28, "Input",ExpressionUUID->"962b159a-c952-4c61-a9a1-718bbbbcb9e3"], Cell[97010, 2385, 732, 18, 28, "Input",ExpressionUUID->"9481b89e-97f1-43f1-a818-72be001c0736"], Cell[97745, 2405, 650, 17, 28, "Input",ExpressionUUID->"45aeb3fc-6ee9-4aa8-bfcd-ea9a5140b64e"], Cell[98398, 2424, 3118, 53, 86, "Input",ExpressionUUID->"cc85efe8-4917-48d3-bb08-759be6ed21c3"], Cell[CellGroupData[{ Cell[101541, 2481, 1307, 25, 48, "Input",ExpressionUUID->"6e8757a2-a500-478a-a4c4-51c3111381a4"], Cell[102851, 2508, 564, 12, 28, "Message",ExpressionUUID->"6e379ac3-07f5-4d76-b82f-6bb819c49d15"], Cell[103418, 2522, 166, 2, 32, "Output",ExpressionUUID->"0fbd6d4b-aa1a-4a93-b552-49b0137050a8"] }, Open ]], Cell[CellGroupData[{ Cell[103621, 2529, 1333, 33, 31, "Input",ExpressionUUID->"c3dc6b93-fd07-4455-95dd-7f04d33c8ea0"], Cell[104957, 2564, 59754, 1026, 230, "Output",ExpressionUUID->"f83b6d28-78ac-4dee-9a00-97bfd34d614e"] }, Open ]], Cell[CellGroupData[{ Cell[164748, 3595, 355, 6, 28, "Input",ExpressionUUID->"35d99eab-bd3d-4b02-b4d0-d8e979ab9d4d"], Cell[165106, 3603, 1668, 41, 57, "Output",ExpressionUUID->"ce33b8d1-7355-4b9d-b988-bb26196d19f7"] }, Open ]], Cell[166789, 3647, 1676, 42, 67, "Input",ExpressionUUID->"34a86510-6ad9-46a4-bedc-e49c1a58e723"], Cell[168468, 3691, 1586, 39, 67, "Input",ExpressionUUID->"5b71d522-7182-4f6c-b1b0-684d236c5535"], Cell[170057, 3732, 1586, 39, 67, "Input",ExpressionUUID->"0fe9b297-035f-46bc-9789-04d4ba180c26"], Cell[171646, 3773, 1580, 39, 67, "Input",ExpressionUUID->"c50dcf9d-9912-4926-a073-ba6a92b5e38a"], Cell[173229, 3814, 1587, 39, 67, "Input",ExpressionUUID->"b36c6b73-4644-4717-adda-729ea608f570"], Cell[CellGroupData[{ Cell[174841, 3857, 1462, 40, 28, "Input",ExpressionUUID->"8c5e49a0-51c9-4d71-b270-951b7ee47add"], Cell[176306, 3899, 2027, 59, 57, "Output",ExpressionUUID->"3f114fd8-fa38-4e17-a1a9-3713d0fc2a7b"] }, Open ]], Cell[178348, 3961, 153, 3, 35, "Text",ExpressionUUID->"7f2a7075-9d19-4f8a-b68d-07066efd5655"], Cell[178504, 3966, 1295, 32, 28, "Input",ExpressionUUID->"835cbea5-93e6-4f43-af35-e3e53e67be79"], Cell[179802, 4000, 1531, 23, 83, "Input",ExpressionUUID->"7b2224eb-2335-433a-a22d-2b362e623c34"], Cell[181336, 4025, 2163, 51, 53, "Input",ExpressionUUID->"f7b56427-094c-4a11-a0f6-f0bc7ee8b277"], Cell[183502, 4078, 485, 10, 28, "Input",ExpressionUUID->"da24a1a5-319f-45b5-bfe2-e03b756d58a4"], Cell[183990, 4090, 2118, 53, 72, "Input",ExpressionUUID->"9c2e8333-974e-420c-b386-e8870dbb2e56"], Cell[186111, 4145, 293, 7, 28, "Input",ExpressionUUID->"5b8f49be-5b58-49ef-a707-5458dc59fead"], Cell[186407, 4154, 446, 10, 28, "Input",ExpressionUUID->"ac1e3965-9099-4015-b71b-7630442b90b8"] }, Open ]], Cell[CellGroupData[{ Cell[186890, 4169, 166, 3, 54, "Subsection",ExpressionUUID->"9bca91aa-a2f1-4d56-b884-426f694047c5"], Cell[187059, 4174, 3602, 105, 67, "Input",ExpressionUUID->"fc152712-ee36-400a-a424-9767fbd1c621"], Cell[190664, 4281, 477, 10, 28, "Input",ExpressionUUID->"976ae3e0-57b6-4f17-bc69-1484359b4d6c"], Cell[191144, 4293, 508, 15, 28, "Input",ExpressionUUID->"28e2fc1b-f9f1-42ed-a30a-75f579303514"], Cell[191655, 4310, 489, 13, 28, "Input",ExpressionUUID->"3f6348e1-0fef-41ca-ad70-bcefe4ea95bd"], Cell[192147, 4325, 487, 10, 28, "Input",ExpressionUUID->"864be332-a77f-4354-8f69-a39f487ee6ba"], Cell[192637, 4337, 5938, 168, 200, "Input",ExpressionUUID->"42406004-0047-4213-ba5e-c5607d601621"], Cell[198578, 4507, 5854, 161, 200, "Input",ExpressionUUID->"d0792500-13e2-4b2d-b73d-d3eb0e0c7e5f"] }, Closed]], Cell[CellGroupData[{ Cell[204469, 4673, 155, 3, 38, "Subsection",ExpressionUUID->"8cf1d87c-89f4-4242-a4a4-d1ac79da9065"], Cell[204627, 4678, 345, 5, 28, "Input",ExpressionUUID->"fbd3b7f1-0622-47fe-819b-e3174ee7a4af"], Cell[204975, 4685, 789, 23, 28, "Input",ExpressionUUID->"4931fa6b-24a0-4de9-8358-9929a13a1039"], Cell[205767, 4710, 806, 23, 28, "Input",ExpressionUUID->"1018d7f9-8778-4c69-8363-10123b67c0e6"], Cell[206576, 4735, 938, 27, 31, "Input",ExpressionUUID->"acb2c888-3248-4660-90d6-24e25e67ccd9"], Cell[207517, 4764, 2626, 56, 31, "Input",ExpressionUUID->"add0452d-0f32-4abe-9d7c-2a8acf596353"], Cell[210146, 4822, 1781, 44, 31, "Input",ExpressionUUID->"f476cebe-9218-4d02-acf6-89cd076a668b"], Cell[211930, 4868, 254, 4, 28, "Input",ExpressionUUID->"4a9d94fb-fd4b-4a8a-8546-fb8d42ab4015"], Cell[212187, 4874, 1380, 25, 28, "Input",ExpressionUUID->"d87c187a-9670-4a1c-a83a-fe19bb88633c"], Cell[213570, 4901, 679, 15, 48, "Input",ExpressionUUID->"9c5934b0-179f-45d6-97c9-3fc57e8e5efb"], Cell[214252, 4918, 349, 5, 28, "Input",ExpressionUUID->"86ba14f5-0ec5-4759-bfcb-1e5b167a4368"], Cell[214604, 4925, 696, 15, 28, "Input",ExpressionUUID->"22a9ea35-674f-41a0-91e3-d0ab3d537c4f"], Cell[215303, 4942, 308, 6, 28, "Input",ExpressionUUID->"597b583c-03fa-42e3-b48e-cb6d8b30e33d"], Cell[215614, 4950, 1329, 38, 28, "Input",ExpressionUUID->"dc637d05-948b-4e9c-902b-2879c62737a3"], Cell[216946, 4990, 153, 3, 35, "Text",ExpressionUUID->"f1614df4-cb52-445d-bbc7-8abd06148c4a"], Cell[217102, 4995, 923, 26, 28, "Input",ExpressionUUID->"097d0611-bab5-45cf-953e-507ade9e8796"], Cell[218028, 5023, 1372, 22, 28, "Input",ExpressionUUID->"55c9bd54-93f6-4d7c-aa86-732147512f0c"], Cell[219403, 5047, 1807, 45, 53, "Input",ExpressionUUID->"78076fd0-a60f-4a22-8db5-5bfac7cb10b4"], Cell[221213, 5094, 545, 11, 28, "Input",ExpressionUUID->"7bbb9ee2-3ea8-479c-b137-646676e9d40b"] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[221807, 5111, 151, 3, 67, "Section",ExpressionUUID->"d335295a-360c-4ea8-8148-12a2a7be3e4e"], Cell[CellGroupData[{ Cell[221983, 5118, 155, 3, 54, "Subsection",ExpressionUUID->"cd9101aa-571f-406e-b312-a006b1c92f75"], Cell[222141, 5123, 248, 5, 27, "Input",ExpressionUUID->"bed05695-006c-4eb6-878c-65a5ce4266ec"], Cell[222392, 5130, 793, 24, 27, "Input",ExpressionUUID->"1879b5b4-edfd-4554-9894-8a66c4454fb6"], Cell[223188, 5156, 806, 23, 27, "Input",ExpressionUUID->"63a1013e-93a8-4fb9-8ce3-cb23f701b3b0"], Cell[223997, 5181, 938, 27, 32, "Input",ExpressionUUID->"2e13a3de-eed2-4653-a637-d329f7322a8d"], Cell[224938, 5210, 2079, 48, 32, "Input",ExpressionUUID->"b4d5036b-b7eb-45ad-aa98-48ef609fe014"], Cell[227020, 5260, 254, 4, 27, "Input",ExpressionUUID->"512de362-116b-49b3-a5a3-9376312c59ce"], Cell[227277, 5266, 1384, 26, 27, "Input",ExpressionUUID->"e2c58dbd-4bd7-45a8-bcda-e9bcc73e5b5e"], Cell[228664, 5294, 683, 16, 48, "Input",ExpressionUUID->"c867c94f-59e0-4ce0-aed0-5a3a04d1156c"], Cell[229350, 5312, 632, 16, 27, "Input",ExpressionUUID->"de9ca565-4254-45cb-9c47-ad85f95c5d08"], Cell[229985, 5330, 308, 6, 27, "Input",ExpressionUUID->"82be80d3-9d7c-4d4d-b14a-843b3fbc4133"], Cell[230296, 5338, 1307, 38, 27, "Input",ExpressionUUID->"e7acdc00-60c1-43ac-a816-4a2138f6c147"], Cell[231606, 5378, 153, 3, 33, "Text",ExpressionUUID->"9fccfbc0-db4c-4aae-aaae-9360d4e2cefd"], Cell[231762, 5383, 939, 27, 27, "Input",ExpressionUUID->"5ad82bff-0fbd-4410-b058-72e8687a6875"], Cell[232704, 5412, 1377, 22, 27, "Input",ExpressionUUID->"65396194-ba47-41a1-bfd2-30afc764a0dd"], Cell[234084, 5436, 1854, 46, 72, "Input",ExpressionUUID->"ba9550fc-392b-41cd-9870-c14997dbafed"], Cell[235941, 5484, 492, 10, 27, "Input",ExpressionUUID->"4b9c3dd4-19c8-4b6c-9f60-581ef19a4b93"] }, Closed]], Cell[CellGroupData[{ Cell[236470, 5499, 160, 3, 38, "Subsection",ExpressionUUID->"66afd28b-f580-40f2-ab1d-a1e947869f46"], Cell[236633, 5504, 900, 18, 27, "Input",ExpressionUUID->"91f8ecca-2e58-44b4-b65c-f9330de3ae66"], Cell[237536, 5524, 597, 15, 27, "Input",ExpressionUUID->"0034a340-1fa2-49cf-94a0-5ee247f6966a"], Cell[238136, 5541, 294, 5, 27, "Input",ExpressionUUID->"10542a1f-a53e-43f1-b326-90c5553b8c2a"], Cell[238433, 5548, 842, 23, 27, "Input",ExpressionUUID->"a8fbbeb5-886e-45cd-936b-c45a66e7aa9e"], Cell[239278, 5573, 860, 24, 27, "Input",ExpressionUUID->"0280e91f-a6d9-406f-ab00-3b1749ed26b5"], Cell[240141, 5599, 993, 28, 32, "Input",ExpressionUUID->"1bc98aba-dac9-4ea4-8490-749971a7b616"], Cell[241137, 5629, 2360, 51, 53, "Input",ExpressionUUID->"cc34ef7c-6dbe-40fa-b47a-f9f441dcb0d3"], Cell[243500, 5682, 1461, 26, 27, "Input",ExpressionUUID->"ec5a62f9-cb07-4b16-b983-142ac3963670"], Cell[244964, 5710, 811, 17, 48, "Input",ExpressionUUID->"9ea867a0-6970-4605-a870-2b09a8a9bc87"], Cell[245778, 5729, 655, 15, 27, "Input",ExpressionUUID->"e2c5f4bc-43a9-4131-9092-e9138138ce44"], Cell[246436, 5746, 255, 4, 27, "Input",ExpressionUUID->"3ac0b1c9-30ff-4706-8b2f-0daa32fc1b7e"], Cell[246694, 5752, 1239, 35, 27, "Input",ExpressionUUID->"db259c83-f156-4b2b-aca3-de1d01a49e95"], Cell[247936, 5789, 2746, 79, 123, "Input",ExpressionUUID->"8cd3b1de-68b1-4652-a162-6b090fc37590"], Cell[250685, 5870, 1754, 43, 72, "Input",ExpressionUUID->"9970887a-0428-45a5-8181-dd5e56a8e31a"], Cell[252442, 5915, 439, 8, 27, "Input",ExpressionUUID->"a17d4ce1-fe07-4bad-a2e9-3ea827c395ef"] }, Closed]], Cell[CellGroupData[{ Cell[252918, 5928, 211, 4, 38, "Subsection",ExpressionUUID->"96d408fb-f1c8-434a-90e1-fdea94cb786e"], Cell[253132, 5934, 949, 18, 28, "Input",ExpressionUUID->"4b4c2ec0-15a2-45f9-88a7-f00cad117989"], Cell[254084, 5954, 644, 15, 28, "Input",ExpressionUUID->"fd4630b0-589d-48fc-8e5f-201a22f34466"], Cell[254731, 5971, 340, 5, 28, "Input",ExpressionUUID->"8e6d0dfd-6454-47a3-9b72-2eece97625b7"], Cell[255074, 5978, 1135, 31, 28, "Input",ExpressionUUID->"42480e1c-df2c-4c77-a303-7306d3526e34"], Cell[256212, 6011, 1197, 32, 28, "Input",ExpressionUUID->"c8d0907d-8e73-4d52-b6a2-e861bf04cc74"], Cell[257412, 6045, 1328, 36, 32, "Input",ExpressionUUID->"3e77d8a9-d9a3-4ff7-bc6a-f522b8824ea1"], Cell[258743, 6083, 3281, 69, 53, "Input",ExpressionUUID->"9e7cfe2d-4a5c-4b8d-9589-ad0a92c450fb"], Cell[262027, 6154, 1463, 27, 28, "Input",ExpressionUUID->"7a0df496-b5a8-4638-8bff-f764498bb1f9"], Cell[263493, 6183, 868, 19, 48, "Input",ExpressionUUID->"7d833c5d-f61f-4775-9b56-d89bc598521b"], Cell[264364, 6204, 735, 17, 27, "Input",ExpressionUUID->"998e1c25-cff4-4a1f-99e3-4afdc0f5ee1d"], Cell[265102, 6223, 310, 6, 27, "Input",ExpressionUUID->"7fe546e9-3de1-493c-8231-218e620333f3"], Cell[265415, 6231, 1417, 41, 48, "Input",ExpressionUUID->"64cf2943-8185-47e1-b396-99cff3998851"], Cell[266835, 6274, 178, 4, 27, "Input",ExpressionUUID->"35b9f060-be60-4061-89db-dc30a01ab22e"], Cell[267016, 6280, 1839, 46, 72, "Input",ExpressionUUID->"548568e7-4e57-4b8e-8a5d-f3fcb236bb65"], Cell[268858, 6328, 487, 10, 27, "Input",ExpressionUUID->"f62348a3-aa7a-4568-acf5-a6f840dc5307"], Cell[269348, 6340, 1873, 49, 72, "Input",ExpressionUUID->"b11329de-3c58-4555-b3d4-ff126824b21e"], Cell[271224, 6391, 341, 8, 27, "Input",ExpressionUUID->"77836a2c-fac0-4f84-bb7a-56b14d7bcab4"] }, Closed]], Cell[CellGroupData[{ Cell[271602, 6404, 166, 3, 38, "Subsection",ExpressionUUID->"f63965c0-0312-4951-a10f-2e08913e4d42"], Cell[271771, 6409, 1982, 60, 48, "Input",ExpressionUUID->"e5adb368-73bb-44cc-b62a-e93d1cca2c6e"], Cell[273756, 6471, 341, 7, 28, "Input",ExpressionUUID->"9d92ad06-e5d8-41f7-9a52-7bf087179751"], Cell[274100, 6480, 675, 17, 28, "Input",ExpressionUUID->"454c593b-a8c0-4ba8-8bd0-14bdf10290a3"], Cell[274778, 6499, 353, 8, 28, "Input",ExpressionUUID->"b2cbd333-a4e4-4eef-9685-6fe25eb047b3"] }, Closed]] }, Closed]] }, Open ]] } ] *)