(* 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[ 223675, 5380] NotebookOptionsPosition[ 204022, 5133] NotebookOutlinePosition[ 204535, 5152] CellTagsIndexPosition[ 204492, 5149] 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 ]] }, Closed]], 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[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[61]:=",ExpressionUUID->"980a1573-88cf-4917-88bc-c1dbb49d1b83"], Cell[BoxData[ RowBox[{"nBR", "=", RowBox[{"Length", "[", RowBox[{"DataBR", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.8757114099543405`*^9, 3.8757114160843363`*^9}}, CellLabel->"In[62]:=",ExpressionUUID->"54e70c49-4f26-48b1-abfc-14877e4d3bb9"], Cell[CellGroupData[{ Cell["Contamination", "Subsection", CellChangeTimes->{{3.8709419566949797`*^9, 3.870941959869384*^9}, 3.8709420359170327`*^9},ExpressionUUID->"db6dd233-28c1-46ce-99c3-\ 4206c96e4105"], Cell[BoxData[ RowBox[{"DataAll", "=", "DataBR"}]], "Input", CellChangeTimes->{{3.885303593735478*^9, 3.885303601126498*^9}}, CellLabel->"In[63]:=",ExpressionUUID->"7d28f777-8ad8-4b2d-a652-b29e73251dbf"], Cell[BoxData[ RowBox[{"n", "=", "nBR"}]], "Input", CellChangeTimes->{{3.8770884138340664`*^9, 3.877088416334715*^9}, { 3.8853036125486765`*^9, 3.885303614955123*^9}}, CellLabel->"In[64]:=",ExpressionUUID->"d8ad62c2-5ddc-41be-b43e-02c255fe0644"], 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[65]:=",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[66]:=",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", ",", "200"}], "}"}], ",", 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}}, CellLabel-> "In[356]:=",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 ]] }, Closed]], 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[BoxData["n"], "Input", CellChangeTimes->{3.907662033768695*^9}, CellLabel->"In[11]:=",ExpressionUUID->"83183861-c646-4b34-874d-1eae313f5ace"], Cell[BoxData[ RowBox[{"n2", "=", "96"}]], "Input", CellChangeTimes->{{3.9076620402843475`*^9, 3.907662048722001*^9}}, CellLabel->"In[12]:=",ExpressionUUID->"28304e08-d409-4ca5-88e4-0447e92d232e"], 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[ 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[69]:=",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[70]:=",ExpressionUUID->"8041e7f2-9819-4b35-92c1-327564af0ec1"], 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[ 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[ 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[ 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[ 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[{"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[289]:=",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[269]:=",ExpressionUUID->"88bf9ef2-5d86-4be2-b04d-c6aca8b861d1"], 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[112]:=",ExpressionUUID->"9bfeb6d6-3d96-4601-8511-2a9cf47055ef"], 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[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[291]:=",ExpressionUUID->"6e8757a2-a500-478a-a4c4-51c3111381a4"], 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[310]:=",ExpressionUUID->"c3dc6b93-fd07-4455-95dd-7f04d33c8ea0"], 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[294]:=",ExpressionUUID->"35d99eab-bd3d-4b02-b4d0-d8e979ab9d4d"], 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[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[433]:=",ExpressionUUID->"8c5e49a0-51c9-4d71-b270-951b7ee47add"], 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[276]:=",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[277]:=",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"] }, Closed]], 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]] }, Closed]], 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 ]] }, Closed]], Cell[CellGroupData[{ Cell[7820, 242, 151, 3, 53, "Section",ExpressionUUID->"9c344c06-58c8-4128-8d89-219690e1ae32"], Cell[7974, 247, 492, 14, 196, "Text",ExpressionUUID->"ddbec865-54cf-447b-a02a-37d7cdd5e972"], Cell[8469, 263, 513, 10, 28, "Input",ExpressionUUID->"980a1573-88cf-4917-88bc-c1dbb49d1b83"], Cell[8985, 275, 292, 6, 28, "Input",ExpressionUUID->"54e70c49-4f26-48b1-abfc-14877e4d3bb9"], Cell[CellGroupData[{ Cell[9302, 285, 188, 3, 54, "Subsection",ExpressionUUID->"db6dd233-28c1-46ce-99c3-4206c96e4105"], Cell[9493, 290, 205, 3, 28, "Input",ExpressionUUID->"7d28f777-8ad8-4b2d-a652-b29e73251dbf"], Cell[9701, 295, 249, 4, 28, "Input",ExpressionUUID->"d8ad62c2-5ddc-41be-b43e-02c255fe0644"], Cell[9953, 301, 898, 18, 28, "Input",ExpressionUUID->"3f170062-35df-41b4-ad55-16984b8c95b3"], Cell[10854, 321, 600, 15, 28, "Input",ExpressionUUID->"0f1e731c-9ae9-4b51-a5fc-1464839c4b4f"], Cell[11457, 338, 1953, 42, 53, "Input",ExpressionUUID->"93adb5a8-31bc-47c2-9007-b0ca9312aeba"], Cell[13413, 382, 177, 3, 28, "Input",ExpressionUUID->"52e5ec29-b98a-4c54-b810-7f6258850f29"] }, Open ]], Cell[CellGroupData[{ Cell[13627, 390, 156, 3, 54, "Subsection",ExpressionUUID->"251fb970-e571-4ea5-af54-71a1ac49be81"], Cell[13786, 395, 845, 17, 28, "Input",ExpressionUUID->"575b742e-f6ff-42b1-9c1f-dd0ac86b7797"], Cell[14634, 414, 547, 14, 28, "Input",ExpressionUUID->"74bb772b-acfd-4111-8f3b-66b66a492dce"], Cell[15184, 430, 1641, 37, 53, "Input",ExpressionUUID->"73f1e0f4-fc18-48e7-80f0-9136d9878e48"], Cell[16828, 469, 175, 2, 28, "Input",ExpressionUUID->"30dcb392-f692-4697-be0c-86025840ddf8"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[17052, 477, 210, 4, 53, "Section",ExpressionUUID->"c72d7ca5-a1cb-4eec-a1db-1087298cfd1f"], Cell[CellGroupData[{ Cell[17287, 485, 160, 3, 54, "Subsection",ExpressionUUID->"d4d8a613-d3ca-4a7e-b8dd-99e76939338b"], Cell[17450, 490, 393, 7, 28, "Input",ExpressionUUID->"a3644006-c726-4b08-a19d-da718b514fa2"], Cell[17846, 499, 1035, 20, 28, "Input",ExpressionUUID->"6738a859-1b22-42cf-b082-a48fda9110c8"], Cell[18884, 521, 726, 17, 28, "Input",ExpressionUUID->"e2d9512f-534c-404e-8f63-766e589a7778"], Cell[19613, 540, 1392, 20, 28, "Input",ExpressionUUID->"919a2a64-fcd6-4a02-bb5f-c4a64de8d9f1"], Cell[21008, 562, 847, 24, 28, "Input",ExpressionUUID->"e31eb85c-ab8e-4ea3-9b33-b8a95000e4ad"], Cell[21858, 588, 865, 25, 28, "Input",ExpressionUUID->"6ab1d067-a4b2-4f2e-b517-208c21e9bf9d"], Cell[22726, 615, 4586, 82, 31, "Input",ExpressionUUID->"cd1e4f9f-3a61-44bb-ac03-b564a3cecf7f"], Cell[27315, 699, 1445, 40, 31, "Input",ExpressionUUID->"1adb5054-3273-443a-8d09-ddc4fb505033"], Cell[28763, 741, 1673, 30, 28, "Input",ExpressionUUID->"3ed0b713-0c5b-4ea2-b5a3-8672433c3d83"], Cell[30439, 773, 897, 19, 48, "Input",ExpressionUUID->"9105c868-3b2a-4597-8225-05d441f766fc"], Cell[31339, 794, 841, 19, 28, "Input",ExpressionUUID->"c4d5c03b-8dd4-42f8-9de4-afb63c3067bf"], Cell[32183, 815, 259, 5, 28, "Input",ExpressionUUID->"57a46e14-df0e-4679-80dc-0c271f6540c5"], Cell[32445, 822, 2575, 63, 105, "Input",ExpressionUUID->"a2f1540a-8e55-491f-8d08-eb3227b3e956"], Cell[35023, 887, 1241, 35, 28, "Input",ExpressionUUID->"1f2b68f9-5d7a-4ed7-ac66-7cf93ec5aafc"], Cell[36267, 924, 3516, 99, 124, "Input",ExpressionUUID->"8e8b57ef-6f28-48ad-be27-d4173bae4035"], Cell[39786, 1025, 153, 3, 35, "Text",ExpressionUUID->"11bab72b-c843-498d-9164-6321269a8360"], Cell[39942, 1030, 1020, 28, 28, "Input",ExpressionUUID->"1fa3207b-9d89-47ac-bfa1-bdd2a6414e32"], Cell[40965, 1060, 1432, 23, 28, "Input",ExpressionUUID->"bec225a2-9ef8-4ad0-8be2-c60327f8742f"], Cell[42400, 1085, 1997, 48, 53, "Input",ExpressionUUID->"e9485626-019c-4a45-b231-29b0cbfff40f"], Cell[44400, 1135, 393, 9, 28, "Input",ExpressionUUID->"7f856a76-b2fa-4725-a20a-a52ee624559e"] }, Closed]], Cell[CellGroupData[{ Cell[44830, 1149, 211, 4, 38, "Subsection",ExpressionUUID->"898d8142-4872-4e3e-b06a-f54f94a176e7"], Cell[45044, 1155, 255, 5, 28, "Input",ExpressionUUID->"cc359a44-f488-4c9d-8a11-5974229044a0"], Cell[45302, 1162, 135, 3, 28, "Input",ExpressionUUID->"26f69913-3c5b-4347-add1-4130aec98328"], Cell[45440, 1167, 1139, 21, 28, "Input",ExpressionUUID->"591fa2db-2ae7-4594-b898-ef97114f8d2a"], Cell[46582, 1190, 836, 18, 28, "Input",ExpressionUUID->"2e275371-0b11-4809-8d63-0fc8848217d7"], Cell[47421, 1210, 253, 5, 28, "Input",ExpressionUUID->"96b5e056-1cbc-4e35-b45f-902d0be5a8cf"], Cell[47677, 1217, 593, 10, 28, "Input",ExpressionUUID->"c8410cea-0d57-4af9-8faa-456d7cfb36f1"], Cell[48273, 1229, 1139, 32, 28, "Input",ExpressionUUID->"7b9b9d83-1d7b-4250-a272-5215425484e7"], Cell[49415, 1263, 1185, 31, 28, "Input",ExpressionUUID->"4d5ff2a2-02e8-4315-9690-f16b5cc9b4e7"], Cell[50603, 1296, 1328, 36, 31, "Input",ExpressionUUID->"a358bd6e-2fd3-441d-aa07-e16a19918c5a"], Cell[51934, 1334, 3977, 79, 53, "Input",ExpressionUUID->"67ec7e92-a3a0-4bca-8809-a0da020b024c"], Cell[55914, 1415, 1566, 29, 28, "Input",ExpressionUUID->"fac56909-b1c8-42cb-a95a-1f5224613c2e"], Cell[57483, 1446, 3169, 54, 86, "Input",ExpressionUUID->"166a5f4a-25df-492f-bf6f-f70d88630fb2"], Cell[60655, 1502, 1028, 21, 48, "Input",ExpressionUUID->"26ebda72-b06a-45e0-8ca4-96517c355222"], Cell[61686, 1525, 1050, 23, 28, "Input",ExpressionUUID->"94d53b18-115d-43c0-a73d-0bd67be707cc"], Cell[62739, 1550, 310, 6, 28, "Input",ExpressionUUID->"8efde151-d94d-42ca-bf34-b0f3a89d6f74"], Cell[63052, 1558, 1605, 39, 86, "Input",ExpressionUUID->"72d59050-c03e-41c1-b532-0c9a976918b8"], Cell[64660, 1599, 1417, 41, 28, "Input",ExpressionUUID->"efeb5087-f51d-4c95-bc6d-86748962196b"], Cell[66080, 1642, 153, 3, 35, "Text",ExpressionUUID->"7c5c632c-b2ea-4e74-97fc-7435fb030ba7"], Cell[66236, 1647, 1218, 33, 28, "Input",ExpressionUUID->"76ece0fb-aa74-4bee-b252-701dfbcb7121"], Cell[67457, 1682, 1487, 24, 28, "Input",ExpressionUUID->"fdfd2541-f325-4eaa-935c-4e3380c865cd"], Cell[68947, 1708, 2111, 51, 53, "Input",ExpressionUUID->"93a2d356-f1fe-4709-9c12-be1d27061769"], Cell[71061, 1761, 436, 9, 28, "Input",ExpressionUUID->"7091e121-da3f-4501-a591-a4e36a5e2a4b"], Cell[71500, 1772, 1922, 50, 53, "Input",ExpressionUUID->"cb8d7e11-0f44-4528-b617-63db8ef0482e"], Cell[73425, 1824, 290, 7, 28, "Input",ExpressionUUID->"78b307fa-af54-40f7-b693-914721405c0d"] }, Closed]], Cell[CellGroupData[{ Cell[73752, 1836, 160, 3, 38, "Subsection",ExpressionUUID->"76ca0c36-0bd7-4937-8654-e248873b3420"], Cell[73915, 1841, 148, 2, 28, "Input",ExpressionUUID->"83183861-c646-4b34-874d-1eae313f5ace"], Cell[74066, 1845, 198, 3, 28, "Input",ExpressionUUID->"28304e08-d409-4ca5-88e4-0447e92d232e"], Cell[74267, 1850, 804, 11, 28, "Input",ExpressionUUID->"508e9650-f91f-463b-8b03-c59a3af177c3"], Cell[75074, 1863, 1261, 22, 28, "Input",ExpressionUUID->"1d8dc5ae-2393-4347-a397-53adb48b3c09"], Cell[76338, 1887, 903, 18, 28, "Input",ExpressionUUID->"8041e7f2-9819-4b35-92c1-327564af0ec1"], Cell[77244, 1907, 249, 4, 28, "Input",ExpressionUUID->"4d8f75bc-dfe4-464d-8b79-159764a69419"], Cell[77496, 1913, 589, 9, 28, "Input",ExpressionUUID->"d7fe5530-4ff6-43d8-917e-3f0cb9988925"], Cell[78088, 1924, 750, 11, 28, "Input",ExpressionUUID->"ecf59e9a-106f-456c-bb5c-618d896a222b"], Cell[78841, 1937, 233, 4, 28, "Input",ExpressionUUID->"3126bfd8-709b-4772-8b99-9fd8084647cc"], Cell[79077, 1943, 1189, 29, 28, "Input",ExpressionUUID->"7ffff6ce-99f9-4d8e-be7a-06fbd10e3d8d"], Cell[80269, 1974, 1304, 34, 28, "Input",ExpressionUUID->"e264287e-e5dd-4e28-a285-43d413c0112c"], Cell[81576, 2010, 7211, 124, 31, "Input",ExpressionUUID->"88bf9ef2-5d86-4be2-b04d-c6aca8b861d1"], Cell[88790, 2136, 1765, 31, 28, "Input",ExpressionUUID->"9bfeb6d6-3d96-4601-8511-2a9cf47055ef"], Cell[90558, 2169, 623, 16, 28, "Input",ExpressionUUID->"bc367c39-e0ae-4e77-ade1-1e4c742701e3"], Cell[91184, 2187, 659, 17, 28, "Input",ExpressionUUID->"962b159a-c952-4c61-a9a1-718bbbbcb9e3"], Cell[91846, 2206, 732, 18, 28, "Input",ExpressionUUID->"9481b89e-97f1-43f1-a818-72be001c0736"], Cell[92581, 2226, 650, 17, 28, "Input",ExpressionUUID->"45aeb3fc-6ee9-4aa8-bfcd-ea9a5140b64e"], Cell[93234, 2245, 3118, 53, 86, "Input",ExpressionUUID->"cc85efe8-4917-48d3-bb08-759be6ed21c3"], Cell[96355, 2300, 1311, 26, 48, "Input",ExpressionUUID->"6e8757a2-a500-478a-a4c4-51c3111381a4"], Cell[97669, 2328, 1337, 34, 31, "Input",ExpressionUUID->"c3dc6b93-fd07-4455-95dd-7f04d33c8ea0"], Cell[99009, 2364, 359, 7, 28, "Input",ExpressionUUID->"35d99eab-bd3d-4b02-b4d0-d8e979ab9d4d"], Cell[99371, 2373, 1586, 39, 67, "Input",ExpressionUUID->"5b71d522-7182-4f6c-b1b0-684d236c5535"], Cell[100960, 2414, 1586, 39, 67, "Input",ExpressionUUID->"0fe9b297-035f-46bc-9789-04d4ba180c26"], Cell[102549, 2455, 1580, 39, 67, "Input",ExpressionUUID->"c50dcf9d-9912-4926-a073-ba6a92b5e38a"], Cell[104132, 2496, 1587, 39, 67, "Input",ExpressionUUID->"b36c6b73-4644-4717-adda-729ea608f570"], Cell[105722, 2537, 1466, 41, 28, "Input",ExpressionUUID->"8c5e49a0-51c9-4d71-b270-951b7ee47add"], Cell[107191, 2580, 153, 3, 35, "Text",ExpressionUUID->"7f2a7075-9d19-4f8a-b68d-07066efd5655"], Cell[107347, 2585, 1299, 33, 28, "Input",ExpressionUUID->"835cbea5-93e6-4f43-af35-e3e53e67be79"], Cell[108649, 2620, 1535, 24, 28, "Input",ExpressionUUID->"7b2224eb-2335-433a-a22d-2b362e623c34"], Cell[110187, 2646, 2163, 51, 53, "Input",ExpressionUUID->"f7b56427-094c-4a11-a0f6-f0bc7ee8b277"], Cell[112353, 2699, 485, 10, 28, "Input",ExpressionUUID->"da24a1a5-319f-45b5-bfe2-e03b756d58a4"], Cell[112841, 2711, 2118, 53, 72, "Input",ExpressionUUID->"9c2e8333-974e-420c-b386-e8870dbb2e56"], Cell[114962, 2766, 293, 7, 28, "Input",ExpressionUUID->"5b8f49be-5b58-49ef-a707-5458dc59fead"], Cell[115258, 2775, 446, 10, 28, "Input",ExpressionUUID->"ac1e3965-9099-4015-b71b-7630442b90b8"] }, Closed]], Cell[CellGroupData[{ Cell[115741, 2790, 166, 3, 38, "Subsection",ExpressionUUID->"9bca91aa-a2f1-4d56-b884-426f694047c5"], Cell[115910, 2795, 3602, 105, 67, "Input",ExpressionUUID->"fc152712-ee36-400a-a424-9767fbd1c621"], Cell[119515, 2902, 477, 10, 28, "Input",ExpressionUUID->"976ae3e0-57b6-4f17-bc69-1484359b4d6c"], Cell[119995, 2914, 508, 15, 28, "Input",ExpressionUUID->"28e2fc1b-f9f1-42ed-a30a-75f579303514"], Cell[120506, 2931, 489, 13, 28, "Input",ExpressionUUID->"3f6348e1-0fef-41ca-ad70-bcefe4ea95bd"], Cell[120998, 2946, 487, 10, 28, "Input",ExpressionUUID->"864be332-a77f-4354-8f69-a39f487ee6ba"], Cell[121488, 2958, 5938, 168, 200, "Input",ExpressionUUID->"42406004-0047-4213-ba5e-c5607d601621"], Cell[127429, 3128, 5854, 161, 200, "Input",ExpressionUUID->"d0792500-13e2-4b2d-b73d-d3eb0e0c7e5f"] }, Closed]], Cell[CellGroupData[{ Cell[133320, 3294, 155, 3, 38, "Subsection",ExpressionUUID->"8cf1d87c-89f4-4242-a4a4-d1ac79da9065"], Cell[133478, 3299, 345, 5, 28, "Input",ExpressionUUID->"fbd3b7f1-0622-47fe-819b-e3174ee7a4af"], Cell[133826, 3306, 789, 23, 28, "Input",ExpressionUUID->"4931fa6b-24a0-4de9-8358-9929a13a1039"], Cell[134618, 3331, 806, 23, 28, "Input",ExpressionUUID->"1018d7f9-8778-4c69-8363-10123b67c0e6"], Cell[135427, 3356, 938, 27, 31, "Input",ExpressionUUID->"acb2c888-3248-4660-90d6-24e25e67ccd9"], Cell[136368, 3385, 2626, 56, 31, "Input",ExpressionUUID->"add0452d-0f32-4abe-9d7c-2a8acf596353"], Cell[138997, 3443, 1781, 44, 31, "Input",ExpressionUUID->"f476cebe-9218-4d02-acf6-89cd076a668b"], Cell[140781, 3489, 254, 4, 28, "Input",ExpressionUUID->"4a9d94fb-fd4b-4a8a-8546-fb8d42ab4015"], Cell[141038, 3495, 1380, 25, 28, "Input",ExpressionUUID->"d87c187a-9670-4a1c-a83a-fe19bb88633c"], Cell[142421, 3522, 679, 15, 48, "Input",ExpressionUUID->"9c5934b0-179f-45d6-97c9-3fc57e8e5efb"], Cell[143103, 3539, 349, 5, 28, "Input",ExpressionUUID->"86ba14f5-0ec5-4759-bfcb-1e5b167a4368"], Cell[143455, 3546, 696, 15, 28, "Input",ExpressionUUID->"22a9ea35-674f-41a0-91e3-d0ab3d537c4f"], Cell[144154, 3563, 308, 6, 28, "Input",ExpressionUUID->"597b583c-03fa-42e3-b48e-cb6d8b30e33d"], Cell[144465, 3571, 1329, 38, 28, "Input",ExpressionUUID->"dc637d05-948b-4e9c-902b-2879c62737a3"], Cell[145797, 3611, 153, 3, 35, "Text",ExpressionUUID->"f1614df4-cb52-445d-bbc7-8abd06148c4a"], Cell[145953, 3616, 923, 26, 28, "Input",ExpressionUUID->"097d0611-bab5-45cf-953e-507ade9e8796"], Cell[146879, 3644, 1372, 22, 28, "Input",ExpressionUUID->"55c9bd54-93f6-4d7c-aa86-732147512f0c"], Cell[148254, 3668, 1807, 45, 53, "Input",ExpressionUUID->"78076fd0-a60f-4a22-8db5-5bfac7cb10b4"], Cell[150064, 3715, 545, 11, 28, "Input",ExpressionUUID->"7bbb9ee2-3ea8-479c-b137-646676e9d40b"] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[150658, 3732, 151, 3, 53, "Section",ExpressionUUID->"d335295a-360c-4ea8-8148-12a2a7be3e4e"], Cell[CellGroupData[{ Cell[150834, 3739, 155, 3, 54, "Subsection",ExpressionUUID->"cd9101aa-571f-406e-b312-a006b1c92f75"], Cell[150992, 3744, 248, 5, 27, "Input",ExpressionUUID->"bed05695-006c-4eb6-878c-65a5ce4266ec"], Cell[151243, 3751, 793, 24, 27, "Input",ExpressionUUID->"1879b5b4-edfd-4554-9894-8a66c4454fb6"], Cell[152039, 3777, 806, 23, 27, "Input",ExpressionUUID->"63a1013e-93a8-4fb9-8ce3-cb23f701b3b0"], Cell[152848, 3802, 938, 27, 32, "Input",ExpressionUUID->"2e13a3de-eed2-4653-a637-d329f7322a8d"], Cell[153789, 3831, 2079, 48, 32, "Input",ExpressionUUID->"b4d5036b-b7eb-45ad-aa98-48ef609fe014"], Cell[155871, 3881, 254, 4, 27, "Input",ExpressionUUID->"512de362-116b-49b3-a5a3-9376312c59ce"], Cell[156128, 3887, 1384, 26, 27, "Input",ExpressionUUID->"e2c58dbd-4bd7-45a8-bcda-e9bcc73e5b5e"], Cell[157515, 3915, 683, 16, 48, "Input",ExpressionUUID->"c867c94f-59e0-4ce0-aed0-5a3a04d1156c"], Cell[158201, 3933, 632, 16, 27, "Input",ExpressionUUID->"de9ca565-4254-45cb-9c47-ad85f95c5d08"], Cell[158836, 3951, 308, 6, 27, "Input",ExpressionUUID->"82be80d3-9d7c-4d4d-b14a-843b3fbc4133"], Cell[159147, 3959, 1307, 38, 27, "Input",ExpressionUUID->"e7acdc00-60c1-43ac-a816-4a2138f6c147"], Cell[160457, 3999, 153, 3, 33, "Text",ExpressionUUID->"9fccfbc0-db4c-4aae-aaae-9360d4e2cefd"], Cell[160613, 4004, 939, 27, 27, "Input",ExpressionUUID->"5ad82bff-0fbd-4410-b058-72e8687a6875"], Cell[161555, 4033, 1377, 22, 27, "Input",ExpressionUUID->"65396194-ba47-41a1-bfd2-30afc764a0dd"], Cell[162935, 4057, 1854, 46, 72, "Input",ExpressionUUID->"ba9550fc-392b-41cd-9870-c14997dbafed"], Cell[164792, 4105, 492, 10, 27, "Input",ExpressionUUID->"4b9c3dd4-19c8-4b6c-9f60-581ef19a4b93"] }, Closed]], Cell[CellGroupData[{ Cell[165321, 4120, 160, 3, 38, "Subsection",ExpressionUUID->"66afd28b-f580-40f2-ab1d-a1e947869f46"], Cell[165484, 4125, 900, 18, 27, "Input",ExpressionUUID->"91f8ecca-2e58-44b4-b65c-f9330de3ae66"], Cell[166387, 4145, 597, 15, 27, "Input",ExpressionUUID->"0034a340-1fa2-49cf-94a0-5ee247f6966a"], Cell[166987, 4162, 294, 5, 27, "Input",ExpressionUUID->"10542a1f-a53e-43f1-b326-90c5553b8c2a"], Cell[167284, 4169, 842, 23, 27, "Input",ExpressionUUID->"a8fbbeb5-886e-45cd-936b-c45a66e7aa9e"], Cell[168129, 4194, 860, 24, 27, "Input",ExpressionUUID->"0280e91f-a6d9-406f-ab00-3b1749ed26b5"], Cell[168992, 4220, 993, 28, 32, "Input",ExpressionUUID->"1bc98aba-dac9-4ea4-8490-749971a7b616"], Cell[169988, 4250, 2360, 51, 53, "Input",ExpressionUUID->"cc34ef7c-6dbe-40fa-b47a-f9f441dcb0d3"], Cell[172351, 4303, 1461, 26, 27, "Input",ExpressionUUID->"ec5a62f9-cb07-4b16-b983-142ac3963670"], Cell[173815, 4331, 811, 17, 48, "Input",ExpressionUUID->"9ea867a0-6970-4605-a870-2b09a8a9bc87"], Cell[174629, 4350, 655, 15, 27, "Input",ExpressionUUID->"e2c5f4bc-43a9-4131-9092-e9138138ce44"], Cell[175287, 4367, 255, 4, 27, "Input",ExpressionUUID->"3ac0b1c9-30ff-4706-8b2f-0daa32fc1b7e"], Cell[175545, 4373, 1239, 35, 27, "Input",ExpressionUUID->"db259c83-f156-4b2b-aca3-de1d01a49e95"], Cell[176787, 4410, 2746, 79, 123, "Input",ExpressionUUID->"8cd3b1de-68b1-4652-a162-6b090fc37590"], Cell[179536, 4491, 1754, 43, 72, "Input",ExpressionUUID->"9970887a-0428-45a5-8181-dd5e56a8e31a"], Cell[181293, 4536, 439, 8, 27, "Input",ExpressionUUID->"a17d4ce1-fe07-4bad-a2e9-3ea827c395ef"] }, Closed]], Cell[CellGroupData[{ Cell[181769, 4549, 211, 4, 38, "Subsection",ExpressionUUID->"96d408fb-f1c8-434a-90e1-fdea94cb786e"], Cell[181983, 4555, 949, 18, 28, "Input",ExpressionUUID->"4b4c2ec0-15a2-45f9-88a7-f00cad117989"], Cell[182935, 4575, 644, 15, 28, "Input",ExpressionUUID->"fd4630b0-589d-48fc-8e5f-201a22f34466"], Cell[183582, 4592, 340, 5, 28, "Input",ExpressionUUID->"8e6d0dfd-6454-47a3-9b72-2eece97625b7"], Cell[183925, 4599, 1135, 31, 28, "Input",ExpressionUUID->"42480e1c-df2c-4c77-a303-7306d3526e34"], Cell[185063, 4632, 1197, 32, 28, "Input",ExpressionUUID->"c8d0907d-8e73-4d52-b6a2-e861bf04cc74"], Cell[186263, 4666, 1328, 36, 32, "Input",ExpressionUUID->"3e77d8a9-d9a3-4ff7-bc6a-f522b8824ea1"], Cell[187594, 4704, 3281, 69, 53, "Input",ExpressionUUID->"9e7cfe2d-4a5c-4b8d-9589-ad0a92c450fb"], Cell[190878, 4775, 1463, 27, 28, "Input",ExpressionUUID->"7a0df496-b5a8-4638-8bff-f764498bb1f9"], Cell[192344, 4804, 868, 19, 48, "Input",ExpressionUUID->"7d833c5d-f61f-4775-9b56-d89bc598521b"], Cell[193215, 4825, 735, 17, 27, "Input",ExpressionUUID->"998e1c25-cff4-4a1f-99e3-4afdc0f5ee1d"], Cell[193953, 4844, 310, 6, 27, "Input",ExpressionUUID->"7fe546e9-3de1-493c-8231-218e620333f3"], Cell[194266, 4852, 1417, 41, 48, "Input",ExpressionUUID->"64cf2943-8185-47e1-b396-99cff3998851"], Cell[195686, 4895, 178, 4, 27, "Input",ExpressionUUID->"35b9f060-be60-4061-89db-dc30a01ab22e"], Cell[195867, 4901, 1839, 46, 72, "Input",ExpressionUUID->"548568e7-4e57-4b8e-8a5d-f3fcb236bb65"], Cell[197709, 4949, 487, 10, 27, "Input",ExpressionUUID->"f62348a3-aa7a-4568-acf5-a6f840dc5307"], Cell[198199, 4961, 1873, 49, 72, "Input",ExpressionUUID->"b11329de-3c58-4555-b3d4-ff126824b21e"], Cell[200075, 5012, 341, 8, 27, "Input",ExpressionUUID->"77836a2c-fac0-4f84-bb7a-56b14d7bcab4"] }, Closed]], Cell[CellGroupData[{ Cell[200453, 5025, 166, 3, 38, "Subsection",ExpressionUUID->"f63965c0-0312-4951-a10f-2e08913e4d42"], Cell[200622, 5030, 1982, 60, 48, "Input",ExpressionUUID->"e5adb368-73bb-44cc-b62a-e93d1cca2c6e"], Cell[202607, 5092, 341, 7, 28, "Input",ExpressionUUID->"9d92ad06-e5d8-41f7-9a52-7bf087179751"], Cell[202951, 5101, 675, 17, 28, "Input",ExpressionUUID->"454c593b-a8c0-4ba8-8bd0-14bdf10290a3"], Cell[203629, 5120, 353, 8, 28, "Input",ExpressionUUID->"b2cbd333-a4e4-4eef-9685-6fe25eb047b3"] }, Closed]] }, Closed]] }, Open ]] } ] *)