(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.3' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 331041, 7741] NotebookOptionsPosition[ 247055, 6373] NotebookOutlinePosition[ 247454, 6389] CellTagsIndexPosition[ 247411, 6386] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"Get", "[", "\"\<~/doc/research/first_order_singularities/mma/schofield.wl\>\"", "]"}]], "Input", CellChangeTimes->{{3.817548726786456*^9, 3.817548838429791*^9}, { 3.817579586526174*^9, 3.817579588547625*^9}, {3.8176251109891653`*^9, 3.817625112168749*^9}, {3.8176254615736647`*^9, 3.817625462650483*^9}, 3.827832304560932*^9, {3.8278486734515533`*^9, 3.827848673995721*^9}, { 3.8278488730224733`*^9, 3.827848876357965*^9}, {3.827916449928692*^9, 3.827916450999913*^9}, {3.839304619292111*^9, 3.839304619735818*^9}, { 3.839409661432328*^9, 3.839409662064075*^9}, {3.839479110706854*^9, 3.839479110850239*^9}, {3.839569665835891*^9, 3.839569666219857*^9}, { 3.83957102205329*^9, 3.8395710222207737`*^9}, {3.841389917784724*^9, 3.841389919112598*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"], Cell[BoxData[{ RowBox[{ RowBox[{"SetAttributes", "[", RowBox[{"untilSuccess", ",", "HoldAll"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"untilSuccess", "[", "e_", "]"}], ":=", RowBox[{"Quiet", "[", RowBox[{"Check", "[", RowBox[{"e", ",", RowBox[{"untilSuccess", "[", "e", "]"}]}], "]"}], "]"}]}]}], "Input", CellChangeTimes->{{3.829364059865052*^9, 3.829364117072966*^9}, { 3.82936416412193*^9, 3.829364169770522*^9}}, CellLabel->"In[2]:=",ExpressionUUID->"ea42bd52-8968-49ef-a999-7ab838217fa1"], Cell[BoxData[ RowBox[{ RowBox[{"randomEval", "[", "eq_", "]"}], ":=", RowBox[{"eq", "/.", RowBox[{ RowBox[{"Around", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":>", RowBox[{"RandomVariate", "[", RowBox[{"NormalDistribution", "[", RowBox[{"x", ",", "y"}], "]"}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.840877914184023*^9, 3.840877925544536*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"2fdffe9d-9220-4c97-866d-0a1f5e3200a1"], Cell[CellGroupData[{ Cell["Matching all", "Section", CellChangeTimes->{{3.817119832436002*^9, 3.817119834596055*^9}, { 3.8322384028059473`*^9, 3.83223840439787*^9}},ExpressionUUID->"bb531fce-8a9d-4a5f-8d6a-\ ec66b9fbf698"], Cell[, "Input",ExpressionUUID->"c239eacb-bd0a-49ce-8667-3aa72e4020c9"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"3d566693-1b4e-4bc5-b33b-b8036e1e4822"], Cell[, "Output",ExpressionUUID->"86062308-fdba-4d87-8210-7ea083d14ee1"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"3b9512c4-4741-4838-844f-dc1843a98be2"], Cell[, "Output",ExpressionUUID->"2720c35a-79b8-423b-a048-5c7e2711f16a"] }, Open ]], Cell[, "Input",ExpressionUUID->"34ec14f2-e69a-4233-afa7-8b9340ca265f"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"3c891175-2642-465d-b121-e5989a86c957"], Cell[, "Output",ExpressionUUID->"38fb3ec6-64aa-4b63-b20b-7d35d2e4572a"] }, Open ]], Cell[, "Input",ExpressionUUID->"a96db868-d41f-433d-88d3-73a2b34157b2"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"9e3392d7-9445-477b-9e57-3faef08acef1"], Cell[, "Output",ExpressionUUID->"6c61aadd-c965-4458-a165-ef7680648fc1"] }, Open ]], Cell[, "Input",ExpressionUUID->"fb46f7c2-5761-4a64-9a5f-872dd3265e1c"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"3d7346aa-9d8e-46fd-bcb4-ca52fff0d32a"], Cell[, "Output",ExpressionUUID->"d3885981-ee95-4189-85fb-672f5e65f744"] }, Open ]], Cell[, "Input",ExpressionUUID->"1a9cafff-78bf-40d5-9387-97742820a6dc"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"7bdef841-d628-418c-9bec-b16ca8655e30"], Cell[, "Output",ExpressionUUID->"1db50035-262f-41c8-897c-83b291232a25"] }, Open ]], Cell[, "Input",ExpressionUUID->"53343c2f-4579-48fe-afdc-6555d61fefc7"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"19f0837b-60bb-491b-b21f-34926c9efae8"], Cell[, "Output",ExpressionUUID->"1588dece-8475-4068-8ebd-5f1063867c03"] }, Open ]], Cell[, "Input",ExpressionUUID->"3c48ca79-1fa5-4b7f-9423-94e659aae362"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"c0c5581e-24f4-4c1d-bac2-acde9933d21a"], Cell[, "Output",ExpressionUUID->"730ed06e-f4a9-43d9-985a-dd73afa5028a"] }, Open ]], Cell[, "Input",ExpressionUUID->"89ac8434-0e5c-4a82-ae51-65e191e4c98a"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"a4de7394-b723-4a62-9094-2b462110711f"], Cell[, "Output",ExpressionUUID->"e3a248c2-6739-443e-a469-171bafbb4a39"] }, Open ]], Cell[, "Input",ExpressionUUID->"ec5df7b8-ae45-47d9-baba-654f2daf3d01"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"c28fec6d-42be-4754-8ff5-9f7327a42e34"], Cell[, "Output",ExpressionUUID->"2f826db1-6725-439c-8bf9-7196d08ae46b"] }, Open ]], Cell[, "Input",ExpressionUUID->"454bbf34-d098-476d-8e27-8e882ae07c56"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"fdda266d-54c1-43db-b6a7-a3d02502cd24"], Cell[, "Message",ExpressionUUID->"b4090613-0332-49f1-a196-74002379eeeb"], Cell[, "Output",ExpressionUUID->"1249aaa6-7d54-428c-8361-a89fa22f87ac"] }, Open ]], Cell[, "Input",ExpressionUUID->"7669b7fe-6525-47ea-bd17-bc39d72d2039"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"0d0e5cda-a6fc-4708-80da-b887f6838668"], Cell[, "Output",ExpressionUUID->"1661a955-9e84-44df-abe5-8a178d2f912d"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"9112def6-5ff6-4224-8356-f50fa415d2f3"], Cell[, "Message",ExpressionUUID->"311d3fb6-3107-4bba-ae21-2a9d8e2be9ff"], Cell[, "Message",ExpressionUUID->"382c6f48-8be5-4040-8352-c107dd4acfcb"], Cell[, "Message",ExpressionUUID->"db776803-ed60-4310-a108-852c80375404"], Cell[, "Message",ExpressionUUID->"c054e628-2d2f-4c9d-b97f-3211d4a28e43"], Cell[, "Message",ExpressionUUID->"be1896cd-ee42-475f-8df0-db9105e2a00f"], Cell[, "Message",ExpressionUUID->"1c3e5739-b049-43f2-a094-b9e364dedc14"], Cell[, "Message",ExpressionUUID->"8781108e-dab4-4d69-bb59-846e2cf30536"], Cell[, "Message",ExpressionUUID->"b4b28af2-b0fd-4fee-8ea1-a1b8599ad243"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"0b79b970-7045-4be7-b49f-562e6773070c"], Cell[, "Output",ExpressionUUID->"a1b2e831-9c0c-4c48-9c35-6781403e92e0"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"71c1d9b7-0cf0-408f-a132-11f858bc49f0"], Cell[, "Output",ExpressionUUID->"5e583bca-872b-4fe1-bd8e-e1bcce981a2c"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"7b03bcdf-5941-4689-8045-07928a4af682"], Cell[, "Output",ExpressionUUID->"d7ee8225-65ff-4705-be5c-8b8dbe6fa41b"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"fa8135b4-fdf8-4590-be4e-73b4dd086cab"], Cell[, "Output",ExpressionUUID->"04ca030c-e442-4c61-8c4a-d152e5c203ae"] }, Open ]], Cell[, "Input",ExpressionUUID->"29cea7b5-4fca-4cb4-8837-f04711b34c21"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"53b7755a-6f34-4db5-8104-878ea3587d8e"], Cell[, "Output",ExpressionUUID->"616ea1b5-1320-415b-a819-c2f94d93d7ea"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"76c95b5f-6514-4856-b4c5-cd646cd37488"], Cell[, "Output",ExpressionUUID->"74073881-f4b4-4f07-8f9a-cd7d59bc3693"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"02a5f468-5569-4ef4-9ad7-428f9cf2d754"], Cell[, "Output",ExpressionUUID->"724a73d3-c790-4baa-985a-a709e0354abe"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"7273c588-8e35-4fbd-8ebc-898cedb2387b"], Cell[, "Output",ExpressionUUID->"6bcb7016-9e42-477f-b8aa-2bf28ae5ec18"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"4696ee08-41ed-480a-83d4-b7dcd649182e"], Cell[, "Output",ExpressionUUID->"581be5fa-833d-44bd-98d5-dde94e4dd98c"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"73fa0a9d-2aa5-49d6-b995-2f0dc2997c86"], Cell[, "Output",ExpressionUUID->"596e78c8-422c-425b-b6d3-1d4f2a3368df"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"d049de83-a67f-4f70-9161-28ea593a16b8"], Cell[, "Output",ExpressionUUID->"97929a1a-4107-4c3b-91b5-b4aea31a6a12"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"ff8b8a76-8ef5-4079-b3c2-caca5f90a239"], Cell[, "Output",ExpressionUUID->"ceca4cf7-358a-4475-9d74-be5382099c4a"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"84fba399-0d44-478f-82db-cf6e8f6da218"], Cell[, "Output",ExpressionUUID->"fc27ce97-44b5-4fd9-9fc6-8e3a80767ebc"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"5e586711-0483-46d1-bccb-b6897d71c1e8"], Cell[, "Output",ExpressionUUID->"2fa1caa4-ef1f-4ffd-8afc-94b16ed218ad"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"0bf0ad7a-0c38-45b3-944f-2cd642717885"], Cell[, "Output",ExpressionUUID->"cb46a863-90ee-473f-82db-5dc2a45b693e"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"f15d8a52-1992-4696-8ead-3c4153434e55"], Cell[, "Output",ExpressionUUID->"7c16b4f6-053a-49c7-adfb-2ff4cd3d1825"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"f9fe281b-b610-448a-b868-789cd1438874"], Cell[, "Output",ExpressionUUID->"cd6820b3-ec18-4309-a325-d9260e362bf3"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"379795e2-1f10-4c9d-aca9-574975c0b53e"], Cell[, "Output",ExpressionUUID->"e32fce1f-84cc-4e58-9ec5-270c393270f4"] }, Open ]], Cell[, "Input",ExpressionUUID->"614f63fe-75a0-4c56-b782-48ad98bc3c89"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"b56cc8a2-a504-4115-9171-a6a6d7088e3d"], Cell[, "Output",ExpressionUUID->"56bd1e88-9615-4515-9caf-f2b140d00ea4"] }, Open ]], Cell[, "Input",ExpressionUUID->"8507c1e3-d3a8-4bd7-b4aa-90d91d45805d"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"de38480a-2d94-4587-b72d-6e029e15ee96"], Cell[, "Output",ExpressionUUID->"43225297-d195-4377-8f95-86dbf3b45b01"] }, Open ]], Cell[, "Input",ExpressionUUID->"2ec9732b-3292-49d0-bac5-10ca2b2e2d27"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"139619cc-039b-4609-af7c-bff6ef22fb47"], Cell[, "Output",ExpressionUUID->"afa14344-bd55-431e-aa6c-c70efe6c5a4d"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"0187bca3-1d0a-4623-aec5-953f437b51fd"], Cell[, "Output",ExpressionUUID->"598fc733-e306-4afa-b2be-5b73d49e16c2"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"73d2b785-99f4-4bfb-b83d-3176ccfa253d"], Cell[, "Output",ExpressionUUID->"d9b0e840-276e-4933-8ac7-3b44810cdfd7"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"a3876a42-f9a7-42bf-bb98-8f496b0b9429"], Cell[, "Output",ExpressionUUID->"25c6c990-0648-4b53-88ec-85fbf153b84d"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"a8eefdf0-e27a-49c2-a914-30fe2e3be695"], Cell[, "Output",ExpressionUUID->"74dd1d49-7e7f-4e72-b8c9-ce6b451108d3"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"87e7aafd-8c36-4839-935c-cc46bf1f01dd"], Cell[, "Output",ExpressionUUID->"fe7c92bd-96d2-4bd2-8311-6587e6a29f3e"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"148e9d0d-8b87-4af5-afd5-d33dbd331cbd"], Cell[, "Output",ExpressionUUID->"2cb15991-5446-4550-9d2b-990382cc6e0b"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"8daebff1-3cc2-4bf5-8cc4-604c65c548b0"], Cell[, "Output",ExpressionUUID->"9cd4be6d-9037-487d-805c-0e30c732a88f"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"ec87e975-8e91-4764-a5f8-d113176427a6"], Cell[, "Output",ExpressionUUID->"682ebcdb-8d48-4545-9fb6-2815a9591a34"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"bd4bec0c-34d4-42ea-8210-676c5a4f3b02"], Cell[, "Output",ExpressionUUID->"6744c9f9-54df-4620-86fe-20c2a1fb0a38"] }, Open ]], Cell[, "Input",ExpressionUUID->"cb5903e7-4ebd-478a-913d-f8dce03353cd"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"7f91ac8c-3dfe-4e6e-876b-c110d899b203"], Cell[, "Output",ExpressionUUID->"66d898e0-c199-4cd1-8c92-f951620499ab"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"d7af33b7-ba2b-49a3-aafc-91ee8eb488da"], Cell[, "Output",ExpressionUUID->"76e092cb-b3ca-4ad3-8371-d22bc3bdbfec"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"ba65a569-6e06-47f2-aa64-ce40ed720e16"], Cell[, "Output",ExpressionUUID->"49a28651-b01d-4119-8b17-5cececd6f4d8"] }, Open ]], Cell[, "Input",ExpressionUUID->"f53418ef-e0c9-44a5-92b0-cb484b4f96c8"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"a30a4640-3744-4c0b-9800-1073a0fa0d50"], Cell[, "Output",ExpressionUUID->"a91af46f-115e-4b5b-a963-4e64b27789f9"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"6c557c5e-e6b4-4351-9c51-9653ebaa3755"], Cell[, "Output",ExpressionUUID->"d46b93fb-0f62-45fa-a6de-37bde5cbd060"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"b157e171-c7d5-47f2-b745-8f2e8fa0198c"], Cell[, "Output",ExpressionUUID->"5a0db3ec-ac1c-432f-adee-e6747b4db94f"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"bdb84812-f388-49c2-8ac6-3080c735f5e5"], Cell[, "Output",ExpressionUUID->"b941a263-57d9-4309-b289-83857d3df95f"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"7fec8d25-6d0b-475e-a3c6-8b90b79f873e"], Cell[, "Output",ExpressionUUID->"48c117a8-371e-45ba-aa5f-facdd5f694ec"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"feb6f5a0-8271-4175-8fd5-743c24ab49d2"], Cell[, "Output",ExpressionUUID->"b00b9646-7ea6-4e6c-895b-add09ba6b344"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"5553a701-d8ac-42d8-bf96-f61247fd91d5"], Cell[, "Output",ExpressionUUID->"ff2eefd5-74bd-4633-a9f6-bb1945c40989"] }, Open ]], Cell[, "Input",ExpressionUUID->"4dc1af41-4bef-447e-a233-c8c033887359"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"e74b775a-c745-4f15-9b63-7bb00af5a487"], Cell[, "Message",ExpressionUUID->"05b00b91-b292-4f86-8ac1-2cad1d50f51c"], Cell[, "Output",ExpressionUUID->"54c0d651-a676-4819-8283-9d2b33e602fc"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"fb42dfa6-f948-472b-87e8-e4cb6e90ba26"], Cell[, "Output",ExpressionUUID->"21f29296-03a7-4cc8-b760-b71dfa22b325"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"a60f4b40-cbec-4d33-97f5-65de16370f80"], Cell[, "Output",ExpressionUUID->"820bd75e-ec9c-4db8-b5e7-96cfd532640b"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"49d01b4e-c864-4298-94b7-ace002b965d8"], Cell[, "Output",ExpressionUUID->"3156e626-6fd1-4878-b776-44c6cf7fef12"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"4cefebbf-3ee0-49eb-85d3-1f8acdd03d03"], Cell[, "Output",ExpressionUUID->"5fad1eab-bed9-4cd3-a21b-8c8758b922eb"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"82d96d28-401c-43fa-8337-b55bfd500552"], Cell[, "Output",ExpressionUUID->"1ab9ef64-9a55-4344-9cb3-5443ea2b020c"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"b2167779-1e8f-4690-a7d9-fe7d464a4815"], Cell[, "Output",ExpressionUUID->"ead509b6-b153-4829-be33-8ff5a6efcada"] }, Open ]], Cell[, "Input",ExpressionUUID->"172fdee0-af8e-4049-9dda-cfec26fad09c"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"0ea1b44d-26c0-49ba-8c54-6d51b749dcee"], Cell[, "Message",ExpressionUUID->"1820350f-3096-4479-969b-2dda88e43862"], Cell[, "Output",ExpressionUUID->"58f08fd4-743e-4318-9e82-7ecda92ce1db"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"324ac29a-a49d-4e6b-a8d8-b259afcd34c7"], Cell[, "Output",ExpressionUUID->"464153b0-04b0-46cf-82d1-649dc2c2d6a0"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"288a2ff7-5161-4fe5-8f43-122ba3a5d3f2"], Cell[, "Output",ExpressionUUID->"d5da57e7-0428-4391-af81-4f874cd963e4"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"d85908e0-a479-4a49-999f-e6e49522af2d"], Cell[, "Output",ExpressionUUID->"2f30870a-4c21-432a-b77d-85d6f131265e"] }, Open ]], Cell[, "Input",ExpressionUUID->"4fbf2b0a-5252-416a-b90a-a12f6d946efe"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"5ac27342-feda-4aa6-9098-1d0e7b78fae8"], Cell[, "Output",ExpressionUUID->"b47243ad-5432-4eb5-bbf7-870353157603"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"63fcec7c-aaff-46be-90dc-231bca0993d9"], Cell[, "Output",ExpressionUUID->"547073ca-2de1-44b5-8139-682a4eb761c9"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"8f2cfc94-a67c-484e-bbeb-610484e18a97"], Cell[, "Output",ExpressionUUID->"453285de-e47a-4bcc-96d7-ec76dfc88820"] }, Open ]], Cell[, "Input",ExpressionUUID->"59993536-91f3-449a-9e8c-58cd1f6ec74c"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"ab599d2d-27ef-4491-b1cb-534f98403e59"], Cell[, "Message",ExpressionUUID->"f4cd9634-0e29-4718-97b8-490c5f242f4a"], Cell[, "Output",ExpressionUUID->"80e0c922-0db4-48ee-96b6-33400b7fa9d7"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"f9bd15f0-d859-4863-9fe9-3ad2883e76d2"], Cell[, "Output",ExpressionUUID->"27a9c152-8a0d-4899-aa74-6a603c9665b9"] }, Open ]], Cell[, "Input",ExpressionUUID->"1282028e-7a8e-46e3-bc91-b35b1d1604ed"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"83c6d43c-fed0-4989-a06f-986a75bf7651"], Cell[, "Message",ExpressionUUID->"cf50225b-a0ef-4626-94a0-0803782ba72f"], Cell[, "Output",ExpressionUUID->"e4dd84aa-35ca-4c06-b076-812cdad95551"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"9903c113-3088-4e43-884e-783e3462a3bd"], Cell[, "Output",ExpressionUUID->"ace4a267-d48c-4a17-8b21-0b8791f1d4a8"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"85ae5ebd-4d7b-469b-b177-bd88ef9a9e54"], Cell[, "Output",ExpressionUUID->"392555db-33d5-4e50-8a31-e2a3a67d3a75"] }, Open ]], Cell[, "Input",ExpressionUUID->"d0ac4c0e-3fde-4f39-860c-119c61865e94"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"31b6196c-dff7-4ae3-ba24-930461af4520"], Cell[, "Message",ExpressionUUID->"7df3f521-17b3-470c-a210-7a61feecd5cb"], Cell[, "Output",ExpressionUUID->"ea8fe62a-dd49-4054-b383-0738f0b8f82f"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"c89d4fc8-2254-4238-b27d-107fefc31da5"], Cell[, "Output",ExpressionUUID->"d1455115-bd06-4d75-a8b5-99c39d1e90d7"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"d7824482-d74e-4fac-8224-3728d7d92b24"], Cell[, "Output",ExpressionUUID->"ad65c8a7-66e9-4c1e-b599-35bacb78e113"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"93164c6e-f8e2-4fb1-ab0b-a65d379b88ef"], Cell[, "Output",ExpressionUUID->"db3875cf-f19f-4e24-a7e4-c4017292b8fe"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"40b90456-e65f-4936-94f0-aa9e157985d1"], Cell[, "Output",ExpressionUUID->"e84b103a-4734-481c-bc68-32680f2490ae"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"802f97e2-70b5-4c0e-b977-f8a2e505bb60"], Cell[, "Output",ExpressionUUID->"13540836-8492-44db-8f61-825c10092a3b"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"9510d7f0-79c6-409e-9c06-caac79aa83b9"], Cell[, "Message",ExpressionUUID->"b9cd98f1-c229-4f5b-95ec-13d954ebd59a"], Cell[, "Message",ExpressionUUID->"ea96e00a-9fe6-4d33-80b4-d0a9eed78731"], Cell[, "Message",ExpressionUUID->"a31115cb-de8f-481d-994b-5bc9a83710b8"], Cell[, "Message",ExpressionUUID->"667a685e-0e76-4db4-8986-9eaad489f3e3"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"4c6fe8ab-4f6a-4b57-92a5-c94e403d041d"], Cell[, "Output",ExpressionUUID->"11addea4-5f17-44f9-80f6-b7d15dd56efa"] }, Open ]], Cell[, "Input",ExpressionUUID->"bc84d748-2ae9-4f3e-87ec-0fa12dfd6954"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"c099f9b5-a706-4293-9c42-f007146a13f7"], Cell[, "Message",ExpressionUUID->"94a73904-550c-43cf-8d0b-35b5cbc01228"], Cell[, "Message",ExpressionUUID->"3f893d05-e641-4bf4-9ea5-bcabdc4d6a95"], Cell[, "Message",ExpressionUUID->"53b27a41-4cd2-4652-a104-35161ad96bf2"], Cell[, "Message",ExpressionUUID->"413977e9-0c84-449f-b053-9df53b50e738"], Cell[, "Message",ExpressionUUID->"d499cd59-07fb-492e-b9f7-1ddddfebb272"], Cell[, "Message",ExpressionUUID->"395175e1-6469-49cf-a376-9be005af7add"], Cell[, "Message",ExpressionUUID->"8f65301b-fe48-42b3-9924-e0e8e3bea608"], Cell[, "Message",ExpressionUUID->"6d1c81df-b866-4446-8abe-657a6a8d929f"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"a66d45ff-8000-4c96-bcb2-2bc7343fd5de"], Cell[, "Output",ExpressionUUID->"5364b922-5bbc-4121-ab23-dc5bb4bec4cb"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"8e0288f2-5922-4dde-923e-8106073adf6c"], Cell[, "Output",ExpressionUUID->"c6c9c8e8-7cb0-4ad0-a6c6-fb0a70db55da"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"4355674b-0fd6-4516-8896-cd33a8476ab5"], Cell[, "Output",ExpressionUUID->"b8a18520-7b45-49b0-af16-64f6d0a9c819"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"ee6beea5-4d88-4650-837d-58c8d3c6363b"], Cell[, "Output",ExpressionUUID->"a27bcc82-f8f9-42d8-854c-a204a73d483f"] }, Open ]], Cell[, "Input",ExpressionUUID->"5894652c-ea9c-458f-866d-b40d1a5efb75"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"3fee7ec2-e0c4-4420-8192-c46efe85e265"], Cell[, "Output",ExpressionUUID->"2bfc8e2b-006d-4096-8c4b-8422da967dcb"] }, Open ]], Cell[, "Input",ExpressionUUID->"16683f20-3a25-47da-8c9c-58bfb1a56ae7"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"0c28b27c-3e81-49ce-9293-512f19f95aeb"], Cell[, "Output",ExpressionUUID->"a225487e-1b09-4625-b1b4-0393225de258"] }, Open ]], Cell[, "Input",ExpressionUUID->"78606265-f50f-49dc-888d-33550f059b83"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"396a3ca5-637b-4194-943d-7ec379bcf47e"], Cell[, "Output",ExpressionUUID->"032de8e5-e62b-4c2c-a2db-afe60e4c0f47"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"050da7fc-1308-4d49-81b4-1f4efc54c09a"], Cell[, "Output",ExpressionUUID->"5c8a355d-e522-4c74-8a53-b7d46e9c333f"] }, Open ]], Cell[, "Input",ExpressionUUID->"37ec5e26-c9a1-4c3e-b046-f5bdcb69b8db"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"aafc8bea-bd59-4ab7-b436-168abec75b4d"], Cell[, "Output",ExpressionUUID->"823a15e6-d4d4-45cf-b711-54e7c88841d0"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"d90b515e-65bf-42c5-a9d8-7ebc27861a0a"], Cell[, "Output",ExpressionUUID->"674ddf51-ef87-4ea3-981c-9bca8b07e0de"] }, Open ]], Cell[, "Input",ExpressionUUID->"74c29eca-8a3c-482d-b962-b5a7bc6eeeb5"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"4f2555c0-0b0b-46e3-953c-b99c2d8ef953"], Cell[, "Output",ExpressionUUID->"7ba637ff-c37f-4ab3-8f3f-c3a013477573"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"11bfaed8-b616-4bdb-acee-d6f652a0a4e6"], Cell[, "Output",ExpressionUUID->"9d9174e8-24e3-40da-860e-87b1062d7e14"] }, Open ]], Cell[, "Input",ExpressionUUID->"da646d41-2935-4f0b-94a9-796be9875f10"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"bd584363-7bad-4830-803a-025a2ac0e9a6"], Cell[, "Output",ExpressionUUID->"83698929-f178-4c4d-9569-7a23e1e9c919"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"f7b18b38-4aa7-4d26-8653-c5282fb8bc07"], Cell[, "Output",ExpressionUUID->"aeb5446a-db30-4b37-a075-fd0875fea03f"] }, Open ]], Cell[, "Input",ExpressionUUID->"6dd58649-2ccd-4fad-b61e-e6b84d8dc37c"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"47d19cd0-5c7e-4d2e-8522-f7af9f76b03d"], Cell[, "Output",ExpressionUUID->"e4c2258c-d675-43b1-8eb8-1a175227c843"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"e5291fe9-0a5c-4396-ac44-47a5f71d5568"], Cell[, "Output",ExpressionUUID->"f761d7d5-04c8-40b2-a937-6fac9575aeda"] }, Open ]], Cell[, "Input",ExpressionUUID->"034d75ed-4e94-4dfa-b0b5-fb25cd2d30d3"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"939e0991-1a33-48bb-8325-c6afb708b1bf"], Cell[, "Output",ExpressionUUID->"07c46e6f-b409-4e46-91c4-1f8deedd3b7c"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"41fa3464-11f7-47db-b9f4-c04a234b3967"], Cell[, "Output",ExpressionUUID->"e6ece27a-240d-4388-ae6d-863762fb16fc"] }, Open ]], Cell[, "Input",ExpressionUUID->"5f4959b4-0631-460c-894f-e078cc08f6c0"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"42dd11c3-40d8-4229-9f2b-ea33c98a4a3d"], Cell[, "Output",ExpressionUUID->"d656f635-4cba-4947-8345-8861516ad400"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"3b92c534-fe03-4b93-bce9-3935e73cd50a"], Cell[, "Output",ExpressionUUID->"047cfbb9-7bc7-4793-b25b-33d1e4b54f0f"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"a88f2391-1bc9-4d7a-b773-d4641b529a92"], Cell[, "Output",ExpressionUUID->"900bc96d-749d-4402-b6fc-1bde2c834df4"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"c2d3e68e-6754-4848-ad45-4d3a81a85373"], Cell[, "Message",ExpressionUUID->"7042c19d-9eb1-4c6c-b9ba-e11ecd2dad61"], Cell[, "Message",ExpressionUUID->"e96fc95a-7476-4cfa-9b6e-023e5f08ec84"], Cell[, "Message",ExpressionUUID->"697e339d-fa4d-4453-8541-d603f6be5ebf"], Cell[, "Message",ExpressionUUID->"a383bd1a-c1d9-49e6-a3ce-876ea12c3de9"] }, Open ]], Cell[, "Input",ExpressionUUID->"7baff68f-40db-4778-a165-a239cf88cc8b"], Cell[, "Input",ExpressionUUID->"54ea4ab2-b182-41d0-bc24-6dda493e24b7"], Cell[, "Input",ExpressionUUID->"b233f772-ebe4-4d6e-82dc-3e50dc9f4a60"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"326e1381-0fb5-48b8-8b67-86eb59a8de43"], Cell[, "Output",ExpressionUUID->"ffcf6638-e41b-4dc3-a888-cbc1ddb5bd70"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"a93f2c6c-20d9-4e76-bf4e-d83eb645bfe2"], Cell[, "Output",ExpressionUUID->"e009ecd9-f064-498f-9713-a517c7738512"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"355b7a05-dc53-48b3-a074-381cbbaeac81"], Cell[, "Output",ExpressionUUID->"c021a3f3-a988-4ee0-849b-500241e51534"] }, Open ]], Cell[, "Input",ExpressionUUID->"a727ff31-abf9-4fbc-b1ba-5e10e05cc6ba"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"e698d719-72a9-4ac8-adc0-f3dc6de33b29"], Cell[, "Message",ExpressionUUID->"66d8969a-eb54-4408-9ca1-e26797128b2e"], Cell[, "Output",ExpressionUUID->"c2ede9a0-b94f-4b1e-a656-779f19255c39"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"cf4b5c4b-339f-4dee-887e-9827e8e84f6a"], Cell[, "Output",ExpressionUUID->"59a5f5ab-6f64-4857-9cc3-85e34ce96d47"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"284ac71a-7465-46b2-a883-7d04bfed7c1a"], Cell[, "Output",ExpressionUUID->"8b218d9d-8ae6-4b3f-a0aa-21817c81ea81"] }, Open ]], Cell[, "Input",ExpressionUUID->"7b4489a6-2b9b-4fa0-b010-a2b21dfcde45"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"3bcb2734-3eb2-49b0-9f9e-04e4c7a4fa3a"], Cell[, "Output",ExpressionUUID->"babae66a-342f-4778-9bda-49d5d95c0e25"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"0e6a979b-40f1-49c5-87f2-c038673fb15e"], Cell[, "Output",ExpressionUUID->"067ae380-8bbe-4d24-910a-2d72ea259077"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"a0ce8c43-76ba-466b-b075-393a38369f3e"], Cell[, "Output",ExpressionUUID->"efcd0ede-5fe0-410c-85a7-f2cb4a37d0c4"] }, Open ]], Cell[, "Input",ExpressionUUID->"64ac9234-6e5e-4a0a-889d-9a4d2d9e49eb"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"d5ce1c93-2d50-4d5c-a1f8-53932ea334e0"], Cell[, "Output",ExpressionUUID->"55d1b86b-6c0e-4346-b514-6a32ca6f4162"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"4639fe6e-d305-44c1-81c3-afb4e380c88d"], Cell[, "Output",ExpressionUUID->"ee73d4b7-147b-4902-9021-472fa1cbd2dd"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"487c1f18-3c65-4275-b382-bd34678bb77b"], Cell[, "Output",ExpressionUUID->"98313969-c467-4d0e-84c2-9301e7354fd8"] }, Open ]], Cell[, "Input",ExpressionUUID->"f984095d-d7b8-42c0-84b6-f249f7191889"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"eb772438-6d55-4597-94c4-e8e4c8a28dea"], Cell[, "Message",ExpressionUUID->"15e11a28-3910-4175-baec-32f60966f167"], Cell[, "Output",ExpressionUUID->"dc1d0e6d-dbfc-4101-8f2b-a45c3ce40dc1"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"6f764f4a-8e60-4ade-81f6-342ce8502e9b"], Cell[, "Output",ExpressionUUID->"073b197f-bc4b-40a2-a232-0cc8f06d961e"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"afe99e33-748e-47f2-ba2a-c0c57008e3ff"], Cell[, "Output",ExpressionUUID->"76d79e7a-9d2d-45b3-bb8a-8f918994420a"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Matching all ", Cell[BoxData[ FormBox[ SubscriptBox["\[Theta]", "c"], TraditionalForm]],ExpressionUUID-> "d4b75e15-2a16-49fd-8988-e16c3980fb40"], " fixed" }], "Section", CellChangeTimes->{{3.817119832436002*^9, 3.817119834596055*^9}, { 3.8322384028059473`*^9, 3.83223840439787*^9}, {3.837600386175497*^9, 3.837600393087669*^9}},ExpressionUUID->"c1a07f43-bf98-4ded-8fe2-\ acd38d81a62a"], Cell[, "Input",ExpressionUUID->"9814740b-6ceb-49dd-a8e7-470aa128f596"], Cell[, "Input",ExpressionUUID->"e5da5cdc-dea4-468f-9f80-7bcb8f7055ed"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"61971941-a9ac-455d-84ae-8db30be2e665"], Cell[, "Output",ExpressionUUID->"d79a197b-d3c2-420f-8a75-43a5a1f3eb88"] }, Open ]], Cell[, "Input",ExpressionUUID->"7251e138-0073-4aed-93ec-409e542ba595"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"83870e45-e831-43bd-830f-3bbd0bc4cf26"], Cell[, "Output",ExpressionUUID->"608e5f38-8dc5-4659-9821-1c08ee7937a3"] }, Open ]], Cell[, "Input",ExpressionUUID->"2b68538e-eb4e-4fc5-8598-9d7f4cf47a71"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"f2eb7ff1-b83a-4711-baeb-03d638af762f"], Cell[, "Output",ExpressionUUID->"8d8581e1-e769-405e-8440-00d9ea8a80b7"] }, Open ]], Cell[, "Input",ExpressionUUID->"ff1cfdef-3775-4671-b5a8-7f84d899bb44"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"4ac9a3d8-7344-4b36-86cc-927251f84ae6"], Cell[, "Output",ExpressionUUID->"4020c1a4-5f22-47ef-9d1f-adef13840e75"] }, Open ]], Cell[, "Input",ExpressionUUID->"be587998-8957-48f9-8d89-e1f575b484d9"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"30f0ed04-9858-4017-8217-985c3efc1c9b"], Cell[, "Output",ExpressionUUID->"c81e0168-c726-4188-a9c4-724e6bccc499"] }, Open ]], Cell[, "Input",ExpressionUUID->"689e18ed-1ec8-498a-ad1b-507e0dd03bae"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"d483d5c3-c5f0-4bc3-b35a-ee3705301f57"], Cell[, "Output",ExpressionUUID->"972e9daa-b8c0-48ea-94a6-5c1206f9ded8"] }, Open ]], Cell[, "Input",ExpressionUUID->"4908c8f4-c01f-434c-9530-5ff19546ec45"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"c63ac5aa-bc1a-4703-8f86-c784cca22af9"], Cell[, "Output",ExpressionUUID->"8cee96ed-e342-42b4-9a7c-986d1e772ed3"] }, Open ]], Cell[, "Input",ExpressionUUID->"6dc40e0e-abcd-407f-bbc6-3e7148e2aec4"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"616ce136-6737-40e5-8029-31272add86f8"], Cell[, "Output",ExpressionUUID->"9d4cc682-8c95-449b-9ae1-a07d60f17b16"] }, Open ]], Cell[, "Input",ExpressionUUID->"0359663b-ea4b-4f2b-b953-154950f875db"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"ec848311-8958-4766-9a5d-9be5abcc44cb"], Cell[, "Output",ExpressionUUID->"51334039-280f-48e2-b328-4297f777c9de"] }, Open ]], Cell[, "Input",ExpressionUUID->"49fccc0f-c05a-483f-ad54-254b7500e1ec"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"3400ca05-e157-461b-96a6-83634df1cc38"], Cell[, "Message",ExpressionUUID->"4717bc47-0f9e-459c-a089-7072d9d8546f"], Cell[, "Output",ExpressionUUID->"9e06fa9c-619d-48be-8bd4-a62423b68459"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"7336ac6b-83d1-49ff-a184-4670f1967f5f"], Cell[, "Output",ExpressionUUID->"a267ea60-447c-4dcc-ab03-202e34d3e02b"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"15ada2d4-3591-4b28-a4a0-0c24a32c8424"], Cell[, "Output",ExpressionUUID->"769cfb1a-0cd6-4aa9-816e-ac5e5367d434"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"49c36534-7e17-40fd-b17b-6c24396cf79b"], Cell[, "Output",ExpressionUUID->"3eb32547-a996-48e0-bbf9-9f8a2877f2f6"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"1b662f6f-7fb0-44b3-98b2-fcd0cb6cab57"], Cell[, "Output",ExpressionUUID->"1581c58d-9a8e-473e-b952-16b423bd8281"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"11f063b7-0e7a-4b08-8d80-05ffaf815f0e"], Cell[, "Output",ExpressionUUID->"59d2c040-d7ec-47c4-8ccb-8dc4f6bdfd9c"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"73f3d0d8-55bd-4b87-9313-593ad5301d2f"], Cell[, "Output",ExpressionUUID->"88cd5860-1a82-4fe9-9019-187e9a6284bc"] }, Open ]], Cell[, "Input",ExpressionUUID->"a5dcf275-1d4e-4c96-a79c-53a3afcdb89b"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"d831d23a-4316-405f-82be-49802e861f83"], Cell[, "Output",ExpressionUUID->"80e78af9-9b53-4cc1-b28d-62d39e95442d"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"b077fbbc-1b67-46ce-928c-cb9cb93feb84"], Cell[, "Output",ExpressionUUID->"fe7374a3-2e61-4f7f-bfa8-7f2610ce7280"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"7ad3e447-b82f-4f7c-bc15-cc792a2f0f08"], Cell[, "Output",ExpressionUUID->"18e6e545-3d72-4cad-bb2d-62756bb962d5"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"e5a7c569-4ce5-4d3c-98f3-9160229fa5f0"], Cell[, "Output",ExpressionUUID->"f01cccdd-cd51-4883-b237-195d686deb4a"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"667660ba-66f5-4b76-8eaf-75601abced2b"], Cell[, "Output",ExpressionUUID->"2988841f-72ad-4f38-8e0d-50ce0c5e4c4a"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"a8889652-7842-41cf-8091-72987781207f"], Cell[, "Output",ExpressionUUID->"c9889d41-efaa-48df-8497-e0395247ab18"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"f492346f-039d-454e-b401-4478d7324c1e"], Cell[, "Output",ExpressionUUID->"8116d71c-2d49-4040-aba8-7a291ab11d2b"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"8a8852a1-d6eb-4f81-aae0-a33a01326f50"], Cell[, "Output",ExpressionUUID->"d72a90fc-a009-4c0c-949a-963bb5b65ef4"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"f758c571-4941-4819-b8ff-bda876db06de"], Cell[, "Output",ExpressionUUID->"5a0a399e-f5ce-43d7-878e-195ab44a54cc"] }, Open ]], Cell[, "Input",ExpressionUUID->"b3d86629-c3a8-4e5c-8968-6735fe772663"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"a06dd50c-b2a6-48cd-a550-24e88107ce4e"], Cell[, "Message",ExpressionUUID->"231f26c8-d164-4ed2-9d95-3ae6b9e7db4a"], Cell[, "Message",ExpressionUUID->"9234dcc5-0207-4b2e-8051-0501c80d8d9f"], Cell[, "Message",ExpressionUUID->"d1fb6878-82d5-4bae-8198-ca5be20a90a5"], Cell[, "Message",ExpressionUUID->"14e79556-c616-4367-a2e8-6eb65243108f"], Cell[, "Output",ExpressionUUID->"79b3a56a-fb4e-43df-a5e7-cc282c5e91e5"] }, Open ]], Cell[, "Input",ExpressionUUID->"16011121-ccb9-4633-8c80-193152571641"], Cell[, "Input",ExpressionUUID->"dd17419e-1a61-45a6-bc6e-4fc73cef39c7"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"26c43faf-69ad-4747-a4c2-02faedeae0ba"], Cell[, "Message",ExpressionUUID->"f4aabacf-847b-4f9a-989e-275f0207bfac"], Cell[, "Output",ExpressionUUID->"54f52e14-1cc2-4199-81ae-b38e003ee6a7"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"0e67ed2d-901e-4ad6-bc18-0187d868db2a"], Cell[, "Output",ExpressionUUID->"bb3e229d-42a2-4f31-ba52-03d502114257"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"f953e6b7-d6db-4adc-ae62-1eaf92d1b68b"], Cell[, "Output",ExpressionUUID->"52df7986-73ef-4731-a037-32f90ae8c2ca"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"49320ca4-5c8c-4b1e-98f4-0fce9d6f767d"], Cell[, "Output",ExpressionUUID->"a5bcadc6-2050-4678-82db-1cc984ce4cf8"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"23c90a2a-3181-4507-b03d-1c6a524d318f"], Cell[, "Output",ExpressionUUID->"804ea812-1e08-451e-b89b-85e21b7a900b"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"411d79ae-3a60-45b7-ad34-0402223bc804"], Cell[, "Output",ExpressionUUID->"d0487fb6-cc6f-4a82-b7e9-c88e89124f26"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"f3f929dc-63b9-41e4-a7fa-bfc6233c0667"], Cell[, "Output",ExpressionUUID->"849e1d2a-9c50-44de-89d5-857702cb5fd5"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"a0caebd2-23a7-4511-9498-0c1a2e9cfe53"], Cell[, "Output",ExpressionUUID->"7be21de8-007c-4120-a339-1f3ac51c3e60"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"6fcf53ff-126b-4b26-a83b-148e00bf6b1b"], Cell[, "Output",ExpressionUUID->"c786cfbb-e4b0-428c-b40c-df3c0c0def56"] }, Open ]], Cell[, "Input",ExpressionUUID->"9f042e79-5a77-40a7-a4d2-a6d243e6aed3"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"9dd5f638-04be-4ab9-8e9e-a36242ce03fc"], Cell[, "Output",ExpressionUUID->"9e62f072-c037-4c2b-a694-0a0eb1b1e9ea"] }, Open ]], Cell[, "Input",ExpressionUUID->"b83dae54-967b-45b1-81ce-458e168a8389"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"9835d85f-5114-4265-bc49-5f2e4c050b32"], Cell[, "Output",ExpressionUUID->"ebe14f51-7209-4e07-91c9-c24982da80ea"] }, Open ]], Cell[, "Input",ExpressionUUID->"047dad42-d9f8-4bb8-a64f-7e04a9585915"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"890d932c-2ab7-4f89-a1ee-76f76a9c3c67"], Cell[, "Output",ExpressionUUID->"e07ab9be-41a7-41c9-ae59-4c3f17b35525"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"2af0cd55-f1de-4186-b4d2-7e0ee2fcbb90"], Cell[, "Output",ExpressionUUID->"22f7b89c-ce93-4b4d-9c59-f15ec7f6da73"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"6029f4f2-49f1-4154-aecc-06d866e07507"], Cell[, "Output",ExpressionUUID->"15242adf-c742-46be-bda8-6054e9f087b3"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"a4dbeef0-fcd6-4246-a096-026cd5c8fe7d"], Cell[, "Output",ExpressionUUID->"e5f37624-2f5e-4013-ae6b-6268f8ff6713"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"115752ea-f3aa-4038-a6aa-91c3f57bfac5"], Cell[, "Output",ExpressionUUID->"ffa200df-716b-49a6-86be-94fa59dec869"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"8fffab93-64df-4b6d-9647-f5f8bb98486e"], Cell[, "Output",ExpressionUUID->"20eb8865-5dd8-4dcd-ab85-d54dfd719358"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"7c14b679-0a0b-4d2d-86fd-db7da5a08f8d"], Cell[, "Output",ExpressionUUID->"c86e3d74-dfee-43a3-b88b-5f71c70d4a28"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"17e630bf-a8b6-4486-96e6-7f607c98ab57"], Cell[, "Output",ExpressionUUID->"34cf2491-74b3-42e9-9f31-17cb7bbb6838"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"0598b222-62c5-416e-b305-746b40dd9bc3"], Cell[, "Output",ExpressionUUID->"c0cfe5fe-aabf-43c5-8e4a-26fc7484f455"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"5af9d17e-db82-48f8-90e9-228210a09ed5"], Cell[, "Output",ExpressionUUID->"9be1c398-b71f-4b8e-86ff-b57730c34ab5"] }, Open ]], Cell[, "Input",ExpressionUUID->"b7b83165-8b6f-4f90-a072-18689e4da274"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"6897f3b9-582a-494f-bdf5-c17bb76e55eb"], Cell[, "Output",ExpressionUUID->"af3bc580-2a55-4a7d-ac98-b39a4d20796c"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"934c6620-7229-4e4b-b2ba-810eea6190fc"], Cell[, "Output",ExpressionUUID->"97e63d9c-91b3-4669-accb-83df4a801f84"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"3a1ee666-d77d-4248-b833-dd1b09c23d24"], Cell[, "Output",ExpressionUUID->"058dec63-327d-4cf0-b0a1-cdf5c026a84b"] }, Open ]], Cell[, "Input",ExpressionUUID->"f4bc065b-3d70-4f1f-bbed-9d1c17b3fc3d"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"d1ee4b7a-f19c-4764-a00e-c0443a4a655f"], Cell[, "Output",ExpressionUUID->"1538c9df-d831-46f1-8713-7331dbb17ad5"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"cb621e05-0372-4be4-8a7f-fa6af95394ed"], Cell[, "Output",ExpressionUUID->"11752d12-3b73-4277-a911-0c1d26651286"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"18d44a4a-c7fc-4ae5-848b-d13406c29337"], Cell[, "Output",ExpressionUUID->"99c9c147-0bc3-4778-9545-e9c45fe0ac14"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"e3524918-77d8-4a79-be8a-6de43155ca32"], Cell[, "Output",ExpressionUUID->"a9939342-ed73-4ec4-91fc-0ea9e8060540"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"5fd94adc-3ec9-44a6-9da8-ece1fda82850"], Cell[, "Output",ExpressionUUID->"4a09183b-1d26-4467-8906-95ef0ab9c6c8"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"73c66fd5-052d-458a-84d0-ede60e041f24"], Cell[, "Output",ExpressionUUID->"c0c4b728-d1d8-42c2-a3f1-8b215d3c5a43"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"7a26d6af-0aab-455f-91db-5512571172b3"], Cell[, "Output",ExpressionUUID->"1b652f9e-f35c-42cd-a7e0-f01c8229e46b"] }, Open ]], Cell[, "Input",ExpressionUUID->"3d32eb0d-fb5d-46ba-bbff-a17aec10d743"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"40615a3b-3bf4-41cf-af74-188977e3a07e"], Cell[, "Message",ExpressionUUID->"1cd1ee4c-be11-4530-bf3b-f6416b08a0ff"], Cell[, "Output",ExpressionUUID->"7acf39dc-8aed-44fe-8bb0-bb9436fd9010"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"bf8968d9-19d7-4017-b5b9-14c165d48e1d"], Cell[, "Output",ExpressionUUID->"f716e403-3b85-4db1-bcc7-65265fa14b70"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"a73f44d7-19db-4443-8971-77a7d3cbc4ac"], Cell[, "Output",ExpressionUUID->"2da9ed36-c74b-4b4e-987d-951628f83457"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"0cce5618-8a99-44e7-86b5-68e7bc48ef0b"], Cell[, "Output",ExpressionUUID->"1b6560cd-6b3d-4bab-919b-dc6e68e7c444"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"8485951e-7fc8-43ed-8ba0-ef1e6d664951"], Cell[, "Output",ExpressionUUID->"e2c67870-453b-427a-95e8-cab50a430376"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"f8206946-5423-4615-81a4-c230b5e80d65"], Cell[, "Output",ExpressionUUID->"985cd9bf-505a-4fe6-988b-e983fb70bc8a"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"8088e833-ee02-4258-9f96-8c0e92981bf8"], Cell[, "Output",ExpressionUUID->"93cd739f-29d0-4b70-aac3-bf2a78f628b7"] }, Open ]], Cell[, "Input",ExpressionUUID->"bd576e58-f517-4aa4-afda-31a30b3f37f2"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"ceb62266-9f07-4658-a4d7-321e2989a78e"], Cell[, "Message",ExpressionUUID->"5c805d43-a6a3-4259-8167-9ed7a83569c3"], Cell[, "Output",ExpressionUUID->"ca8008f0-9c0b-428c-bd51-8cef3103b4c4"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"ce2413ff-e1c9-412f-8c1c-20f5155a8e4e"], Cell[, "Output",ExpressionUUID->"970b6b46-2fe0-42a5-8a2d-e2d76a8db9e5"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"a2b6993a-026b-4527-b432-66adf3e82a38"], Cell[, "Output",ExpressionUUID->"bf2495ed-92b4-47e0-8f49-b2172527f2d1"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"3dce5e91-87e2-45b3-8a1a-d6f943dd975c"], Cell[, "Output",ExpressionUUID->"69a06601-7d40-4a49-9c86-e61321248df8"] }, Open ]], Cell[, "Input",ExpressionUUID->"8e15ee6e-f796-4feb-a19d-45aa418925bc"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"01559a7f-0832-4186-9a48-6dc2654c35f7"], Cell[, "Output",ExpressionUUID->"c8019c92-12bd-4aec-9d81-dd12103214c5"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"64934bdb-d7a0-4854-b9ce-237aaf977e8a"], Cell[, "Output",ExpressionUUID->"838b5db2-c5d6-4d60-a8cd-e5d80ea3cacb"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"c75788e5-2d5f-4b60-a9a3-c8ab1e900ca6"], Cell[, "Output",ExpressionUUID->"b026bd64-4322-4d3d-bd25-24c6f375d92e"] }, Open ]], Cell[, "Input",ExpressionUUID->"8712ec7d-4853-4834-9148-2e0b87e145f3"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"357d2920-878c-453b-80a5-70ba292a5ae8"], Cell[, "Message",ExpressionUUID->"47f7f2c3-b7e2-4a94-b6cf-25d9f0fa600f"], Cell[, "Output",ExpressionUUID->"9a6912d5-608a-4795-8a0e-d54603e47fad"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"5f25fdb0-021a-4328-9d95-e2f4257a4ed7"], Cell[, "Output",ExpressionUUID->"bf5ad568-a673-4464-9f2c-8e5d79bac130"] }, Open ]], Cell[, "Input",ExpressionUUID->"52fb4777-4c7f-45e8-ac9f-46d51d41be30"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"0d730e0c-0cc6-4c7f-8384-7f3287a69ea5"], Cell[, "Message",ExpressionUUID->"e6302471-fb4c-458d-8ff0-f2052addc5e7"], Cell[, "Output",ExpressionUUID->"795c441e-9e36-4982-b06f-02572be8c468"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"19ffcc93-81a4-4442-9f7d-bb0a91076a83"], Cell[, "Output",ExpressionUUID->"7c3bf3fe-4257-44f9-b31f-df5fc8e0a8f6"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"d27188da-dbec-4862-897d-c79d508f5a06"], Cell[, "Output",ExpressionUUID->"d3aaacc3-94cd-4f94-b8d3-6f97ce80a7dd"] }, Open ]], Cell[, "Input",ExpressionUUID->"a7c34ad4-8a20-4d4c-a312-b4abf43e7b84"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"f952decb-8392-4bd9-9ca8-68fa98ba4ea0"], Cell[, "Message",ExpressionUUID->"3f58991c-8f32-42f0-910b-caff5ed428b4"], Cell[, "Output",ExpressionUUID->"58221ff1-4525-46a7-bdae-792c93f49938"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"438a08cf-d91e-4ffb-89f2-a823831c337f"], Cell[, "Output",ExpressionUUID->"31bd7638-0b3f-414d-858a-3740b7c9aa3d"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"3ca9ff01-d810-4f3b-a0e5-4853c773e631"], Cell[, "Output",ExpressionUUID->"bf148fd8-9693-4be5-8c41-6d1aeb3bcdce"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"5676beb4-7e67-4262-a1a9-8649d66fc608"], Cell[, "Output",ExpressionUUID->"4fbceaf0-ac98-4d89-a81b-49f54b7e80b3"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"a47e563a-1a70-40e7-b94e-e6dec72f2217"], Cell[, "Output",ExpressionUUID->"75bbd4ee-6c89-47ad-8378-521f9f78d95c"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"db5b7fcd-757d-45ac-b959-eb92b6428ee8"], Cell[, "Output",ExpressionUUID->"66904aad-235c-4592-a25c-527242bad8da"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"4f34a001-11c8-46a5-bab7-43816510fc29"], Cell[, "Message",ExpressionUUID->"8c252e0f-ebf9-40a0-a65e-5752171a35d8"], Cell[, "Message",ExpressionUUID->"a000d915-f8c7-4ce4-a811-545a415e24fc"], Cell[, "Message",ExpressionUUID->"7dde968f-6bef-4b0b-81b3-e52e357f62e2"], Cell[, "Message",ExpressionUUID->"5f0d7aa7-3d28-4e00-82d5-76ffcee4bd01"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"dee3cd3e-84f4-4b73-b470-f1b7c0baa7b5"], Cell[, "Output",ExpressionUUID->"18c3e4eb-9e95-422a-b0da-36edbb287ee5"] }, Open ]], Cell[, "Input",ExpressionUUID->"c9f0635b-0df0-48ed-8c29-17f301861517"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"437d5765-89f4-444f-abba-e04ffe26d7c9"], Cell[, "Message",ExpressionUUID->"4c823020-6c4e-407e-8fb9-5a5ec9a49385"], Cell[, "Message",ExpressionUUID->"0f4aaf4c-9dbc-427f-9089-e02cb3abcf77"], Cell[, "Message",ExpressionUUID->"8c578de3-6085-49cf-8cf6-84361c2d8524"], Cell[, "Message",ExpressionUUID->"42ea315f-3868-4b6f-b2f8-24cbc5f4dc34"], Cell[, "Message",ExpressionUUID->"2ab5fd83-7455-458e-b91b-0d9ee7745efa"], Cell[, "Message",ExpressionUUID->"3d85a17e-b682-4c90-bcb8-f3301535254d"], Cell[, "Message",ExpressionUUID->"55552e47-2019-4e0e-94ac-22ab0b441801"], Cell[, "Message",ExpressionUUID->"760654c4-f428-4c74-891f-ff2a37b6b853"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"cf8328a2-2e41-4543-bbcc-55e75f60d95a"], Cell[, "Output",ExpressionUUID->"5407ac23-3194-49ee-8010-3f88ab93d531"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"86ced1f4-0a54-4999-959e-d79bc814f759"], Cell[, "Output",ExpressionUUID->"93bab345-098c-4ca7-852a-335a5cd0dcf6"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"856a5f4c-223c-4aea-beeb-3fbd1534589f"], Cell[, "Output",ExpressionUUID->"e28c565e-2a35-4030-81ec-c70369667adb"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"a052bc09-b1cf-4937-8c90-bdb0978ae5fb"], Cell[, "Output",ExpressionUUID->"27ad9b7a-bb2e-42b7-9b85-f4860d194c8a"] }, Open ]], Cell[, "Input",ExpressionUUID->"bc95d58f-92c7-4786-bf70-93a6a30e7d08"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"b99c27c3-28f4-463a-bbd4-0d707f24ede5"], Cell[, "Output",ExpressionUUID->"dbb1ea27-23d8-498f-9931-237735b90888"] }, Open ]], Cell[, "Input",ExpressionUUID->"e125971c-79d1-4a87-ab30-82edcc7a11b6"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"da2bc76c-d02b-4910-a9ef-13df31a8a85d"], Cell[, "Output",ExpressionUUID->"3379bb53-2814-44a6-8d6d-c6bf9ff90130"] }, Open ]], Cell[, "Input",ExpressionUUID->"0ff99b46-5b6d-4857-b18e-faa48625e0b2"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"70a7e635-ea68-4ab2-b208-3f27f1f18773"], Cell[, "Output",ExpressionUUID->"ff4ef488-7509-4a22-b38b-3e5ee979dfec"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"e7efdffa-c82b-4b24-afeb-7b606e3a56b6"], Cell[, "Output",ExpressionUUID->"ea054bf8-969f-415b-abfb-ad7f9b45bd69"] }, Open ]], Cell[, "Input",ExpressionUUID->"376c00c5-9f33-4e41-9b82-73d25dddfb86"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"51dc3d02-9fb1-45c0-a232-766e908af724"], Cell[, "Output",ExpressionUUID->"37d0c2a2-52d2-4d89-8972-8e422f0e5216"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"b0ed41fc-0793-4607-b285-69dc836fbc46"], Cell[, "Output",ExpressionUUID->"1a124bff-ae77-4eae-9842-4ec08b7c4be7"] }, Open ]], Cell[, "Input",ExpressionUUID->"ce3d50ae-7830-43f7-9e8b-ff1617bdfce1"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"1d5c2fc0-e8df-4896-8045-0fde59533d77"], Cell[, "Output",ExpressionUUID->"2c63f7bd-1cf3-4607-b707-7a6b95e64ad2"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"e9f77ee6-ddde-4089-a778-5ece4a57f773"], Cell[, "Output",ExpressionUUID->"a47f9b99-a5ed-4171-b8a9-afdc15370d19"] }, Open ]], Cell[, "Input",ExpressionUUID->"c66d9b43-8912-4776-8df9-4b82e92385a2"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"d3511a9b-2734-4512-8448-59796db57c80"], Cell[, "Output",ExpressionUUID->"02bbcf9e-2ac0-4d1f-8fa5-b00695e27836"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"59b991fc-3c45-48aa-9268-cff7572aa8c6"], Cell[, "Output",ExpressionUUID->"b20c1ede-027a-4011-ba6a-a217ceecc8e8"] }, Open ]], Cell[, "Input",ExpressionUUID->"3597eaa7-3139-4518-bbfe-df34271dde2a"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"77c87cdf-033d-4185-b49d-b5d681d7f0f9"], Cell[, "Output",ExpressionUUID->"78a71b8d-3942-4850-b5d4-5a45d3517416"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"b37e4fd1-1edc-4db8-a29a-c5c0b1ee2464"], Cell[, "Output",ExpressionUUID->"951d7a74-9aa0-40b2-8c7e-afd33547bd6f"] }, Open ]], Cell[, "Input",ExpressionUUID->"fc9769af-3482-4891-854c-c4f69b3e7ab2"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"b726930b-8825-4fc1-bdd4-f13327dfafcc"], Cell[, "Output",ExpressionUUID->"dcc85e39-87fd-4c7a-adc2-f6dbe9ac4f86"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"3d6268b9-9dcd-4abd-a190-2d411c0f9ac5"], Cell[, "Output",ExpressionUUID->"b95a5d46-00d9-454a-bdbb-7b373fb54a04"] }, Open ]], Cell[, "Input",ExpressionUUID->"75d213ac-5b7e-4a17-b0e6-82481e033952"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"402a64a2-7215-43ff-afb2-5ffdb07699eb"], Cell[, "Output",ExpressionUUID->"84187abd-3a8b-42cd-8388-c4431767b6fc"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"855b658f-9a32-44de-bcab-f191fa636709"], Cell[, "Output",ExpressionUUID->"c2f9aac7-afc1-4b9d-9453-1a00347fcbe9"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"72c66ca0-a15a-4276-8266-9702097608f9"], Cell[, "Output",ExpressionUUID->"c22b79eb-939c-44d3-832b-d02d2b74f6d7"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"fe1d3062-e3cb-440f-8b39-b4206ce88f50"], Cell[, "Message",ExpressionUUID->"a8cdbd70-b1ae-4bac-b3e9-4a3a33f415b4"], Cell[, "Message",ExpressionUUID->"3a00a43c-0975-4a69-8a45-f6d37256351e"], Cell[, "Message",ExpressionUUID->"490c70b7-6d80-4544-ad78-0bdf86f8cf57"], Cell[, "Message",ExpressionUUID->"a33d77be-ae6e-4ad0-bc43-7822886c2702"] }, Open ]], Cell[, "Input",ExpressionUUID->"4a1ef349-9985-4fd3-a4ef-904651cf68ac"], Cell[, "Input",ExpressionUUID->"50c02bdb-5ed2-40ab-ba77-b26952532ed9"], Cell[, "Input",ExpressionUUID->"3f2d1ac4-1ccc-46f3-b1c3-9e780be42bfd"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"7fb890bc-1064-4d99-b6f5-6ecab88b82da"], Cell[, "Output",ExpressionUUID->"f209a90a-6414-4c82-b1ac-a415e04bb40b"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"2241f538-313e-49d3-adfa-ce7a1941836a"], Cell[, "Output",ExpressionUUID->"e60c6984-4395-45c5-bdea-cc5d8603b5ea"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"72447e76-665c-4e50-939a-7de5c0764602"], Cell[, "Output",ExpressionUUID->"c1192d4e-ddba-4b86-80cd-25d21e620f98"] }, Open ]], Cell[, "Input",ExpressionUUID->"cebc93a0-79b0-4da8-98e0-dac61dd498b9"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"599c1193-9a9a-4e09-bef2-d12c1f4a1969"], Cell[, "Message",ExpressionUUID->"11e2554d-75ea-4c0a-9448-8bfb332a62f3"], Cell[, "Output",ExpressionUUID->"6b1f6bb2-0a9c-4b87-aa00-e784a50c66dc"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"61a36220-5b85-4beb-bbe5-4d4a78e82a94"], Cell[, "Output",ExpressionUUID->"b177731d-7523-4738-97e5-0fab244202d6"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"bfc95959-ad22-467f-8b96-2c1c826f5655"], Cell[, "Output",ExpressionUUID->"4bc2cbcd-5582-4860-bb36-8c588aa6b1b0"] }, Open ]], Cell[, "Input",ExpressionUUID->"4e2d6149-b3b3-4123-babc-92a2df998316"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"d4b73ce5-7524-4652-9579-36229cebbccf"], Cell[, "Output",ExpressionUUID->"25f27aca-d25c-4d15-ab55-cf857b68dcb2"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"4b312d26-e716-4e13-99c6-2e39cc88c447"], Cell[, "Output",ExpressionUUID->"ad045ca4-bf3e-45f2-be6a-188c8fb39746"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"ff569190-822f-433e-ac6c-14b1dcd96ed9"], Cell[, "Output",ExpressionUUID->"436b5bb4-ba6b-46e9-ab6e-3829cbc4f6f8"] }, Open ]], Cell[, "Input",ExpressionUUID->"fe675aeb-309d-4146-9e6b-7ccf11b6980f"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"955fd7fe-8805-4dc6-bcd9-f0b6fe561e94"], Cell[, "Output",ExpressionUUID->"1f525144-95cc-4f1d-a2b1-7ed52efe7b5e"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"59ee4596-58f4-4760-9707-1639a55478ef"], Cell[, "Output",ExpressionUUID->"bcf0ddd6-91b4-474e-8418-aafc45056303"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"bf8f6059-088d-4951-bbb6-e2c25b6a202b"], Cell[, "Output",ExpressionUUID->"baf431bc-0457-4cd5-b76b-e8aeacd57202"] }, Open ]], Cell[, "Input",ExpressionUUID->"21502648-5bb8-4309-888f-8d4797b6965f"], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"25c31f45-9b44-4e7a-a888-7c4634fb8ae8"], Cell[, "Message",ExpressionUUID->"c514ee03-eba1-48e4-af1e-0991d7159e99"], Cell[, "Output",ExpressionUUID->"8d39b42e-cf19-4334-a472-16b27afd3f8e"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"15b1dea7-4387-4196-86ca-e5029d19055e"], Cell[, "Output",ExpressionUUID->"71a0bd1f-9ee3-45c1-8043-10fc45b089f2"] }, Open ]], Cell[CellGroupData[{ Cell[, "Input",ExpressionUUID->"ea7e7eb2-0ae4-48e4-9de2-2070d9c80ef7"], Cell[, "Output",ExpressionUUID->"a52313f1-4c10-40c6-b4b1-90cde6f32b05"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["Match ends", "Section", CellChangeTimes->{{3.817119832436002*^9, 3.817119834596055*^9}, { 3.832238407013833*^9, 3.83223840801399*^9}},ExpressionUUID->"5d9c76ab-41db-4d8f-b32b-\ 3ceed5a29b07"], Cell[BoxData[ RowBox[{ RowBox[{"nAs", "=", "2"}], ";"}]], "Input", CellChangeTimes->{{3.841213645969795*^9, 3.841213648302487*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"c2736e8b-b9a2-44e3-be7a-35f424888e11"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s0", "=", RowBox[{ RowBox[{ RowBox[{"#1", "->", RowBox[{"Re", "[", "#2", "]"}]}], "&"}], "@@@", RowBox[{"untilSuccess", "[", RowBox[{"newSol", "[", RowBox[{ RowBox[{"randomEval", "[", RowBox[{ RowBox[{"eqAround", "[", RowBox[{"nAs", ",", RowBox[{"h", "[", "0", "]"}]}], "]"}], "[", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]c", "->", RowBox[{"1", "+", RowBox[{"RandomReal", "[", "]"}]}]}], ",", RowBox[{"\[Theta]0", "->", "0.2"}]}], "}"}], ",", RowBox[{"{", RowBox[{"AH", ",", RowBox[{"A", "[", "1", "]"}], ",", RowBox[{"A", "[", "2", "]"}]}], "}"}], ",", ".1"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.840872563521092*^9, 3.840872576998932*^9}, { 3.840872709369928*^9, 3.840872764402226*^9}, {3.840877636812889*^9, 3.840877656924961*^9}, {3.840877923391466*^9, 3.8408779355510817`*^9}, { 3.8408780598941317`*^9, 3.8408780601811543`*^9}, {3.8408797181810427`*^9, 3.840879778238139*^9}, {3.840880795134419*^9, 3.840880840286354*^9}, { 3.840880874528244*^9, 3.840880874703277*^9}, {3.840880912632703*^9, 3.840880919991878*^9}, {3.840880964425344*^9, 3.840880970072919*^9}, { 3.8408823919331017`*^9, 3.840882408285187*^9}, {3.840882654137898*^9, 3.8408827357871857`*^9}, {3.840882788764772*^9, 3.840882792524544*^9}, 3.840882894926977*^9, {3.841112236364469*^9, 3.841112243763925*^9}, { 3.841112313502637*^9, 3.8411123146620913`*^9}, {3.841112388153365*^9, 3.841112388328306*^9}, {3.841113559383749*^9, 3.84111356348705*^9}, { 3.841113845807329*^9, 3.8411138491660833`*^9}, {3.841114253194316*^9, 3.841114254601055*^9}, {3.8411149340289297`*^9, 3.8411149380036087`*^9}, { 3.841115140132168*^9, 3.8411151578518972`*^9}, {3.841118660703054*^9, 3.841118669270204*^9}, {3.84111963423028*^9, 3.84111963438923*^9}, { 3.8411197709763603`*^9, 3.841119780736758*^9}, {3.841119818369471*^9, 3.841119861353202*^9}, {3.841120052157507*^9, 3.841120061869829*^9}, { 3.841120110726479*^9, 3.841120112581915*^9}, {3.841121150329917*^9, 3.8411211504968767`*^9}, {3.841121467374711*^9, 3.841121469214098*^9}, { 3.841121521631566*^9, 3.8411215316470957`*^9}, {3.841121826077414*^9, 3.841121830028577*^9}, {3.841122524498312*^9, 3.841122524665271*^9}, { 3.841122562074945*^9, 3.8411225622019987`*^9}, {3.841122639908085*^9, 3.841122640555438*^9}, {3.841130161765921*^9, 3.841130162765541*^9}, { 3.841131213073967*^9, 3.841131213232782*^9}, {3.841134390651767*^9, 3.8411344156200743`*^9}, {3.841134461917511*^9, 3.8411344621164227`*^9}, { 3.8411356221148643`*^9, 3.8411356447942247`*^9}, {3.841213559117867*^9, 3.841213592453618*^9}, {3.841213653182707*^9, 3.841213680583296*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"a326d1ad-f5a3-49d5-9b86-3a79e4cb291c"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]c", "\[Rule]", "1.1492840131168385`"}], ",", RowBox[{"\[Theta]0", "\[Rule]", "0.1975594933639457`"}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.4378711987652424`"}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.6062294996292714`"}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.532161675651072`"}]}], "}"}]], "Output", CellChangeTimes->{{3.841213667298201*^9, 3.841213680834222*^9}, { 3.841225528753489*^9, 3.8412255307639217`*^9}, 3.841297785004229*^9, 3.841303397495946*^9, 3.841304437958754*^9, 3.841304527293501*^9, { 3.841305184240437*^9, 3.841305190396916*^9}, 3.841305233787437*^9, 3.841305343526166*^9, 3.8413108551817913`*^9, 3.8413112805525637`*^9, 3.841316303642786*^9, 3.841389849950029*^9, 3.84138996708595*^9, 3.841390187817034*^9, 3.8413902178695107`*^9, 3.841390251177702*^9, 3.841390293298427*^9, 3.8413904792944736`*^9, 3.8413905777348013`*^9, 3.841391289327278*^9, 3.841392157175344*^9, 3.841392285420888*^9, 3.841392335464444*^9, 3.8414635899813747`*^9, 3.841464592139812*^9, 3.841727568283511*^9, 3.841733129163908*^9, 3.841826404105365*^9}, CellLabel->"Out[6]=",ExpressionUUID->"97d0a138-49bc-4f29-960c-16ea2836e8d6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Timing", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"dFd\[Xi]LowList", "[", RowBox[{"nAs", ",", RowBox[{"h", "[", "0", "]"}]}], "]"}], "[", "6", "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "6"}], "]"}], "!"}], ")"}]}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "0", "]"}], "]"}]}], "/.", "s0"}], "]"}]], "Input", CellChangeTimes->{{3.841389858617463*^9, 3.841389864495379*^9}, { 3.841390308400168*^9, 3.841390319008019*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"8eab97ea-e359-40c0-9935-fde12f7b604a"], Cell[BoxData[ RowBox[{"{", RowBox[{"0.180543`", ",", RowBox[{"{", RowBox[{"7.396860901565105`*^-15", ",", RowBox[{"-", "1.3578383417065896`"}], ",", RowBox[{"-", "0.0265662929581853`"}], ",", "0.007760994971557898`", ",", RowBox[{"-", "0.0035470852971395033`"}], ",", "0.0018938636969998107`", ",", RowBox[{"-", "0.0011027777822985678`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.841389868403063*^9, 3.8413899704214067`*^9, 3.841390191376688*^9, 3.841390222192317*^9, 3.8413902544921722`*^9, {3.841390296630432*^9, 3.841390322266429*^9}, 3.841390481156994*^9, 3.841390578185719*^9, 3.841391289835928*^9, 3.8413921581798*^9, 3.841392286032384*^9, 3.84139233625907*^9, 3.841463590768024*^9, 3.8414645923911953`*^9, 3.84172756896039*^9, 3.8417331294742737`*^9, 3.841826404430285*^9}, CellLabel->"Out[7]=",ExpressionUUID->"657cc05f-0a6c-4bfc-ac63-5c7dda33b28c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLogPlot", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Abs", "[", "Gls", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Chop", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"dFd\[Xi]LowList", "[", RowBox[{"nAs", ",", RowBox[{"h", "[", "0", "]"}]}], "]"}], "[", "6", "]"}], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "0", "]"}], "]"}]}], "/.", "s0"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input", CellChangeTimes->{{3.8291280118781147`*^9, 3.829128118103051*^9}, { 3.829128192513464*^9, 3.82912819312051*^9}, {3.829128371940607*^9, 3.829128493270048*^9}, {3.8291285364471493`*^9, 3.8291285366627502`*^9}, { 3.829128816403723*^9, 3.829128817219697*^9}, {3.829212218892186*^9, 3.829212225564254*^9}, {3.8292122694048777`*^9, 3.829212364606584*^9}, { 3.829212422415756*^9, 3.8292124291194887`*^9}, {3.8292138886103983`*^9, 3.829213892914075*^9}, {3.829214258440802*^9, 3.829214267624782*^9}, { 3.829218996805491*^9, 3.829219001117147*^9}, {3.8371574167259398`*^9, 3.83715742501366*^9}, {3.838872732879181*^9, 3.8388727537664413`*^9}, { 3.838873204703073*^9, 3.8388732099027357`*^9}, {3.838873255752236*^9, 3.8388732834641113`*^9}, {3.8388734328271227`*^9, 3.8388734358267*^9}, { 3.838874157024147*^9, 3.8388741604719753`*^9}, {3.839307790346795*^9, 3.839307797698661*^9}, {3.8393093420874243`*^9, 3.839309343767222*^9}, { 3.83940985668435*^9, 3.8394098593718357`*^9}, {3.839479308878851*^9, 3.8394793092698917`*^9}, {3.839479351678846*^9, 3.839479359894719*^9}, { 3.839484132822569*^9, 3.83948413582975*^9}, {3.839484417835371*^9, 3.839484422402855*^9}, {3.8394844606917543`*^9, 3.8394845443653107`*^9}, { 3.839485068790997*^9, 3.839485069686892*^9}, {3.839485153592383*^9, 3.839485166081131*^9}, {3.8394852464151793`*^9, 3.8394852711790447`*^9}, { 3.839485306757688*^9, 3.8394853151639977`*^9}, {3.8394853654853773`*^9, 3.839485432894374*^9}, 3.839485523256114*^9, {3.839485578601307*^9, 3.839485649138336*^9}, {3.8394857007256727`*^9, 3.839485723219755*^9}, { 3.839485936266061*^9, 3.839486030177397*^9}, {3.839486075309197*^9, 3.839486142116439*^9}, {3.839486179828413*^9, 3.839486218245903*^9}, { 3.83948626754249*^9, 3.8394862713893957`*^9}, {3.8394864169524717`*^9, 3.8394864816965714`*^9}, {3.839486986826584*^9, 3.8394869896504993`*^9}, { 3.8394870445001507`*^9, 3.839487076477178*^9}, {3.839487130772867*^9, 3.839487144740963*^9}, {3.8394876124142523`*^9, 3.83948761275005*^9}, { 3.839487645182592*^9, 3.839487645638852*^9}, {3.839488048646216*^9, 3.839488090182976*^9}, {3.839488424581703*^9, 3.8394884272211113`*^9}, { 3.8394892409164047`*^9, 3.839489242332054*^9}, {3.839489275213091*^9, 3.839489292188744*^9}, {3.839489492289144*^9, 3.839489571665984*^9}, { 3.8394896094678373`*^9, 3.839489713796721*^9}, {3.839489762837819*^9, 3.839489797445959*^9}, {3.839489857544436*^9, 3.839489893848106*^9}, { 3.8394903055442333`*^9, 3.839490366136724*^9}, {3.839490881170803*^9, 3.8394908814338083`*^9}, {3.839490914539504*^9, 3.839490928595656*^9}, { 3.839492144689028*^9, 3.839492147329255*^9}, {3.839493141315516*^9, 3.8394931647319393`*^9}, {3.839493641949576*^9, 3.83949364210872*^9}, { 3.839494014823594*^9, 3.839494050556492*^9}, {3.8394955822727327`*^9, 3.8394956194090643`*^9}, {3.839495922911708*^9, 3.839495935527544*^9}, { 3.839496282949663*^9, 3.8394963032934713`*^9}, {3.839572033112393*^9, 3.8395720353280907`*^9}, {3.839572166843008*^9, 3.839572169346869*^9}, { 3.839586112218432*^9, 3.8395861234262123`*^9}, {3.839586281734277*^9, 3.8395862878848553`*^9}, {3.839586416192438*^9, 3.839586419599288*^9}, { 3.839658669660975*^9, 3.8396586751241493`*^9}, 3.839664357017618*^9, { 3.839664563809626*^9, 3.8396646004174013`*^9}, {3.840528591761121*^9, 3.8405285944877768`*^9}, {3.8405288185331697`*^9, 3.8405288189559*^9}, { 3.840875796597721*^9, 3.840875807414563*^9}, {3.841134596143955*^9, 3.841134611103293*^9}, {3.841135733956856*^9, 3.84113574469188*^9}, { 3.841213686096504*^9, 3.841213700287394*^9}, {3.841390489772376*^9, 3.841390490115335*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"205f64ad-0fed-40fc-a0ee-a19d5c4d39b3"], Cell[BoxData[ GraphicsBox[{{{ {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{4., -3.2476887336074802`}, {4., -3.247688656415082}}], LineBox[{{4., -3.247688656415082}, {4., -3.2476885792226895`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{5., -2.682936452811683}, {5., -2.6829364235557143`}}], LineBox[{{5., -2.6829364235557143`}, {5., -2.6829363942997464`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{6., -1.6934517864279734`}, {6., -1.6934517320457758`}}], LineBox[{{6., -1.6934517320457758`}, {6., -1.693451677663581}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{7., -0.4167753281916941}, {7., -0.41677381113121115`}}], LineBox[{{7., -0.41677381113121115`}, {7., -0.4167722940730296}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{8., 1.077614026885801}, {8., 1.077615048105556}}], LineBox[{{8., 1.077615048105556}, {8., 1.0776160693242682`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{9., 2.747270914255491}, {9., 2.7479117345273405`}}], LineBox[{{9., 2.7479117345273405`}, {9., 2.7485521444115397`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{10., 4.572130331909891}, {10., 4.572233685741827}}], LineBox[{{10., 4.572233685741827}, {10., 4.572337028892852}}]}}, Antialiasing->False]}}, { {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{4., -3.2476885792226895`}, Offset[{3, 0}, {4., -3.2476885792226895`}]}, {{ 4., -3.2476885792226895`}, Offset[{-3, 0}, {4., -3.2476885792226895`}]}, {{ 4., -3.2476887336074802`}, Offset[{3, 0}, {4., -3.2476887336074802`}]}, {{ 4., -3.2476887336074802`}, Offset[{-3, 0}, {4., -3.2476887336074802`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{5., -2.6829363942997464`}, Offset[{3, 0}, {5., -2.6829363942997464`}]}, {{ 5., -2.6829363942997464`}, Offset[{-3, 0}, {5., -2.6829363942997464`}]}, {{ 5., -2.682936452811683}, Offset[{3, 0}, {5., -2.682936452811683}]}, {{ 5., -2.682936452811683}, Offset[{-3, 0}, {5., -2.682936452811683}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{6., -1.693451677663581}, Offset[{3, 0}, {6., -1.693451677663581}]}, {{ 6., -1.693451677663581}, Offset[{-3, 0}, {6., -1.693451677663581}]}, {{ 6., -1.6934517864279734`}, Offset[{3, 0}, {6., -1.6934517864279734`}]}, {{ 6., -1.6934517864279734`}, Offset[{-3, 0}, {6., -1.6934517864279734`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{7., -0.4167722940730296}, Offset[{3, 0}, {7., -0.4167722940730296}]}, {{ 7., -0.4167722940730296}, Offset[{-3, 0}, {7., -0.4167722940730296}]}, {{ 7., -0.4167753281916941}, Offset[{3, 0}, {7., -0.4167753281916941}]}, {{ 7., -0.4167753281916941}, Offset[{-3, 0}, {7., -0.4167753281916941}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{8., 1.0776160693242682`}, Offset[{3, 0}, {8., 1.0776160693242682`}]}, {{8., 1.0776160693242682`}, Offset[{-3, 0}, {8., 1.0776160693242682`}]}, {{8., 1.077614026885801}, Offset[{3, 0}, {8., 1.077614026885801}]}, {{ 8., 1.077614026885801}, Offset[{-3, 0}, {8., 1.077614026885801}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{9., 2.7485521444115397`}, Offset[{3, 0}, {9., 2.7485521444115397`}]}, {{9., 2.7485521444115397`}, Offset[{-3, 0}, {9., 2.7485521444115397`}]}, {{9., 2.747270914255491}, Offset[{3, 0}, {9., 2.747270914255491}]}, {{ 9., 2.747270914255491}, Offset[{-3, 0}, {9., 2.747270914255491}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{10., 4.572337028892852}, Offset[{3, 0}, {10., 4.572337028892852}]}, {{10., 4.572337028892852}, Offset[{-3, 0}, {10., 4.572337028892852}]}, {{ 10., 4.572130331909891}, Offset[{3, 0}, {10., 4.572130331909891}]}, {{10., 4.572130331909891}, Offset[{-3, 0}, {10., 4.572130331909891}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{2., 0.3058939805973386}, {3., -3.016888706538089}, { 4., -3.247688656415082}, {5., -2.6829364235557143`}, { 6., -1.6934517320457758`}, {7., -0.41677381113121115`}, {8., 1.077615048105556}, {9., 2.7479117345273405`}, {10., 4.572233685741827}, {11., 6.520621127558696}, {12., 8.582980931954241}, {13., 10.749355820113736`}, {14., 13.008074231002201`}, {15., 15.354526006101828`}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{2., 0.30589398059733547`}, {3., -2.939991449502729}, { 4., -3.0732313079230256`}, {5., -2.4672415968455867`}, { 6., -1.4827631892187632`}, {7., -0.2305312490425864}}]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., -4.703417605114004}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{ Charting`ScaledTicks[{Log, Exp}], Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->{419.9999999999983, Automatic}, Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, PlotRange->{{0., 15.}, {-4.703417605114004, 15.354526006101828`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->FrontEndValueCache[{Automatic, Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-4.605170185988091, FormBox[ TagBox[ InterpretationBox[ StyleBox["\"0.01\"", ShowStringCharacters -> False], 0.01, AutoDelete -> True], NumberForm[#, { DirectedInfinity[1], 2}]& ], TraditionalForm], {0.01, 0.}}, { 2.302585092994046, FormBox["10", TraditionalForm], {0.01, 0.}}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {16.11809565095832, FormBox[ TemplateBox[{"10", "7"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {-2.3025850929940455`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {0., FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 4.605170185988092, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 6.907755278982137, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 11.512925464970229`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 13.815510557964274`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 16.811242831518264`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 17.216707939626428`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 17.50439001207821, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 17.72753356339242, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 17.909855120186375`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 18.064005800013632`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 18.197537192638155`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 18.31532022829454, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 18.420680743952367`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}]]], "Output", CellChangeTimes->{{3.8394864302572823`*^9, 3.839486485737481*^9}, { 3.8394868108920527`*^9, 3.839486833544271*^9}, {3.839486968169405*^9, 3.839486994739235*^9}, {3.839487050609737*^9, 3.839487081545911*^9}, { 3.839487139032605*^9, 3.839487149734391*^9}, 3.8394880559648848`*^9, 3.839488095210012*^9, 3.839488432022138*^9, 3.839488966485567*^9, 3.839489132907782*^9, 3.8394891742679043`*^9, {3.83948923216856*^9, 3.839489247298073*^9}, {3.8394892811100388`*^9, 3.839489297255623*^9}, { 3.839489518429874*^9, 3.839489576749642*^9}, 3.839489614460577*^9, { 3.839489646744204*^9, 3.839489717916*^9}, {3.839489779953936*^9, 3.839489797877178*^9}, {3.839489858269053*^9, 3.839489894400456*^9}, 3.83948999298129*^9, 3.839490039302783*^9, 3.839490198501548*^9, { 3.8394903145949183`*^9, 3.839490366668486*^9}, 3.839490410230691*^9, 3.83949068744411*^9, 3.839490882032105*^9, {3.839490915087521*^9, 3.8394909440773563`*^9}, {3.839491208442045*^9, 3.839491227913024*^9}, 3.839491282583577*^9, 3.83949138318426*^9, 3.839491847872534*^9, 3.839491922779976*^9, {3.83949214072232*^9, 3.839492147793445*^9}, 3.839492703416108*^9, {3.8394930877867403`*^9, 3.839493111348575*^9}, 3.839493159337824*^9, 3.839493260745894*^9, 3.8394938495813704`*^9, { 3.839494015878335*^9, 3.839494051166876*^9}, 3.839494155707307*^9, { 3.839494232008819*^9, 3.8394942817479143`*^9}, {3.8394955838062563`*^9, 3.839495620912838*^9}, {3.839495892980287*^9, 3.839495961352178*^9}, 3.839495996781355*^9, 3.8394960290995007`*^9, {3.8394961117034683`*^9, 3.839496132210868*^9}, {3.839496233750821*^9, 3.839496247464304*^9}, { 3.839496287823802*^9, 3.839496304224265*^9}, 3.83949641106695*^9, 3.839496651844782*^9, 3.839569714442939*^9, 3.839570692350816*^9, 3.839571037545631*^9, 3.8395710776956797`*^9, 3.8395711376334047`*^9, 3.839571186222416*^9, 3.839571351854351*^9, 3.8395716431049433`*^9, 3.8395716961263447`*^9, 3.8395719356619263`*^9, 3.839571975466508*^9, { 3.8395720292576017`*^9, 3.839572038127006*^9}, {3.83957217256413*^9, 3.83957219391011*^9}, 3.839572236054682*^9, {3.839572276306333*^9, 3.839572287892969*^9}, 3.839572342583872*^9, 3.839572572560753*^9, 3.839572613884104*^9, {3.839572830197351*^9, 3.839572867853582*^9}, { 3.839572962859436*^9, 3.839572978399377*^9}, 3.839573191565909*^9, 3.83957323416776*^9, 3.839574190974876*^9, {3.839574358418882*^9, 3.839574363836178*^9}, 3.839577688193771*^9, {3.839577931409347*^9, 3.839577940725779*^9}, {3.839579623692398*^9, 3.839579641583359*^9}, 3.839580176251998*^9, {3.839580243310802*^9, 3.839580260058309*^9}, 3.83958034038577*^9, 3.839581557584*^9, {3.83958160487352*^9, 3.839581615679512*^9}, 3.839581993151758*^9, 3.839582040886951*^9, 3.839582108820992*^9, 3.839582559973913*^9, 3.839582771424386*^9, { 3.839583107834976*^9, 3.839583154778919*^9}, {3.8395842000019083`*^9, 3.839584229236342*^9}, 3.839584319284484*^9, 3.8395843940434847`*^9, 3.839584572371277*^9, 3.839584947067206*^9, 3.839585081305537*^9, 3.839586137503179*^9, 3.8395862976249247`*^9, 3.839586429104487*^9, 3.839587842464167*^9, 3.839647990219092*^9, 3.8396572711023006`*^9, 3.839658508039483*^9, 3.839658567146755*^9, {3.8396586610674477`*^9, 3.8396586758654203`*^9}, 3.839659271097528*^9, 3.839661799778942*^9, { 3.839664337728752*^9, 3.8396643582360373`*^9}, {3.839664548980212*^9, 3.839664603837595*^9}, 3.839664641104356*^9, 3.8396691346008053`*^9, 3.8396700455490303`*^9, 3.839670127013689*^9, 3.8405260833413677`*^9, { 3.840527418121812*^9, 3.840527428230318*^9}, 3.840528597876438*^9, { 3.84052880585203*^9, 3.840528823602725*^9}, 3.840610810412817*^9, 3.8408694556097403`*^9, 3.840872804624278*^9, {3.840875797574889*^9, 3.8408758121424313`*^9}, {3.840877666763609*^9, 3.840877677233533*^9}, 3.840878067793683*^9, {3.840880830069907*^9, 3.84088085023195*^9}, { 3.840880881407505*^9, 3.840880885369958*^9}, 3.840880931429838*^9, 3.840880983523183*^9, 3.840882901582034*^9, 3.8411116534753313`*^9, 3.841111732347678*^9, 3.841112335446682*^9, 3.8411123976633244`*^9, 3.8411142717862453`*^9, 3.841114943143334*^9, 3.841115089052647*^9, 3.841115194051117*^9, 3.8411159468161507`*^9, 3.841116777994376*^9, 3.841117271305902*^9, {3.841118706967044*^9, 3.841118717367868*^9}, { 3.8411193655082083`*^9, 3.84111937034937*^9}, 3.8411197766851873`*^9, 3.8411198234566708`*^9, 3.841119866102133*^9, 3.841120115400488*^9, 3.841121153260182*^9, 3.841121472842341*^9, 3.841121535767632*^9, 3.8411219087701063`*^9, 3.841121980800602*^9, 3.841130166199669*^9, 3.8411305965940332`*^9, {3.841130719276822*^9, 3.8411307399666243`*^9}, 3.8411312190210743`*^9, 3.841134375147834*^9, 3.8411344263576813`*^9, { 3.8411344705668488`*^9, 3.841134479867544*^9}, {3.8411346037463017`*^9, 3.8411346144767933`*^9}, 3.8411356496009407`*^9, 3.841135748390747*^9, 3.8412137046354218`*^9, 3.841225535005499*^9, 3.8413034028742332`*^9, 3.841304441693802*^9, 3.841304530951276*^9, {3.841305187833931*^9, 3.841305194151207*^9}, 3.84130523777777*^9, 3.8413053474536552`*^9, 3.84131085931179*^9, 3.841316307349918*^9, {3.841390485438642*^9, 3.84139049061092*^9}, 3.841390578562212*^9, 3.841391291253233*^9, 3.841392160241373*^9, 3.841392337222522*^9, 3.841463592218527*^9, 3.841464593325774*^9}, CellLabel->"Out[8]=",ExpressionUUID->"50732af7-406a-47af-b446-2d2e30f9e4ac"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLogPlot", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"Abs", "[", "Ghs", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Chop", "[", RowBox[{ RowBox[{ RowBox[{"Abs", "@", RowBox[{ RowBox[{"dFd\[Xi]HighList", "[", RowBox[{"nAs", ",", RowBox[{"h", "[", "0", "]"}]}], "]"}], "[", "6", "]"}]}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "0", "]"}], "]"}]}], "/.", "s0"}], "]"}]}], "\[IndentingNewLine]", "}"}], "]"}]], "Input", CellChangeTimes->{{3.8291280118781147`*^9, 3.829128118103051*^9}, { 3.829128192513464*^9, 3.82912819312051*^9}, {3.829128371940607*^9, 3.829128493270048*^9}, {3.8291285364471493`*^9, 3.8291285366627502`*^9}, { 3.829128816403723*^9, 3.829128817219697*^9}, {3.829212218892186*^9, 3.829212225564254*^9}, {3.8292122694048777`*^9, 3.829212364606584*^9}, { 3.829212422415756*^9, 3.8292124291194887`*^9}, {3.8292138886103983`*^9, 3.829213892914075*^9}, {3.829214258440802*^9, 3.829214267624782*^9}, { 3.829218996805491*^9, 3.829219001117147*^9}, {3.8371574167259398`*^9, 3.83715742501366*^9}, {3.838872732879181*^9, 3.8388727537664413`*^9}, { 3.838873204703073*^9, 3.8388732099027357`*^9}, {3.838873255752236*^9, 3.8388732834641113`*^9}, {3.8388734328271227`*^9, 3.8388734358267*^9}, { 3.838874157024147*^9, 3.8388741604719753`*^9}, {3.839307790346795*^9, 3.839307797698661*^9}, {3.8393093420874243`*^9, 3.839309343767222*^9}, { 3.83940985668435*^9, 3.8394098593718357`*^9}, {3.839479308878851*^9, 3.8394793092698917`*^9}, {3.839479351678846*^9, 3.839479359894719*^9}, { 3.839484132822569*^9, 3.83948413582975*^9}, {3.839484417835371*^9, 3.839484422402855*^9}, {3.8394844606917543`*^9, 3.8394845443653107`*^9}, { 3.839485068790997*^9, 3.839485069686892*^9}, {3.839485153592383*^9, 3.839485166081131*^9}, {3.8394852464151793`*^9, 3.8394852711790447`*^9}, { 3.839485306757688*^9, 3.8394853151639977`*^9}, {3.8394853654853773`*^9, 3.839485432894374*^9}, 3.839485523256114*^9, {3.839485578601307*^9, 3.839485649138336*^9}, {3.8394857007256727`*^9, 3.839485723219755*^9}, { 3.839485936266061*^9, 3.839486030177397*^9}, {3.839486075309197*^9, 3.839486142116439*^9}, {3.839486179828413*^9, 3.839486218245903*^9}, { 3.83948626754249*^9, 3.8394862713893957`*^9}, {3.8394864169524717`*^9, 3.8394864816965714`*^9}, {3.839486986826584*^9, 3.8394869896504993`*^9}, { 3.8394870445001507`*^9, 3.839487076477178*^9}, {3.839487130772867*^9, 3.839487144740963*^9}, {3.8394876124142523`*^9, 3.83948761275005*^9}, { 3.839487645182592*^9, 3.839487645638852*^9}, {3.839488048646216*^9, 3.839488090182976*^9}, {3.839488424581703*^9, 3.8394884272211113`*^9}, { 3.8394892409164047`*^9, 3.839489242332054*^9}, {3.839489275213091*^9, 3.839489292188744*^9}, {3.839489492289144*^9, 3.839489571665984*^9}, { 3.8394896094678373`*^9, 3.839489713796721*^9}, {3.839489762837819*^9, 3.839489797445959*^9}, {3.839489857544436*^9, 3.839489893848106*^9}, { 3.8394903055442333`*^9, 3.839490366136724*^9}, {3.839490881170803*^9, 3.8394908814338083`*^9}, {3.839490914539504*^9, 3.839490928595656*^9}, { 3.839492144689028*^9, 3.839492147329255*^9}, {3.839493141315516*^9, 3.8394931647319393`*^9}, {3.839493641949576*^9, 3.83949364210872*^9}, { 3.839494014823594*^9, 3.839494050556492*^9}, {3.8394955822727327`*^9, 3.8394956194090643`*^9}, {3.839495922911708*^9, 3.839495935527544*^9}, { 3.839496282949663*^9, 3.8394963032934713`*^9}, {3.839572033112393*^9, 3.8395720353280907`*^9}, {3.839572166843008*^9, 3.839572169346869*^9}, { 3.839586112218432*^9, 3.8395861234262123`*^9}, {3.839586281734277*^9, 3.8395862878848553`*^9}, {3.839586416192438*^9, 3.839586419599288*^9}, { 3.839658669660975*^9, 3.8396586751241493`*^9}, 3.839664357017618*^9, { 3.839664563809626*^9, 3.8396646004174013`*^9}, {3.840528591761121*^9, 3.8405285944877768`*^9}, {3.8405288185331697`*^9, 3.8405288189559*^9}, { 3.840875796597721*^9, 3.840875807414563*^9}, {3.841134596143955*^9, 3.841134611103293*^9}, {3.841135733956856*^9, 3.84113574469188*^9}, { 3.841213686096504*^9, 3.841213700287394*^9}, {3.841390489772376*^9, 3.841390490115335*^9}, {3.8413905856695023`*^9, 3.8413906076135798`*^9}, { 3.841390948891877*^9, 3.8413909555318604`*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"5755d9a0-f64b-44fe-a9ca-88f25a3c1639"], Cell[BoxData[ GraphicsBox[{{{ {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{5., 2.1203089445691155`}, {5., 2.1203089451690884`}}], LineBox[{{5., 2.1203089451690884`}, {5., 2.120308945769061}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{7., 4.555653628058581}, {7., 4.555653943287428}}], LineBox[{{7., 4.555653943287428}, {7., 4.555654258516176}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{9., 7.284539665889405}, {9., 7.28456024759707}}], LineBox[{{9., 7.28456024759707}, {9., 7.284580828881137}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{11., 10.161573447047902`}, {11., 10.161650696951378`}}], LineBox[{{11., 10.161650696951378`}, {11., 10.161727940887767`}}]}}, Antialiasing->False]}}, { {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{5., 2.120308945769061}, Offset[{3, 0}, {5., 2.120308945769061}]}, {{5., 2.120308945769061}, Offset[{-3, 0}, {5., 2.120308945769061}]}, {{ 5., 2.1203089445691155`}, Offset[{3, 0}, {5., 2.1203089445691155`}]}, {{5., 2.1203089445691155`}, Offset[{-3, 0}, {5., 2.1203089445691155`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{7., 4.555654258516176}, Offset[{3, 0}, {7., 4.555654258516176}]}, {{7., 4.555654258516176}, Offset[{-3, 0}, {7., 4.555654258516176}]}, {{ 7., 4.555653628058581}, Offset[{3, 0}, {7., 4.555653628058581}]}, {{7., 4.555653628058581}, Offset[{-3, 0}, {7., 4.555653628058581}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{9., 7.284580828881137}, Offset[{3, 0}, {9., 7.284580828881137}]}, {{9., 7.284580828881137}, Offset[{-3, 0}, {9., 7.284580828881137}]}, {{ 9., 7.284539665889405}, Offset[{3, 0}, {9., 7.284539665889405}]}, {{9., 7.284539665889405}, Offset[{-3, 0}, {9., 7.284539665889405}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{11., 10.161727940887767`}, Offset[{3, 0}, {11., 10.161727940887767`}]}, {{11., 10.161727940887767`}, Offset[{-3, 0}, {11., 10.161727940887767`}]}, {{11., 10.161573447047902`}, Offset[{3, 0}, {11., 10.161573447047902`}]}, {{11., 10.161573447047902`}, Offset[{-3, 0}, {11., 10.161573447047902`}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}}}, { {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{3., 0.6126028894906074}, {5., 2.1203089451690884`}, {7., 4.555653943287428}, {9., 7.28456024759707}, {11., 10.161650696951378`}, {13., 13.126355398673866`}, {15., 16.1573163641116}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{3., 0.6126028894906071}, {5., 2.1136506467491194`}, {7., 4.5410854526110125`}}]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., -0.6038591566117528}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{ Charting`ScaledTicks[{Log, Exp}], Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->{419.9999999999983, Automatic}, Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, PlotRange->{{0., 15.}, {-0.6038591566117528, 16.1573163641116}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->FrontEndValueCache[{Automatic, Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{0., FormBox["1", TraditionalForm], {0.01, 0.}}, {4.605170185988092, FormBox["100", TraditionalForm], {0.01, 0.}}, {9.210340371976184, FormBox[ TemplateBox[{"10", "4"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {13.815510557964274`, FormBox[ TemplateBox[{"10", "6"}, "Superscript", SyntaxForm -> SuperscriptBox], TraditionalForm], {0.01, 0.}}, {2.302585092994046, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 6.907755278982137, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 11.512925464970229`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 16.11809565095832, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 18.420680743952367`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 18.82614585206053, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 19.11382792451231, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, { 19.33697147582652, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}]]], "Output", CellChangeTimes->{{3.8394864302572823`*^9, 3.839486485737481*^9}, { 3.8394868108920527`*^9, 3.839486833544271*^9}, {3.839486968169405*^9, 3.839486994739235*^9}, {3.839487050609737*^9, 3.839487081545911*^9}, { 3.839487139032605*^9, 3.839487149734391*^9}, 3.8394880559648848`*^9, 3.839488095210012*^9, 3.839488432022138*^9, 3.839488966485567*^9, 3.839489132907782*^9, 3.8394891742679043`*^9, {3.83948923216856*^9, 3.839489247298073*^9}, {3.8394892811100388`*^9, 3.839489297255623*^9}, { 3.839489518429874*^9, 3.839489576749642*^9}, 3.839489614460577*^9, { 3.839489646744204*^9, 3.839489717916*^9}, {3.839489779953936*^9, 3.839489797877178*^9}, {3.839489858269053*^9, 3.839489894400456*^9}, 3.83948999298129*^9, 3.839490039302783*^9, 3.839490198501548*^9, { 3.8394903145949183`*^9, 3.839490366668486*^9}, 3.839490410230691*^9, 3.83949068744411*^9, 3.839490882032105*^9, {3.839490915087521*^9, 3.8394909440773563`*^9}, {3.839491208442045*^9, 3.839491227913024*^9}, 3.839491282583577*^9, 3.83949138318426*^9, 3.839491847872534*^9, 3.839491922779976*^9, {3.83949214072232*^9, 3.839492147793445*^9}, 3.839492703416108*^9, {3.8394930877867403`*^9, 3.839493111348575*^9}, 3.839493159337824*^9, 3.839493260745894*^9, 3.8394938495813704`*^9, { 3.839494015878335*^9, 3.839494051166876*^9}, 3.839494155707307*^9, { 3.839494232008819*^9, 3.8394942817479143`*^9}, {3.8394955838062563`*^9, 3.839495620912838*^9}, {3.839495892980287*^9, 3.839495961352178*^9}, 3.839495996781355*^9, 3.8394960290995007`*^9, {3.8394961117034683`*^9, 3.839496132210868*^9}, {3.839496233750821*^9, 3.839496247464304*^9}, { 3.839496287823802*^9, 3.839496304224265*^9}, 3.83949641106695*^9, 3.839496651844782*^9, 3.839569714442939*^9, 3.839570692350816*^9, 3.839571037545631*^9, 3.8395710776956797`*^9, 3.8395711376334047`*^9, 3.839571186222416*^9, 3.839571351854351*^9, 3.8395716431049433`*^9, 3.8395716961263447`*^9, 3.8395719356619263`*^9, 3.839571975466508*^9, { 3.8395720292576017`*^9, 3.839572038127006*^9}, {3.83957217256413*^9, 3.83957219391011*^9}, 3.839572236054682*^9, {3.839572276306333*^9, 3.839572287892969*^9}, 3.839572342583872*^9, 3.839572572560753*^9, 3.839572613884104*^9, {3.839572830197351*^9, 3.839572867853582*^9}, { 3.839572962859436*^9, 3.839572978399377*^9}, 3.839573191565909*^9, 3.83957323416776*^9, 3.839574190974876*^9, {3.839574358418882*^9, 3.839574363836178*^9}, 3.839577688193771*^9, {3.839577931409347*^9, 3.839577940725779*^9}, {3.839579623692398*^9, 3.839579641583359*^9}, 3.839580176251998*^9, {3.839580243310802*^9, 3.839580260058309*^9}, 3.83958034038577*^9, 3.839581557584*^9, {3.83958160487352*^9, 3.839581615679512*^9}, 3.839581993151758*^9, 3.839582040886951*^9, 3.839582108820992*^9, 3.839582559973913*^9, 3.839582771424386*^9, { 3.839583107834976*^9, 3.839583154778919*^9}, {3.8395842000019083`*^9, 3.839584229236342*^9}, 3.839584319284484*^9, 3.8395843940434847`*^9, 3.839584572371277*^9, 3.839584947067206*^9, 3.839585081305537*^9, 3.839586137503179*^9, 3.8395862976249247`*^9, 3.839586429104487*^9, 3.839587842464167*^9, 3.839647990219092*^9, 3.8396572711023006`*^9, 3.839658508039483*^9, 3.839658567146755*^9, {3.8396586610674477`*^9, 3.8396586758654203`*^9}, 3.839659271097528*^9, 3.839661799778942*^9, { 3.839664337728752*^9, 3.8396643582360373`*^9}, {3.839664548980212*^9, 3.839664603837595*^9}, 3.839664641104356*^9, 3.8396691346008053`*^9, 3.8396700455490303`*^9, 3.839670127013689*^9, 3.8405260833413677`*^9, { 3.840527418121812*^9, 3.840527428230318*^9}, 3.840528597876438*^9, { 3.84052880585203*^9, 3.840528823602725*^9}, 3.840610810412817*^9, 3.8408694556097403`*^9, 3.840872804624278*^9, {3.840875797574889*^9, 3.8408758121424313`*^9}, {3.840877666763609*^9, 3.840877677233533*^9}, 3.840878067793683*^9, {3.840880830069907*^9, 3.84088085023195*^9}, { 3.840880881407505*^9, 3.840880885369958*^9}, 3.840880931429838*^9, 3.840880983523183*^9, 3.840882901582034*^9, 3.8411116534753313`*^9, 3.841111732347678*^9, 3.841112335446682*^9, 3.8411123976633244`*^9, 3.8411142717862453`*^9, 3.841114943143334*^9, 3.841115089052647*^9, 3.841115194051117*^9, 3.8411159468161507`*^9, 3.841116777994376*^9, 3.841117271305902*^9, {3.841118706967044*^9, 3.841118717367868*^9}, { 3.8411193655082083`*^9, 3.84111937034937*^9}, 3.8411197766851873`*^9, 3.8411198234566708`*^9, 3.841119866102133*^9, 3.841120115400488*^9, 3.841121153260182*^9, 3.841121472842341*^9, 3.841121535767632*^9, 3.8411219087701063`*^9, 3.841121980800602*^9, 3.841130166199669*^9, 3.8411305965940332`*^9, {3.841130719276822*^9, 3.8411307399666243`*^9}, 3.8411312190210743`*^9, 3.841134375147834*^9, 3.8411344263576813`*^9, { 3.8411344705668488`*^9, 3.841134479867544*^9}, {3.8411346037463017`*^9, 3.8411346144767933`*^9}, 3.8411356496009407`*^9, 3.841135748390747*^9, 3.8412137046354218`*^9, 3.841225535005499*^9, 3.8413034028742332`*^9, 3.841304441693802*^9, 3.841304530951276*^9, {3.841305187833931*^9, 3.841305194151207*^9}, 3.84130523777777*^9, 3.8413053474536552`*^9, 3.84131085931179*^9, 3.841316307349918*^9, {3.841390485438642*^9, 3.84139049061092*^9}, {3.841390578562212*^9, 3.841390608215399*^9}, 3.8413906429454*^9, 3.841390808978589*^9, {3.841390952687045*^9, 3.841390955726741*^9}, 3.841391292844046*^9, 3.841392160458399*^9, 3.841392337553176*^9, 3.841463592414769*^9, 3.8414645935303507`*^9}, CellLabel->"Out[9]=",ExpressionUUID->"d5be2d93-8799-4554-97ed-a66db4df9e0a"] }, Open ]], Cell[BoxData["42492.10772459181`"], "Input",ExpressionUUID->"d8f49b29-f847-451a-a460-2535964a9a0a"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m0", "=", RowBox[{"annealFit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", RowBox[{"h", "[", "0", "]"}], ",", "d"}], "]"}], "[", "2", "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "0", "]"}], "]"}]}], ",", "d", ",", "s0", ",", SuperscriptBox["10", RowBox[{"-", "5"}]], ",", SuperscriptBox["10", RowBox[{"-", "13"}]], ",", "10", ",", "1", ",", "2"}], "]"}]}]], "Input",\ CellChangeTimes->{{3.84146414095971*^9, 3.841464175798479*^9}, { 3.841464380993734*^9, 3.841464386312539*^9}, {3.841464731456504*^9, 3.8414647327580833`*^9}, {3.8414659180452547`*^9, 3.841465925914133*^9}, { 3.8417325952371683`*^9, 3.841732596483498*^9}, {3.8417326274288807`*^9, 3.841732641972403*^9}, 3.841732857201058*^9, 3.8418264400423203`*^9}, CellLabel->"In[9]:=",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"], Cell[BoxData[ TemplateBox[{ "CompiledFunction", "cfn", "\"Numerical error encountered at instruction \ \\!\\(\\*RowBox[{\\\"73\\\"}]\\); proceeding with uncompiled evaluation.\"", 2, 9, 7, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.8417334474339247`*^9, 3.8417335312336073`*^9}, 3.841826407338984*^9, 3.841826440436727*^9}, CellLabel-> "During evaluation of \ In[9]:=",ExpressionUUID->"38e1e97e-6922-4902-bd7b-4347bdc13a47"], Cell[BoxData[ TemplateBox[{ "CompiledFunction", "cfn", "\"Numerical error encountered at instruction \ \\!\\(\\*RowBox[{\\\"73\\\"}]\\); proceeding with uncompiled evaluation.\"", 2, 9, 8, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.8417334474339247`*^9, 3.8417335312336073`*^9}, 3.841826407338984*^9, 3.841826440468438*^9}, CellLabel-> "During evaluation of \ In[9]:=",ExpressionUUID->"a33755cf-536c-4641-9c78-7289962fa472"], Cell[BoxData["42492.10772456681`"], "Print", CellChangeTimes->{{3.8417334477070303`*^9, 3.8417335314689503`*^9}, 3.841826407475919*^9, 3.841826440557686*^9}, CellLabel-> "During evaluation of \ In[9]:=",ExpressionUUID->"e2133c02-599f-4265-8ee0-047003daf318"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"2.5729858535460755`*^-308\ \\\"}]\\) is too small to represent as a normalized machine number; precision \ may be lost.\"", 2, 9, 9, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.8417334474339247`*^9, 3.8417335312336073`*^9}, 3.841826407338984*^9, 3.841826440934972*^9}, CellLabel-> "During evaluation of \ In[9]:=",ExpressionUUID->"668d8ed1-e748-4361-801c-3b3622c9e584"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \ \\\"2.454357907742668`*^-308\\\"}]\\) is too small to represent as a \ normalized machine number; precision may be lost.\"", 2, 9, 10, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.8417334474339247`*^9, 3.8417335312336073`*^9}, 3.841826407338984*^9, 3.8418264409637623`*^9}, CellLabel-> "During evaluation of \ In[9]:=",ExpressionUUID->"6271bd0b-cc2b-4bb6-976f-ea43e0cce940"], Cell[CellGroupData[{ Cell[BoxData["73592.14637736928`"], "Print", CellChangeTimes->{{3.8417334477070303`*^9, 3.8417335314689503`*^9}, 3.841826407475919*^9, 3.841826440993697*^9}, CellLabel-> "During evaluation of \ In[9]:=",ExpressionUUID->"7035d7f9-98ac-4ffd-a934-ef2622699155"], Cell[BoxData["74081.16445564883`"], "Print", CellChangeTimes->{{3.8417334477070303`*^9, 3.8417335314689503`*^9}, 3.841826407475919*^9, 3.8418264410957193`*^9}, CellLabel-> "During evaluation of \ In[9]:=",ExpressionUUID->"e0d087bb-d143-4be9-8121-da53fae84005"] }, Open ]], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"1.5233297363048155`*^-307\ \\\"}]\\) is too small to represent as a normalized machine number; precision \ may be lost.\"", 2, 9, 11, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.8417334474339247`*^9, 3.8417335312336073`*^9}, 3.841826407338984*^9, 3.841826441472019*^9}, CellLabel-> "During evaluation of \ In[9]:=",ExpressionUUID->"0522f535-30ca-4741-802a-bb8a853e882d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 9, 12, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.8417334474339247`*^9, 3.8417335312336073`*^9}, 3.841826407338984*^9, 3.841826441501545*^9}, CellLabel-> "During evaluation of \ In[9]:=",ExpressionUUID->"aa249a58-de29-40dc-aae9-b1b44827b2c7"], Cell[CellGroupData[{ Cell[BoxData["74086.07964036196`"], "Print", CellChangeTimes->{{3.8417334477070303`*^9, 3.8417335314689503`*^9}, 3.841826407475919*^9, 3.841826441561379*^9}, CellLabel-> "During evaluation of \ In[9]:=",ExpressionUUID->"5a87b09d-851d-4928-bc80-d3c2e6276486"], Cell[BoxData["74086.12879471993`"], "Print", CellChangeTimes->{{3.8417334477070303`*^9, 3.8417335314689503`*^9}, 3.841826407475919*^9, 3.8418264416153708`*^9}, CellLabel-> "During evaluation of \ In[9]:=",ExpressionUUID->"29a0662b-8080-4911-a9d1-8fcefdde30fe"], Cell[BoxData["74086.12928631637`"], "Print", CellChangeTimes->{{3.8417334477070303`*^9, 3.8417335314689503`*^9}, 3.841826407475919*^9, 3.841826442017448*^9}, CellLabel-> "During evaluation of \ In[9]:=",ExpressionUUID->"098c6f69-b055-4dd3-8bfd-423282782cfa"], Cell[BoxData["74086.12985370669`"], "Print", CellChangeTimes->{{3.8417334477070303`*^9, 3.8417335314689503`*^9}, 3.841826407475919*^9, 3.8418264420706987`*^9}, CellLabel-> "During evaluation of \ In[9]:=",ExpressionUUID->"974a42b3-eb50-42fb-b86b-1fc3b45d6c54"], Cell[BoxData["74086.18656082678`"], "Print", CellChangeTimes->{{3.8417334477070303`*^9, 3.8417335314689503`*^9}, 3.841826407475919*^9, 3.8418264421751003`*^9}, CellLabel-> "During evaluation of \ In[9]:=",ExpressionUUID->"581c19dd-5430-4e9a-bd6a-620526353336"], Cell[BoxData["74091.87242830146`"], "Print", CellChangeTimes->{{3.8417334477070303`*^9, 3.8417335314689503`*^9}, 3.841826407475919*^9, 3.841826442279838*^9}, CellLabel-> "During evaluation of \ In[9]:=",ExpressionUUID->"25e141dd-4610-4868-a9d7-d5a3fd63eafd"] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"74091.87242830146`", ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]c", "\[Rule]", "1.2463993878812167`"}], ",", RowBox[{"\[Theta]0", "\[Rule]", "0.18295265314323894`"}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.115911980361489`"}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.2040328498739996`"}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.47367560579375484`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.841466076959186*^9, 3.841466095449538*^9}, 3.841466158855105*^9, {3.8417276079091053`*^9, 3.841727615377058*^9}, 3.84173249550154*^9, {3.841732565454404*^9, 3.841732607895466*^9}, 3.841732643471121*^9, 3.841732758169614*^9, {3.841732855577588*^9, 3.841732881121413*^9}, {3.841733013813401*^9, 3.8417330428195066`*^9}, 3.841733111440667*^9, 3.8417331607886677`*^9, 3.8417332580263147`*^9, { 3.841733448394301*^9, 3.841733532125449*^9}, 3.841826408310234*^9, 3.841826442283183*^9}, CellLabel->"Out[9]=",ExpressionUUID->"925a3f69-9d05-48c7-98d4-b3010fe027fa"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"s0", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.8418265155305*^9, 3.841826517657034*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"fa94781f-8445-46c2-8474-4226f805b567"], Cell[BoxData[ RowBox[{"{", RowBox[{"\[Theta]c", ",", "\[Theta]0", ",", "AH", ",", RowBox[{"A", "[", "1", "]"}], ",", RowBox[{"A", "[", "2", "]"}]}], "}"}]], "Output", CellChangeTimes->{3.841826517886661*^9}, CellLabel->"Out[13]=",ExpressionUUID->"d3c62db3-05b9-4187-9bcc-ddb3de13793c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m01", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Total", "[", SuperscriptBox[ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", RowBox[{"h", "[", "0", "]"}], ",", SuperscriptBox["10", RowBox[{"-", "15"}]]}], "]"}], "[", "2", "]"}], "2"], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "0", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"s0", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"m0", "[", RowBox[{"[", "2", "]"}], "]"}], "/.", RowBox[{"Rule", "->", "List"}]}], "]"}], ",", RowBox[{"WorkingPrecision", "\[Rule]", "20"}], ",", RowBox[{"MaxIterations", "\[Rule]", "5000"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.841826409040468*^9, 3.841826597778789*^9}, { 3.841826667389724*^9, 3.841826667595948*^9}, {3.8418269541937237`*^9, 3.841826954225218*^9}}, CellLabel->"In[46]:=",ExpressionUUID->"ee264c8f-1f8f-4cc9-aa8c-84111cea251b"], Cell[BoxData[ TemplateBox[{ "FindRoot", "precw", "\"The precision of the argument function (\\!\\(\\*RowBox[{\\\"{\\\", \ RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"}\ \\\"}]\\)) is less than WorkingPrecision \ (\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 46, 58, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.841826482012022*^9, 3.8418265982231407`*^9}, 3.8418266678489017`*^9, 3.8418269545838118`*^9}, CellLabel-> "During evaluation of \ In[46]:=",ExpressionUUID->"b7316a79-d459-413d-8e45-f8c1f75251d7"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ "\[Theta]c", "\[Rule]", "1.24639938787887653732645725507852238426`20."}], ",", RowBox[{ "\[Theta]0", "\[Rule]", "0.1829526531421194505123173866256805632`20."}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.11591198035119144560232927656579333064`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.20403284986555226801346484586183493272`20."}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.47367560579621367982541288184561265379`20."}]}], "}"}]], "Output", CellChangeTimes->{{3.841826482020074*^9, 3.8418265862239122`*^9}, { 3.841826659980463*^9, 3.841826667924841*^9}, 3.841826954661435*^9}, CellLabel->"Out[46]=",ExpressionUUID->"79e68256-f728-4955-a624-e60c6c8ea908"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Total", "[", SuperscriptBox[ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", RowBox[{"h", "[", "0", "]"}], ",", SuperscriptBox["10", RowBox[{"-", "15"}]]}], "]"}], "[", "2", "]"}], "2"], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "0", "]"}], "]"}]}], "/.", "m01"}]], "Input", CellChangeTimes->{{3.841826687676178*^9, 3.841826692908362*^9}, { 3.8418269595454597`*^9, 3.841826959633253*^9}}, CellLabel->"In[48]:=",ExpressionUUID->"f5b06313-e438-43cc-9cb3-d01232c73e1f"], Cell[BoxData["74086.1292912154`"], "Output", CellChangeTimes->{ 3.8418266931280403`*^9, {3.841826957836481*^9, 3.8418269599659777`*^9}}, CellLabel->"Out[48]=",ExpressionUUID->"73287823-12e5-4424-b776-ffaef3d1f313"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m1", "=", RowBox[{"annealFit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", RowBox[{"h", "[", "1", "]"}], ",", "\[Delta]"}], "]"}], "[", "3", "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "1", "]"}], "]"}]}], ",", "\[Delta]", ",", RowBox[{"Append", "[", RowBox[{ RowBox[{"m0", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "->", "0"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.8414646994225616`*^9, 3.841464738150351*^9}}, CellLabel->"In[32]:=",ExpressionUUID->"29398383-9203-4cf6-aabb-1d3fe15a5894"], Cell[CellGroupData[{ Cell[BoxData["9.449430444391366`"], "Print", CellChangeTimes->{{3.84146472167447*^9, 3.841464739046789*^9}, 3.841466102601021*^9, 3.8414661640538692`*^9, 3.841727618703388*^9, 3.841733575217207*^9, 3.841735119492049*^9, 3.841826723167212*^9}, CellLabel-> "During evaluation of \ In[32]:=",ExpressionUUID->"2487362d-5c14-4c33-b345-40ddb69ef3da"], Cell[BoxData["9.451942442182629`"], "Print", CellChangeTimes->{{3.84146472167447*^9, 3.841464739046789*^9}, 3.841466102601021*^9, 3.8414661640538692`*^9, 3.841727618703388*^9, 3.841733575217207*^9, 3.841735119492049*^9, 3.841826723311756*^9}, CellLabel-> "During evaluation of \ In[32]:=",ExpressionUUID->"a6fe3275-23df-4e8a-bd70-c5f23038882b"], Cell[BoxData["9.451942707544093`"], "Print", CellChangeTimes->{{3.84146472167447*^9, 3.841464739046789*^9}, 3.841466102601021*^9, 3.8414661640538692`*^9, 3.841727618703388*^9, 3.841733575217207*^9, 3.841735119492049*^9, 3.8418267234179*^9}, CellLabel-> "During evaluation of \ In[32]:=",ExpressionUUID->"d7432d20-dfa4-4e51-b255-1dfcc908c271"], Cell[BoxData["9.451962839027255`"], "Print", CellChangeTimes->{{3.84146472167447*^9, 3.841464739046789*^9}, 3.841466102601021*^9, 3.8414661640538692`*^9, 3.841727618703388*^9, 3.841733575217207*^9, 3.841735119492049*^9, 3.841826723496903*^9}, CellLabel-> "During evaluation of \ In[32]:=",ExpressionUUID->"02c205d3-5106-4a3b-a2df-92d4bb9605d4"], Cell[BoxData["9.653277434621701`"], "Print", CellChangeTimes->{{3.84146472167447*^9, 3.841464739046789*^9}, 3.841466102601021*^9, 3.8414661640538692`*^9, 3.841727618703388*^9, 3.841733575217207*^9, 3.841735119492049*^9, 3.841826723580741*^9}, CellLabel-> "During evaluation of \ In[32]:=",ExpressionUUID->"a1c49a36-3b8c-42a0-8953-abf3faa882d9"] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"9.653277434621701`", ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]c", "\[Rule]", "1.3362286141964865`"}], ",", RowBox[{"\[Theta]0", "\[Rule]", "0.19907020759634733`"}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.255973001287936`"}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.3055713907335396`"}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3924438424127452`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.016008824015947273`"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.841464725026127*^9, 3.8414647403021297`*^9}, 3.8414661034706583`*^9, 3.841466164507646*^9, 3.8417276199972258`*^9, 3.841733575639007*^9, 3.8417351199137087`*^9, 3.841826723584857*^9}, CellLabel->"Out[32]=",ExpressionUUID->"d5e4c61a-fc6e-47b8-9909-b3202b08adb1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m11", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Total", "[", SuperscriptBox[ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", RowBox[{"h", "[", "1", "]"}], ",", SuperscriptBox["10", RowBox[{"-", "15"}]]}], "]"}], "[", "3", "]"}], "2"], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "1", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m1", "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "1"}], "]"}], "]"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"m1", "[", RowBox[{"[", "2", "]"}], "]"}], "/.", RowBox[{"Rule", "->", "List"}]}], "]"}], ",", RowBox[{"WorkingPrecision", "\[Rule]", "20"}], ",", RowBox[{"MaxIterations", "\[Rule]", "5000"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.841826409040468*^9, 3.841826597778789*^9}, { 3.841826667389724*^9, 3.841826667595948*^9}, {3.8418267356853933`*^9, 3.8418267802857647`*^9}, {3.841826871248399*^9, 3.84182687327967*^9}, { 3.841826963193843*^9, 3.8418269640493317`*^9}}, CellLabel->"In[49]:=",ExpressionUUID->"672771a7-a1bf-4e81-a251-1d2b0d34398b"], Cell[BoxData[ TemplateBox[{ "FindRoot", "precw", "\"The precision of the argument function (\\!\\(\\*RowBox[{\\\"{\\\", \ RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"}\ \\\"}]\\)) is less than WorkingPrecision \ (\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 49, 59, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.841826482012022*^9, 3.8418265982231407`*^9}, 3.8418266678489017`*^9, {3.841826768683412*^9, 3.841826780765348*^9}, 3.841826875141672*^9, 3.841826929758007*^9, 3.841826964563582*^9}, CellLabel-> "During evaluation of \ In[49]:=",ExpressionUUID->"30825e01-eb21-4382-93ac-46a8324b26e0"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ "\[Theta]c", "\[Rule]", "1.33622861419673184691655610251140181959`20."}], ",", RowBox[{ "\[Theta]0", "\[Rule]", "0.1990702075960474043645381339797671007`20."}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.25597300128339746697122708973067526412`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.3055713907286844467790538033153089176`20."}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.39244384241306854765393414093794108051`20."}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.01600882401581054720824133486755352125`20."}]}]}], "}"}]], "Output", CellChangeTimes->{{3.841826482020074*^9, 3.8418265862239122`*^9}, { 3.841826659980463*^9, 3.841826667924841*^9}, {3.841826769333158*^9, 3.841826781359291*^9}, 3.841826875723233*^9, 3.8418269303503838`*^9, 3.84182696518847*^9}, CellLabel->"Out[49]=",ExpressionUUID->"3ac239fc-e3d8-4fa6-bd3c-6a4f018a72fd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Total", "[", SuperscriptBox[ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", RowBox[{"h", "[", "1", "]"}], ",", SuperscriptBox["10", RowBox[{"-", "15"}]]}], "]"}], "[", "3", "]"}], "2"], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "1", "]"}], "]"}]}], "/.", "m11"}]], "Input", CellChangeTimes->{{3.841826796038172*^9, 3.841826798518147*^9}, { 3.8418268788555593`*^9, 3.84182688045557*^9}, {3.8418269675383453`*^9, 3.841826967577529*^9}}, CellLabel->"In[50]:=",ExpressionUUID->"becbd2c1-3886-4d89-919e-83cea993abb3"], Cell[BoxData["9.451942707027875`"], "Output", CellChangeTimes->{3.841826798776073*^9, 3.8418268811733217`*^9, 3.8418269680941963`*^9}, CellLabel->"Out[50]=",ExpressionUUID->"de992139-61ec-45d2-a14b-74928691d4aa"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m2", "=", RowBox[{"annealFit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", RowBox[{"h", "[", "3", "]"}], ",", "\[Delta]"}], "]"}], "[", "4", "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "3", "]"}], "]"}]}], ",", "\[Delta]", ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"m1", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"gC", "[", "2", "]"}], "->", "0"}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "->", "0"}]}], "}"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.841464800663937*^9, 3.8414648092082663`*^9}, { 3.841485136434773*^9, 3.841485139912166*^9}, {3.8418271675674467`*^9, 3.841827173829061*^9}, {3.8418272431358757`*^9, 3.841827252838594*^9}}, CellLabel->"In[99]:=",ExpressionUUID->"c364dda0-78f5-4a76-94b1-e8f7c84b3bff"], Cell[CellGroupData[{ Cell[BoxData["0.051772281428755895`"], "Print", CellChangeTimes->{3.841464811189674*^9, 3.841466113596136*^9, 3.841466174231003*^9, 3.841485157234458*^9, 3.841727625120616*^9, 3.841733644791923*^9, 3.841733719112348*^9, 3.841735123248308*^9, 3.841826845674734*^9, 3.8418271759718447`*^9, 3.841827254686544*^9}, CellLabel-> "During evaluation of \ In[99]:=",ExpressionUUID->"a946ecb3-353a-4b0f-a9fb-ab7640b1b75c"], Cell[BoxData["0.05177711319999637`"], "Print", CellChangeTimes->{3.841464811189674*^9, 3.841466113596136*^9, 3.841466174231003*^9, 3.841485157234458*^9, 3.841727625120616*^9, 3.841733644791923*^9, 3.841733719112348*^9, 3.841735123248308*^9, 3.841826845674734*^9, 3.8418271759718447`*^9, 3.841827255094644*^9}, CellLabel-> "During evaluation of \ In[99]:=",ExpressionUUID->"4266f228-fa5d-4036-ba39-ead2abb5fc55"], Cell[BoxData["0.05178053244606944`"], "Print", CellChangeTimes->{3.841464811189674*^9, 3.841466113596136*^9, 3.841466174231003*^9, 3.841485157234458*^9, 3.841727625120616*^9, 3.841733644791923*^9, 3.841733719112348*^9, 3.841735123248308*^9, 3.841826845674734*^9, 3.8418271759718447`*^9, 3.8418272552054358`*^9}, CellLabel-> "During evaluation of \ In[99]:=",ExpressionUUID->"8c1a6163-9f63-48da-b626-50dbad8fd5bf"], Cell[BoxData["0.05191334888846085`"], "Print", CellChangeTimes->{3.841464811189674*^9, 3.841466113596136*^9, 3.841466174231003*^9, 3.841485157234458*^9, 3.841727625120616*^9, 3.841733644791923*^9, 3.841733719112348*^9, 3.841735123248308*^9, 3.841826845674734*^9, 3.8418271759718447`*^9, 3.8418272553600273`*^9}, CellLabel-> "During evaluation of \ In[99]:=",ExpressionUUID->"88b8db6e-3fdf-483b-af65-2c2999af38f5"] }, Open ]], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ \"-\\\", \\\"1.923114750739261`*^-307\\\"}], \\\")\\\"}]}]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 99, 111, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.84146481246984*^9, 3.8414661127914667`*^9, 3.8414661755505667`*^9, 3.84148515649649*^9, 3.841727624402594*^9, 3.841733646144292*^9, 3.841733720332137*^9, 3.841735124988158*^9, 3.841826847857007*^9, 3.841827177665861*^9, 3.841827256838187*^9}, CellLabel-> "During evaluation of \ In[99]:=",ExpressionUUID->"ba32119b-06f1-4a37-a68c-eb07d99fac2d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ \"-\\\", \\\"1.2820765004928408`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, 99, 112, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.84146481246984*^9, 3.8414661127914667`*^9, 3.8414661755505667`*^9, 3.84148515649649*^9, 3.841727624402594*^9, 3.841733646144292*^9, 3.841733720332137*^9, 3.841735124988158*^9, 3.841826847857007*^9, 3.841827177665861*^9, 3.8418272570694847`*^9}, CellLabel-> "During evaluation of \ In[99]:=",ExpressionUUID->"1770cc78-2c3c-4877-825c-f4728148b97d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ \"-\\\", \\\"8.547176669952273`*^-308\\\"}], \\\")\\\"}]}]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 99, 113, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.84146481246984*^9, 3.8414661127914667`*^9, 3.8414661755505667`*^9, 3.84148515649649*^9, 3.841727624402594*^9, 3.841733646144292*^9, 3.841733720332137*^9, 3.841735124988158*^9, 3.841826847857007*^9, 3.841827177665861*^9, 3.8418272573003798`*^9}, CellLabel-> "During evaluation of \ In[99]:=",ExpressionUUID->"0ce5aef7-b955-4225-882b-98866bfce2b2"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 99, 114, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.84146481246984*^9, 3.8414661127914667`*^9, 3.8414661755505667`*^9, 3.84148515649649*^9, 3.841727624402594*^9, 3.841733646144292*^9, 3.841733720332137*^9, 3.841735124988158*^9, 3.841826847857007*^9, 3.841827177665861*^9, 3.8418272575293417`*^9}, CellLabel-> "During evaluation of \ In[99]:=",ExpressionUUID->"cb1b4c0a-3d15-4c11-931c-36c9a19171a4"], Cell[BoxData["0.2094377737939454`"], "Print", CellChangeTimes->{3.841464811189674*^9, 3.841466113596136*^9, 3.841466174231003*^9, 3.841485157234458*^9, 3.841727625120616*^9, 3.841733644791923*^9, 3.841733719112348*^9, 3.841735123248308*^9, 3.841826845674734*^9, 3.8418271759718447`*^9, 3.841827257583682*^9}, CellLabel-> "During evaluation of \ In[99]:=",ExpressionUUID->"14397552-cc28-4d45-ba69-afa6d658ce72"], Cell[BoxData[ RowBox[{"{", RowBox[{"0.2094377737939454`", ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]c", "\[Rule]", "1.3294417509629508`"}], ",", RowBox[{"\[Theta]0", "\[Rule]", "0.19851634079388408`"}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.3916927470407425`"}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5009798213063066`"}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3547258842325767`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.07229559945450427`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.020014791514890582`"}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.0031967856292485788`"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.841464815669158*^9, 3.841466117830838*^9, 3.8414661767800817`*^9, 3.841485159686406*^9, 3.841727626690813*^9, 3.841733647995943*^9, 3.841733723021474*^9, 3.841735127497295*^9, 3.8418268488152533`*^9, 3.8418271797495813`*^9, 3.84182725775012*^9}, CellLabel->"Out[99]=",ExpressionUUID->"531124ae-8ead-4a78-8719-39ec0b3fae79"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m21", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Total", "[", SuperscriptBox[ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", RowBox[{"h", "[", "3", "]"}], ",", SuperscriptBox["10", RowBox[{"-", "15"}]]}], "]"}], "[", "4", "]"}], "2"], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "3", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m2", "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "1"}], "]"}], "]"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"m2", "[", RowBox[{"[", "2", "]"}], "]"}], "/.", RowBox[{"Rule", "->", "List"}]}], "]"}], ",", RowBox[{"WorkingPrecision", "\[Rule]", "20"}], ",", RowBox[{"MaxIterations", "\[Rule]", "5000"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.841826409040468*^9, 3.841826597778789*^9}, { 3.841826667389724*^9, 3.841826667595948*^9}, {3.8418267356853933`*^9, 3.8418267802857647`*^9}, {3.841826861255658*^9, 3.841826922184668*^9}, { 3.8418269725707407`*^9, 3.841826972633595*^9}}, CellLabel->"In[51]:=",ExpressionUUID->"eaf55068-7c6e-48d1-8e5b-093c2f4b5994"], Cell[BoxData[ TemplateBox[{ "FindRoot", "precw", "\"The precision of the argument function ({8. Power[10, 8] (Divide[-2 (-\ \[Theta]0 + Power[<<2>>] <<1>> + <<1>> + Power[\[Theta]0, 7] gC[3]), <<1>>] + \ <<1>>) (-0.1893 - Divide[(Power[\[Theta]0, 2] + Power[\[Theta]c, 2]) (-\ \[Theta]0 + Power[\[Theta]0, 3] gC[1] - Power[\[Theta]0, 5] gC[2] + Power[\ \[Theta]0, 7] gC[3]), Power[1 + Power[\[Theta]0, 2], <<1>>] Power[\[Theta]c, \ 2]]) + <<8>>, <<7>>}) is less than WorkingPrecision \ (\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 51, 60, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.841826482012022*^9, 3.8418265982231407`*^9}, 3.8418266678489017`*^9, {3.841826768683412*^9, 3.841826780765348*^9}, { 3.841826898513888*^9, 3.8418269227694597`*^9}, 3.841826973347541*^9}, CellLabel-> "During evaluation of \ In[51]:=",ExpressionUUID->"334ca9d2-87ff-4b5b-82cf-03a54d1382ab"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ "\[Theta]c", "\[Rule]", "1.32944175095762705653136497860812040432`20."}], ",", RowBox[{ "\[Theta]0", "\[Rule]", "0.19851634079387940099875436957379335619`20."}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.39169274706644288467674843499700372069`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.50097982134318679952735884219249398435`20."}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.35472588422886148106873431741708148046`20."}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.07229559946763170612151694672889323414`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.02001479152353039267441639679230095709`20."}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.00319678563132391072668793355401404247`20."}]}]}], "}"}]], "Output", CellChangeTimes->{{3.841826482020074*^9, 3.8418265862239122`*^9}, { 3.841826659980463*^9, 3.841826667924841*^9}, {3.841826769333158*^9, 3.841826781359291*^9}, {3.841826901984071*^9, 3.841826926295443*^9}, 3.841826976960929*^9}, CellLabel->"Out[51]=",ExpressionUUID->"a9055bc2-2ac1-4de8-8dac-28ec754d13c2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Total", "[", SuperscriptBox[ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", RowBox[{"h", "[", "3", "]"}], ",", SuperscriptBox["10", RowBox[{"-", "15"}]]}], "]"}], "[", "4", "]"}], "2"], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "3", "]"}], "]"}]}], "/.", "m21"}]], "Input", CellChangeTimes->{{3.841826917072412*^9, 3.841826936288608*^9}, { 3.841826978938397*^9, 3.8418269790096073`*^9}}, CellLabel->"In[52]:=",ExpressionUUID->"bbab0f46-5630-4e0d-9151-1d8b6f618dd4"], Cell[BoxData["0.05177813526302298`"], "Output", CellChangeTimes->{{3.8418269193329*^9, 3.841826936706436*^9}, 3.841826979599214*^9}, CellLabel->"Out[52]=",ExpressionUUID->"8bfd2404-26dd-479a-b323-cfa1bea22ba1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m3", "=", RowBox[{"annealFit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", RowBox[{"h", "[", "3", "]"}], ",", "\[Delta]"}], "]"}], "[", "5", "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "3", "]"}], "]"}]}], ",", "\[Delta]", ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"m2", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", "}"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.841464843337102*^9, 3.841464855633377*^9}, { 3.841485164363418*^9, 3.8414851683768*^9}, {3.8418272638322353`*^9, 3.841827269478693*^9}, {3.84182733709054*^9, 3.841827341167844*^9}}, CellLabel-> "In[122]:=",ExpressionUUID->"549433df-adc9-4102-a29c-48e725ec49b3"], Cell[BoxData["489.4696287933705`"], "Print", CellChangeTimes->{3.8414648601920137`*^9, 3.8414662057577333`*^9, 3.8414851717359543`*^9, 3.841727635202511*^9, 3.841733773189451*^9, 3.841735136655308*^9, 3.8418269873850927`*^9, 3.841827274079143*^9, 3.841827347911943*^9}, CellLabel-> "During evaluation of \ In[122]:=",ExpressionUUID->"acad0e19-ca48-4f70-b570-3c13e6559546"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"1.4975171833806045`*^-307\ \\\"}]\\) is too small to represent as a normalized machine number; precision \ may be lost.\"", 2, 122, 133, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.841464863330677*^9, 3.841466204154407*^9, 3.841485174897429*^9, 3.841727633841527*^9, 3.841733771817769*^9, 3.841735135212792*^9, 3.8418269908463984`*^9, 3.841827279170081*^9, 3.8418273512389183`*^9}, CellLabel-> "During evaluation of \ In[122]:=",ExpressionUUID->"f3b26d2a-327a-40f2-bf48-762d2e826c8b"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"9.98344788920403`*^-308\\\ \"}]\\) is too small to represent as a normalized machine number; precision \ may be lost.\"", 2, 122, 134, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.841464863330677*^9, 3.841466204154407*^9, 3.841485174897429*^9, 3.841727633841527*^9, 3.841733771817769*^9, 3.841735135212792*^9, 3.8418269908463984`*^9, 3.841827279170081*^9, 3.841827351758584*^9}, CellLabel-> "During evaluation of \ In[122]:=",ExpressionUUID->"e2893e1a-da81-4967-9028-c2ddf3c859a9"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"6.65563192613602`*^-308\\\ \"}]\\) is too small to represent as a normalized machine number; precision \ may be lost.\"", 2, 122, 135, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.841464863330677*^9, 3.841466204154407*^9, 3.841485174897429*^9, 3.841727633841527*^9, 3.841733771817769*^9, 3.841735135212792*^9, 3.8418269908463984`*^9, 3.841827279170081*^9, 3.841827352208637*^9}, CellLabel-> "During evaluation of \ In[122]:=",ExpressionUUID->"4ebedd47-e11c-475c-baed-f9b6b907d76c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 122, 136, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.841464863330677*^9, 3.841466204154407*^9, 3.841485174897429*^9, 3.841727633841527*^9, 3.841733771817769*^9, 3.841735135212792*^9, 3.8418269908463984`*^9, 3.841827279170081*^9, 3.841827352652326*^9}, CellLabel-> "During evaluation of \ In[122]:=",ExpressionUUID->"bf29ec8b-6d0d-494f-a286-5b236a62dad9"], Cell[CellGroupData[{ Cell[BoxData["7544.032623454086`"], "Print", CellChangeTimes->{3.8414648601920137`*^9, 3.8414662057577333`*^9, 3.8414851717359543`*^9, 3.841727635202511*^9, 3.841733773189451*^9, 3.841735136655308*^9, 3.8418269873850927`*^9, 3.841827274079143*^9, 3.841827352755423*^9}, CellLabel-> "During evaluation of \ In[122]:=",ExpressionUUID->"b609a385-9bb2-4557-8acc-bed35111ad21"], Cell[BoxData["7547.62219676352`"], "Print", CellChangeTimes->{3.8414648601920137`*^9, 3.8414662057577333`*^9, 3.8414851717359543`*^9, 3.841727635202511*^9, 3.841733773189451*^9, 3.841735136655308*^9, 3.8418269873850927`*^9, 3.841827274079143*^9, 3.841827355608079*^9}, CellLabel-> "During evaluation of \ In[122]:=",ExpressionUUID->"ccffdeb3-c221-47bf-b880-30efb5f19937"], Cell[BoxData["7547.623015958472`"], "Print", CellChangeTimes->{3.8414648601920137`*^9, 3.8414662057577333`*^9, 3.8414851717359543`*^9, 3.841727635202511*^9, 3.841733773189451*^9, 3.841735136655308*^9, 3.8418269873850927`*^9, 3.841827274079143*^9, 3.841827358263262*^9}, CellLabel-> "During evaluation of \ In[122]:=",ExpressionUUID->"c797301d-6cd0-4b0b-b6a0-7b2bf6ad9c93"], Cell[BoxData["7549.228703786271`"], "Print", CellChangeTimes->{3.8414648601920137`*^9, 3.8414662057577333`*^9, 3.8414851717359543`*^9, 3.841727635202511*^9, 3.841733773189451*^9, 3.841735136655308*^9, 3.8418269873850927`*^9, 3.841827274079143*^9, 3.8418273584007673`*^9}, CellLabel-> "During evaluation of \ In[122]:=",ExpressionUUID->"238aa827-985b-46ca-ba93-7235adf631b7"] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"7549.228703786271`", ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]c", "\[Rule]", "1.4671952424687085`"}], ",", RowBox[{"\[Theta]0", "\[Rule]", "0.19457016511195707`"}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.139812814666874`"}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.1552015866244443`"}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.3254579291183115`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.04359535734081209`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.004727401626332516`"}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.00042944211918985974`"}]}]}], "}"}]}], "}"}]], "Output",\ CellChangeTimes->{3.8414648792576437`*^9, 3.841466213483655*^9, 3.841485177503057*^9, 3.841727640264741*^9, 3.841733779145525*^9, 3.8417351450580807`*^9, 3.841826998518222*^9, 3.8418272820374393`*^9, 3.841827358775434*^9}, CellLabel-> "Out[122]=",ExpressionUUID->"dc4d99cd-a7e0-49bb-9939-cd444c973ba8"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m31", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Total", "[", SuperscriptBox[ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", RowBox[{"h", "[", "3", "]"}], ",", SuperscriptBox["10", RowBox[{"-", "15"}]]}], "]"}], "[", "5", "]"}], "2"], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "3", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m3", "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "1"}], "]"}], "]"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"m3", "[", RowBox[{"[", "2", "]"}], "]"}], "/.", RowBox[{"Rule", "->", "List"}]}], "]"}], ",", RowBox[{"WorkingPrecision", "\[Rule]", "20"}], ",", RowBox[{"MaxIterations", "\[Rule]", "5000"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.841826409040468*^9, 3.841826597778789*^9}, { 3.841826667389724*^9, 3.841826667595948*^9}, {3.8418267356853933`*^9, 3.8418267802857647`*^9}, {3.841826861255658*^9, 3.841826922184668*^9}, { 3.8418269725707407`*^9, 3.841826994313775*^9}, {3.8418270452029877`*^9, 3.841827053242969*^9}, {3.841827284791814*^9, 3.841827288375248*^9}, { 3.841827347088809*^9, 3.841827349848246*^9}}, CellLabel-> "In[123]:=",ExpressionUUID->"0355409d-8b8c-45c1-9506-a20c5fe4044b"], Cell[BoxData[ TemplateBox[{ "FindRoot", "precw", "\"The precision of the argument function ({8. Power[10, 8] (Divide[-2 (-\ \[Theta]0 + <<2>> + Power[\[Theta]0, 7] gC[3]), Power[<<2>>] \[Theta]c] + \ Divide[<<2>>]) (-0.1893 - Divide[(Power[\[Theta]0, 2] + Power[\[Theta]c, 2]) \ (-\[Theta]0 + Power[\[Theta]0, 3] gC[1] - Power[\[Theta]0, 5] gC[2] + Power[\ \[Theta]0, 7] gC[3]), Power[1 + Power[\[Theta]0, 2], <<1>>] Power[\[Theta]c, \ 2]]) + <<9>>, <<7>>}) is less than WorkingPrecision \ (\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 123, 137, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.841826482012022*^9, 3.8418265982231407`*^9}, 3.8418266678489017`*^9, {3.841826768683412*^9, 3.841826780765348*^9}, { 3.841826898513888*^9, 3.8418269227694597`*^9}, 3.841826973347541*^9, 3.84182705459556*^9, 3.841827294890627*^9, 3.841827359251132*^9}, CellLabel-> "During evaluation of \ In[123]:=",ExpressionUUID->"9d0aaa2d-9044-4606-9061-02502fb2546a"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ "\[Theta]c", "\[Rule]", "1.46719524247946543920847525649236957852`20."}], ",", RowBox[{ "\[Theta]0", "\[Rule]", "0.19457016510998079468024195022063240678`20."}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.13981281457927161082485469966163306683`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.15520158650894769548178800010706248909`20."}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.32545792913122707137708917055856925022`20."}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.04359535731944888945582548709564370455`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.00472740162042339412620713423023968762`20."}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.0004294421184630650496095084304106164`20."}]}]}], "}"}]], "Output", CellChangeTimes->{{3.841826482020074*^9, 3.8418265862239122`*^9}, { 3.841826659980463*^9, 3.841826667924841*^9}, {3.841826769333158*^9, 3.841826781359291*^9}, {3.841826901984071*^9, 3.841826926295443*^9}, 3.841826976960929*^9, 3.841827061597597*^9, 3.841827305149766*^9, 3.841827366006094*^9}, CellLabel-> "Out[123]=",ExpressionUUID->"566df64d-7810-429a-afb1-f800919aefb9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Total", "[", SuperscriptBox[ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", RowBox[{"h", "[", "4", "]"}], ",", SuperscriptBox["10", RowBox[{"-", "15"}]]}], "]"}], "[", "5", "]"}], "2"], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "4", "]"}], "]"}]}], "/.", "m31"}]], "Input", CellChangeTimes->{{3.841827091379568*^9, 3.8418270964598017`*^9}, { 3.841827308864356*^9, 3.841827310927503*^9}}, CellLabel-> "In[102]:=",ExpressionUUID->"db5637ef-5db6-417e-aa71-a7604e24c6ef"], Cell[BoxData["7410.009703090096`"], "Output", CellChangeTimes->{3.841827096965208*^9, 3.841827311458522*^9}, CellLabel-> "Out[102]=",ExpressionUUID->"3de50d92-0b34-4eb5-b769-b252da7dda77"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m4", "=", RowBox[{"annealFit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", RowBox[{"h", "[", "5", "]"}], ",", "\[Delta]"}], "]"}], "[", "6", "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "5", "]"}], "]"}]}], ",", "\[Delta]", ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"m3", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"gC", "[", "4", "]"}], "->", "0"}], ",", RowBox[{ RowBox[{"gC", "[", "5", "]"}], "->", "0"}]}], "}"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.8414649234989033`*^9, 3.841464929562983*^9}, 3.8414650365927067`*^9, {3.841466519588132*^9, 3.8414665280647097`*^9}, { 3.841466604931347*^9, 3.8414666419938307`*^9}, {3.8414666855258636`*^9, 3.841466727221444*^9}, {3.84146676121622*^9, 3.8414667820495234`*^9}, { 3.84148396767577*^9, 3.8414839726025257`*^9}, {3.84148521082797*^9, 3.8414853154915857`*^9}, {3.841733796562776*^9, 3.841733797057767*^9}, { 3.841735203005892*^9, 3.841735209699418*^9}, {3.8418273747300787`*^9, 3.841827382400734*^9}}, CellLabel-> "In[125]:=",ExpressionUUID->"d22ce325-6b7f-4f46-b453-76866b23bb27"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ \"-\\\", \\\"1.5823788780514753`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, 125, 139, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.84173381086263*^9, 3.8417351675859528`*^9, 3.8417352270858*^9, 3.841827118165216*^9, 3.841827642836625*^9}, CellLabel-> "During evaluation of \ In[125]:=",ExpressionUUID->"1eb674f0-c985-414c-8dd4-9df222e3420e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ \"-\\\", \\\"1.9927773573642074`*^-307\\\"}], \\\")\\\"}]}]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, 125, 140, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.84173381086263*^9, 3.8417351675859528`*^9, 3.8417352270858*^9, 3.841827118165216*^9, 3.841827643843383*^9}, CellLabel-> "During evaluation of \ In[125]:=",ExpressionUUID->"79ae622b-68cc-4ae5-9cbf-67c098c2cfdc"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\ \"-\\\", \\\"1.054919252034317`*^-307\\\"}], \\\")\\\"}]}]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 125, 141, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.84173381086263*^9, 3.8417351675859528`*^9, 3.8417352270858*^9, 3.841827118165216*^9, 3.841827644844027*^9}, CellLabel-> "During evaluation of \ In[125]:=",ExpressionUUID->"702c1b9f-d31c-42f7-8c24-f62b86396c0d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 125, 142, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.84173381086263*^9, 3.8417351675859528`*^9, 3.8417352270858*^9, 3.841827118165216*^9, 3.841827645844573*^9}, CellLabel-> "During evaluation of \ In[125]:=",ExpressionUUID->"c458fce2-db72-4ca5-a4dc-37f71ca848e3"], Cell[CellGroupData[{ Cell[BoxData["210.64422127514067`"], "Print", CellChangeTimes->{3.841733814067276*^9, 3.841735157616345*^9, 3.841735219557222*^9, 3.8418271214113617`*^9, 3.841827646111308*^9}, CellLabel-> "During evaluation of \ In[125]:=",ExpressionUUID->"1eadd117-6f6a-485f-b06d-5da8ab64d17d"], Cell[BoxData["542.9718710843498`"], "Print", CellChangeTimes->{3.841733814067276*^9, 3.841735157616345*^9, 3.841735219557222*^9, 3.8418271214113617`*^9, 3.8418276484137173`*^9}, CellLabel-> "During evaluation of \ In[125]:=",ExpressionUUID->"2c93ecc5-7bfe-40b2-b98d-6164a1f802db"], Cell[BoxData["543.0008053657173`"], "Print", CellChangeTimes->{3.841733814067276*^9, 3.841735157616345*^9, 3.841735219557222*^9, 3.8418271214113617`*^9, 3.841827656233279*^9}, CellLabel-> "During evaluation of \ In[125]:=",ExpressionUUID->"7a2062df-133d-4aed-b7ac-a77a0c3957f1"], Cell[BoxData["543.0013977981135`"], "Print", CellChangeTimes->{3.841733814067276*^9, 3.841735157616345*^9, 3.841735219557222*^9, 3.8418271214113617`*^9, 3.841827656591814*^9}, CellLabel-> "During evaluation of \ In[125]:=",ExpressionUUID->"466d97cd-f0c3-4dcd-b3b4-a489a8cf840d"], Cell[BoxData["547.4881084839132`"], "Print", CellChangeTimes->{3.841733814067276*^9, 3.841735157616345*^9, 3.841735219557222*^9, 3.8418271214113617`*^9, 3.8418276568213663`*^9}, CellLabel-> "During evaluation of \ In[125]:=",ExpressionUUID->"59599292-8821-416f-8a16-ae9ecf852ef6"] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"547.4881084839132`", ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]c", "\[Rule]", "1.446830533535459`"}], ",", RowBox[{"\[Theta]0", "\[Rule]", "0.19767409932724675`"}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.313137454277198`"}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.3867273605732717`"}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.29759427685280704`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.09961520579360285`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.034391842588091394`"}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.011718522101898993`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.0024020141215996245`"}], ",", RowBox[{ RowBox[{"gC", "[", "5", "]"}], "\[Rule]", RowBox[{"-", "0.0002149751984089997`"}]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.841465025789603*^9, 3.8414651161396313`*^9, 3.841466522687828*^9, 3.841466555475013*^9, 3.841466668800694*^9, {3.841466708777321*^9, 3.841466735908298*^9}, {3.841466779836482*^9, 3.8414667940802307`*^9}, 3.841466824528336*^9, 3.841483997419278*^9, {3.841485225140195*^9, 3.84148530730641*^9}, 3.841485346491642*^9, 3.841727678198784*^9, { 3.841733795931508*^9, 3.841733821796796*^9}, 3.8417351720463753`*^9, 3.8417352475906267`*^9, 3.841827146904572*^9, 3.841827657292903*^9}, CellLabel-> "Out[125]=",ExpressionUUID->"6d7a8040-abd3-4614-8989-bd49a44bcdd7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m41", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Total", "[", SuperscriptBox[ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", RowBox[{"h", "[", "5", "]"}], ",", SuperscriptBox["10", RowBox[{"-", "15"}]]}], "]"}], "[", "6", "]"}], "2"], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "5", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m4", "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "1"}], "]"}], "]"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"m4", "[", RowBox[{"[", "2", "]"}], "]"}], "/.", RowBox[{"Rule", "->", "List"}]}], "]"}], ",", RowBox[{"WorkingPrecision", "\[Rule]", "20"}], ",", RowBox[{"MaxIterations", "\[Rule]", "5000"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.841826409040468*^9, 3.841826597778789*^9}, { 3.841826667389724*^9, 3.841826667595948*^9}, {3.8418267356853933`*^9, 3.8418267802857647`*^9}, {3.841826861255658*^9, 3.841826922184668*^9}, { 3.8418269725707407`*^9, 3.841826994313775*^9}, {3.8418270452029877`*^9, 3.841827053242969*^9}, {3.8418271119240437`*^9, 3.84182712854834*^9}, { 3.841827636088339*^9, 3.841827638701561*^9}}, CellLabel-> "In[126]:=",ExpressionUUID->"05fba3a3-cdb1-4967-ac49-78ffed60b2dc"], Cell[BoxData[ TemplateBox[{ "FindRoot", "precw", "\"The precision of the argument function ({8. Power[10, 8] (Divide[-2 \ <<1>>, <<1>>] + <<1>>) (-0.1893 - Divide[(Power[\[Theta]0, 2] + \ Power[\[Theta]c, 2]) (-\[Theta]0 + Power[\[Theta]0, 3] gC[1] - \ Power[\[Theta]0, 5] gC[2] + Power[\[Theta]0, 7] gC[3] - Power[\[Theta]0, 9] \ gC[4] + Power[\[Theta]0, 11] gC[5]), Power[1 + Power[\[Theta]0, 2], <<1>>] \ Power[\[Theta]c, 2]]) + <<11>>, <<9>>}) is less than WorkingPrecision (\\!\\(\ \\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 126, 143, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.841826482012022*^9, 3.8418265982231407`*^9}, 3.8418266678489017`*^9, {3.841826768683412*^9, 3.841826780765348*^9}, { 3.841826898513888*^9, 3.8418269227694597`*^9}, 3.841826973347541*^9, 3.84182705459556*^9, 3.841827366949621*^9, 3.8418276818272257`*^9}, CellLabel-> "During evaluation of \ In[126]:=",ExpressionUUID->"bd9355a7-8279-4425-9f9f-040a6462886b"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ "\[Theta]c", "\[Rule]", "1.44683053350812983438995081519416617309`20."}], ",", RowBox[{ "\[Theta]0", "\[Rule]", "0.19767409932901857743941450706057262448`20."}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.31313745434454724513927470627039212435`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.38672736066035178242669250518105638098`20."}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.29759427685411207389325812446950716968`20."}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.09961520579164134909262327610771929`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.03439184257537925262684543279921815462`20."}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.01171852209256335034764595054480531359`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.00240201411883554545254975381484167573`20."}], ",", RowBox[{ RowBox[{"gC", "[", "5", "]"}], "\[Rule]", RowBox[{"-", "0.00021497519810754231402731638303284138`20."}]}]}], "}"}]], "Output", CellChangeTimes->{{3.841826482020074*^9, 3.8418265862239122`*^9}, { 3.841826659980463*^9, 3.841826667924841*^9}, {3.841826769333158*^9, 3.841826781359291*^9}, {3.841826901984071*^9, 3.841826926295443*^9}, 3.841826976960929*^9, 3.841827061597597*^9, 3.841827625662114*^9, 3.841827712512493*^9}, CellLabel-> "Out[126]=",ExpressionUUID->"654d71eb-dee5-458e-8255-34110ac2bc9b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Total", "[", SuperscriptBox[ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", RowBox[{"h", "[", "5", "]"}], ",", SuperscriptBox["10", RowBox[{"-", "15"}]]}], "]"}], "[", "6", "]"}], "2"], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "5", "]"}], "]"}]}], "/.", "m41"}]], "Input", CellChangeTimes->{{3.841827810752561*^9, 3.841827812064506*^9}}, CellLabel-> "In[127]:=",ExpressionUUID->"95183f9d-14a9-49a1-839d-4444c8816906"], Cell[BoxData["543.000787362022`"], "Output", CellChangeTimes->{3.84182781294737*^9}, CellLabel-> "Out[127]=",ExpressionUUID->"8587fd91-aaae-4609-8a53-56d0d1a38c08"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m5", "=", RowBox[{"annealFit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", RowBox[{"h", "[", "7", "]"}], ",", "\[Delta]"}], "]"}], "[", "7", "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "7", "]"}], "]"}]}], ",", "\[Delta]", ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"m4", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"gC", "[", "6", "]"}], "->", "0"}], ",", RowBox[{ RowBox[{"gC", "[", "7", "]"}], "->", "0"}]}], "}"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGCQAGIQLT+x/Fj/vDeOav/fnAHRZXdv3AfRpu8nPATReZ1C z0G0EFvcCxC9w1rlG4i2kL//HUQ/3tarNwFIiySIGIDotoLb63cBaZ0rjzaB 6EOd1x6AaLaN/8C0/bV6991AeoVbrxeI/iSy1+0BkOZKK/UA0cfDKtpAtGio dDuItu29Oh9E3377C0xfe+q68xGQfu3KvQtEn2UqOQCipwicPgKi14pW5DDP f+N4rLokF0TfUdpswwKkOaS8bUH0l4cBniA6wW26L4g+vTY3BETrxkaEguhj My+68ALpE+9z3EC0Sdi8Bc1A+vhnycUg2u6Xz5I2IG10/R6YfrMoyK8dSGfO FfYH0VtkdkWC6OvG92NB9Pql2yZsAdKc91dNBNHiV0N2gOgj5Xt2gmgA+lTW wA== "], CellLabel-> "In[175]:=",ExpressionUUID->"11802c33-e902-4c87-b4ea-a0ce5f2dcdff"], Cell[BoxData[ TemplateBox[{ "CompiledFunction", "cfn", "\"Numerical error encountered at instruction \ \\!\\(\\*RowBox[{\\\"295\\\"}]\\); proceeding with uncompiled evaluation.\"", 2, 175, 175, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.841733963748535*^9, 3.841735325334972*^9, 3.841735380183619*^9, 3.8417354442440033`*^9, 3.8418280236213093`*^9, 3.8418283418822727`*^9}, CellLabel-> "During evaluation of \ In[175]:=",ExpressionUUID->"41668fb4-8f9f-4c09-b1cd-03ad9ef4c0e9"], Cell[BoxData[ TemplateBox[{ "CompiledFunction", "cfn", "\"Numerical error encountered at instruction \ \\!\\(\\*RowBox[{\\\"295\\\"}]\\); proceeding with uncompiled evaluation.\"", 2, 175, 176, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.841733963748535*^9, 3.841735325334972*^9, 3.841735380183619*^9, 3.8417354442440033`*^9, 3.8418280236213093`*^9, 3.8418283449623537`*^9}, CellLabel-> "During evaluation of \ In[175]:=",ExpressionUUID->"ca915e3a-7833-4a4f-a0ed-814ea3e75567"], Cell[BoxData[ TemplateBox[{ "CompiledFunction", "cfn", "\"Numerical error encountered at instruction \ \\!\\(\\*RowBox[{\\\"295\\\"}]\\); proceeding with uncompiled evaluation.\"", 2, 175, 177, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.841733963748535*^9, 3.841735325334972*^9, 3.841735380183619*^9, 3.8417354442440033`*^9, 3.8418280236213093`*^9, 3.841828346039682*^9}, CellLabel-> "During evaluation of \ In[175]:=",ExpressionUUID->"05c2fd8d-fd1a-4756-b04a-e8537047f74e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"CompiledFunction\\\", \ \\\"::\\\", \\\"cfn\\\"}], \\\"MessageName\\\"]\\) will be suppressed during \ this calculation.\"", 2, 175, 178, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.841733963748535*^9, 3.841735325334972*^9, 3.841735380183619*^9, 3.8417354442440033`*^9, 3.8418280236213093`*^9, 3.8418283470403*^9}, CellLabel-> "During evaluation of \ In[175]:=",ExpressionUUID->"f1fa7de1-abe8-4fbe-a3b9-7254834db41f"], Cell[BoxData[ TemplateBox[{ "CompiledFunction", "cfne", "\"Numerical error encountered; proceeding with uncompiled evaluation.\"", 2, 175, 179, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.841733963748535*^9, 3.841735325334972*^9, 3.841735380183619*^9, 3.8417354442440033`*^9, 3.8418280236213093`*^9, 3.8418283497399054`*^9}, CellLabel-> "During evaluation of \ In[175]:=",ExpressionUUID->"6fece7d9-7a00-4299-9f04-f5fb8de0cd65"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1\\\", \ SuperscriptBox[\\\"2.304509622488196`*^53\\\", \\\"6\\\"]]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 175, 180, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.841733963748535*^9, 3.841735325334972*^9, 3.841735380183619*^9, 3.8417354442440033`*^9, 3.8418280236213093`*^9, 3.841828350760833*^9}, CellLabel-> "During evaluation of \ In[175]:=",ExpressionUUID->"778f2f82-5b97-4ffc-b743-59c8fccbe5dc"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1\\\", \ SuperscriptBox[\\\"2.304509622488196`*^53\\\", \\\"6\\\"]]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 175, 181, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.841733963748535*^9, 3.841735325334972*^9, 3.841735380183619*^9, 3.8417354442440033`*^9, 3.8418280236213093`*^9, 3.841828351762226*^9}, CellLabel-> "During evaluation of \ In[175]:=",ExpressionUUID->"f02a9f16-0650-4b8e-8c23-94f56cff9fd7"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*FractionBox[\\\"1\\\", \ SuperscriptBox[\\\"2.304509622488196`*^53\\\", \\\"7\\\"]]\\) is too small to \ represent as a normalized machine number; precision may be lost.\"", 2, 175, 182, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.841733963748535*^9, 3.841735325334972*^9, 3.841735380183619*^9, 3.8417354442440033`*^9, 3.8418280236213093`*^9, 3.841828352763657*^9}, CellLabel-> "During evaluation of \ In[175]:=",ExpressionUUID->"4e59c2e0-2258-40e7-94de-27b4487488c2"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 175, 183, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.841733963748535*^9, 3.841735325334972*^9, 3.841735380183619*^9, 3.8417354442440033`*^9, 3.8418280236213093`*^9, 3.8418283537649527`*^9}, CellLabel-> "During evaluation of \ In[175]:=",ExpressionUUID->"b661f0d6-f0ad-49ab-ba5e-571ab55dc3d4"], Cell[CellGroupData[{ Cell[BoxData["1.9017900407346886`"], "Print", CellChangeTimes->{3.8417354284961843`*^9, 3.841828027284082*^9, 3.8418283736957903`*^9}, CellLabel-> "During evaluation of \ In[175]:=",ExpressionUUID->"2771a46a-e776-4ace-a985-62647351a33a"], Cell[BoxData["1.902111085802813`"], "Print", CellChangeTimes->{3.8417354284961843`*^9, 3.841828027284082*^9, 3.841828397004847*^9}, CellLabel-> "During evaluation of \ In[175]:=",ExpressionUUID->"5fd5c7c5-8b0e-49d6-ad3d-e57ec084ccd1"], Cell[BoxData["1.9022669784689206`"], "Print", CellChangeTimes->{3.8417354284961843`*^9, 3.841828027284082*^9, 3.841828397756584*^9}, CellLabel-> "During evaluation of \ In[175]:=",ExpressionUUID->"7f628f55-8395-4206-8d7f-3b6b90a6d353"], Cell[BoxData["1.903074502481198`"], "Print", CellChangeTimes->{3.8417354284961843`*^9, 3.841828027284082*^9, 3.841828413555407*^9}, CellLabel-> "During evaluation of \ In[175]:=",ExpressionUUID->"0347675c-f132-46eb-ac5a-2a9d1d0bbc75"], Cell[BoxData["3.7653774164246467`"], "Print", CellChangeTimes->{3.8417354284961843`*^9, 3.841828027284082*^9, 3.841828415153451*^9}, CellLabel-> "During evaluation of \ In[175]:=",ExpressionUUID->"49328f8b-e9ec-473a-9744-d85b769718df"] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"3.7653774164246467`", ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]c", "\[Rule]", "1.4204467431818846`"}], ",", RowBox[{"\[Theta]0", "\[Rule]", "0.1981981955360953`"}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.4450422389418804`"}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.572445400344034`"}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.2775034194090796`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.17285125402638662`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.13148693447359153`"}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.10486243552710944`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.057340836382735086`"}], ",", RowBox[{ RowBox[{"gC", "[", "5", "]"}], "\[Rule]", RowBox[{"-", "0.019458301469912204`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.003691983444951542`"}], ",", RowBox[{ RowBox[{"gC", "[", "7", "]"}], "\[Rule]", RowBox[{"-", "0.00029987006205201466`"}]}]}], "}"}]}], "}"}]], "Output",\ CellChangeTimes->{3.8413939151770983`*^9, 3.841398118546665*^9, 3.841398237839446*^9, 3.8413995587444963`*^9, 3.8414653249934998`*^9, 3.841466926914564*^9, 3.841466986860621*^9, 3.841467043482155*^9, 3.84146709424573*^9, 3.841485467638752*^9, 3.841727748862999*^9, 3.841727845501019*^9, 3.8417339203216867`*^9, 3.841734014800623*^9, 3.841735351995893*^9, 3.8417353959882593`*^9, 3.8417354896902313`*^9, 3.841828070375112*^9, 3.841828416853786*^9}, CellLabel-> "Out[175]=",ExpressionUUID->"c78d02da-d4d4-4c03-afa0-380e8a60c5de"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", RowBox[{"h", "[", "6", "]"}], ",", SuperscriptBox["10", RowBox[{"-", "15"}]]}], "]"}], "[", "7", "]"}], "//", "Length"}]], "Input", CellChangeTimes->{{3.841828274864975*^9, 3.841828276177104*^9}}, CellLabel-> "In[173]:=",ExpressionUUID->"17f91843-8956-4f81-b1e8-d44b6a7d9eb0"], Cell[BoxData["13"], "Output", CellChangeTimes->{3.841828276614294*^9}, CellLabel-> "Out[173]=",ExpressionUUID->"47bd5d48-5e3c-4239-aeb3-925830a4d4ee"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"m5", "[", RowBox[{"[", "2", "]"}], "]"}], "//", "Length"}]], "Input", CellChangeTimes->{{3.841828279530572*^9, 3.841828281457172*^9}}, CellLabel-> "In[174]:=",ExpressionUUID->"e5e0d48d-1b36-449f-a213-47b0b8f5a51a"], Cell[BoxData["11"], "Output", CellChangeTimes->{3.841828281622363*^9}, CellLabel-> "Out[174]=",ExpressionUUID->"b9b6d78e-1395-494a-9d59-1adb52d2e1c5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m51", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Total", "[", SuperscriptBox[ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", RowBox[{"h", "[", "7", "]"}], ",", SuperscriptBox["10", RowBox[{"-", "15"}]]}], "]"}], "[", "7", "]"}], "2"], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "7", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m5", "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "1"}], "]"}], "]"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"m5", "[", RowBox[{"[", "2", "]"}], "]"}], "/.", RowBox[{"Rule", "->", "List"}]}], "]"}], ",", RowBox[{"WorkingPrecision", "\[Rule]", "20"}], ",", RowBox[{"MaxIterations", "\[Rule]", "5000"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.841826409040468*^9, 3.841826597778789*^9}, { 3.841826667389724*^9, 3.841826667595948*^9}, {3.8418267356853933`*^9, 3.8418267802857647`*^9}, {3.841826861255658*^9, 3.841826922184668*^9}, { 3.8418269725707407`*^9, 3.841826994313775*^9}, {3.8418270452029877`*^9, 3.841827053242969*^9}, {3.8418271119240437`*^9, 3.84182712854834*^9}, { 3.841827636088339*^9, 3.841827638701561*^9}, {3.8418280886535597`*^9, 3.841828101110017*^9}, {3.841828420412331*^9, 3.8418284236037703`*^9}}, CellLabel-> "In[176]:=",ExpressionUUID->"d76e85cc-6ecb-4d98-b567-57b256fbb910"], Cell[BoxData[ TemplateBox[{ "FindRoot", "precw", "\"The precision of the argument function ({<<694750544 bytes>>}) is less \ than WorkingPrecision (\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 176, 184, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.841826482012022*^9, 3.8418265982231407`*^9}, 3.8418266678489017`*^9, {3.841826768683412*^9, 3.841826780765348*^9}, { 3.841826898513888*^9, 3.8418269227694597`*^9}, 3.841826973347541*^9, 3.84182705459556*^9, 3.841827366949621*^9, 3.8418276818272257`*^9, 3.8418281038913*^9, 3.8418284270510178`*^9}, CellLabel-> "During evaluation of \ In[176]:=",ExpressionUUID->"d81d89d5-0b6f-4772-bbbc-daf7132151e3"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ "\[Theta]c", "\[Rule]", "1.42044674318115356272976761912057586183`20."}], ",", RowBox[{ "\[Theta]0", "\[Rule]", "0.19819819553549351064564265729578369726`20."}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.44504223894882042249301971008368074851`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.57244540035740267447077726445600167892`20."}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.27750341940590951489020871879579328279`20."}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.17285125404536787104525273396059156131`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.13148693579215256906092975042260812883`20."}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.10486243853305635858930485128707134385`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.05734083915717952000654305751880391791`20."}], ",", RowBox[{ RowBox[{"gC", "[", "5", "]"}], "\[Rule]", RowBox[{"-", "0.01945830275547855951414684725017805382`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00369198374355999389580092851673014065`20."}], ",", RowBox[{ RowBox[{"gC", "[", "7", "]"}], "\[Rule]", RowBox[{"-", "0.00029987008985370817229762214144924283`20."}]}]}], "}"}]], "Output", CellChangeTimes->{{3.841826482020074*^9, 3.8418265862239122`*^9}, { 3.841826659980463*^9, 3.841826667924841*^9}, {3.841826769333158*^9, 3.841826781359291*^9}, {3.841826901984071*^9, 3.841826926295443*^9}, 3.841826976960929*^9, 3.841827061597597*^9, 3.841827625662114*^9, 3.841827712512493*^9, 3.841828205721519*^9, 3.841828563871601*^9}, CellLabel-> "Out[176]=",ExpressionUUID->"e3396b93-78fe-43c2-9e7f-cba4d01a8c7b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Total", "[", SuperscriptBox[ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", RowBox[{"h", "[", "7", "]"}], ",", SuperscriptBox["10", RowBox[{"-", "15"}]]}], "]"}], "[", "7", "]"}], "2"], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "7", "]"}], "]"}]}], "/.", "m51"}]], "Input", CellChangeTimes->{{3.841828235056446*^9, 3.841828236024247*^9}, { 3.8418284280679817`*^9, 3.8418284318836603`*^9}}, CellLabel-> "In[177]:=",ExpressionUUID->"a65b95cb-3d7a-457b-baa4-3dfcacab2a82"], Cell[BoxData["1.9021116437200405`"], "Output", CellChangeTimes->{3.841828237813458*^9, 3.841828565499898*^9}, CellLabel-> "Out[177]=",ExpressionUUID->"5dbdd46f-88a3-41c7-a9b9-703ff7b38428"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m6", "=", RowBox[{"annealFit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", RowBox[{"h", "[", "9", "]"}], ",", "\[Delta]"}], "]"}], "[", "8", "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "9", "]"}], "]"}]}], ",", "\[Delta]", ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"m5", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"gC", "[", "8", "]"}], "->", "0"}], ",", RowBox[{ RowBox[{"gC", "[", "9", "]"}], "->", "0"}]}], "}"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJwdz00ow3EAxvGFKRslzfsBJa//bFNqtZAwQg6KuGhbkQvzbrXDrGY4LP/V xGFZlHAa2rxMxAh5OVgsWWy2MDYpByLh9/wPT5/jtydDrmhoC2OxWGlkjIah w4mZUFnWX+gMDt5ee2DRG30Pu8bjnmBcZGsAbogzP6AozfMJ/Wv6AprIk/IE UNftttiJ1KVvFTrGXV4YufLLWOpSV20RFyX6GvjO25Z4iZz2gWp41KTUwfjG 1FFYrL8yQ/frN6ProXLTRwxWcu3wPKx/FxpjTw/gDS2w+Ynsu0LG5YlkO0z/ Uu9Ar2RhONxMfiZ9aKCqrkUWQTT91MthgsHVC61iTh/suAjXwlx2MWOJxbkH l5Y1DljBnzVGE098c4ymsWluDNHgzImGcqGkGVI1SsZE/+yjlpjSHRGADfNa zggxqjzIhSFnOR9ms/kCmB/ssenQLV1nNKosF1Cat++EJtNk5yjxhaK7oHBK 4bWiRx3fQ1GtLABr6aln+A/+sw4V "], CellLabel-> "In[211]:=",ExpressionUUID->"bacf1c86-2f2d-48d5-884c-81947e6029a1"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"1.5373556873898448`*^-307\ \\\"}]\\) is too small to represent as a normalized machine number; precision \ may be lost.\"", 2, 211, 195, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.841829215087719*^9}, CellLabel-> "During evaluation of \ In[211]:=",ExpressionUUID->"43154a2d-4b29-45a0-a434-ee75a37ea5a6"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"1.0249037915932299`*^-307\ \\\"}]\\) is too small to represent as a normalized machine number; precision \ may be lost.\"", 2, 211, 196, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.841829216111751*^9}, CellLabel-> "During evaluation of \ In[211]:=",ExpressionUUID->"0193046b-c796-40a0-8d34-92b38c08612e"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"2.0403955970057664`*^-307\ \\\"}]\\) is too small to represent as a normalized machine number; precision \ may be lost.\"", 2, 211, 197, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.841829217136343*^9}, CellLabel-> "During evaluation of \ In[211]:=",ExpressionUUID->"4eb58821-12d5-4a9d-a211-26a420c2aae5"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 211, 198, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.8418292181369658`*^9}, CellLabel-> "During evaluation of \ In[211]:=",ExpressionUUID->"49bff667-63d7-4760-978a-73a296ee578b"], Cell[BoxData["141.71521623560383`"], "Print", CellChangeTimes->{3.8418292198877277`*^9}, CellLabel-> "During evaluation of \ In[211]:=",ExpressionUUID->"a32f3152-51d5-4d8f-abff-ecbf1de0c45a"], Cell[BoxData[ TemplateBox[{ "CompiledFunction", "cfn", "\"Numerical error encountered at instruction \ \\!\\(\\*RowBox[{\\\"345\\\"}]\\); proceeding with uncompiled evaluation.\"", 2, 211, 199, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.84182924147563*^9}, CellLabel-> "During evaluation of \ In[211]:=",ExpressionUUID->"6bb8fc13-d816-4592-82ed-6b658105114c"], Cell[CellGroupData[{ Cell[BoxData["143.15883458108507`"], "Print", CellChangeTimes->{3.8418293614419928`*^9}, CellLabel-> "During evaluation of \ In[211]:=",ExpressionUUID->"e2626643-02b1-42d1-a109-9025993730a9"], Cell[BoxData["143.37164075763874`"], "Print", CellChangeTimes->{3.841829430485454*^9}, CellLabel-> "During evaluation of \ In[211]:=",ExpressionUUID->"44ecfe86-c61b-4b43-9afd-ff7bdde5e0f6"], Cell[BoxData["143.37249141895887`"], "Print", CellChangeTimes->{3.841829435336576*^9}, CellLabel-> "During evaluation of \ In[211]:=",ExpressionUUID->"8dc8547d-7d28-4209-996f-f00c3583f4c6"], Cell[BoxData["149.10420227212848`"], "Print", CellChangeTimes->{3.84182947111211*^9}, CellLabel-> "During evaluation of \ In[211]:=",ExpressionUUID->"86348a39-d046-406d-803b-3b303b6142ed"] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"149.10420227212848`", ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]c", "\[Rule]", "1.4353023393451338`"}], ",", RowBox[{"\[Theta]0", "\[Rule]", "0.19810750318237103`"}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.414145110467576`"}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5284785562366807`"}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.27757284310876956`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.15981661115475995`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.11177842464150112`"}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.08669227528395326`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.048241027413658745`"}], ",", RowBox[{ RowBox[{"gC", "[", "5", "]"}], "\[Rule]", RowBox[{"-", "0.01763494503661643`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.004026665969714435`"}], ",", RowBox[{ RowBox[{"gC", "[", "7", "]"}], "\[Rule]", RowBox[{"-", "0.0005421762809782185`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "0.00004156753418487688`"}], ",", RowBox[{ RowBox[{"gC", "[", "9", "]"}], "\[Rule]", RowBox[{"-", "1.9569183131822054`*^-6"}]}]}], "}"}]}], "}"}]], "Output",\ CellChangeTimes->{3.841829478405797*^9}, CellLabel-> "Out[211]=",ExpressionUUID->"3390f52a-3233-4bad-8428-c484f32992c1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m61", "=", RowBox[{"FindRoot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"D", "[", RowBox[{ RowBox[{ RowBox[{"Total", "[", SuperscriptBox[ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", RowBox[{"h", "[", "9", "]"}], ",", SuperscriptBox["10", RowBox[{"-", "15"}]]}], "]"}], "[", "8", "]"}], "2"], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "9", "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"m6", "[", RowBox[{"[", RowBox[{"2", ",", "All", ",", "1"}], "]"}], "]"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"m6", "[", RowBox[{"[", "2", "]"}], "]"}], "/.", RowBox[{"Rule", "->", "List"}]}], "]"}], ",", RowBox[{"WorkingPrecision", "\[Rule]", "20"}], ",", RowBox[{"MaxIterations", "\[Rule]", "5000"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.841826409040468*^9, 3.841826597778789*^9}, { 3.841826667389724*^9, 3.841826667595948*^9}, {3.8418267356853933`*^9, 3.8418267802857647`*^9}, {3.841826861255658*^9, 3.841826922184668*^9}, { 3.8418269725707407`*^9, 3.841826994313775*^9}, {3.8418270452029877`*^9, 3.841827053242969*^9}, {3.8418271119240437`*^9, 3.84182712854834*^9}, { 3.841827636088339*^9, 3.841827638701561*^9}, {3.8418280886535597`*^9, 3.841828101110017*^9}, {3.841828420412331*^9, 3.8418284236037703`*^9}, { 3.8418295127754307`*^9, 3.8418295264076853`*^9}}, CellLabel-> "In[222]:=",ExpressionUUID->"c58535c6-e2cc-4022-b4ee-6e96bd40636a"], Cell[BoxData[ TemplateBox[{ "FindRoot", "precw", "\"The precision of the argument function ({<<2653161352 bytes>>}) is less \ than WorkingPrecision (\\!\\(\\*RowBox[{\\\"20.`\\\"}]\\)).\"", 2, 222, 200, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{{3.841826482012022*^9, 3.8418265982231407`*^9}, 3.8418266678489017`*^9, {3.841826768683412*^9, 3.841826780765348*^9}, { 3.841826898513888*^9, 3.8418269227694597`*^9}, 3.841826973347541*^9, 3.84182705459556*^9, 3.841827366949621*^9, 3.8418276818272257`*^9, 3.8418281038913*^9, 3.8418284270510178`*^9, 3.841829536005509*^9}, CellLabel-> "During evaluation of \ In[222]:=",ExpressionUUID->"5f9bd29b-8eb0-4a32-ae66-82cfd8da388b"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ "\[Theta]c", "\[Rule]", "1.43530233934454397413388179448288836447`20."}], ",", RowBox[{ "\[Theta]0", "\[Rule]", "0.19810750318155021038673820669390491876`20."}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.41414511046370388475665774891550873252`20."}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.52847855623586235679877311886711223981`20."}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.27757284310796637050651370448598242267`20."}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.15981661117010678741660435302753868935`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.11177842476054524419979561862157555507`20."}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.08669227551449891552591646797933627525`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.04824102761320677502254090347737312691`20."}], ",", RowBox[{ RowBox[{"gC", "[", "5", "]"}], "\[Rule]", RowBox[{"-", "0.0176349451257987009895638859592901342`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.00402666598994386666996800804063142797`20."}], ",", RowBox[{ RowBox[{"gC", "[", "7", "]"}], "\[Rule]", RowBox[{"-", "0.00054217628283006627899467793224584737`20."}]}], ",", RowBox[{ RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "0.00004156753418433903738874902433439589`20."}], ",", RowBox[{ RowBox[{"gC", "[", "9", "]"}], "\[Rule]", RowBox[{"-", "1.95691831298995994482716687098716`20.*^-6"}]}]}], "}"}]], "Output", CellChangeTimes->{{3.841826482020074*^9, 3.8418265862239122`*^9}, { 3.841826659980463*^9, 3.841826667924841*^9}, {3.841826769333158*^9, 3.841826781359291*^9}, {3.841826901984071*^9, 3.841826926295443*^9}, 3.841826976960929*^9, 3.841827061597597*^9, 3.841827625662114*^9, 3.841827712512493*^9, 3.841828205721519*^9, 3.841828563871601*^9, 3.8418302295796003`*^9}, CellLabel-> "Out[222]=",ExpressionUUID->"8ef30ce7-91ad-4cb6-8ff5-0b797be59053"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Total", "[", SuperscriptBox[ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", RowBox[{"h", "[", "9", "]"}], ",", SuperscriptBox["10", RowBox[{"-", "15"}]]}], "]"}], "[", "8", "]"}], "2"], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "9", "]"}], "]"}]}], "/.", "m61"}]], "Input", CellChangeTimes->{{3.8418295433118*^9, 3.8418295443598213`*^9}}, CellLabel-> "In[223]:=",ExpressionUUID->"7f30ad07-05ba-4e34-952b-ca6f21b02e96"], Cell[BoxData["143.3716391810322`"], "Output", CellChangeTimes->{3.841830234134746*^9}, CellLabel-> "Out[223]=",ExpressionUUID->"f51249ff-f932-482f-9bc1-b30044e4e4b1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m7", "=", RowBox[{"annealFit", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", RowBox[{"h", "[", "9", "]"}], ",", "\[Delta]"}], "]"}], "[", "9", "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "9", "]"}], "]"}]}], ",", "\[Delta]", ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"m6", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", "}"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->CompressedData[" 1:eJwdz00ow3EAxvHFtrJR0rwfsOR12SZKiSU2Gjko4iJW5OL9tRxQMxzW/qtp Doso4TS0eZnIW8jLwZolC/9tYWxSDkTC7/kfnj7Hb0+Sqr2qKYjFYiWSwQR9 /5FuOlCU8hc4h3231/cw941yw7aJiCcYwa33wY385A+Yl3D/Cb1r2iyKKGgQ SKCmw2W2EUUOzyrcn3DSkLvyyyhzDpVuERcVWiV8F2wraCKvubcMHtcMaGBk dfwYLNBezUDX6zej80G+6SH65XwbvAjq2YWG8LNDeENJrF4i5y6bcVkXa4OJ X0M7kFYsDAfPkJ8xHyNwsKKukU00/VSqYJTe2QUt+bxu2HIZrIbpnALGQrN9 Dy4tj+zDEvGsIZR46pljNI1P8cOIentaKFRJFbVQpBxgjPbOPqqJcR1sH6ya V/NGiSHFfj4M2IvFMJUjlsBMf6dVg65sndEwaL6EDRkHdmgyTbaOEV9EVBuU GttpC3qiEzfMK2/0wXLK+AxzfoUrVqLQQVngPy6AF1c= "], CellLabel-> "In[234]:=",ExpressionUUID->"200b94d3-7cab-4649-99f3-c2558b1a5011"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"1.5373556873898448`*^-307\ \\\"}]\\) is too small to represent as a normalized machine number; precision \ may be lost.\"", 2, 211, 195, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.841829215087719*^9}, CellLabel-> "During evaluation of \ In[211]:=",ExpressionUUID->"8286d0bb-4e6c-4e7a-b928-3c79819fc289"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"1.0249037915932299`*^-307\ \\\"}]\\) is too small to represent as a normalized machine number; precision \ may be lost.\"", 2, 211, 196, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.841829216111751*^9}, CellLabel-> "During evaluation of \ In[211]:=",ExpressionUUID->"e2ff3031-bd78-4855-8bc7-9747fcae88e3"], Cell[BoxData[ TemplateBox[{ "General", "munfl", "\"\\!\\(\\*RowBox[{\\\"0.1`\\\", \\\" \\\", \\\"2.0403955970057664`*^-307\ \\\"}]\\) is too small to represent as a normalized machine number; precision \ may be lost.\"", 2, 211, 197, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.841829217136343*^9}, CellLabel-> "During evaluation of \ In[211]:=",ExpressionUUID->"193d3a87-2837-49e1-b092-63ac86b20f22"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ during this calculation.\"", 2, 211, 198, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.8418292181369658`*^9}, CellLabel-> "During evaluation of \ In[211]:=",ExpressionUUID->"903983c6-c194-4176-a62a-37d20d186199"], Cell[BoxData["141.71521623560383`"], "Print", CellChangeTimes->{3.8418292198877277`*^9}, CellLabel-> "During evaluation of \ In[211]:=",ExpressionUUID->"f39aff0b-2bf3-4ae8-beec-a77c7cdab645"], Cell[BoxData[ TemplateBox[{ "CompiledFunction", "cfn", "\"Numerical error encountered at instruction \ \\!\\(\\*RowBox[{\\\"345\\\"}]\\); proceeding with uncompiled evaluation.\"", 2, 211, 199, 31640151626685725371, "Local"}, "MessageTemplate"]], "Message", "MSG", CellChangeTimes->{3.84182924147563*^9}, CellLabel-> "During evaluation of \ In[211]:=",ExpressionUUID->"829bb464-97dd-4460-9e09-24e64f09c6cd"], Cell[CellGroupData[{ Cell[BoxData["143.15883458108507`"], "Print", CellChangeTimes->{3.8418293614419928`*^9}, CellLabel-> "During evaluation of \ In[211]:=",ExpressionUUID->"31d0dd9c-24f2-4fe0-9dd2-0608475aa63c"], Cell[BoxData["143.37164075763874`"], "Print", CellChangeTimes->{3.841829430485454*^9}, CellLabel-> "During evaluation of \ In[211]:=",ExpressionUUID->"07cc8905-7513-4079-baa4-1590126efe5b"], Cell[BoxData["143.37249141895887`"], "Print", CellChangeTimes->{3.841829435336576*^9}, CellLabel-> "During evaluation of \ In[211]:=",ExpressionUUID->"cd190030-d600-470f-a1b8-f2cf48a0bb35"], Cell[BoxData["149.10420227212848`"], "Print", CellChangeTimes->{3.84182947111211*^9}, CellLabel-> "During evaluation of \ In[211]:=",ExpressionUUID->"da7b9bba-21ae-4e2a-8c84-ec593f50dff7"] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"149.10420227212848`", ",", RowBox[{"{", RowBox[{ RowBox[{"\[Theta]c", "\[Rule]", "1.4353023393451338`"}], ",", RowBox[{"\[Theta]0", "\[Rule]", "0.19810750318237103`"}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.414145110467576`"}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.5284785562366807`"}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.27757284310876956`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.15981661115475995`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.11177842464150112`"}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.08669227528395326`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.048241027413658745`"}], ",", RowBox[{ RowBox[{"gC", "[", "5", "]"}], "\[Rule]", RowBox[{"-", "0.01763494503661643`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.004026665969714435`"}], ",", RowBox[{ RowBox[{"gC", "[", "7", "]"}], "\[Rule]", RowBox[{"-", "0.0005421762809782185`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "0.00004156753418487688`"}], ",", RowBox[{ RowBox[{"gC", "[", "9", "]"}], "\[Rule]", RowBox[{"-", "1.9569183131822054`*^-6"}]}]}], "}"}]}], "}"}]], "Output",\ CellChangeTimes->{3.841829478405797*^9}, CellLabel-> "Out[211]=",ExpressionUUID->"d66cf11c-6249-4ce5-90b1-7ccedf7b8994"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "#", "]"}], "===", "Around"}], ",", RowBox[{"#", "/", RowBox[{"#", "[", "\"\\"", "]"}]}], ",", RowBox[{"Around", "[", RowBox[{ RowBox[{"#", "/", SuperscriptBox["10", RowBox[{"-", "15"}]]}], ",", "1"}], "]"}]}], "]"}], "&"}], "/@", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"Ghs", "[", RowBox[{"[", RowBox[{";;", RowBox[{"7", "+", "1"}]}], "]"}], "]"}], "-", RowBox[{ RowBox[{"dFd\[Xi]HighList", "[", RowBox[{"nAs", ",", RowBox[{"h", "[", "5", "]"}]}], "]"}], "[", "7", "]"}]}], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "5", "]"}], "]"}]}], "/.", "m41"}], ")"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.8291280118781147`*^9, 3.829128118103051*^9}, { 3.829128192513464*^9, 3.82912819312051*^9}, {3.829128371940607*^9, 3.829128493270048*^9}, {3.8291285364471493`*^9, 3.8291285366627502`*^9}, { 3.829128816403723*^9, 3.829128817219697*^9}, {3.829212218892186*^9, 3.829212225564254*^9}, {3.8292122694048777`*^9, 3.829212364606584*^9}, { 3.829212422415756*^9, 3.8292124291194887`*^9}, {3.8292138886103983`*^9, 3.829213892914075*^9}, {3.829214258440802*^9, 3.829214267624782*^9}, { 3.829218996805491*^9, 3.829219001117147*^9}, {3.8371574167259398`*^9, 3.83715742501366*^9}, {3.838872732879181*^9, 3.8388727537664413`*^9}, { 3.838873204703073*^9, 3.8388732099027357`*^9}, {3.838873255752236*^9, 3.8388732834641113`*^9}, {3.8388734328271227`*^9, 3.8388734358267*^9}, { 3.838874157024147*^9, 3.8388741604719753`*^9}, {3.839307790346795*^9, 3.839307797698661*^9}, {3.8393093420874243`*^9, 3.839309343767222*^9}, { 3.83940985668435*^9, 3.8394098593718357`*^9}, {3.839479308878851*^9, 3.8394793092698917`*^9}, {3.839479351678846*^9, 3.839479359894719*^9}, { 3.839484132822569*^9, 3.83948413582975*^9}, {3.839484417835371*^9, 3.839484422402855*^9}, {3.8394844606917543`*^9, 3.8394845443653107`*^9}, { 3.839485068790997*^9, 3.839485069686892*^9}, {3.839485153592383*^9, 3.839485166081131*^9}, {3.8394852464151793`*^9, 3.8394852711790447`*^9}, { 3.839485306757688*^9, 3.8394853151639977`*^9}, {3.8394853654853773`*^9, 3.839485432894374*^9}, 3.839485523256114*^9, {3.839485578601307*^9, 3.839485649138336*^9}, {3.8394857007256727`*^9, 3.839485723219755*^9}, { 3.839485936266061*^9, 3.839486030177397*^9}, {3.839486075309197*^9, 3.839486142116439*^9}, {3.839486179828413*^9, 3.839486218245903*^9}, { 3.83948626754249*^9, 3.8394862713893957`*^9}, {3.8394864169524717`*^9, 3.8394864816965714`*^9}, {3.839486986826584*^9, 3.8394869896504993`*^9}, { 3.8394870445001507`*^9, 3.839487076477178*^9}, {3.839487130772867*^9, 3.839487144740963*^9}, {3.8394876124142523`*^9, 3.83948761275005*^9}, { 3.839487645182592*^9, 3.839487645638852*^9}, {3.839488048646216*^9, 3.839488090182976*^9}, {3.839488424581703*^9, 3.8394884272211113`*^9}, { 3.8394892409164047`*^9, 3.839489242332054*^9}, {3.839489275213091*^9, 3.839489292188744*^9}, {3.839489492289144*^9, 3.839489571665984*^9}, { 3.8394896094678373`*^9, 3.839489713796721*^9}, {3.839489762837819*^9, 3.839489797445959*^9}, {3.839489857544436*^9, 3.839489893848106*^9}, { 3.8394903055442333`*^9, 3.839490366136724*^9}, {3.839490881170803*^9, 3.8394908814338083`*^9}, {3.839490914539504*^9, 3.839490928595656*^9}, { 3.839492144689028*^9, 3.839492147329255*^9}, {3.839493141315516*^9, 3.8394931647319393`*^9}, {3.839493641949576*^9, 3.83949364210872*^9}, { 3.839494014823594*^9, 3.839494050556492*^9}, {3.8394955822727327`*^9, 3.8394956194090643`*^9}, {3.839495922911708*^9, 3.839495935527544*^9}, { 3.839496282949663*^9, 3.8394963032934713`*^9}, {3.839572033112393*^9, 3.8395720353280907`*^9}, {3.839572166843008*^9, 3.839572169346869*^9}, { 3.839586112218432*^9, 3.8395861234262123`*^9}, {3.839586281734277*^9, 3.8395862878848553`*^9}, {3.839586416192438*^9, 3.839586419599288*^9}, { 3.839658669660975*^9, 3.8396586751241493`*^9}, 3.839664357017618*^9, { 3.839664563809626*^9, 3.8396646004174013`*^9}, {3.840528591761121*^9, 3.8405285944877768`*^9}, {3.8405288185331697`*^9, 3.8405288189559*^9}, { 3.840875796597721*^9, 3.840875807414563*^9}, {3.841134596143955*^9, 3.841134611103293*^9}, {3.841135733956856*^9, 3.84113574469188*^9}, { 3.841213686096504*^9, 3.841213700287394*^9}, {3.841390489772376*^9, 3.841390490115335*^9}, {3.841466253710223*^9, 3.8414662964943447`*^9}, { 3.841466368519874*^9, 3.841466399143363*^9}, {3.8414664657685127`*^9, 3.841466482072263*^9}, {3.841466579721918*^9, 3.841466581697276*^9}, { 3.841467822982641*^9, 3.841467887060186*^9}, {3.841484003411813*^9, 3.8414840895729713`*^9}, {3.84148427696859*^9, 3.8414842809922123`*^9}, { 3.841827821577551*^9, 3.841827830168942*^9}}, CellLabel-> "In[129]:=",ExpressionUUID->"aee89b99-c52c-426f-9380-809683f9fe8d"], Cell[BoxData[ GraphicsBox[{{{ {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, {LineBox[{{1., -1.}, {1., 0.}}], LineBox[{{1., 0.}, {1., 1.}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, {LineBox[{{2., -1.}, {2., 0.}}], LineBox[{{2., 0.}, {2., 1.}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, {LineBox[{{3., -1.}, {3., 0.}}], LineBox[{{3., 0.}, {3., 1.}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, {LineBox[{{4., -1.}, {4., 0.}}], LineBox[{{4., 0.}, {4., 1.}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{5., -0.9998991029315221}, {5., 0.00010089706847793423`}}], LineBox[{{5., 0.00010089706847793423`}, {5., 1.000100897068478}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, {LineBox[{{6., -1.}, {6., 0.}}], LineBox[{{6., 0.}, {6., 1.}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{7., -0.9701544202442468}, {7., 0.029845579755753224`}}], LineBox[{{7., 0.029845579755753224`}, {7., 1.0298455797557533`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, {LineBox[{{8., -1.}, {8., 0.}}], LineBox[{{8., 0.}, {8., 1.}}]}}, Antialiasing->False]}}, { {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{1., 1.}, Offset[{3, 0}, {1., 1.}]}, {{1., 1.}, Offset[{-3, 0}, {1., 1.}]}, {{1., -1.}, Offset[{3, 0}, {1., -1.}]}, {{1., -1.}, Offset[{-3, 0}, {1., -1.}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{2., 1.}, Offset[{3, 0}, {2., 1.}]}, {{2., 1.}, Offset[{-3, 0}, {2., 1.}]}, {{2., -1.}, Offset[{3, 0}, {2., -1.}]}, {{2., -1.}, Offset[{-3, 0}, {2., -1.}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{3., 1.}, Offset[{3, 0}, {3., 1.}]}, {{3., 1.}, Offset[{-3, 0}, {3., 1.}]}, {{3., -1.}, Offset[{3, 0}, {3., -1.}]}, {{3., -1.}, Offset[{-3, 0}, {3., -1.}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{4., 1.}, Offset[{3, 0}, {4., 1.}]}, {{4., 1.}, Offset[{-3, 0}, {4., 1.}]}, {{4., -1.}, Offset[{3, 0}, {4., -1.}]}, {{4., -1.}, Offset[{-3, 0}, {4., -1.}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{5., 1.000100897068478}, Offset[{3, 0}, {5., 1.000100897068478}]}, {{5., 1.000100897068478}, Offset[{-3, 0}, {5., 1.000100897068478}]}, {{ 5., -0.9998991029315221}, Offset[{3, 0}, {5., -0.9998991029315221}]}, {{ 5., -0.9998991029315221}, Offset[{-3, 0}, {5., -0.9998991029315221}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{6., 1.}, Offset[{3, 0}, {6., 1.}]}, {{6., 1.}, Offset[{-3, 0}, {6., 1.}]}, {{6., -1.}, Offset[{3, 0}, {6., -1.}]}, {{6., -1.}, Offset[{-3, 0}, {6., -1.}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{7., 1.0298455797557533`}, Offset[{3, 0}, {7., 1.0298455797557533`}]}, {{7., 1.0298455797557533`}, Offset[{-3, 0}, {7., 1.0298455797557533`}]}, {{ 7., -0.9701544202442468}, Offset[{3, 0}, {7., -0.9701544202442468}]}, {{ 7., -0.9701544202442468}, Offset[{-3, 0}, {7., -0.9701544202442468}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{8., 1.}, Offset[{3, 0}, {8., 1.}]}, {{8., 1.}, Offset[{-3, 0}, {8., 1.}]}, {{8., -1.}, Offset[{3, 0}, {8., -1.}]}, {{8., -1.}, Offset[{-3, 0}, {8., -1.}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}}}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., 0.}, {2., 0.}, {3., 0.}, {4., 0.}, {5., 0.00010089706847793423`}, {6., 0.}, {7., 0.029845579755753224`}, {8., 0.}}]}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0., 8.}, {-0.04476836963362984, 0.07461394938938307}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.8394864302572823`*^9, 3.839486485737481*^9}, { 3.8394868108920527`*^9, 3.839486833544271*^9}, {3.839486968169405*^9, 3.839486994739235*^9}, {3.839487050609737*^9, 3.839487081545911*^9}, { 3.839487139032605*^9, 3.839487149734391*^9}, 3.8394880559648848`*^9, 3.839488095210012*^9, 3.839488432022138*^9, 3.839488966485567*^9, 3.839489132907782*^9, 3.8394891742679043`*^9, {3.83948923216856*^9, 3.839489247298073*^9}, {3.8394892811100388`*^9, 3.839489297255623*^9}, { 3.839489518429874*^9, 3.839489576749642*^9}, 3.839489614460577*^9, { 3.839489646744204*^9, 3.839489717916*^9}, {3.839489779953936*^9, 3.839489797877178*^9}, {3.839489858269053*^9, 3.839489894400456*^9}, 3.83948999298129*^9, 3.839490039302783*^9, 3.839490198501548*^9, { 3.8394903145949183`*^9, 3.839490366668486*^9}, 3.839490410230691*^9, 3.83949068744411*^9, 3.839490882032105*^9, {3.839490915087521*^9, 3.8394909440773563`*^9}, {3.839491208442045*^9, 3.839491227913024*^9}, 3.839491282583577*^9, 3.83949138318426*^9, 3.839491847872534*^9, 3.839491922779976*^9, {3.83949214072232*^9, 3.839492147793445*^9}, 3.839492703416108*^9, {3.8394930877867403`*^9, 3.839493111348575*^9}, 3.839493159337824*^9, 3.839493260745894*^9, 3.8394938495813704`*^9, { 3.839494015878335*^9, 3.839494051166876*^9}, 3.839494155707307*^9, { 3.839494232008819*^9, 3.8394942817479143`*^9}, {3.8394955838062563`*^9, 3.839495620912838*^9}, {3.839495892980287*^9, 3.839495961352178*^9}, 3.839495996781355*^9, 3.8394960290995007`*^9, {3.8394961117034683`*^9, 3.839496132210868*^9}, {3.839496233750821*^9, 3.839496247464304*^9}, { 3.839496287823802*^9, 3.839496304224265*^9}, 3.83949641106695*^9, 3.839496651844782*^9, 3.839569714442939*^9, 3.839570692350816*^9, 3.839571037545631*^9, 3.8395710776956797`*^9, 3.8395711376334047`*^9, 3.839571186222416*^9, 3.839571351854351*^9, 3.8395716431049433`*^9, 3.8395716961263447`*^9, 3.8395719356619263`*^9, 3.839571975466508*^9, { 3.8395720292576017`*^9, 3.839572038127006*^9}, {3.83957217256413*^9, 3.83957219391011*^9}, 3.839572236054682*^9, {3.839572276306333*^9, 3.839572287892969*^9}, 3.839572342583872*^9, 3.839572572560753*^9, 3.839572613884104*^9, {3.839572830197351*^9, 3.839572867853582*^9}, { 3.839572962859436*^9, 3.839572978399377*^9}, 3.839573191565909*^9, 3.83957323416776*^9, 3.839574190974876*^9, {3.839574358418882*^9, 3.839574363836178*^9}, 3.839577688193771*^9, {3.839577931409347*^9, 3.839577940725779*^9}, {3.839579623692398*^9, 3.839579641583359*^9}, 3.839580176251998*^9, {3.839580243310802*^9, 3.839580260058309*^9}, 3.83958034038577*^9, 3.839581557584*^9, {3.83958160487352*^9, 3.839581615679512*^9}, 3.839581993151758*^9, 3.839582040886951*^9, 3.839582108820992*^9, 3.839582559973913*^9, 3.839582771424386*^9, { 3.839583107834976*^9, 3.839583154778919*^9}, {3.8395842000019083`*^9, 3.839584229236342*^9}, 3.839584319284484*^9, 3.8395843940434847`*^9, 3.839584572371277*^9, 3.839584947067206*^9, 3.839585081305537*^9, 3.839586137503179*^9, 3.8395862976249247`*^9, 3.839586429104487*^9, 3.839587842464167*^9, 3.839647990219092*^9, 3.8396572711023006`*^9, 3.839658508039483*^9, 3.839658567146755*^9, {3.8396586610674477`*^9, 3.8396586758654203`*^9}, 3.839659271097528*^9, 3.839661799778942*^9, { 3.839664337728752*^9, 3.8396643582360373`*^9}, {3.839664548980212*^9, 3.839664603837595*^9}, 3.839664641104356*^9, 3.8396691346008053`*^9, 3.8396700455490303`*^9, 3.839670127013689*^9, 3.8405260833413677`*^9, { 3.840527418121812*^9, 3.840527428230318*^9}, 3.840528597876438*^9, { 3.84052880585203*^9, 3.840528823602725*^9}, 3.840610810412817*^9, 3.8408694556097403`*^9, 3.840872804624278*^9, {3.840875797574889*^9, 3.8408758121424313`*^9}, {3.840877666763609*^9, 3.840877677233533*^9}, 3.840878067793683*^9, {3.840880830069907*^9, 3.84088085023195*^9}, { 3.840880881407505*^9, 3.840880885369958*^9}, 3.840880931429838*^9, 3.840880983523183*^9, 3.840882901582034*^9, 3.8411116534753313`*^9, 3.841111732347678*^9, 3.841112335446682*^9, 3.8411123976633244`*^9, 3.8411142717862453`*^9, 3.841114943143334*^9, 3.841115089052647*^9, 3.841115194051117*^9, 3.8411159468161507`*^9, 3.841116777994376*^9, 3.841117271305902*^9, {3.841118706967044*^9, 3.841118717367868*^9}, { 3.8411193655082083`*^9, 3.84111937034937*^9}, 3.8411197766851873`*^9, 3.8411198234566708`*^9, 3.841119866102133*^9, 3.841120115400488*^9, 3.841121153260182*^9, 3.841121472842341*^9, 3.841121535767632*^9, 3.8411219087701063`*^9, 3.841121980800602*^9, 3.841130166199669*^9, 3.8411305965940332`*^9, {3.841130719276822*^9, 3.8411307399666243`*^9}, 3.8411312190210743`*^9, 3.841134375147834*^9, 3.8411344263576813`*^9, { 3.8411344705668488`*^9, 3.841134479867544*^9}, {3.8411346037463017`*^9, 3.8411346144767933`*^9}, 3.8411356496009407`*^9, 3.841135748390747*^9, 3.8412137046354218`*^9, 3.841225535005499*^9, 3.8413034028742332`*^9, 3.841304441693802*^9, 3.841304530951276*^9, {3.841305187833931*^9, 3.841305194151207*^9}, 3.84130523777777*^9, 3.8413053474536552`*^9, 3.84131085931179*^9, 3.841316307349918*^9, {3.841390485438642*^9, 3.84139049061092*^9}, 3.841390578562212*^9, 3.841391291253233*^9, 3.841392160241373*^9, 3.841392337222522*^9, 3.841463592218527*^9, 3.841464593325774*^9, {3.84146629539501*^9, 3.841466301656163*^9}, { 3.841466384639339*^9, 3.841466402526952*^9}, {3.841466472723971*^9, 3.8414664828370647`*^9}, 3.8414665824436007`*^9, 3.841466673870327*^9, 3.841467838433302*^9, {3.841467883576232*^9, 3.8414678912410383`*^9}, { 3.841484010972992*^9, 3.841484090971327*^9}, 3.841484283040318*^9, { 3.841827824633439*^9, 3.841827830609838*^9}}, CellLabel-> "Out[129]=",ExpressionUUID->"e2cf0809-e3b4-4dec-a74f-4d1922647b69"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListPlot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "#", "]"}], "===", "Around"}], ",", RowBox[{"#", "/", RowBox[{"#", "[", "\"\\"", "]"}]}], ",", RowBox[{"Around", "[", RowBox[{ RowBox[{"#", "/", SuperscriptBox["10", RowBox[{"-", "13"}]]}], ",", "1"}], "]"}]}], "]"}], "&"}], "/@", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Abs", "[", RowBox[{ RowBox[{"Gls", "[", RowBox[{"[", RowBox[{";;", RowBox[{"4", "+", "1"}]}], "]"}], "]"}], "-", RowBox[{ RowBox[{"dFd\[Xi]LowList", "[", RowBox[{"nAs", ",", RowBox[{"h", "[", "3", "]"}]}], "]"}], "[", "4", "]"}]}], "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "3", "]"}], "]"}]}], "/.", "m21"}], ")"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.8291280118781147`*^9, 3.829128118103051*^9}, { 3.829128192513464*^9, 3.82912819312051*^9}, {3.829128371940607*^9, 3.829128493270048*^9}, {3.8291285364471493`*^9, 3.8291285366627502`*^9}, { 3.829128816403723*^9, 3.829128817219697*^9}, {3.829212218892186*^9, 3.829212225564254*^9}, {3.8292122694048777`*^9, 3.829212364606584*^9}, { 3.829212422415756*^9, 3.8292124291194887`*^9}, {3.8292138886103983`*^9, 3.829213892914075*^9}, {3.829214258440802*^9, 3.829214267624782*^9}, { 3.829218996805491*^9, 3.829219001117147*^9}, {3.8371574167259398`*^9, 3.83715742501366*^9}, {3.838872732879181*^9, 3.8388727537664413`*^9}, { 3.838873204703073*^9, 3.8388732099027357`*^9}, {3.838873255752236*^9, 3.8388732834641113`*^9}, {3.8388734328271227`*^9, 3.8388734358267*^9}, { 3.838874157024147*^9, 3.8388741604719753`*^9}, {3.839307790346795*^9, 3.839307797698661*^9}, {3.8393093420874243`*^9, 3.839309343767222*^9}, { 3.83940985668435*^9, 3.8394098593718357`*^9}, {3.839479308878851*^9, 3.8394793092698917`*^9}, {3.839479351678846*^9, 3.839479359894719*^9}, { 3.839484132822569*^9, 3.83948413582975*^9}, {3.839484417835371*^9, 3.839484422402855*^9}, {3.8394844606917543`*^9, 3.8394845443653107`*^9}, { 3.839485068790997*^9, 3.839485069686892*^9}, {3.839485153592383*^9, 3.839485166081131*^9}, {3.8394852464151793`*^9, 3.8394852711790447`*^9}, { 3.839485306757688*^9, 3.8394853151639977`*^9}, {3.8394853654853773`*^9, 3.839485432894374*^9}, 3.839485523256114*^9, {3.839485578601307*^9, 3.839485649138336*^9}, {3.8394857007256727`*^9, 3.839485723219755*^9}, { 3.839485936266061*^9, 3.839486030177397*^9}, {3.839486075309197*^9, 3.839486142116439*^9}, {3.839486179828413*^9, 3.839486218245903*^9}, { 3.83948626754249*^9, 3.8394862713893957`*^9}, {3.8394864169524717`*^9, 3.8394864816965714`*^9}, {3.839486986826584*^9, 3.8394869896504993`*^9}, { 3.8394870445001507`*^9, 3.839487076477178*^9}, {3.839487130772867*^9, 3.839487144740963*^9}, {3.8394876124142523`*^9, 3.83948761275005*^9}, { 3.839487645182592*^9, 3.839487645638852*^9}, {3.839488048646216*^9, 3.839488090182976*^9}, {3.839488424581703*^9, 3.8394884272211113`*^9}, { 3.8394892409164047`*^9, 3.839489242332054*^9}, {3.839489275213091*^9, 3.839489292188744*^9}, {3.839489492289144*^9, 3.839489571665984*^9}, { 3.8394896094678373`*^9, 3.839489713796721*^9}, {3.839489762837819*^9, 3.839489797445959*^9}, {3.839489857544436*^9, 3.839489893848106*^9}, { 3.8394903055442333`*^9, 3.839490366136724*^9}, {3.839490881170803*^9, 3.8394908814338083`*^9}, {3.839490914539504*^9, 3.839490928595656*^9}, { 3.839492144689028*^9, 3.839492147329255*^9}, {3.839493141315516*^9, 3.8394931647319393`*^9}, {3.839493641949576*^9, 3.83949364210872*^9}, { 3.839494014823594*^9, 3.839494050556492*^9}, {3.8394955822727327`*^9, 3.8394956194090643`*^9}, {3.839495922911708*^9, 3.839495935527544*^9}, { 3.839496282949663*^9, 3.8394963032934713`*^9}, {3.839572033112393*^9, 3.8395720353280907`*^9}, {3.839572166843008*^9, 3.839572169346869*^9}, { 3.839586112218432*^9, 3.8395861234262123`*^9}, {3.839586281734277*^9, 3.8395862878848553`*^9}, {3.839586416192438*^9, 3.839586419599288*^9}, { 3.839658669660975*^9, 3.8396586751241493`*^9}, 3.839664357017618*^9, { 3.839664563809626*^9, 3.8396646004174013`*^9}, {3.840528591761121*^9, 3.8405285944877768`*^9}, {3.8405288185331697`*^9, 3.8405288189559*^9}, { 3.840875796597721*^9, 3.840875807414563*^9}, {3.841134596143955*^9, 3.841134611103293*^9}, {3.841135733956856*^9, 3.84113574469188*^9}, { 3.841213686096504*^9, 3.841213700287394*^9}, {3.841390489772376*^9, 3.841390490115335*^9}, {3.841466253710223*^9, 3.8414662964943447`*^9}, { 3.841466368519874*^9, 3.841466399143363*^9}, {3.8414664657685127`*^9, 3.841466482072263*^9}, {3.841466579721918*^9, 3.841466581697276*^9}, { 3.841467822982641*^9, 3.841467887060186*^9}, {3.841484003411813*^9, 3.8414840895729713`*^9}, {3.841733546733794*^9, 3.841733599750197*^9}, { 3.841733657807919*^9, 3.841733679959672*^9}, {3.841827013586504*^9, 3.8418270137382708`*^9}}, CellLabel->"In[54]:=",ExpressionUUID->"86e28df3-e9b9-4c9d-b376-e2250a73da96"], Cell[BoxData[ GraphicsBox[{{{ {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, {LineBox[{{1., -1.}, {1., 0.}}], LineBox[{{1., 0.}, {1., 1.}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, {LineBox[{{2., -1.}, {2., 0.}}], LineBox[{{2., 0.}, {2., 1.}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, {LineBox[{{3., -1.}, {3., 0.}}], LineBox[{{3., 0.}, {3., 1.}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{4., -0.9990007368277922}, {4., 0.000999263172207776}}], LineBox[{{4., 0.000999263172207776}, {4., 1.0009992631722078`}}]}}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{{}, { LineBox[{{5., -0.9998453459326696}, {5., 0.00015465406733028428`}}], LineBox[{{5., 0.00015465406733028428`}, {5., 1.00015465406733}}]}}, Antialiasing->False]}}, { {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{1., 1.}, Offset[{3, 0}, {1., 1.}]}, {{1., 1.}, Offset[{-3, 0}, {1., 1.}]}, {{1., -1.}, Offset[{3, 0}, {1., -1.}]}, {{1., -1.}, Offset[{-3, 0}, {1., -1.}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{2., 1.}, Offset[{3, 0}, {2., 1.}]}, {{2., 1.}, Offset[{-3, 0}, {2., 1.}]}, {{2., -1.}, Offset[{3, 0}, {2., -1.}]}, {{2., -1.}, Offset[{-3, 0}, {2., -1.}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{3., 1.}, Offset[{3, 0}, {3., 1.}]}, {{3., 1.}, Offset[{-3, 0}, {3., 1.}]}, {{3., -1.}, Offset[{3, 0}, {3., -1.}]}, {{3., -1.}, Offset[{-3, 0}, {3., -1.}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{4., 1.0009992631722078`}, Offset[{3, 0}, {4., 1.0009992631722078`}]}, {{4., 1.0009992631722078`}, Offset[{-3, 0}, {4., 1.0009992631722078`}]}, {{ 4., -0.9990007368277922}, Offset[{3, 0}, {4., -0.9990007368277922}]}, {{ 4., -0.9990007368277922}, Offset[{-3, 0}, {4., -0.9990007368277922}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}, {RGBColor[0.368417, 0.506779, 0.709798], StyleBox[{ GeometricTransformationBox[ LineBox[{}], {{{1., 0.}, {0., 1.}}, {0., 0.}}], GeometricTransformationBox[ LineBox[{{{5., 1.00015465406733}, Offset[{3, 0}, {5., 1.00015465406733}]}, {{5., 1.00015465406733}, Offset[{-3, 0}, {5., 1.00015465406733}]}, {{ 5., -0.9998453459326696}, Offset[{3, 0}, {5., -0.9998453459326696}]}, {{ 5., -0.9998453459326696}, Offset[{-3, 0}, {5., -0.9998453459326696}]}}], {{{1., 0.}, {0., 1.}}, {0., 0.}}]}, Antialiasing->False]}}}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], PointBox[{{1., 0.}, {2., 0.}, {3., 0.}, {4., 0.000999263172207776}, {5., 0.00015465406733028428`}}]}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., 0}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}}, PlotRange->{{0., 5.}, {-0.001498894758311664, 0.00249815793051944}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{{3.8394864302572823`*^9, 3.839486485737481*^9}, { 3.8394868108920527`*^9, 3.839486833544271*^9}, {3.839486968169405*^9, 3.839486994739235*^9}, {3.839487050609737*^9, 3.839487081545911*^9}, { 3.839487139032605*^9, 3.839487149734391*^9}, 3.8394880559648848`*^9, 3.839488095210012*^9, 3.839488432022138*^9, 3.839488966485567*^9, 3.839489132907782*^9, 3.8394891742679043`*^9, {3.83948923216856*^9, 3.839489247298073*^9}, {3.8394892811100388`*^9, 3.839489297255623*^9}, { 3.839489518429874*^9, 3.839489576749642*^9}, 3.839489614460577*^9, { 3.839489646744204*^9, 3.839489717916*^9}, {3.839489779953936*^9, 3.839489797877178*^9}, {3.839489858269053*^9, 3.839489894400456*^9}, 3.83948999298129*^9, 3.839490039302783*^9, 3.839490198501548*^9, { 3.8394903145949183`*^9, 3.839490366668486*^9}, 3.839490410230691*^9, 3.83949068744411*^9, 3.839490882032105*^9, {3.839490915087521*^9, 3.8394909440773563`*^9}, {3.839491208442045*^9, 3.839491227913024*^9}, 3.839491282583577*^9, 3.83949138318426*^9, 3.839491847872534*^9, 3.839491922779976*^9, {3.83949214072232*^9, 3.839492147793445*^9}, 3.839492703416108*^9, {3.8394930877867403`*^9, 3.839493111348575*^9}, 3.839493159337824*^9, 3.839493260745894*^9, 3.8394938495813704`*^9, { 3.839494015878335*^9, 3.839494051166876*^9}, 3.839494155707307*^9, { 3.839494232008819*^9, 3.8394942817479143`*^9}, {3.8394955838062563`*^9, 3.839495620912838*^9}, {3.839495892980287*^9, 3.839495961352178*^9}, 3.839495996781355*^9, 3.8394960290995007`*^9, {3.8394961117034683`*^9, 3.839496132210868*^9}, {3.839496233750821*^9, 3.839496247464304*^9}, { 3.839496287823802*^9, 3.839496304224265*^9}, 3.83949641106695*^9, 3.839496651844782*^9, 3.839569714442939*^9, 3.839570692350816*^9, 3.839571037545631*^9, 3.8395710776956797`*^9, 3.8395711376334047`*^9, 3.839571186222416*^9, 3.839571351854351*^9, 3.8395716431049433`*^9, 3.8395716961263447`*^9, 3.8395719356619263`*^9, 3.839571975466508*^9, { 3.8395720292576017`*^9, 3.839572038127006*^9}, {3.83957217256413*^9, 3.83957219391011*^9}, 3.839572236054682*^9, {3.839572276306333*^9, 3.839572287892969*^9}, 3.839572342583872*^9, 3.839572572560753*^9, 3.839572613884104*^9, {3.839572830197351*^9, 3.839572867853582*^9}, { 3.839572962859436*^9, 3.839572978399377*^9}, 3.839573191565909*^9, 3.83957323416776*^9, 3.839574190974876*^9, {3.839574358418882*^9, 3.839574363836178*^9}, 3.839577688193771*^9, {3.839577931409347*^9, 3.839577940725779*^9}, {3.839579623692398*^9, 3.839579641583359*^9}, 3.839580176251998*^9, {3.839580243310802*^9, 3.839580260058309*^9}, 3.83958034038577*^9, 3.839581557584*^9, {3.83958160487352*^9, 3.839581615679512*^9}, 3.839581993151758*^9, 3.839582040886951*^9, 3.839582108820992*^9, 3.839582559973913*^9, 3.839582771424386*^9, { 3.839583107834976*^9, 3.839583154778919*^9}, {3.8395842000019083`*^9, 3.839584229236342*^9}, 3.839584319284484*^9, 3.8395843940434847`*^9, 3.839584572371277*^9, 3.839584947067206*^9, 3.839585081305537*^9, 3.839586137503179*^9, 3.8395862976249247`*^9, 3.839586429104487*^9, 3.839587842464167*^9, 3.839647990219092*^9, 3.8396572711023006`*^9, 3.839658508039483*^9, 3.839658567146755*^9, {3.8396586610674477`*^9, 3.8396586758654203`*^9}, 3.839659271097528*^9, 3.839661799778942*^9, { 3.839664337728752*^9, 3.8396643582360373`*^9}, {3.839664548980212*^9, 3.839664603837595*^9}, 3.839664641104356*^9, 3.8396691346008053`*^9, 3.8396700455490303`*^9, 3.839670127013689*^9, 3.8405260833413677`*^9, { 3.840527418121812*^9, 3.840527428230318*^9}, 3.840528597876438*^9, { 3.84052880585203*^9, 3.840528823602725*^9}, 3.840610810412817*^9, 3.8408694556097403`*^9, 3.840872804624278*^9, {3.840875797574889*^9, 3.8408758121424313`*^9}, {3.840877666763609*^9, 3.840877677233533*^9}, 3.840878067793683*^9, {3.840880830069907*^9, 3.84088085023195*^9}, { 3.840880881407505*^9, 3.840880885369958*^9}, 3.840880931429838*^9, 3.840880983523183*^9, 3.840882901582034*^9, 3.8411116534753313`*^9, 3.841111732347678*^9, 3.841112335446682*^9, 3.8411123976633244`*^9, 3.8411142717862453`*^9, 3.841114943143334*^9, 3.841115089052647*^9, 3.841115194051117*^9, 3.8411159468161507`*^9, 3.841116777994376*^9, 3.841117271305902*^9, {3.841118706967044*^9, 3.841118717367868*^9}, { 3.8411193655082083`*^9, 3.84111937034937*^9}, 3.8411197766851873`*^9, 3.8411198234566708`*^9, 3.841119866102133*^9, 3.841120115400488*^9, 3.841121153260182*^9, 3.841121472842341*^9, 3.841121535767632*^9, 3.8411219087701063`*^9, 3.841121980800602*^9, 3.841130166199669*^9, 3.8411305965940332`*^9, {3.841130719276822*^9, 3.8411307399666243`*^9}, 3.8411312190210743`*^9, 3.841134375147834*^9, 3.8411344263576813`*^9, { 3.8411344705668488`*^9, 3.841134479867544*^9}, {3.8411346037463017`*^9, 3.8411346144767933`*^9}, 3.8411356496009407`*^9, 3.841135748390747*^9, 3.8412137046354218`*^9, 3.841225535005499*^9, 3.8413034028742332`*^9, 3.841304441693802*^9, 3.841304530951276*^9, {3.841305187833931*^9, 3.841305194151207*^9}, 3.84130523777777*^9, 3.8413053474536552`*^9, 3.84131085931179*^9, 3.841316307349918*^9, {3.841390485438642*^9, 3.84139049061092*^9}, 3.841390578562212*^9, 3.841391291253233*^9, 3.841392160241373*^9, 3.841392337222522*^9, 3.841463592218527*^9, 3.841464593325774*^9, {3.84146629539501*^9, 3.841466301656163*^9}, { 3.841466384639339*^9, 3.841466402526952*^9}, {3.841466472723971*^9, 3.8414664828370647`*^9}, 3.8414665824436007`*^9, 3.841466673870327*^9, 3.841467838433302*^9, {3.841467883576232*^9, 3.8414678912410383`*^9}, { 3.841484010972992*^9, 3.841484090971327*^9}, {3.8417335944855137`*^9, 3.84173360078579*^9}, {3.8417336641871347`*^9, 3.8417336809514713`*^9}, 3.841733732414792*^9, 3.8418270143146687`*^9}, CellLabel->"Out[54]=",ExpressionUUID->"7248522d-d1d4-4c85-974e-1c4fb75d0538"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox[ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", RowBox[{"h", "[", "5", "]"}], ",", "\[Delta]"}], "]"}], "[", "7", "]"}], "2"], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "5", "]"}], "]"}]}], "/.", "m41"}], "/.", RowBox[{"\[Delta]", "->", SuperscriptBox["10", RowBox[{"-", "13"}]]}]}]], "Input", CellChangeTimes->{{3.841484363307539*^9, 3.8414843901158257`*^9}, { 3.841484477837139*^9, 3.841484478027885*^9}, {3.841737234056855*^9, 3.841737236584674*^9}, {3.841737343483218*^9, 3.841737356282648*^9}, { 3.8418279179390507`*^9, 3.841827919010655*^9}}, CellLabel-> "In[159]:=",ExpressionUUID->"c18b0b40-ab1a-45cd-ade8-999f04490358"], Cell[BoxData[ RowBox[{"{", RowBox[{ "0``11.223106731244716", ",", "0``9.729549536879775", ",", "0``7.935594288562297", ",", "0.000014369909231904813`", ",", "1.382022061865488`*^-6", ",", "1.3088411793461432`*^-6", ",", "0.00006349109463943773`", ",", "6.310867767580666`*^7", ",", "0``12.432330500807378", ",", "1.0180218427440947`*^-8", ",", "0.0008907586309570269`", ",", "539.0740391579806`", ",", "3.9257768833632865`"}], "}"}]], "Output", CellChangeTimes->{{3.841484380853382*^9, 3.841484391296424*^9}, 3.841484479328834*^9, {3.8417372314526987`*^9, 3.8417372372839403`*^9}, 3.841737358030662*^9, 3.8418279212521048`*^9}, CellLabel-> "Out[159]=",ExpressionUUID->"08d062c4-9852-492a-8cb4-f8dd85719bf0"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"m6", "[", RowBox[{"[", "2", "]"}], "]"}]], "Input", CellChangeTimes->{{3.841829033783963*^9, 3.8418290353904676`*^9}}, CellLabel-> "In[200]:=",ExpressionUUID->"294039ec-927c-4d0e-b5e8-b787af6c65a6"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"\[Theta]c", "\[Rule]", "1.4386492968109206`"}], ",", RowBox[{"\[Theta]0", "\[Rule]", "0.19811568425039638`"}], ",", RowBox[{"AH", "\[Rule]", RowBox[{"-", "2.413816520799948`"}]}], ",", RowBox[{ RowBox[{"A", "[", "1", "]"}], "\[Rule]", "1.527854128004632`"}], ",", RowBox[{ RowBox[{"A", "[", "2", "]"}], "\[Rule]", "0.27587973561318635`"}], ",", RowBox[{ RowBox[{"gC", "[", "1", "]"}], "\[Rule]", RowBox[{"-", "0.16115393159628033`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "2", "]"}], "\[Rule]", "0.11257716872626324`"}], ",", RowBox[{ RowBox[{"gC", "[", "3", "]"}], "\[Rule]", RowBox[{"-", "0.0873159799752823`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "4", "]"}], "\[Rule]", "0.04846436044571278`"}], ",", RowBox[{ RowBox[{"gC", "[", "5", "]"}], "\[Rule]", RowBox[{"-", "0.017508382180364136`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "6", "]"}], "\[Rule]", "0.003840089000838421`"}], ",", RowBox[{ RowBox[{"gC", "[", "7", "]"}], "\[Rule]", RowBox[{"-", "0.00045129383525703565`"}]}], ",", RowBox[{ RowBox[{"gC", "[", "8", "]"}], "\[Rule]", "0.00002047851412149209`"}]}], "}"}]], "Output", CellChangeTimes->{3.841829035506735*^9}, CellLabel-> "Out[200]=",ExpressionUUID->"754c9690-f873-4d2f-beb2-c3646db81f65"] }, Open ]], Cell[BoxData[ RowBox[{"m61", "=", RowBox[{"levenburgMarquardt", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"res", "[", RowBox[{"2", ",", RowBox[{"h", "[", "9", "]"}], ",", SuperscriptBox["10", RowBox[{"-", "9"}]]}], "]"}], "[", "8", "]"}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "9", "]"}], "]"}]}], ",", RowBox[{"Join", "[", RowBox[{ RowBox[{"m6", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"{", "}"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.8414007567035093`*^9, 3.841400777615796*^9}},ExpressionUUID->"9d9f94f3-e11c-49e5-a722-\ caf2af60837a"], Cell[BoxData[{ RowBox[{ RowBox[{"ntest", "=", "3"}], ";", RowBox[{"n1", "=", "2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"our\[CapitalPhi]1", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"dFd\[Eta]List", "[", RowBox[{"n1", ",", RowBox[{"h", "[", "0", "]"}]}], "]"}], "[", "ntest", "]"}], "[", "1", "]"}], "/", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "0", "]"}], "]"}]}], "/.", "m01"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"our\[CapitalPhi]2", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"dFd\[Eta]List", "[", RowBox[{"n1", ",", RowBox[{"h", "[", "1", "]"}]}], "]"}], "[", "ntest", "]"}], "[", "1", "]"}], "/", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "1", "]"}], "]"}]}], "/.", "m11"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"our\[CapitalPhi]3", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"dFd\[Eta]List", "[", RowBox[{"n1", ",", RowBox[{"h", "[", "3", "]"}]}], "]"}], "[", "ntest", "]"}], "[", "1", "]"}], "/", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "3", "]"}], "]"}]}], "/.", "m21"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"our\[CapitalPhi]4", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"dFd\[Eta]List", "[", RowBox[{"n1", ",", RowBox[{"h", "[", "3", "]"}]}], "]"}], "[", "ntest", "]"}], "[", "1", "]"}], "/", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "3", "]"}], "]"}]}], "/.", "m31"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"our\[CapitalPhi]5", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"dFd\[Eta]List", "[", RowBox[{"n1", ",", RowBox[{"h", "[", "5", "]"}]}], "]"}], "[", "ntest", "]"}], "[", "1", "]"}], "/", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "5", "]"}], "]"}]}], "/.", "m41"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"our\[CapitalPhi]6", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"dFd\[Eta]List", "[", RowBox[{"n1", ",", RowBox[{"h", "[", "7", "]"}]}], "]"}], "[", "ntest", "]"}], "[", "1", "]"}], "/", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "7", "]"}], "]"}]}], "/.", "m51"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"our\[CapitalPhi]7", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"dFd\[Eta]List", "[", RowBox[{"n1", ",", RowBox[{"h", "[", "9", "]"}]}], "]"}], "[", "ntest", "]"}], "[", "1", "]"}], "/", RowBox[{ RowBox[{"Range", "[", RowBox[{"0", ",", "ntest"}], "]"}], "!"}]}], "//.", RowBox[{"rules", "[", RowBox[{"h", "[", "9", "]"}], "]"}]}], "/.", "m61"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"test", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"(", RowBox[{ RowBox[{"\[CapitalPhi]s", "[", RowBox[{"[", RowBox[{";;", RowBox[{"ntest", "+", "1"}]}], "]"}], "]"}], "-", "#"}], ")"}], RowBox[{"(*", RowBox[{"/", RowBox[{"\[CapitalPhi]s", "[", RowBox[{"[", RowBox[{";;", RowBox[{"ntest", "+", "1"}]}], "]"}], "]"}]}], "*)"}], ")"}], "&"}], "/@", RowBox[{"{", RowBox[{ "our\[CapitalPhi]1", ",", "our\[CapitalPhi]2", ",", "our\[CapitalPhi]3", ",", "our\[CapitalPhi]4", ",", "our\[CapitalPhi]5", ",", "our\[CapitalPhi]6", ",", "our\[CapitalPhi]7"}], "}"}]}]}], ";"}]}], "Input", CellChangeTimes->{{3.8322388835042*^9, 3.832238885982521*^9}, { 3.832238918751101*^9, 3.832238980544174*^9}, {3.832239034801425*^9, 3.8322390392969837`*^9}, {3.832239749854486*^9, 3.832239844064394*^9}, { 3.832240962876375*^9, 3.832240972475827*^9}, {3.8395784873824053`*^9, 3.83957849607055*^9}, {3.83957950080114*^9, 3.839579518425556*^9}, { 3.83958804978193*^9, 3.839588073901841*^9}, {3.8396605353589077`*^9, 3.839660538358272*^9}, {3.83966057553535*^9, 3.839660617032419*^9}, { 3.839660754707074*^9, 3.8396607547789183`*^9}, {3.8396621782291803`*^9, 3.8396621845492477`*^9}, {3.839663529342072*^9, 3.839663542742002*^9}, { 3.840873373815803*^9, 3.840873445078918*^9}, {3.840874252726038*^9, 3.840874278606474*^9}, {3.840876682418293*^9, 3.84087670662568*^9}, 3.840877995706422*^9, 3.8408793931665916`*^9, 3.8408795281927958`*^9, 3.84087980844783*^9, 3.840880690661016*^9, {3.840883794798806*^9, 3.840883797038789*^9}, {3.840884545541564*^9, 3.8408845538856707`*^9}, { 3.8408846573436317`*^9, 3.840884666823792*^9}, {3.8408848015624523`*^9, 3.840884804922502*^9}, 3.840885718323984*^9, {3.840885790541791*^9, 3.840885802684683*^9}, {3.8411119812699337`*^9, 3.8411119909977083`*^9}, 3.841112515316641*^9, 3.8411154290306177`*^9, 3.841115669962463*^9, 3.841115828005046*^9, 3.8411175933298197`*^9, {3.841117940111762*^9, 3.841118038801834*^9}, {3.8411181421001263`*^9, 3.841118156508168*^9}, { 3.841119106341078*^9, 3.84111910763673*^9}, {3.84111914217358*^9, 3.841119149725647*^9}, {3.841119955795576*^9, 3.841119961259308*^9}, { 3.8411218811098623`*^9, 3.84112188750177*^9}, {3.841133333672965*^9, 3.8411333646003513`*^9}, 3.841133421761998*^9, {3.841134255360888*^9, 3.8411342638889303`*^9}, {3.841135064199835*^9, 3.841135064583659*^9}, { 3.8411351234249287`*^9, 3.841135124680657*^9}, {3.841135211194282*^9, 3.841135211274117*^9}, {3.841135406390181*^9, 3.841135406461857*^9}, { 3.84113552787227*^9, 3.8411355279520473`*^9}, {3.841136166748022*^9, 3.841136166811797*^9}, {3.841136398016295*^9, 3.84113639810402*^9}, { 3.841136489617982*^9, 3.8411364896975927`*^9}, {3.84113669342939*^9, 3.84113672040588*^9}, {3.841137494860138*^9, 3.84113752066864*^9}, { 3.841196950341856*^9, 3.8411969777902308`*^9}, {3.841198298254539*^9, 3.841198298326271*^9}, {3.841198447129076*^9, 3.8411984482090397`*^9}, { 3.841199114917082*^9, 3.841199119884962*^9}, {3.841199466549716*^9, 3.841199466619011*^9}, {3.841201347909103*^9, 3.8412013530528297`*^9}, { 3.841202928897876*^9, 3.8412029425058126`*^9}, {3.8412040252936583`*^9, 3.8412040628862677`*^9}, {3.841204228641543*^9, 3.841204233873122*^9}, { 3.841204573927539*^9, 3.841204581199667*^9}, {3.841205324805374*^9, 3.841205342061594*^9}, {3.841205972657172*^9, 3.841205979025239*^9}, { 3.8412065774120607`*^9, 3.841206586731984*^9}, {3.841206662325692*^9, 3.8412066624054823`*^9}, 3.841207051644765*^9, {3.841207138974884*^9, 3.8412071390623493`*^9}, {3.841207422075746*^9, 3.841207422203761*^9}, { 3.841213509820256*^9, 3.841213509932082*^9}, {3.841228425671258*^9, 3.8412284729036703`*^9}, {3.841228675963469*^9, 3.841228686787562*^9}, { 3.841229112443954*^9, 3.841229121571589*^9}, 3.841299158149366*^9, 3.841299566996804*^9, 3.841301356709453*^9, {3.841301625730665*^9, 3.841301648672155*^9}, {3.841301731820641*^9, 3.841301732324624*^9}, { 3.841302358296423*^9, 3.841302358792099*^9}, {3.841312529523774*^9, 3.841312533419903*^9}, 3.841315636429351*^9, {3.841393121651956*^9, 3.841393121755248*^9}, {3.841393249153199*^9, 3.841393273790092*^9}, 3.841393700421857*^9, 3.841398192512566*^9, {3.841398248217105*^9, 3.841398248368924*^9}, {3.841399566779069*^9, 3.8413995828254623`*^9}, 3.841399972537139*^9, {3.8414001770689287`*^9, 3.841400177212687*^9}, { 3.841464749238928*^9, 3.841464785841058*^9}, 3.841464824834222*^9, 3.841464891539579*^9, 3.841465158808465*^9, 3.841465331579411*^9, { 3.8414658328897333`*^9, 3.841465852857485*^9}, {3.841466561097473*^9, 3.8414665630973454`*^9}, {3.841466932485777*^9, 3.8414669341900043`*^9}, { 3.841467101315713*^9, 3.841467104995029*^9}, {3.841472547040936*^9, 3.8414725544327183`*^9}, {3.8414733744967413`*^9, 3.841473388856886*^9}, { 3.841473450698228*^9, 3.8414734807303057`*^9}, {3.841485108824091*^9, 3.841485111280056*^9}, {3.841485185017519*^9, 3.841485187193397*^9}, { 3.841485484679089*^9, 3.841485487671123*^9}, {3.841485702195181*^9, 3.841485704778964*^9}, {3.841730916100902*^9, 3.841730925141005*^9}, { 3.841731203522408*^9, 3.8417312109703093`*^9}, {3.841734018910133*^9, 3.84173402362984*^9}, {3.841734714315658*^9, 3.8417347201469107`*^9}, { 3.841734973441475*^9, 3.841734989319797*^9}, {3.841735266172834*^9, 3.8417352681888866`*^9}, {3.841735347206047*^9, 3.841735349750581*^9}, { 3.8417355136010637`*^9, 3.841735515537148*^9}, {3.841736151366416*^9, 3.841736154252789*^9}, {3.8418267002293262`*^9, 3.841826700908839*^9}, { 3.841827022229425*^9, 3.841827025210784*^9}, {3.841827069605363*^9, 3.841827070995617*^9}, {3.841827192310936*^9, 3.841827202653894*^9}, { 3.841827316777439*^9, 3.8418273216080513`*^9}, {3.841827837874792*^9, 3.841827850121397*^9}, {3.841827897203548*^9, 3.841827898866517*^9}, { 3.841828245746533*^9, 3.841828250201119*^9}, {3.841828576575222*^9, 3.8418285794468193`*^9}, {3.8418289627268457`*^9, 3.841828965421782*^9}, { 3.841829039167369*^9, 3.841829042007312*^9}, {3.84182947981529*^9, 3.841829483295195*^9}, {3.8418302597577257`*^9, 3.841830259925316*^9}}, CellLabel-> "In[224]:=",ExpressionUUID->"696e8dad-b679-4cff-9df9-7fa32582e84f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLogPlot", "[", RowBox[{ RowBox[{"Abs", "@", RowBox[{"Re", "@", RowBox[{"Transpose", "[", "test", "]"}]}]}], ",", RowBox[{"Joined", "->", "True"}]}], "]"}]], "Input", CellChangeTimes->CompressedData[" 1:eJwd0FtIk3Ech/G1SSxrGYEVHTfcZLBESTv4yhgLDzFrjCGzhChnWXPmcK4x m7ayg0tw2pBkjEyHKHSAshkyQWkRigynGK6EAsWWF29FVFJG0e/7v3j43D8y s814XigQCFQUnPzweKmmndfOqNYnYdNA9CvsdM8y9/+cb7CShzRfmIYpg6wm yGvFby8yM4U+BXzZvisTFi0/W6wjY5oEsyUtpvOT1WN7TkCxRupZus9r66YO M41zPd1wXtgagLp07xyccPiYi3d2rMAsxTdm+bhbv0wuTPiZLX0hyUfy7A/3 Zrg9TeqBof7ELRiNq7kkueV6jhp2NeZ2wWuF6fdgaqdZ/olUHrQws/XbVNCn lzFde0/mwF4+zkzyF3ywMGxhhp0HuqEsZZiZF6/8AxPWAsEKyX+u2gjlxUMS eGRfmw7+rSgrhaWr082wI6i7Ck2cqBUqOZEXSnfX/zb18Frn0V9r8GbvmLuc DHvkTbA6YWk4RYoUEgc0+k43wk03ZpshP1Q0AreKn49CR8m7+gpSvTPXDlcD 62orSXutzQYD9unLcM1lcMKnBTNGM5n0v2Fmn8m7VEUq/+Uz+x/FBs+RscEE k8sYvu0lI1yEOWJ68r6DdD0cZbYJg9/hZMYLZt/x1KjoAX2xRl5B793XJSlk qDj/GCwzbhBLyAXnFeZ/mApx9A== "], CellLabel-> "In[233]:=",ExpressionUUID->"0f44ea2f-bcb6-4b65-a37b-65515908d127"], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], LineBox[{{1., -6.247357072407003}, {2., -7.24293799236701}, { 3., -7.524483683885048}, {4., -8.789682374493376}, { 5., -8.92454575354715}, {6., -8.472135787993935}, { 7., -8.82388019392827}}]}, {RGBColor[0.880722, 0.611041, 0.142051], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], LineBox[{{1., -5.846050115598956}, {2., -6.559531467834641}, { 3., -6.731472544668917}, {4., -7.823638488881279}, { 5., -7.923560144521074}, {6., -7.393223012429918}, { 7., -7.783557059930336}}]}, {RGBColor[0.560181, 0.691569, 0.194885], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], LineBox[{{1., -6.4434842766726526`}, {2., -6.776964236022403}, { 3., -6.9775063983186705`}, {4., -7.717571453758359}, { 5., -7.872650731613265}, {6., -7.311334753441164}, { 7., -7.775843727796941}}]}, {RGBColor[0.922526, 0.385626, 0.209179], PointSize[0.012833333333333334`], AbsoluteThickness[1.6], LineBox[{{1., -8.390375395925787}, {2., -8.497117912351516}, { 3., -9.040017317003855}, {4., -8.535448281542093}, { 5., -9.419192360288292}, {6., -9.63707286786908}, { 7., -11.248131952781149`}}]}}, {{}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0., -11.670875513516435`}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{ Charting`ScaledTicks[{Log, Exp}], Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->{573.0000000000002, Automatic}, Method->{ "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ Identity[ Part[#, 1]], Exp[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Exp[ Part[#, 2]]}& )}}, PlotRange->{{0., 7.}, {-11.670875513516435`, -5.846050115598956}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->FrontEndValueCache[{Automatic, Charting`ScaledTicks[{Log, Exp}]}, {Automatic, {{-11.512925464970229`, FormBox[ TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`", TemplateBox[{"10", RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 0.}}, {-9.903487552536127, FormBox[ TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`", TemplateBox[{"10", RowBox[{"-", "5"}]}, "Superscript", SyntaxForm -> SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 0.}}, {-9.210340371976182, FormBox[ TemplateBox[{"\[Times]", "\"\[Times]\"", "1.`", TemplateBox[{"10", RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 0.}}, {-7.600902459542082, FormBox[ TemplateBox[{"\[Times]", "\"\[Times]\"", "5.`", TemplateBox[{"10", RowBox[{"-", "4"}]}, "Superscript", SyntaxForm -> SuperscriptBox]}, "RowWithSeparators"], TraditionalForm], {0.01, 0.}}, {-6.907755278982137, FormBox["0.001`", TraditionalForm], {0.01, 0.}}, {-12.206072645530174`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-12.02375108873622, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-11.86960040890896, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-11.736069016284437`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-11.618285980628055`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-10.819778284410283`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-10.41431317630212, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-10.126631103850338`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-9.721165995742174, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-9.567015315914915, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-9.433483923290392, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-9.315700887634009, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-8.517193191416238, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-8.111728083308073, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-7.824046010856292, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-7.418580902748128, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-7.264430222920869, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-7.1308988302963465`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-7.013115794639964, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-6.214608098422191, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-5.809142990314028, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-5.521460917862246, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-5.298317366548036, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-5.115995809754082, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-4.961845129926823, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-4.8283137373023015`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-4.710530701645918, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-4.605170185988091, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-3.912023005428146, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-3.506557897319982, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-3.2188758248682006`, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}, {-2.995732273553991, FormBox[ TemplateBox[{0., 0.}, "Spacer2"], TraditionalForm], {0.005, 0.}}}}]]], "Output", CellChangeTimes->{ 3.8417351792754507`*^9, 3.841735270593384*^9, 3.841735357439477*^9, 3.8417355174882727`*^9, 3.8417361563955936`*^9, 3.8418267108534307`*^9, 3.8418270312390823`*^9, 3.841827075851301*^9, {3.841827197304531*^9, 3.841827206353059*^9}, 3.84182732581502*^9, 3.841827843948781*^9, 3.8418279040382137`*^9, 3.8418282580491457`*^9, 3.841828584061058*^9, { 3.841829019571225*^9, 3.841829044223043*^9}, 3.8418294854778643`*^9, 3.841830262119801*^9}, CellLabel-> "Out[233]=",ExpressionUUID->"7be6558a-70f0-43d7-951c-51b419e583cb"] }, Open ]] }, Open ]] }, WindowSize->{1405.5, 1060.5}, WindowMargins->{{Automatic, 2.25}, {2.25, Automatic}}, FrontEndVersion->"12.3 for Linux x86 (64-bit) (May 11, 2021)", StyleDefinitions->"Default.nb", ExpressionUUID->"6f6c570c-dfc0-4320-bdc7-0f1de62bb24c" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 889, 14, 24, "Input",ExpressionUUID->"e595a667-7f25-4f98-9f12-a321a236d113"], Cell[1450, 36, 545, 13, 41, "Input",ExpressionUUID->"ea42bd52-8968-49ef-a999-7ab838217fa1"], Cell[1998, 51, 463, 11, 24, "Input",ExpressionUUID->"2fdffe9d-9220-4c97-866d-0a1f5e3200a1"], Cell[CellGroupData[{ Cell[2486, 66, 207, 4, 50, "Section",ExpressionUUID->"bb531fce-8a9d-4a5f-8d6a-ec66b9fbf698"], Cell[2696, 72, 70, 0, 71, "Input",ExpressionUUID->"c239eacb-bd0a-49ce-8667-3aa72e4020c9"], Cell[CellGroupData[{ Cell[2791, 76, 70, 0, 55, "Input",ExpressionUUID->"3d566693-1b4e-4bc5-b33b-b8036e1e4822"], Cell[2864, 78, 71, 0, 58, "Output",ExpressionUUID->"86062308-fdba-4d87-8210-7ea083d14ee1"] }, Open ]], Cell[CellGroupData[{ Cell[2972, 83, 70, 0, 115, "Input",ExpressionUUID->"3b9512c4-4741-4838-844f-dc1843a98be2"], Cell[3045, 85, 71, 0, 450, "Output",ExpressionUUID->"2720c35a-79b8-423b-a048-5c7e2711f16a"] }, Open ]], Cell[3131, 88, 70, 0, 71, "Input",ExpressionUUID->"34ec14f2-e69a-4233-afa7-8b9340ca265f"], Cell[CellGroupData[{ Cell[3226, 92, 70, 0, 24, "Input",ExpressionUUID->"3c891175-2642-465d-b121-e5989a86c957"], Cell[3299, 94, 71, 0, 58, "Output",ExpressionUUID->"38fb3ec6-64aa-4b63-b20b-7d35d2e4572a"] }, Open ]], Cell[3385, 97, 70, 0, 71, "Input",ExpressionUUID->"a96db868-d41f-433d-88d3-73a2b34157b2"], Cell[CellGroupData[{ Cell[3480, 101, 70, 0, 24, "Input",ExpressionUUID->"9e3392d7-9445-477b-9e57-3faef08acef1"], Cell[3553, 103, 71, 0, 25, "Output",ExpressionUUID->"6c61aadd-c965-4458-a165-ef7680648fc1"] }, Open ]], Cell[3639, 106, 70, 0, 71, "Input",ExpressionUUID->"fb46f7c2-5761-4a64-9a5f-872dd3265e1c"], Cell[CellGroupData[{ Cell[3734, 110, 70, 0, 24, "Input",ExpressionUUID->"3d7346aa-9d8e-46fd-bcb4-ca52fff0d32a"], Cell[3807, 112, 71, 0, 58, "Output",ExpressionUUID->"d3885981-ee95-4189-85fb-672f5e65f744"] }, Open ]], Cell[3893, 115, 70, 0, 71, "Input",ExpressionUUID->"1a9cafff-78bf-40d5-9387-97742820a6dc"], Cell[CellGroupData[{ Cell[3988, 119, 70, 0, 24, "Input",ExpressionUUID->"7bdef841-d628-418c-9bec-b16ca8655e30"], Cell[4061, 121, 71, 0, 76, "Output",ExpressionUUID->"1db50035-262f-41c8-897c-83b291232a25"] }, Open ]], Cell[4147, 124, 70, 0, 71, "Input",ExpressionUUID->"53343c2f-4579-48fe-afdc-6555d61fefc7"], Cell[CellGroupData[{ Cell[4242, 128, 70, 0, 24, "Input",ExpressionUUID->"19f0837b-60bb-491b-b21f-34926c9efae8"], Cell[4315, 130, 71, 0, 76, "Output",ExpressionUUID->"1588dece-8475-4068-8ebd-5f1063867c03"] }, Open ]], Cell[4401, 133, 70, 0, 71, "Input",ExpressionUUID->"3c48ca79-1fa5-4b7f-9423-94e659aae362"], Cell[CellGroupData[{ Cell[4496, 137, 70, 0, 24, "Input",ExpressionUUID->"c0c5581e-24f4-4c1d-bac2-acde9933d21a"], Cell[4569, 139, 71, 0, 92, "Output",ExpressionUUID->"730ed06e-f4a9-43d9-985a-dd73afa5028a"] }, Open ]], Cell[4655, 142, 70, 0, 71, "Input",ExpressionUUID->"89ac8434-0e5c-4a82-ae51-65e191e4c98a"], Cell[CellGroupData[{ Cell[4750, 146, 70, 0, 24, "Input",ExpressionUUID->"a4de7394-b723-4a62-9094-2b462110711f"], Cell[4823, 148, 71, 0, 92, "Output",ExpressionUUID->"e3a248c2-6739-443e-a469-171bafbb4a39"] }, Open ]], Cell[4909, 151, 70, 0, 71, "Input",ExpressionUUID->"ec5df7b8-ae45-47d9-baba-654f2daf3d01"], Cell[CellGroupData[{ Cell[5004, 155, 70, 0, 24, "Input",ExpressionUUID->"c28fec6d-42be-4754-8ff5-9f7327a42e34"], Cell[5077, 157, 71, 0, 108, "Output",ExpressionUUID->"2f826db1-6725-439c-8bf9-7196d08ae46b"] }, Open ]], Cell[5163, 160, 70, 0, 71, "Input",ExpressionUUID->"454bbf34-d098-476d-8e27-8e882ae07c56"], Cell[CellGroupData[{ Cell[5258, 164, 70, 0, 24, "Input",ExpressionUUID->"fdda266d-54c1-43db-b6a7-a3d02502cd24"], Cell[5331, 166, 72, 0, 34, "Message",ExpressionUUID->"b4090613-0332-49f1-a196-74002379eeeb"], Cell[5406, 168, 71, 0, 124, "Output",ExpressionUUID->"1249aaa6-7d54-428c-8361-a89fa22f87ac"] }, Open ]], Cell[5492, 171, 70, 0, 56, "Input",ExpressionUUID->"7669b7fe-6525-47ea-bd17-bc39d72d2039"], Cell[CellGroupData[{ Cell[5587, 175, 70, 0, 24, "Input",ExpressionUUID->"0d0e5cda-a6fc-4708-80da-b887f6838668"], Cell[5660, 177, 71, 0, 407, "Output",ExpressionUUID->"1661a955-9e84-44df-abe5-8a178d2f912d"] }, Open ]], Cell[CellGroupData[{ Cell[5768, 182, 70, 0, 89, "Input",ExpressionUUID->"9112def6-5ff6-4224-8356-f50fa415d2f3"], Cell[5841, 184, 72, 0, 32, "Message",ExpressionUUID->"311d3fb6-3107-4bba-ae21-2a9d8e2be9ff"], Cell[5916, 186, 72, 0, 22, "Message",ExpressionUUID->"382c6f48-8be5-4040-8352-c107dd4acfcb"], Cell[5991, 188, 72, 0, 32, "Message",ExpressionUUID->"db776803-ed60-4310-a108-852c80375404"], Cell[6066, 190, 72, 0, 22, "Message",ExpressionUUID->"c054e628-2d2f-4c9d-b97f-3211d4a28e43"], Cell[6141, 192, 72, 0, 32, "Message",ExpressionUUID->"be1896cd-ee42-475f-8df0-db9105e2a00f"], Cell[6216, 194, 72, 0, 22, "Message",ExpressionUUID->"1c3e5739-b049-43f2-a094-b9e364dedc14"], Cell[6291, 196, 72, 0, 22, "Message",ExpressionUUID->"8781108e-dab4-4d69-bb59-846e2cf30536"], Cell[6366, 198, 72, 0, 22, "Message",ExpressionUUID->"b4b28af2-b0fd-4fee-8ea1-a1b8599ad243"] }, Open ]], Cell[CellGroupData[{ Cell[6475, 203, 70, 0, 24, "Input",ExpressionUUID->"0b79b970-7045-4be7-b49f-562e6773070c"], Cell[6548, 205, 71, 0, 371, "Output",ExpressionUUID->"a1b2e831-9c0c-4c48-9c35-6781403e92e0"] }, Open ]], Cell[CellGroupData[{ Cell[6656, 210, 70, 0, 22, "Input",ExpressionUUID->"71c1d9b7-0cf0-408f-a132-11f858bc49f0"], Cell[6729, 212, 71, 0, 481, "Output",ExpressionUUID->"5e583bca-872b-4fe1-bd8e-e1bcce981a2c"] }, Open ]], Cell[CellGroupData[{ Cell[6837, 217, 70, 0, 39, "Input",ExpressionUUID->"7b03bcdf-5941-4689-8045-07928a4af682"], Cell[6910, 219, 71, 0, 481, "Output",ExpressionUUID->"d7ee8225-65ff-4705-be5c-8b8dbe6fa41b"] }, Open ]], Cell[CellGroupData[{ Cell[7018, 224, 70, 0, 22, "Input",ExpressionUUID->"fa8135b4-fdf8-4590-be4e-73b4dd086cab"], Cell[7091, 226, 71, 0, 414, "Output",ExpressionUUID->"04ca030c-e442-4c61-8c4a-d152e5c203ae"] }, Open ]], Cell[7177, 229, 70, 0, 22, "Input",ExpressionUUID->"29cea7b5-4fca-4cb4-8837-f04711b34c21"], Cell[CellGroupData[{ Cell[7272, 233, 70, 0, 93, "Input",ExpressionUUID->"53b7755a-6f34-4db5-8104-878ea3587d8e"], Cell[7345, 235, 71, 0, 387, "Output",ExpressionUUID->"616ea1b5-1320-415b-a819-c2f94d93d7ea"] }, Open ]], Cell[CellGroupData[{ Cell[7453, 240, 70, 0, 22, "Input",ExpressionUUID->"76c95b5f-6514-4856-b4c5-cd646cd37488"], Cell[7526, 242, 71, 0, 25, "Output",ExpressionUUID->"74073881-f4b4-4f07-8f9a-cd7d59bc3693"] }, Open ]], Cell[CellGroupData[{ Cell[7634, 247, 70, 0, 22, "Input",ExpressionUUID->"02a5f468-5569-4ef4-9ad7-428f9cf2d754"], Cell[7707, 249, 71, 0, 44, "Output",ExpressionUUID->"724a73d3-c790-4baa-985a-a709e0354abe"] }, Open ]], Cell[CellGroupData[{ Cell[7815, 254, 70, 0, 24, "Input",ExpressionUUID->"7273c588-8e35-4fbd-8ebc-898cedb2387b"], Cell[7888, 256, 71, 0, 44, "Output",ExpressionUUID->"6bcb7016-9e42-477f-b8aa-2bf28ae5ec18"] }, Open ]], Cell[CellGroupData[{ Cell[7996, 261, 70, 0, 22, "Input",ExpressionUUID->"4696ee08-41ed-480a-83d4-b7dcd649182e"], Cell[8069, 263, 71, 0, 25, "Output",ExpressionUUID->"581be5fa-833d-44bd-98d5-dde94e4dd98c"] }, Open ]], Cell[CellGroupData[{ Cell[8177, 268, 70, 0, 93, "Input",ExpressionUUID->"73fa0a9d-2aa5-49d6-b995-2f0dc2997c86"], Cell[8250, 270, 71, 0, 585, "Output",ExpressionUUID->"596e78c8-422c-425b-b6d3-1d4f2a3368df"] }, Open ]], Cell[CellGroupData[{ Cell[8358, 275, 70, 0, 110, "Input",ExpressionUUID->"d049de83-a67f-4f70-9161-28ea593a16b8"], Cell[8431, 277, 71, 0, 396, "Output",ExpressionUUID->"97929a1a-4107-4c3b-91b5-b4aea31a6a12"] }, Open ]], Cell[CellGroupData[{ Cell[8539, 282, 70, 0, 59, "Input",ExpressionUUID->"ff8b8a76-8ef5-4079-b3c2-caca5f90a239"], Cell[8612, 284, 71, 0, 368, "Output",ExpressionUUID->"ceca4cf7-358a-4475-9d74-be5382099c4a"] }, Open ]], Cell[CellGroupData[{ Cell[8720, 289, 70, 0, 38, "Input",ExpressionUUID->"84fba399-0d44-478f-82db-cf6e8f6da218"], Cell[8793, 291, 71, 0, 35, "Output",ExpressionUUID->"fc27ce97-44b5-4fd9-9fc6-8e3a80767ebc"] }, Open ]], Cell[CellGroupData[{ Cell[8901, 296, 70, 0, 57, "Input",ExpressionUUID->"5e586711-0483-46d1-bccb-b6897d71c1e8"], Cell[8974, 298, 71, 0, 169, "Output",ExpressionUUID->"2fa1caa4-ef1f-4ffd-8afc-94b16ed218ad"] }, Open ]], Cell[CellGroupData[{ Cell[9082, 303, 70, 0, 22, "Input",ExpressionUUID->"0bf0ad7a-0c38-45b3-944f-2cd642717885"], Cell[9155, 305, 71, 0, 108, "Output",ExpressionUUID->"cb46a863-90ee-473f-82db-5dc2a45b693e"] }, Open ]], Cell[CellGroupData[{ Cell[9263, 310, 70, 0, 119, "Input",ExpressionUUID->"f15d8a52-1992-4696-8ead-3c4153434e55"], Cell[9336, 312, 71, 0, 449, "Output",ExpressionUUID->"7c16b4f6-053a-49c7-adfb-2ff4cd3d1825"] }, Open ]], Cell[CellGroupData[{ Cell[9444, 317, 70, 0, 22, "Input",ExpressionUUID->"f9fe281b-b610-448a-b868-789cd1438874"], Cell[9517, 319, 71, 0, 271, "Output",ExpressionUUID->"cd6820b3-ec18-4309-a325-d9260e362bf3"] }, Open ]], Cell[CellGroupData[{ Cell[9625, 324, 70, 0, 75, "Input",ExpressionUUID->"379795e2-1f10-4c9d-aca9-574975c0b53e"], Cell[9698, 326, 71, 0, 181, "Output",ExpressionUUID->"e32fce1f-84cc-4e58-9ec5-270c393270f4"] }, Open ]], Cell[9784, 329, 70, 0, 71, "Input",ExpressionUUID->"614f63fe-75a0-4c56-b782-48ad98bc3c89"], Cell[CellGroupData[{ Cell[9879, 333, 70, 0, 24, "Input",ExpressionUUID->"b56cc8a2-a504-4115-9171-a6a6d7088e3d"], Cell[9952, 335, 71, 0, 60, "Output",ExpressionUUID->"56bd1e88-9615-4515-9caf-f2b140d00ea4"] }, Open ]], Cell[10038, 338, 70, 0, 71, "Input",ExpressionUUID->"8507c1e3-d3a8-4bd7-b4aa-90d91d45805d"], Cell[CellGroupData[{ Cell[10133, 342, 70, 0, 24, "Input",ExpressionUUID->"de38480a-2d94-4587-b72d-6e029e15ee96"], Cell[10206, 344, 71, 0, 60, "Output",ExpressionUUID->"43225297-d195-4377-8f95-86dbf3b45b01"] }, Open ]], Cell[10292, 347, 70, 0, 71, "Input",ExpressionUUID->"2ec9732b-3292-49d0-bac5-10ca2b2e2d27"], Cell[CellGroupData[{ Cell[10387, 351, 70, 0, 24, "Input",ExpressionUUID->"139619cc-039b-4609-af7c-bff6ef22fb47"], Cell[10460, 353, 71, 0, 25, "Output",ExpressionUUID->"afa14344-bd55-431e-aa6c-c70efe6c5a4d"] }, Open ]], Cell[CellGroupData[{ Cell[10568, 358, 70, 0, 22, "Input",ExpressionUUID->"0187bca3-1d0a-4623-aec5-953f437b51fd"], Cell[10641, 360, 71, 0, 25, "Output",ExpressionUUID->"598fc733-e306-4afa-b2be-5b73d49e16c2"] }, Open ]], Cell[CellGroupData[{ Cell[10749, 365, 70, 0, 22, "Input",ExpressionUUID->"73d2b785-99f4-4bfb-b83d-3176ccfa253d"], Cell[10822, 367, 71, 0, 25, "Output",ExpressionUUID->"d9b0e840-276e-4933-8ac7-3b44810cdfd7"] }, Open ]], Cell[CellGroupData[{ Cell[10930, 372, 70, 0, 22, "Input",ExpressionUUID->"a3876a42-f9a7-42bf-bb98-8f496b0b9429"], Cell[11003, 374, 71, 0, 25, "Output",ExpressionUUID->"25c6c990-0648-4b53-88ec-85fbf153b84d"] }, Open ]], Cell[CellGroupData[{ Cell[11111, 379, 70, 0, 246, "Input",ExpressionUUID->"a8eefdf0-e27a-49c2-a914-30fe2e3be695"], Cell[11184, 381, 71, 0, 170, "Output",ExpressionUUID->"74dd1d49-7e7f-4e72-b8c9-ce6b451108d3"] }, Open ]], Cell[CellGroupData[{ Cell[11292, 386, 70, 0, 24, "Input",ExpressionUUID->"87e7aafd-8c36-4839-935c-cc46bf1f01dd"], Cell[11365, 388, 71, 0, 25, "Output",ExpressionUUID->"fe7c92bd-96d2-4bd2-8311-6587e6a29f3e"] }, Open ]], Cell[CellGroupData[{ Cell[11473, 393, 70, 0, 22, "Input",ExpressionUUID->"148e9d0d-8b87-4af5-afd5-d33dbd331cbd"], Cell[11546, 395, 71, 0, 25, "Output",ExpressionUUID->"2cb15991-5446-4550-9d2b-990382cc6e0b"] }, Open ]], Cell[CellGroupData[{ Cell[11654, 400, 70, 0, 22, "Input",ExpressionUUID->"8daebff1-3cc2-4bf5-8cc4-604c65c548b0"], Cell[11727, 402, 71, 0, 25, "Output",ExpressionUUID->"9cd4be6d-9037-487d-805c-0e30c732a88f"] }, Open ]], Cell[CellGroupData[{ Cell[11835, 407, 70, 0, 22, "Input",ExpressionUUID->"ec87e975-8e91-4764-a5f8-d113176427a6"], Cell[11908, 409, 71, 0, 25, "Output",ExpressionUUID->"682ebcdb-8d48-4545-9fb6-2815a9591a34"] }, Open ]], Cell[CellGroupData[{ Cell[12016, 414, 70, 0, 24, "Input",ExpressionUUID->"bd4bec0c-34d4-42ea-8210-676c5a4f3b02"], Cell[12089, 416, 71, 0, 25, "Output",ExpressionUUID->"6744c9f9-54df-4620-86fe-20c2a1fb0a38"] }, Open ]], Cell[12175, 419, 70, 0, 22, "Input",ExpressionUUID->"cb5903e7-4ebd-478a-913d-f8dce03353cd"], Cell[CellGroupData[{ Cell[12270, 423, 70, 0, 22, "Input",ExpressionUUID->"7f91ac8c-3dfe-4e6e-876b-c110d899b203"], Cell[12343, 425, 71, 0, 25, "Output",ExpressionUUID->"66d898e0-c199-4cd1-8c92-f951620499ab"] }, Open ]], Cell[CellGroupData[{ Cell[12451, 430, 70, 0, 24, "Input",ExpressionUUID->"d7af33b7-ba2b-49a3-aafc-91ee8eb488da"], Cell[12524, 432, 71, 0, 25, "Output",ExpressionUUID->"76e092cb-b3ca-4ad3-8371-d22bc3bdbfec"] }, Open ]], Cell[CellGroupData[{ Cell[12632, 437, 70, 0, 71, "Input",ExpressionUUID->"ba65a569-6e06-47f2-aa64-ce40ed720e16"], Cell[12705, 439, 71, 0, 183, "Output",ExpressionUUID->"49a28651-b01d-4119-8b17-5cececd6f4d8"] }, Open ]], Cell[12791, 442, 70, 0, 22, "Input",ExpressionUUID->"f53418ef-e0c9-44a5-92b0-cb484b4f96c8"], Cell[CellGroupData[{ Cell[12886, 446, 70, 0, 75, "Input",ExpressionUUID->"a30a4640-3744-4c0b-9800-1073a0fa0d50"], Cell[12959, 448, 71, 0, 25, "Output",ExpressionUUID->"a91af46f-115e-4b5b-a963-4e64b27789f9"] }, Open ]], Cell[CellGroupData[{ Cell[13067, 453, 70, 0, 75, "Input",ExpressionUUID->"6c557c5e-e6b4-4351-9c51-9653ebaa3755"], Cell[13140, 455, 71, 0, 25, "Output",ExpressionUUID->"d46b93fb-0f62-45fa-a6de-37bde5cbd060"] }, Open ]], Cell[CellGroupData[{ Cell[13248, 460, 70, 0, 37, "Input",ExpressionUUID->"b157e171-c7d5-47f2-b745-8f2e8fa0198c"], Cell[13321, 462, 71, 0, 25, "Output",ExpressionUUID->"5a0db3ec-ac1c-432f-adee-e6747b4db94f"] }, Open ]], Cell[CellGroupData[{ Cell[13429, 467, 70, 0, 24, "Input",ExpressionUUID->"bdb84812-f388-49c2-8ac6-3080c735f5e5"], Cell[13502, 469, 71, 0, 44, "Output",ExpressionUUID->"b941a263-57d9-4309-b289-83857d3df95f"] }, Open ]], Cell[CellGroupData[{ Cell[13610, 474, 70, 0, 22, "Input",ExpressionUUID->"7fec8d25-6d0b-475e-a3c6-8b90b79f873e"], Cell[13683, 476, 71, 0, 25, "Output",ExpressionUUID->"48c117a8-371e-45ba-aa5f-facdd5f694ec"] }, Open ]], Cell[CellGroupData[{ Cell[13791, 481, 70, 0, 39, "Input",ExpressionUUID->"feb6f5a0-8271-4175-8fd5-743c24ab49d2"], Cell[13864, 483, 71, 0, 25, "Output",ExpressionUUID->"b00b9646-7ea6-4e6c-895b-add09ba6b344"] }, Open ]], Cell[CellGroupData[{ Cell[13972, 488, 70, 0, 58, "Input",ExpressionUUID->"5553a701-d8ac-42d8-bf96-f61247fd91d5"], Cell[14045, 490, 71, 0, 171, "Output",ExpressionUUID->"ff2eefd5-74bd-4633-a9f6-bb1945c40989"] }, Open ]], Cell[14131, 493, 70, 0, 55, "Input",ExpressionUUID->"4dc1af41-4bef-447e-a233-c8c033887359"], Cell[CellGroupData[{ Cell[14226, 497, 70, 0, 22, "Input",ExpressionUUID->"e74b775a-c745-4f15-9b63-7bb00af5a487"], Cell[14299, 499, 72, 0, 22, "Message",ExpressionUUID->"05b00b91-b292-4f86-8ac1-2cad1d50f51c"], Cell[14374, 501, 71, 0, 42, "Output",ExpressionUUID->"54c0d651-a676-4819-8283-9d2b33e602fc"] }, Open ]], Cell[CellGroupData[{ Cell[14482, 506, 70, 0, 71, "Input",ExpressionUUID->"fb42dfa6-f948-472b-87e8-e4cb6e90ba26"], Cell[14555, 508, 71, 0, 137, "Output",ExpressionUUID->"21f29296-03a7-4cc8-b760-b71dfa22b325"] }, Open ]], Cell[CellGroupData[{ Cell[14663, 513, 70, 0, 41, "Input",ExpressionUUID->"a60f4b40-cbec-4d33-97f5-65de16370f80"], Cell[14736, 515, 71, 0, 180, "Output",ExpressionUUID->"820bd75e-ec9c-4db8-b5e7-96cfd532640b"] }, Open ]], Cell[CellGroupData[{ Cell[14844, 520, 70, 0, 41, "Input",ExpressionUUID->"49d01b4e-c864-4298-94b7-ace002b965d8"], Cell[14917, 522, 71, 0, 180, "Output",ExpressionUUID->"3156e626-6fd1-4878-b776-44c6cf7fef12"] }, Open ]], Cell[CellGroupData[{ Cell[15025, 527, 70, 0, 39, "Input",ExpressionUUID->"4cefebbf-3ee0-49eb-85d3-1f8acdd03d03"], Cell[15098, 529, 71, 0, 27, "Output",ExpressionUUID->"5fad1eab-bed9-4cd3-a21b-8c8758b922eb"] }, Open ]], Cell[CellGroupData[{ Cell[15206, 534, 70, 0, 75, "Input",ExpressionUUID->"82d96d28-401c-43fa-8337-b55bfd500552"], Cell[15279, 536, 71, 0, 138, "Output",ExpressionUUID->"1ab9ef64-9a55-4344-9cb3-5443ea2b020c"] }, Open ]], Cell[CellGroupData[{ Cell[15387, 541, 70, 0, 57, "Input",ExpressionUUID->"b2167779-1e8f-4690-a7d9-fe7d464a4815"], Cell[15460, 543, 71, 0, 181, "Output",ExpressionUUID->"ead509b6-b153-4829-be33-8ff5a6efcada"] }, Open ]], Cell[15546, 546, 70, 0, 55, "Input",ExpressionUUID->"172fdee0-af8e-4049-9dda-cfec26fad09c"], Cell[CellGroupData[{ Cell[15641, 550, 70, 0, 24, "Input",ExpressionUUID->"0ea1b44d-26c0-49ba-8c54-6d51b749dcee"], Cell[15714, 552, 72, 0, 22, "Message",ExpressionUUID->"1820350f-3096-4479-969b-2dda88e43862"], Cell[15789, 554, 71, 0, 60, "Output",ExpressionUUID->"58f08fd4-743e-4318-9e82-7ecda92ce1db"] }, Open ]], Cell[CellGroupData[{ Cell[15897, 559, 70, 0, 71, "Input",ExpressionUUID->"324ac29a-a49d-4e6b-a8d8-b259afcd34c7"], Cell[15970, 561, 71, 0, 138, "Output",ExpressionUUID->"464153b0-04b0-46cf-82d1-649dc2c2d6a0"] }, Open ]], Cell[CellGroupData[{ Cell[16078, 566, 70, 0, 59, "Input",ExpressionUUID->"288a2ff7-5161-4fe5-8f43-122ba3a5d3f2"], Cell[16151, 568, 71, 0, 184, "Output",ExpressionUUID->"d5da57e7-0428-4391-af81-4f874cd963e4"] }, Open ]], Cell[CellGroupData[{ Cell[16259, 573, 70, 0, 75, "Input",ExpressionUUID->"d85908e0-a479-4a49-999f-e6e49522af2d"], Cell[16332, 575, 71, 0, 180, "Output",ExpressionUUID->"2f30870a-4c21-432a-b77d-85d6f131265e"] }, Open ]], Cell[16418, 578, 70, 0, 55, "Input",ExpressionUUID->"4fbf2b0a-5252-416a-b90a-a12f6d946efe"], Cell[CellGroupData[{ Cell[16513, 582, 70, 0, 22, "Input",ExpressionUUID->"5ac27342-feda-4aa6-9098-1d0e7b78fae8"], Cell[16586, 584, 71, 0, 42, "Output",ExpressionUUID->"b47243ad-5432-4eb5-bbf7-870353157603"] }, Open ]], Cell[CellGroupData[{ Cell[16694, 589, 70, 0, 71, "Input",ExpressionUUID->"63fcec7c-aaff-46be-90dc-231bca0993d9"], Cell[16767, 591, 71, 0, 138, "Output",ExpressionUUID->"547073ca-2de1-44b5-8139-682a4eb761c9"] }, Open ]], Cell[CellGroupData[{ Cell[16875, 596, 70, 0, 141, "Input",ExpressionUUID->"8f2cfc94-a67c-484e-bbeb-610484e18a97"], Cell[16948, 598, 71, 0, 138, "Output",ExpressionUUID->"453285de-e47a-4bcc-96d7-ec76dfc88820"] }, Open ]], Cell[17034, 601, 70, 0, 55, "Input",ExpressionUUID->"59993536-91f3-449a-9e8c-58cd1f6ec74c"], Cell[CellGroupData[{ Cell[17129, 605, 70, 0, 22, "Input",ExpressionUUID->"ab599d2d-27ef-4491-b1cb-534f98403e59"], Cell[17202, 607, 72, 0, 46, "Message",ExpressionUUID->"f4cd9634-0e29-4718-97b8-490c5f242f4a"], Cell[17277, 609, 71, 0, 58, "Output",ExpressionUUID->"80e0c922-0db4-48ee-96b6-33400b7fa9d7"] }, Open ]], Cell[CellGroupData[{ Cell[17385, 614, 70, 0, 71, "Input",ExpressionUUID->"f9bd15f0-d859-4863-9fe9-3ad2883e76d2"], Cell[17458, 616, 71, 0, 138, "Output",ExpressionUUID->"27a9c152-8a0d-4899-aa74-6a603c9665b9"] }, Open ]], Cell[17544, 619, 70, 0, 55, "Input",ExpressionUUID->"1282028e-7a8e-46e3-bc91-b35b1d1604ed"], Cell[CellGroupData[{ Cell[17639, 623, 70, 0, 22, "Input",ExpressionUUID->"83c6d43c-fed0-4989-a06f-986a75bf7651"], Cell[17712, 625, 72, 0, 22, "Message",ExpressionUUID->"cf50225b-a0ef-4626-94a0-0803782ba72f"], Cell[17787, 627, 71, 0, 79, "Output",ExpressionUUID->"e4dd84aa-35ca-4c06-b076-812cdad95551"] }, Open ]], Cell[CellGroupData[{ Cell[17895, 632, 70, 0, 71, "Input",ExpressionUUID->"9903c113-3088-4e43-884e-783e3462a3bd"], Cell[17968, 634, 71, 0, 136, "Output",ExpressionUUID->"ace4a267-d48c-4a17-8b21-0b8791f1d4a8"] }, Open ]], Cell[CellGroupData[{ Cell[18076, 639, 70, 0, 22, "Input",ExpressionUUID->"85ae5ebd-4d7b-469b-b177-bd88ef9a9e54"], Cell[18149, 641, 71, 0, 178, "Output",ExpressionUUID->"392555db-33d5-4e50-8a31-e2a3a67d3a75"] }, Open ]], Cell[18235, 644, 70, 0, 55, "Input",ExpressionUUID->"d0ac4c0e-3fde-4f39-860c-119c61865e94"], Cell[CellGroupData[{ Cell[18330, 648, 70, 0, 24, "Input",ExpressionUUID->"31b6196c-dff7-4ae3-ba24-930461af4520"], Cell[18403, 650, 72, 0, 34, "Message",ExpressionUUID->"7df3f521-17b3-470c-a210-7a61feecd5cb"], Cell[18478, 652, 71, 0, 76, "Output",ExpressionUUID->"ea8fe62a-dd49-4054-b383-0738f0b8f82f"] }, Open ]], Cell[CellGroupData[{ Cell[18586, 657, 70, 0, 71, "Input",ExpressionUUID->"c89d4fc8-2254-4238-b27d-107fefc31da5"], Cell[18659, 659, 71, 0, 136, "Output",ExpressionUUID->"d1455115-bd06-4d75-a8b5-99c39d1e90d7"] }, Open ]], Cell[CellGroupData[{ Cell[18767, 664, 70, 0, 55, "Input",ExpressionUUID->"d7824482-d74e-4fac-8224-3728d7d92b24"], Cell[18840, 666, 71, 0, 178, "Output",ExpressionUUID->"ad65c8a7-66e9-4c1e-b599-35bacb78e113"] }, Open ]], Cell[CellGroupData[{ Cell[18948, 671, 70, 0, 22, "Input",ExpressionUUID->"93164c6e-f8e2-4fb1-ab0b-a65d379b88ef"], Cell[19021, 673, 71, 0, 25, "Output",ExpressionUUID->"db3875cf-f19f-4e24-a7e4-c4017292b8fe"] }, Open ]], Cell[CellGroupData[{ Cell[19129, 678, 70, 0, 22, "Input",ExpressionUUID->"40b90456-e65f-4936-94f0-aa9e157985d1"], Cell[19202, 680, 71, 0, 51, "Output",ExpressionUUID->"e84b103a-4734-481c-bc68-32680f2490ae"] }, Open ]], Cell[CellGroupData[{ Cell[19310, 685, 70, 0, 59, "Input",ExpressionUUID->"802f97e2-70b5-4c0e-b977-f8a2e505bb60"], Cell[19383, 687, 71, 0, 77, "Output",ExpressionUUID->"13540836-8492-44db-8f61-825c10092a3b"] }, Open ]], Cell[CellGroupData[{ Cell[19491, 692, 70, 0, 63, "Input",ExpressionUUID->"9510d7f0-79c6-409e-9c06-caac79aa83b9"], Cell[19564, 694, 72, 0, 22, "Message",ExpressionUUID->"b9cd98f1-c229-4f5b-95ec-13d954ebd59a"], Cell[19639, 696, 72, 0, 22, "Message",ExpressionUUID->"ea96e00a-9fe6-4d33-80b4-d0a9eed78731"], Cell[19714, 698, 72, 0, 22, "Message",ExpressionUUID->"a31115cb-de8f-481d-994b-5bc9a83710b8"], Cell[19789, 700, 72, 0, 22, "Message",ExpressionUUID->"667a685e-0e76-4db4-8986-9eaad489f3e3"] }, Open ]], Cell[CellGroupData[{ Cell[19898, 705, 70, 0, 24, "Input",ExpressionUUID->"4c6fe8ab-4f6a-4b57-92a5-c94e403d041d"], Cell[19971, 707, 71, 0, 182, "Output",ExpressionUUID->"11addea4-5f17-44f9-80f6-b7d15dd56efa"] }, Open ]], Cell[20057, 710, 70, 0, 109, "Input",ExpressionUUID->"bc84d748-2ae9-4f3e-87ec-0fa12dfd6954"], Cell[CellGroupData[{ Cell[20152, 714, 70, 0, 126, "Input",ExpressionUUID->"c099f9b5-a706-4293-9c42-f007146a13f7"], Cell[20225, 716, 72, 0, 32, "Message",ExpressionUUID->"94a73904-550c-43cf-8d0b-35b5cbc01228"], Cell[20300, 718, 72, 0, 22, "Message",ExpressionUUID->"3f893d05-e641-4bf4-9ea5-bcabdc4d6a95"], Cell[20375, 720, 72, 0, 32, "Message",ExpressionUUID->"53b27a41-4cd2-4652-a104-35161ad96bf2"], Cell[20450, 722, 72, 0, 32, "Message",ExpressionUUID->"413977e9-0c84-449f-b053-9df53b50e738"], Cell[20525, 724, 72, 0, 22, "Message",ExpressionUUID->"d499cd59-07fb-492e-b9f7-1ddddfebb272"], Cell[20600, 726, 72, 0, 22, "Message",ExpressionUUID->"395175e1-6469-49cf-a376-9be005af7add"], Cell[20675, 728, 72, 0, 22, "Message",ExpressionUUID->"8f65301b-fe48-42b3-9924-e0e8e3bea608"], Cell[20750, 730, 72, 0, 22, "Message",ExpressionUUID->"6d1c81df-b866-4446-8abe-657a6a8d929f"] }, Open ]], Cell[CellGroupData[{ Cell[20859, 735, 70, 0, 22, "Input",ExpressionUUID->"a66d45ff-8000-4c96-bcb2-2bc7343fd5de"], Cell[20932, 737, 71, 0, 305, "Output",ExpressionUUID->"5364b922-5bbc-4121-ab23-dc5bb4bec4cb"] }, Open ]], Cell[CellGroupData[{ Cell[21040, 742, 70, 0, 76, "Input",ExpressionUUID->"8e0288f2-5922-4dde-923e-8106073adf6c"], Cell[21113, 744, 71, 0, 352, "Output",ExpressionUUID->"c6c9c8e8-7cb0-4ad0-a6c6-fb0a70db55da"] }, Open ]], Cell[CellGroupData[{ Cell[21221, 749, 70, 0, 24, "Input",ExpressionUUID->"4355674b-0fd6-4516-8896-cd33a8476ab5"], Cell[21294, 751, 71, 0, 25, "Output",ExpressionUUID->"b8a18520-7b45-49b0-af16-64f6d0a9c819"] }, Open ]], Cell[CellGroupData[{ Cell[21402, 756, 70, 0, 24, "Input",ExpressionUUID->"ee6beea5-4d88-4650-837d-58c8d3c6363b"], Cell[21475, 758, 71, 0, 179, "Output",ExpressionUUID->"a27bcc82-f8f9-42d8-854c-a204a73d483f"] }, Open ]], Cell[21561, 761, 70, 0, 75, "Input",ExpressionUUID->"5894652c-ea9c-458f-866d-b40d1a5efb75"], Cell[CellGroupData[{ Cell[21656, 765, 70, 0, 24, "Input",ExpressionUUID->"3fee7ec2-e0c4-4420-8192-c46efe85e265"], Cell[21729, 767, 71, 0, 178, "Output",ExpressionUUID->"2bfc8e2b-006d-4096-8c4b-8422da967dcb"] }, Open ]], Cell[21815, 770, 70, 0, 109, "Input",ExpressionUUID->"16683f20-3a25-47da-8c9c-58bfb1a56ae7"], Cell[CellGroupData[{ Cell[21910, 774, 70, 0, 24, "Input",ExpressionUUID->"0c28b27c-3e81-49ce-9293-512f19f95aeb"], Cell[21983, 776, 71, 0, 180, "Output",ExpressionUUID->"a225487e-1b09-4625-b1b4-0393225de258"] }, Open ]], Cell[22069, 779, 70, 0, 55, "Input",ExpressionUUID->"78606265-f50f-49dc-888d-33550f059b83"], Cell[CellGroupData[{ Cell[22164, 783, 70, 0, 22, "Input",ExpressionUUID->"396a3ca5-637b-4194-943d-7ec379bcf47e"], Cell[22237, 785, 71, 0, 25, "Output",ExpressionUUID->"032de8e5-e62b-4c2c-a2db-afe60e4c0f47"] }, Open ]], Cell[CellGroupData[{ Cell[22345, 790, 70, 0, 71, "Input",ExpressionUUID->"050da7fc-1308-4d49-81b4-1f4efc54c09a"], Cell[22418, 792, 71, 0, 136, "Output",ExpressionUUID->"5c8a355d-e522-4c74-8a53-b7d46e9c333f"] }, Open ]], Cell[22504, 795, 70, 0, 55, "Input",ExpressionUUID->"37ec5e26-c9a1-4c3e-b046-f5bdcb69b8db"], Cell[CellGroupData[{ Cell[22599, 799, 70, 0, 22, "Input",ExpressionUUID->"aafc8bea-bd59-4ab7-b436-168abec75b4d"], Cell[22672, 801, 71, 0, 25, "Output",ExpressionUUID->"823a15e6-d4d4-45cf-b711-54e7c88841d0"] }, Open ]], Cell[CellGroupData[{ Cell[22780, 806, 70, 0, 71, "Input",ExpressionUUID->"d90b515e-65bf-42c5-a9d8-7ebc27861a0a"], Cell[22853, 808, 71, 0, 135, "Output",ExpressionUUID->"674ddf51-ef87-4ea3-981c-9bca8b07e0de"] }, Open ]], Cell[22939, 811, 70, 0, 55, "Input",ExpressionUUID->"74c29eca-8a3c-482d-b962-b5a7bc6eeeb5"], Cell[CellGroupData[{ Cell[23034, 815, 70, 0, 57, "Input",ExpressionUUID->"4f2555c0-0b0b-46e3-953c-b99c2d8ef953"], Cell[23107, 817, 71, 0, 44, "Output",ExpressionUUID->"7ba637ff-c37f-4ab3-8f3f-c3a013477573"] }, Open ]], Cell[CellGroupData[{ Cell[23215, 822, 70, 0, 71, "Input",ExpressionUUID->"11bfaed8-b616-4bdb-acee-d6f652a0a4e6"], Cell[23288, 824, 71, 0, 136, "Output",ExpressionUUID->"9d9174e8-24e3-40da-860e-87b1062d7e14"] }, Open ]], Cell[23374, 827, 70, 0, 55, "Input",ExpressionUUID->"da646d41-2935-4f0b-94a9-796be9875f10"], Cell[CellGroupData[{ Cell[23469, 831, 70, 0, 57, "Input",ExpressionUUID->"bd584363-7bad-4830-803a-025a2ac0e9a6"], Cell[23542, 833, 71, 0, 44, "Output",ExpressionUUID->"83698929-f178-4c4d-9569-7a23e1e9c919"] }, Open ]], Cell[CellGroupData[{ Cell[23650, 838, 70, 0, 71, "Input",ExpressionUUID->"f7b18b38-4aa7-4d26-8653-c5282fb8bc07"], Cell[23723, 840, 71, 0, 136, "Output",ExpressionUUID->"aeb5446a-db30-4b37-a075-fd0875fea03f"] }, Open ]], Cell[23809, 843, 70, 0, 55, "Input",ExpressionUUID->"6dd58649-2ccd-4fad-b61e-e6b84d8dc37c"], Cell[CellGroupData[{ Cell[23904, 847, 70, 0, 57, "Input",ExpressionUUID->"47d19cd0-5c7e-4d2e-8522-f7af9f76b03d"], Cell[23977, 849, 71, 0, 44, "Output",ExpressionUUID->"e4c2258c-d675-43b1-8eb8-1a175227c843"] }, Open ]], Cell[CellGroupData[{ Cell[24085, 854, 70, 0, 71, "Input",ExpressionUUID->"e5291fe9-0a5c-4396-ac44-47a5f71d5568"], Cell[24158, 856, 71, 0, 134, "Output",ExpressionUUID->"f761d7d5-04c8-40b2-a937-6fac9575aeda"] }, Open ]], Cell[24244, 859, 70, 0, 55, "Input",ExpressionUUID->"034d75ed-4e94-4dfa-b0b5-fb25cd2d30d3"], Cell[CellGroupData[{ Cell[24339, 863, 70, 0, 73, "Input",ExpressionUUID->"939e0991-1a33-48bb-8325-c6afb708b1bf"], Cell[24412, 865, 71, 0, 42, "Output",ExpressionUUID->"07c46e6f-b409-4e46-91c4-1f8deedd3b7c"] }, Open ]], Cell[CellGroupData[{ Cell[24520, 870, 70, 0, 71, "Input",ExpressionUUID->"41fa3464-11f7-47db-b9f4-c04a234b3967"], Cell[24593, 872, 71, 0, 136, "Output",ExpressionUUID->"e6ece27a-240d-4388-ae6d-863762fb16fc"] }, Open ]], Cell[24679, 875, 70, 0, 55, "Input",ExpressionUUID->"5f4959b4-0631-460c-894f-e078cc08f6c0"], Cell[CellGroupData[{ Cell[24774, 879, 70, 0, 89, "Input",ExpressionUUID->"42dd11c3-40d8-4229-9f2b-ea33c98a4a3d"], Cell[24847, 881, 71, 0, 25, "Output",ExpressionUUID->"d656f635-4cba-4947-8345-8861516ad400"] }, Open ]], Cell[CellGroupData[{ Cell[24955, 886, 70, 0, 71, "Input",ExpressionUUID->"3b92c534-fe03-4b93-bce9-3935e73cd50a"], Cell[25028, 888, 71, 0, 133, "Output",ExpressionUUID->"047cfbb9-7bc7-4793-b25b-33d1e4b54f0f"] }, Open ]], Cell[CellGroupData[{ Cell[25136, 893, 70, 0, 22, "Input",ExpressionUUID->"a88f2391-1bc9-4d7a-b773-d4641b529a92"], Cell[25209, 895, 71, 0, 177, "Output",ExpressionUUID->"900bc96d-749d-4402-b6fc-1bde2c834df4"] }, Open ]], Cell[CellGroupData[{ Cell[25317, 900, 70, 0, 63, "Input",ExpressionUUID->"c2d3e68e-6754-4848-ad45-4d3a81a85373"], Cell[25390, 902, 72, 0, 22, "Message",ExpressionUUID->"7042c19d-9eb1-4c6c-b9ba-e11ecd2dad61"], Cell[25465, 904, 72, 0, 22, "Message",ExpressionUUID->"e96fc95a-7476-4cfa-9b6e-023e5f08ec84"], Cell[25540, 906, 72, 0, 22, "Message",ExpressionUUID->"697e339d-fa4d-4453-8541-d603f6be5ebf"], Cell[25615, 908, 72, 0, 22, "Message",ExpressionUUID->"a383bd1a-c1d9-49e6-a3ce-876ea12c3de9"] }, Open ]], Cell[25702, 911, 70, 0, 75, "Input",ExpressionUUID->"7baff68f-40db-4778-a165-a239cf88cc8b"], Cell[25775, 913, 70, 0, 109, "Input",ExpressionUUID->"54ea4ab2-b182-41d0-bc24-6dda493e24b7"], Cell[25848, 915, 70, 0, 126, "Input",ExpressionUUID->"b233f772-ebe4-4d6e-82dc-3e50dc9f4a60"], Cell[CellGroupData[{ Cell[25943, 919, 70, 0, 24, "Input",ExpressionUUID->"326e1381-0fb5-48b8-8b67-86eb59a8de43"], Cell[26016, 921, 71, 0, 182, "Output",ExpressionUUID->"ffcf6638-e41b-4dc3-a888-cbc1ddb5bd70"] }, Open ]], Cell[CellGroupData[{ Cell[26124, 926, 70, 0, 24, "Input",ExpressionUUID->"a93f2c6c-20d9-4e76-bf4e-d83eb645bfe2"], Cell[26197, 928, 71, 0, 178, "Output",ExpressionUUID->"e009ecd9-f064-498f-9713-a517c7738512"] }, Open ]], Cell[CellGroupData[{ Cell[26305, 933, 70, 0, 24, "Input",ExpressionUUID->"355b7a05-dc53-48b3-a074-381cbbaeac81"], Cell[26378, 935, 71, 0, 179, "Output",ExpressionUUID->"c021a3f3-a988-4ee0-849b-500241e51534"] }, Open ]], Cell[26464, 938, 70, 0, 55, "Input",ExpressionUUID->"a727ff31-abf9-4fbc-b1ba-5e10e05cc6ba"], Cell[CellGroupData[{ Cell[26559, 942, 70, 0, 57, "Input",ExpressionUUID->"e698d719-72a9-4ac8-adc0-f3dc6de33b29"], Cell[26632, 944, 72, 0, 34, "Message",ExpressionUUID->"66d8969a-eb54-4408-9ca1-e26797128b2e"], Cell[26707, 946, 71, 0, 44, "Output",ExpressionUUID->"c2ede9a0-b94f-4b1e-a656-779f19255c39"] }, Open ]], Cell[CellGroupData[{ Cell[26815, 951, 70, 0, 71, "Input",ExpressionUUID->"cf4b5c4b-339f-4dee-887e-9827e8e84f6a"], Cell[26888, 953, 71, 0, 135, "Output",ExpressionUUID->"59a5f5ab-6f64-4857-9cc3-85e34ce96d47"] }, Open ]], Cell[CellGroupData[{ Cell[26996, 958, 70, 0, 22, "Input",ExpressionUUID->"284ac71a-7465-46b2-a883-7d04bfed7c1a"], Cell[27069, 960, 71, 0, 177, "Output",ExpressionUUID->"8b218d9d-8ae6-4b3f-a0aa-21817c81ea81"] }, Open ]], Cell[27155, 963, 70, 0, 55, "Input",ExpressionUUID->"7b4489a6-2b9b-4fa0-b010-a2b21dfcde45"], Cell[CellGroupData[{ Cell[27250, 967, 70, 0, 57, "Input",ExpressionUUID->"3bcb2734-3eb2-49b0-9f9e-04e4c7a4fa3a"], Cell[27323, 969, 71, 0, 44, "Output",ExpressionUUID->"babae66a-342f-4778-9bda-49d5d95c0e25"] }, Open ]], Cell[CellGroupData[{ Cell[27431, 974, 70, 0, 71, "Input",ExpressionUUID->"0e6a979b-40f1-49c5-87f2-c038673fb15e"], Cell[27504, 976, 71, 0, 135, "Output",ExpressionUUID->"067ae380-8bbe-4d24-910a-2d72ea259077"] }, Open ]], Cell[CellGroupData[{ Cell[27612, 981, 70, 0, 22, "Input",ExpressionUUID->"a0ce8c43-76ba-466b-b075-393a38369f3e"], Cell[27685, 983, 71, 0, 177, "Output",ExpressionUUID->"efcd0ede-5fe0-410c-85a7-f2cb4a37d0c4"] }, Open ]], Cell[27771, 986, 70, 0, 55, "Input",ExpressionUUID->"64ac9234-6e5e-4a0a-889d-9a4d2d9e49eb"], Cell[CellGroupData[{ Cell[27866, 990, 70, 0, 73, "Input",ExpressionUUID->"d5ce1c93-2d50-4d5c-a1f8-53932ea334e0"], Cell[27939, 992, 71, 0, 60, "Output",ExpressionUUID->"55d1b86b-6c0e-4346-b514-6a32ca6f4162"] }, Open ]], Cell[CellGroupData[{ Cell[28047, 997, 70, 0, 71, "Input",ExpressionUUID->"4639fe6e-d305-44c1-81c3-afb4e380c88d"], Cell[28120, 999, 71, 0, 136, "Output",ExpressionUUID->"ee73d4b7-147b-4902-9021-472fa1cbd2dd"] }, Open ]], Cell[CellGroupData[{ Cell[28228, 1004, 70, 0, 22, "Input",ExpressionUUID->"487c1f18-3c65-4275-b382-bd34678bb77b"], Cell[28301, 1006, 71, 0, 180, "Output",ExpressionUUID->"98313969-c467-4d0e-84c2-9301e7354fd8"] }, Open ]], Cell[28387, 1009, 70, 0, 55, "Input",ExpressionUUID->"f984095d-d7b8-42c0-84b6-f249f7191889"], Cell[CellGroupData[{ Cell[28482, 1013, 70, 0, 89, "Input",ExpressionUUID->"eb772438-6d55-4597-94c4-e8e4c8a28dea"], Cell[28555, 1015, 72, 0, 37, "Message",ExpressionUUID->"15e11a28-3910-4175-baec-32f60966f167"], Cell[28630, 1017, 71, 0, 60, "Output",ExpressionUUID->"dc1d0e6d-dbfc-4101-8f2b-a45c3ce40dc1"] }, Open ]], Cell[CellGroupData[{ Cell[28738, 1022, 70, 0, 71, "Input",ExpressionUUID->"6f764f4a-8e60-4ade-81f6-342ce8502e9b"], Cell[28811, 1024, 71, 0, 138, "Output",ExpressionUUID->"073b197f-bc4b-40a2-a232-0cc8f06d961e"] }, Open ]], Cell[CellGroupData[{ Cell[28919, 1029, 70, 0, 22, "Input",ExpressionUUID->"afe99e33-748e-47f2-ba2a-c0c57008e3ff"], Cell[28992, 1031, 71, 0, 177, "Output",ExpressionUUID->"76d79e7a-9d2d-45b3-bb8a-8f918994420a"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[29112, 1037, 418, 11, 40, "Section",ExpressionUUID->"c1a07f43-bf98-4ded-8fe2-acd38d81a62a"], Cell[29533, 1050, 70, 0, 22, "Input",ExpressionUUID->"9814740b-6ceb-49dd-a8e7-470aa128f596"], Cell[29606, 1052, 70, 0, 71, "Input",ExpressionUUID->"e5da5cdc-dea4-468f-9f80-7bcb8f7055ed"], Cell[CellGroupData[{ Cell[29701, 1056, 70, 0, 22, "Input",ExpressionUUID->"61971941-a9ac-455d-84ae-8db30be2e665"], Cell[29774, 1058, 71, 0, 25, "Output",ExpressionUUID->"d79a197b-d3c2-420f-8a75-43a5a1f3eb88"] }, Open ]], Cell[29860, 1061, 70, 0, 71, "Input",ExpressionUUID->"7251e138-0073-4aed-93ec-409e542ba595"], Cell[CellGroupData[{ Cell[29955, 1065, 70, 0, 24, "Input",ExpressionUUID->"83870e45-e831-43bd-830f-3bbd0bc4cf26"], Cell[30028, 1067, 71, 0, 25, "Output",ExpressionUUID->"608e5f38-8dc5-4659-9821-1c08ee7937a3"] }, Open ]], Cell[30114, 1070, 70, 0, 71, "Input",ExpressionUUID->"2b68538e-eb4e-4fc5-8598-9d7f4cf47a71"], Cell[CellGroupData[{ Cell[30209, 1074, 70, 0, 24, "Input",ExpressionUUID->"f2eb7ff1-b83a-4711-baeb-03d638af762f"], Cell[30282, 1076, 71, 0, 25, "Output",ExpressionUUID->"8d8581e1-e769-405e-8440-00d9ea8a80b7"] }, Open ]], Cell[30368, 1079, 70, 0, 71, "Input",ExpressionUUID->"ff1cfdef-3775-4671-b5a8-7f84d899bb44"], Cell[CellGroupData[{ Cell[30463, 1083, 70, 0, 24, "Input",ExpressionUUID->"4ac9a3d8-7344-4b36-86cc-927251f84ae6"], Cell[30536, 1085, 71, 0, 25, "Output",ExpressionUUID->"4020c1a4-5f22-47ef-9d1f-adef13840e75"] }, Open ]], Cell[30622, 1088, 70, 0, 71, "Input",ExpressionUUID->"be587998-8957-48f9-8d89-e1f575b484d9"], Cell[CellGroupData[{ Cell[30717, 1092, 70, 0, 24, "Input",ExpressionUUID->"30f0ed04-9858-4017-8217-985c3efc1c9b"], Cell[30790, 1094, 71, 0, 25, "Output",ExpressionUUID->"c81e0168-c726-4188-a9c4-724e6bccc499"] }, Open ]], Cell[30876, 1097, 70, 0, 71, "Input",ExpressionUUID->"689e18ed-1ec8-498a-ad1b-507e0dd03bae"], Cell[CellGroupData[{ Cell[30971, 1101, 70, 0, 24, "Input",ExpressionUUID->"d483d5c3-c5f0-4bc3-b35a-ee3705301f57"], Cell[31044, 1103, 71, 0, 27, "Output",ExpressionUUID->"972e9daa-b8c0-48ea-94a6-5c1206f9ded8"] }, Open ]], Cell[31130, 1106, 70, 0, 71, "Input",ExpressionUUID->"4908c8f4-c01f-434c-9530-5ff19546ec45"], Cell[CellGroupData[{ Cell[31225, 1110, 70, 0, 24, "Input",ExpressionUUID->"c63ac5aa-bc1a-4703-8f86-c784cca22af9"], Cell[31298, 1112, 71, 0, 44, "Output",ExpressionUUID->"8cee96ed-e342-42b4-9a7c-986d1e772ed3"] }, Open ]], Cell[31384, 1115, 70, 0, 71, "Input",ExpressionUUID->"6dc40e0e-abcd-407f-bbc6-3e7148e2aec4"], Cell[CellGroupData[{ Cell[31479, 1119, 70, 0, 24, "Input",ExpressionUUID->"616ce136-6737-40e5-8029-31272add86f8"], Cell[31552, 1121, 71, 0, 44, "Output",ExpressionUUID->"9d4cc682-8c95-449b-9ae1-a07d60f17b16"] }, Open ]], Cell[31638, 1124, 70, 0, 71, "Input",ExpressionUUID->"0359663b-ea4b-4f2b-b953-154950f875db"], Cell[CellGroupData[{ Cell[31733, 1128, 70, 0, 24, "Input",ExpressionUUID->"ec848311-8958-4766-9a5d-9be5abcc44cb"], Cell[31806, 1130, 71, 0, 44, "Output",ExpressionUUID->"51334039-280f-48e2-b328-4297f777c9de"] }, Open ]], Cell[31892, 1133, 70, 0, 71, "Input",ExpressionUUID->"49fccc0f-c05a-483f-ad54-254b7500e1ec"], Cell[CellGroupData[{ Cell[31987, 1137, 70, 0, 24, "Input",ExpressionUUID->"3400ca05-e157-461b-96a6-83634df1cc38"], Cell[32060, 1139, 72, 0, 22, "Message",ExpressionUUID->"4717bc47-0f9e-459c-a089-7072d9d8546f"], Cell[32135, 1141, 71, 0, 44, "Output",ExpressionUUID->"9e06fa9c-619d-48be-8bd4-a62423b68459"] }, Open ]], Cell[CellGroupData[{ Cell[32243, 1146, 70, 0, 24, "Input",ExpressionUUID->"7336ac6b-83d1-49ff-a184-4670f1967f5f"], Cell[32316, 1148, 71, 0, 25, "Output",ExpressionUUID->"a267ea60-447c-4dcc-ab03-202e34d3e02b"] }, Open ]], Cell[CellGroupData[{ Cell[32424, 1153, 70, 0, 24, "Input",ExpressionUUID->"15ada2d4-3591-4b28-a4a0-0c24a32c8424"], Cell[32497, 1155, 71, 0, 25, "Output",ExpressionUUID->"769cfb1a-0cd6-4aa9-816e-ac5e5367d434"] }, Open ]], Cell[CellGroupData[{ Cell[32605, 1160, 70, 0, 24, "Input",ExpressionUUID->"49c36534-7e17-40fd-b17b-6c24396cf79b"], Cell[32678, 1162, 71, 0, 25, "Output",ExpressionUUID->"3eb32547-a996-48e0-bbf9-9f8a2877f2f6"] }, Open ]], Cell[CellGroupData[{ Cell[32786, 1167, 70, 0, 24, "Input",ExpressionUUID->"1b662f6f-7fb0-44b3-98b2-fcd0cb6cab57"], Cell[32859, 1169, 71, 0, 25, "Output",ExpressionUUID->"1581c58d-9a8e-473e-b952-16b423bd8281"] }, Open ]], Cell[CellGroupData[{ Cell[32967, 1174, 70, 0, 24, "Input",ExpressionUUID->"11f063b7-0e7a-4b08-8d80-05ffaf815f0e"], Cell[33040, 1176, 71, 0, 25, "Output",ExpressionUUID->"59d2c040-d7ec-47c4-8ccb-8dc4f6bdfd9c"] }, Open ]], Cell[CellGroupData[{ Cell[33148, 1181, 70, 0, 24, "Input",ExpressionUUID->"73f3d0d8-55bd-4b87-9313-593ad5301d2f"], Cell[33221, 1183, 71, 0, 177, "Output",ExpressionUUID->"88cd5860-1a82-4fe9-9019-187e9a6284bc"] }, Open ]], Cell[33307, 1186, 70, 0, 22, "Input",ExpressionUUID->"a5dcf275-1d4e-4c96-a79c-53a3afcdb89b"], Cell[CellGroupData[{ Cell[33402, 1190, 70, 0, 24, "Input",ExpressionUUID->"d831d23a-4316-405f-82be-49802e861f83"], Cell[33475, 1192, 71, 0, 40, "Output",ExpressionUUID->"80e78af9-9b53-4cc1-b28d-62d39e95442d"] }, Open ]], Cell[CellGroupData[{ Cell[33583, 1197, 70, 0, 22, "Input",ExpressionUUID->"b077fbbc-1b67-46ce-928c-cb9cb93feb84"], Cell[33656, 1199, 71, 0, 39, "Output",ExpressionUUID->"fe7374a3-2e61-4f7f-bfa8-7f2610ce7280"] }, Open ]], Cell[CellGroupData[{ Cell[33764, 1204, 70, 0, 24, "Input",ExpressionUUID->"7ad3e447-b82f-4f7c-bc15-cc792a2f0f08"], Cell[33837, 1206, 71, 0, 41, "Output",ExpressionUUID->"18e6e545-3d72-4cad-bb2d-62756bb962d5"] }, Open ]], Cell[CellGroupData[{ Cell[33945, 1211, 70, 0, 22, "Input",ExpressionUUID->"e5a7c569-4ce5-4d3c-98f3-9160229fa5f0"], Cell[34018, 1213, 71, 0, 41, "Output",ExpressionUUID->"f01cccdd-cd51-4883-b237-195d686deb4a"] }, Open ]], Cell[CellGroupData[{ Cell[34126, 1218, 70, 0, 24, "Input",ExpressionUUID->"667660ba-66f5-4b76-8eaf-75601abced2b"], Cell[34199, 1220, 71, 0, 25, "Output",ExpressionUUID->"2988841f-72ad-4f38-8e0d-50ce0c5e4c4a"] }, Open ]], Cell[CellGroupData[{ Cell[34307, 1225, 70, 0, 22, "Input",ExpressionUUID->"a8889652-7842-41cf-8091-72987781207f"], Cell[34380, 1227, 71, 0, 175, "Output",ExpressionUUID->"c9889d41-efaa-48df-8497-e0395247ab18"] }, Open ]], Cell[CellGroupData[{ Cell[34488, 1232, 70, 0, 23, "Input",ExpressionUUID->"f492346f-039d-454e-b401-4478d7324c1e"], Cell[34561, 1234, 71, 0, 25, "Output",ExpressionUUID->"8116d71c-2d49-4040-aba8-7a291ab11d2b"] }, Open ]], Cell[CellGroupData[{ Cell[34669, 1239, 70, 0, 25, "Input",ExpressionUUID->"8a8852a1-d6eb-4f81-aae0-a33a01326f50"], Cell[34742, 1241, 71, 0, 25, "Output",ExpressionUUID->"d72a90fc-a009-4c0c-949a-963bb5b65ef4"] }, Open ]], Cell[CellGroupData[{ Cell[34850, 1246, 70, 0, 22, "Input",ExpressionUUID->"f758c571-4941-4819-b8ff-bda876db06de"], Cell[34923, 1248, 71, 0, 39, "Output",ExpressionUUID->"5a0a399e-f5ce-43d7-878e-195ab44a54cc"] }, Open ]], Cell[35009, 1251, 70, 0, 24, "Input",ExpressionUUID->"b3d86629-c3a8-4e5c-8968-6735fe772663"], Cell[CellGroupData[{ Cell[35104, 1255, 70, 0, 25, "Input",ExpressionUUID->"a06dd50c-b2a6-48cd-a550-24e88107ce4e"], Cell[35177, 1257, 72, 0, 22, "Message",ExpressionUUID->"231f26c8-d164-4ed2-9d95-3ae6b9e7db4a"], Cell[35252, 1259, 72, 0, 22, "Message",ExpressionUUID->"9234dcc5-0207-4b2e-8051-0501c80d8d9f"], Cell[35327, 1261, 72, 0, 22, "Message",ExpressionUUID->"d1fb6878-82d5-4bae-8198-ca5be20a90a5"], Cell[35402, 1263, 72, 0, 22, "Message",ExpressionUUID->"14e79556-c616-4367-a2e8-6eb65243108f"], Cell[35477, 1265, 71, 0, 168, "Output",ExpressionUUID->"79b3a56a-fb4e-43df-a5e7-cc282c5e91e5"] }, Open ]], Cell[35563, 1268, 70, 0, 22, "Input",ExpressionUUID->"16011121-ccb9-4633-8c80-193152571641"], Cell[35636, 1270, 70, 0, 71, "Input",ExpressionUUID->"dd17419e-1a61-45a6-bc6e-4fc73cef39c7"], Cell[CellGroupData[{ Cell[35731, 1274, 70, 0, 24, "Input",ExpressionUUID->"26c43faf-69ad-4747-a4c2-02faedeae0ba"], Cell[35804, 1276, 72, 0, 22, "Message",ExpressionUUID->"f4aabacf-847b-4f9a-989e-275f0207bfac"], Cell[35879, 1278, 71, 0, 44, "Output",ExpressionUUID->"54f52e14-1cc2-4199-81ae-b38e003ee6a7"] }, Open ]], Cell[CellGroupData[{ Cell[35987, 1283, 70, 0, 22, "Input",ExpressionUUID->"0e67ed2d-901e-4ad6-bc18-0187d868db2a"], Cell[36060, 1285, 71, 0, 412, "Output",ExpressionUUID->"bb3e229d-42a2-4f31-ba52-03d502114257"] }, Open ]], Cell[CellGroupData[{ Cell[36168, 1290, 70, 0, 97, "Input",ExpressionUUID->"f953e6b7-d6db-4adc-ae62-1eaf92d1b68b"], Cell[36241, 1292, 71, 0, 428, "Output",ExpressionUUID->"52df7986-73ef-4731-a037-32f90ae8c2ca"] }, Open ]], Cell[CellGroupData[{ Cell[36349, 1297, 70, 0, 38, "Input",ExpressionUUID->"49320ca4-5c8c-4b1e-98f4-0fce9d6f767d"], Cell[36422, 1299, 71, 0, 35, "Output",ExpressionUUID->"a5bcadc6-2050-4678-82db-1cc984ce4cf8"] }, Open ]], Cell[CellGroupData[{ Cell[36530, 1304, 70, 0, 24, "Input",ExpressionUUID->"23c90a2a-3181-4507-b03d-1c6a524d318f"], Cell[36603, 1306, 71, 0, 58, "Output",ExpressionUUID->"804ea812-1e08-451e-b89b-85e21b7a900b"] }, Open ]], Cell[CellGroupData[{ Cell[36711, 1311, 70, 0, 22, "Input",ExpressionUUID->"411d79ae-3a60-45b7-ad34-0402223bc804"], Cell[36784, 1313, 71, 0, 44, "Output",ExpressionUUID->"d0487fb6-cc6f-4a82-b7e9-c88e89124f26"] }, Open ]], Cell[CellGroupData[{ Cell[36892, 1318, 70, 0, 99, "Input",ExpressionUUID->"f3f929dc-63b9-41e4-a7fa-bfc6233c0667"], Cell[36965, 1320, 71, 0, 449, "Output",ExpressionUUID->"849e1d2a-9c50-44de-89d5-857702cb5fd5"] }, Open ]], Cell[CellGroupData[{ Cell[37073, 1325, 70, 0, 22, "Input",ExpressionUUID->"a0caebd2-23a7-4511-9498-0c1a2e9cfe53"], Cell[37146, 1327, 71, 0, 271, "Output",ExpressionUUID->"7be21de8-007c-4120-a339-1f3ac51c3e60"] }, Open ]], Cell[CellGroupData[{ Cell[37254, 1332, 70, 0, 75, "Input",ExpressionUUID->"6fcf53ff-126b-4b26-a83b-148e00bf6b1b"], Cell[37327, 1334, 71, 0, 181, "Output",ExpressionUUID->"c786cfbb-e4b0-428c-b40c-df3c0c0def56"] }, Open ]], Cell[37413, 1337, 70, 0, 71, "Input",ExpressionUUID->"9f042e79-5a77-40a7-a4d2-a6d243e6aed3"], Cell[CellGroupData[{ Cell[37508, 1341, 70, 0, 24, "Input",ExpressionUUID->"9dd5f638-04be-4ab9-8e9e-a36242ce03fc"], Cell[37581, 1343, 71, 0, 44, "Output",ExpressionUUID->"9e62f072-c037-4c2b-a694-0a0eb1b1e9ea"] }, Open ]], Cell[37667, 1346, 70, 0, 71, "Input",ExpressionUUID->"b83dae54-967b-45b1-81ce-458e168a8389"], Cell[CellGroupData[{ Cell[37762, 1350, 70, 0, 24, "Input",ExpressionUUID->"9835d85f-5114-4265-bc49-5f2e4c050b32"], Cell[37835, 1352, 71, 0, 44, "Output",ExpressionUUID->"ebe14f51-7209-4e07-91c9-c24982da80ea"] }, Open ]], Cell[37921, 1355, 70, 0, 71, "Input",ExpressionUUID->"047dad42-d9f8-4bb8-a64f-7e04a9585915"], Cell[CellGroupData[{ Cell[38016, 1359, 70, 0, 24, "Input",ExpressionUUID->"890d932c-2ab7-4f89-a1ee-76f76a9c3c67"], Cell[38089, 1361, 71, 0, 25, "Output",ExpressionUUID->"e07ab9be-41a7-41c9-ae59-4c3f17b35525"] }, Open ]], Cell[CellGroupData[{ Cell[38197, 1366, 70, 0, 22, "Input",ExpressionUUID->"2af0cd55-f1de-4186-b4d2-7e0ee2fcbb90"], Cell[38270, 1368, 71, 0, 25, "Output",ExpressionUUID->"22f7b89c-ce93-4b4d-9c59-f15ec7f6da73"] }, Open ]], Cell[CellGroupData[{ Cell[38378, 1373, 70, 0, 22, "Input",ExpressionUUID->"6029f4f2-49f1-4154-aecc-06d866e07507"], Cell[38451, 1375, 71, 0, 25, "Output",ExpressionUUID->"15242adf-c742-46be-bda8-6054e9f087b3"] }, Open ]], Cell[CellGroupData[{ Cell[38559, 1380, 70, 0, 22, "Input",ExpressionUUID->"a4dbeef0-fcd6-4246-a096-026cd5c8fe7d"], Cell[38632, 1382, 71, 0, 25, "Output",ExpressionUUID->"e5f37624-2f5e-4013-ae6b-6268f8ff6713"] }, Open ]], Cell[CellGroupData[{ Cell[38740, 1387, 70, 0, 246, "Input",ExpressionUUID->"115752ea-f3aa-4038-a6aa-91c3f57bfac5"], Cell[38813, 1389, 71, 0, 170, "Output",ExpressionUUID->"ffa200df-716b-49a6-86be-94fa59dec869"] }, Open ]], Cell[CellGroupData[{ Cell[38921, 1394, 70, 0, 24, "Input",ExpressionUUID->"8fffab93-64df-4b6d-9647-f5f8bb98486e"], Cell[38994, 1396, 71, 0, 25, "Output",ExpressionUUID->"20eb8865-5dd8-4dcd-ab85-d54dfd719358"] }, Open ]], Cell[CellGroupData[{ Cell[39102, 1401, 70, 0, 22, "Input",ExpressionUUID->"7c14b679-0a0b-4d2d-86fd-db7da5a08f8d"], Cell[39175, 1403, 71, 0, 25, "Output",ExpressionUUID->"c86e3d74-dfee-43a3-b88b-5f71c70d4a28"] }, Open ]], Cell[CellGroupData[{ Cell[39283, 1408, 70, 0, 22, "Input",ExpressionUUID->"17e630bf-a8b6-4486-96e6-7f607c98ab57"], Cell[39356, 1410, 71, 0, 25, "Output",ExpressionUUID->"34cf2491-74b3-42e9-9f31-17cb7bbb6838"] }, Open ]], Cell[CellGroupData[{ Cell[39464, 1415, 70, 0, 22, "Input",ExpressionUUID->"0598b222-62c5-416e-b305-746b40dd9bc3"], Cell[39537, 1417, 71, 0, 25, "Output",ExpressionUUID->"c0cfe5fe-aabf-43c5-8e4a-26fc7484f455"] }, Open ]], Cell[CellGroupData[{ Cell[39645, 1422, 70, 0, 24, "Input",ExpressionUUID->"5af9d17e-db82-48f8-90e9-228210a09ed5"], Cell[39718, 1424, 71, 0, 25, "Output",ExpressionUUID->"9be1c398-b71f-4b8e-86ff-b57730c34ab5"] }, Open ]], Cell[39804, 1427, 70, 0, 22, "Input",ExpressionUUID->"b7b83165-8b6f-4f90-a072-18689e4da274"], Cell[CellGroupData[{ Cell[39899, 1431, 70, 0, 22, "Input",ExpressionUUID->"6897f3b9-582a-494f-bdf5-c17bb76e55eb"], Cell[39972, 1433, 71, 0, 25, "Output",ExpressionUUID->"af3bc580-2a55-4a7d-ac98-b39a4d20796c"] }, Open ]], Cell[CellGroupData[{ Cell[40080, 1438, 70, 0, 24, "Input",ExpressionUUID->"934c6620-7229-4e4b-b2ba-810eea6190fc"], Cell[40153, 1440, 71, 0, 25, "Output",ExpressionUUID->"97e63d9c-91b3-4669-accb-83df4a801f84"] }, Open ]], Cell[CellGroupData[{ Cell[40261, 1445, 70, 0, 71, "Input",ExpressionUUID->"3a1ee666-d77d-4248-b833-dd1b09c23d24"], Cell[40334, 1447, 71, 0, 183, "Output",ExpressionUUID->"058dec63-327d-4cf0-b0a1-cdf5c026a84b"] }, Open ]], Cell[40420, 1450, 70, 0, 22, "Input",ExpressionUUID->"f4bc065b-3d70-4f1f-bbed-9d1c17b3fc3d"], Cell[CellGroupData[{ Cell[40515, 1454, 70, 0, 24, "Input",ExpressionUUID->"d1ee4b7a-f19c-4764-a00e-c0443a4a655f"], Cell[40588, 1456, 71, 0, 25, "Output",ExpressionUUID->"1538c9df-d831-46f1-8713-7331dbb17ad5"] }, Open ]], Cell[CellGroupData[{ Cell[40696, 1461, 70, 0, 75, "Input",ExpressionUUID->"cb621e05-0372-4be4-8a7f-fa6af95394ed"], Cell[40769, 1463, 71, 0, 25, "Output",ExpressionUUID->"11752d12-3b73-4277-a911-0c1d26651286"] }, Open ]], Cell[CellGroupData[{ Cell[40877, 1468, 70, 0, 37, "Input",ExpressionUUID->"18d44a4a-c7fc-4ae5-848b-d13406c29337"], Cell[40950, 1470, 71, 0, 25, "Output",ExpressionUUID->"99c9c147-0bc3-4778-9545-e9c45fe0ac14"] }, Open ]], Cell[CellGroupData[{ Cell[41058, 1475, 70, 0, 24, "Input",ExpressionUUID->"e3524918-77d8-4a79-be8a-6de43155ca32"], Cell[41131, 1477, 71, 0, 27, "Output",ExpressionUUID->"a9939342-ed73-4ec4-91fc-0ea9e8060540"] }, Open ]], Cell[CellGroupData[{ Cell[41239, 1482, 70, 0, 22, "Input",ExpressionUUID->"5fd94adc-3ec9-44a6-9da8-ece1fda82850"], Cell[41312, 1484, 71, 0, 25, "Output",ExpressionUUID->"4a09183b-1d26-4467-8906-95ef0ab9c6c8"] }, Open ]], Cell[CellGroupData[{ Cell[41420, 1489, 70, 0, 39, "Input",ExpressionUUID->"73c66fd5-052d-458a-84d0-ede60e041f24"], Cell[41493, 1491, 71, 0, 25, "Output",ExpressionUUID->"c0c4b728-d1d8-42c2-a3f1-8b215d3c5a43"] }, Open ]], Cell[CellGroupData[{ Cell[41601, 1496, 70, 0, 58, "Input",ExpressionUUID->"7a26d6af-0aab-455f-91db-5512571172b3"], Cell[41674, 1498, 71, 0, 171, "Output",ExpressionUUID->"1b652f9e-f35c-42cd-a7e0-f01c8229e46b"] }, Open ]], Cell[41760, 1501, 70, 0, 55, "Input",ExpressionUUID->"3d32eb0d-fb5d-46ba-bbff-a17aec10d743"], Cell[CellGroupData[{ Cell[41855, 1505, 70, 0, 22, "Input",ExpressionUUID->"40615a3b-3bf4-41cf-af74-188977e3a07e"], Cell[41928, 1507, 72, 0, 22, "Message",ExpressionUUID->"1cd1ee4c-be11-4530-bf3b-f6416b08a0ff"], Cell[42003, 1509, 71, 0, 25, "Output",ExpressionUUID->"7acf39dc-8aed-44fe-8bb0-bb9436fd9010"] }, Open ]], Cell[CellGroupData[{ Cell[42111, 1514, 70, 0, 71, "Input",ExpressionUUID->"bf8968d9-19d7-4017-b5b9-14c165d48e1d"], Cell[42184, 1516, 71, 0, 137, "Output",ExpressionUUID->"f716e403-3b85-4db1-bcc7-65265fa14b70"] }, Open ]], Cell[CellGroupData[{ Cell[42292, 1521, 70, 0, 41, "Input",ExpressionUUID->"a73f44d7-19db-4443-8971-77a7d3cbc4ac"], Cell[42365, 1523, 71, 0, 180, "Output",ExpressionUUID->"2da9ed36-c74b-4b4e-987d-951628f83457"] }, Open ]], Cell[CellGroupData[{ Cell[42473, 1528, 70, 0, 41, "Input",ExpressionUUID->"0cce5618-8a99-44e7-86b5-68e7bc48ef0b"], Cell[42546, 1530, 71, 0, 180, "Output",ExpressionUUID->"1b6560cd-6b3d-4bab-919b-dc6e68e7c444"] }, Open ]], Cell[CellGroupData[{ Cell[42654, 1535, 70, 0, 39, "Input",ExpressionUUID->"8485951e-7fc8-43ed-8ba0-ef1e6d664951"], Cell[42727, 1537, 71, 0, 27, "Output",ExpressionUUID->"e2c67870-453b-427a-95e8-cab50a430376"] }, Open ]], Cell[CellGroupData[{ Cell[42835, 1542, 70, 0, 75, "Input",ExpressionUUID->"f8206946-5423-4615-81a4-c230b5e80d65"], Cell[42908, 1544, 71, 0, 138, "Output",ExpressionUUID->"985cd9bf-505a-4fe6-988b-e983fb70bc8a"] }, Open ]], Cell[CellGroupData[{ Cell[43016, 1549, 70, 0, 57, "Input",ExpressionUUID->"8088e833-ee02-4258-9f96-8c0e92981bf8"], Cell[43089, 1551, 71, 0, 181, "Output",ExpressionUUID->"93cd739f-29d0-4b70-aac3-bf2a78f628b7"] }, Open ]], Cell[43175, 1554, 70, 0, 55, "Input",ExpressionUUID->"bd576e58-f517-4aa4-afda-31a30b3f37f2"], Cell[CellGroupData[{ Cell[43270, 1558, 70, 0, 24, "Input",ExpressionUUID->"ceb62266-9f07-4658-a4d7-321e2989a78e"], Cell[43343, 1560, 72, 0, 22, "Message",ExpressionUUID->"5c805d43-a6a3-4259-8167-9ed7a83569c3"], Cell[43418, 1562, 71, 0, 60, "Output",ExpressionUUID->"ca8008f0-9c0b-428c-bd51-8cef3103b4c4"] }, Open ]], Cell[CellGroupData[{ Cell[43526, 1567, 70, 0, 71, "Input",ExpressionUUID->"ce2413ff-e1c9-412f-8c1c-20f5155a8e4e"], Cell[43599, 1569, 71, 0, 138, "Output",ExpressionUUID->"970b6b46-2fe0-42a5-8a2d-e2d76a8db9e5"] }, Open ]], Cell[CellGroupData[{ Cell[43707, 1574, 70, 0, 59, "Input",ExpressionUUID->"a2b6993a-026b-4527-b432-66adf3e82a38"], Cell[43780, 1576, 71, 0, 184, "Output",ExpressionUUID->"bf2495ed-92b4-47e0-8f49-b2172527f2d1"] }, Open ]], Cell[CellGroupData[{ Cell[43888, 1581, 70, 0, 75, "Input",ExpressionUUID->"3dce5e91-87e2-45b3-8a1a-d6f943dd975c"], Cell[43961, 1583, 71, 0, 180, "Output",ExpressionUUID->"69a06601-7d40-4a49-9c86-e61321248df8"] }, Open ]], Cell[44047, 1586, 70, 0, 55, "Input",ExpressionUUID->"8e15ee6e-f796-4feb-a19d-45aa418925bc"], Cell[CellGroupData[{ Cell[44142, 1590, 70, 0, 22, "Input",ExpressionUUID->"01559a7f-0832-4186-9a48-6dc2654c35f7"], Cell[44215, 1592, 71, 0, 42, "Output",ExpressionUUID->"c8019c92-12bd-4aec-9d81-dd12103214c5"] }, Open ]], Cell[CellGroupData[{ Cell[44323, 1597, 70, 0, 71, "Input",ExpressionUUID->"64934bdb-d7a0-4854-b9ce-237aaf977e8a"], Cell[44396, 1599, 71, 0, 138, "Output",ExpressionUUID->"838b5db2-c5d6-4d60-a8cd-e5d80ea3cacb"] }, Open ]], Cell[CellGroupData[{ Cell[44504, 1604, 70, 0, 141, "Input",ExpressionUUID->"c75788e5-2d5f-4b60-a9a3-c8ab1e900ca6"], Cell[44577, 1606, 71, 0, 138, "Output",ExpressionUUID->"b026bd64-4322-4d3d-bd25-24c6f375d92e"] }, Open ]], Cell[44663, 1609, 70, 0, 55, "Input",ExpressionUUID->"8712ec7d-4853-4834-9148-2e0b87e145f3"], Cell[CellGroupData[{ Cell[44758, 1613, 70, 0, 22, "Input",ExpressionUUID->"357d2920-878c-453b-80a5-70ba292a5ae8"], Cell[44831, 1615, 72, 0, 46, "Message",ExpressionUUID->"47f7f2c3-b7e2-4a94-b6cf-25d9f0fa600f"], Cell[44906, 1617, 71, 0, 58, "Output",ExpressionUUID->"9a6912d5-608a-4795-8a0e-d54603e47fad"] }, Open ]], Cell[CellGroupData[{ Cell[45014, 1622, 70, 0, 71, "Input",ExpressionUUID->"5f25fdb0-021a-4328-9d95-e2f4257a4ed7"], Cell[45087, 1624, 71, 0, 138, "Output",ExpressionUUID->"bf5ad568-a673-4464-9f2c-8e5d79bac130"] }, Open ]], Cell[45173, 1627, 70, 0, 55, "Input",ExpressionUUID->"52fb4777-4c7f-45e8-ac9f-46d51d41be30"], Cell[CellGroupData[{ Cell[45268, 1631, 70, 0, 22, "Input",ExpressionUUID->"0d730e0c-0cc6-4c7f-8384-7f3287a69ea5"], Cell[45341, 1633, 72, 0, 22, "Message",ExpressionUUID->"e6302471-fb4c-458d-8ff0-f2052addc5e7"], Cell[45416, 1635, 71, 0, 79, "Output",ExpressionUUID->"795c441e-9e36-4982-b06f-02572be8c468"] }, Open ]], Cell[CellGroupData[{ Cell[45524, 1640, 70, 0, 71, "Input",ExpressionUUID->"19ffcc93-81a4-4442-9f7d-bb0a91076a83"], Cell[45597, 1642, 71, 0, 136, "Output",ExpressionUUID->"7c3bf3fe-4257-44f9-b31f-df5fc8e0a8f6"] }, Open ]], Cell[CellGroupData[{ Cell[45705, 1647, 70, 0, 22, "Input",ExpressionUUID->"d27188da-dbec-4862-897d-c79d508f5a06"], Cell[45778, 1649, 71, 0, 178, "Output",ExpressionUUID->"d3aaacc3-94cd-4f94-b8d3-6f97ce80a7dd"] }, Open ]], Cell[45864, 1652, 70, 0, 55, "Input",ExpressionUUID->"a7c34ad4-8a20-4d4c-a312-b4abf43e7b84"], Cell[CellGroupData[{ Cell[45959, 1656, 70, 0, 24, "Input",ExpressionUUID->"f952decb-8392-4bd9-9ca8-68fa98ba4ea0"], Cell[46032, 1658, 72, 0, 34, "Message",ExpressionUUID->"3f58991c-8f32-42f0-910b-caff5ed428b4"], Cell[46107, 1660, 71, 0, 76, "Output",ExpressionUUID->"58221ff1-4525-46a7-bdae-792c93f49938"] }, Open ]], Cell[CellGroupData[{ Cell[46215, 1665, 70, 0, 71, "Input",ExpressionUUID->"438a08cf-d91e-4ffb-89f2-a823831c337f"], Cell[46288, 1667, 71, 0, 136, "Output",ExpressionUUID->"31bd7638-0b3f-414d-858a-3740b7c9aa3d"] }, Open ]], Cell[CellGroupData[{ Cell[46396, 1672, 70, 0, 55, "Input",ExpressionUUID->"3ca9ff01-d810-4f3b-a0e5-4853c773e631"], Cell[46469, 1674, 71, 0, 178, "Output",ExpressionUUID->"bf148fd8-9693-4be5-8c41-6d1aeb3bcdce"] }, Open ]], Cell[CellGroupData[{ Cell[46577, 1679, 70, 0, 22, "Input",ExpressionUUID->"5676beb4-7e67-4262-a1a9-8649d66fc608"], Cell[46650, 1681, 71, 0, 25, "Output",ExpressionUUID->"4fbceaf0-ac98-4d89-a81b-49f54b7e80b3"] }, Open ]], Cell[CellGroupData[{ Cell[46758, 1686, 70, 0, 22, "Input",ExpressionUUID->"a47e563a-1a70-40e7-b94e-e6dec72f2217"], Cell[46831, 1688, 71, 0, 51, "Output",ExpressionUUID->"75bbd4ee-6c89-47ad-8378-521f9f78d95c"] }, Open ]], Cell[CellGroupData[{ Cell[46939, 1693, 70, 0, 59, "Input",ExpressionUUID->"db5b7fcd-757d-45ac-b959-eb92b6428ee8"], Cell[47012, 1695, 71, 0, 77, "Output",ExpressionUUID->"66904aad-235c-4592-a25c-527242bad8da"] }, Open ]], Cell[CellGroupData[{ Cell[47120, 1700, 70, 0, 63, "Input",ExpressionUUID->"4f34a001-11c8-46a5-bab7-43816510fc29"], Cell[47193, 1702, 72, 0, 22, "Message",ExpressionUUID->"8c252e0f-ebf9-40a0-a65e-5752171a35d8"], Cell[47268, 1704, 72, 0, 22, "Message",ExpressionUUID->"a000d915-f8c7-4ce4-a811-545a415e24fc"], Cell[47343, 1706, 72, 0, 22, "Message",ExpressionUUID->"7dde968f-6bef-4b0b-81b3-e52e357f62e2"], Cell[47418, 1708, 72, 0, 22, "Message",ExpressionUUID->"5f0d7aa7-3d28-4e00-82d5-76ffcee4bd01"] }, Open ]], Cell[CellGroupData[{ Cell[47527, 1713, 70, 0, 24, "Input",ExpressionUUID->"dee3cd3e-84f4-4b73-b470-f1b7c0baa7b5"], Cell[47600, 1715, 71, 0, 182, "Output",ExpressionUUID->"18c3e4eb-9e95-422a-b0da-36edbb287ee5"] }, Open ]], Cell[47686, 1718, 70, 0, 109, "Input",ExpressionUUID->"c9f0635b-0df0-48ed-8c29-17f301861517"], Cell[CellGroupData[{ Cell[47781, 1722, 70, 0, 126, "Input",ExpressionUUID->"437d5765-89f4-444f-abba-e04ffe26d7c9"], Cell[47854, 1724, 72, 0, 32, "Message",ExpressionUUID->"4c823020-6c4e-407e-8fb9-5a5ec9a49385"], Cell[47929, 1726, 72, 0, 22, "Message",ExpressionUUID->"0f4aaf4c-9dbc-427f-9089-e02cb3abcf77"], Cell[48004, 1728, 72, 0, 32, "Message",ExpressionUUID->"8c578de3-6085-49cf-8cf6-84361c2d8524"], Cell[48079, 1730, 72, 0, 32, "Message",ExpressionUUID->"42ea315f-3868-4b6f-b2f8-24cbc5f4dc34"], Cell[48154, 1732, 72, 0, 22, "Message",ExpressionUUID->"2ab5fd83-7455-458e-b91b-0d9ee7745efa"], Cell[48229, 1734, 72, 0, 22, "Message",ExpressionUUID->"3d85a17e-b682-4c90-bcb8-f3301535254d"], Cell[48304, 1736, 72, 0, 22, "Message",ExpressionUUID->"55552e47-2019-4e0e-94ac-22ab0b441801"], Cell[48379, 1738, 72, 0, 22, "Message",ExpressionUUID->"760654c4-f428-4c74-891f-ff2a37b6b853"] }, Open ]], Cell[CellGroupData[{ Cell[48488, 1743, 70, 0, 22, "Input",ExpressionUUID->"cf8328a2-2e41-4543-bbcc-55e75f60d95a"], Cell[48561, 1745, 71, 0, 305, "Output",ExpressionUUID->"5407ac23-3194-49ee-8010-3f88ab93d531"] }, Open ]], Cell[CellGroupData[{ Cell[48669, 1750, 70, 0, 76, "Input",ExpressionUUID->"86ced1f4-0a54-4999-959e-d79bc814f759"], Cell[48742, 1752, 71, 0, 352, "Output",ExpressionUUID->"93bab345-098c-4ca7-852a-335a5cd0dcf6"] }, Open ]], Cell[CellGroupData[{ Cell[48850, 1757, 70, 0, 24, "Input",ExpressionUUID->"856a5f4c-223c-4aea-beeb-3fbd1534589f"], Cell[48923, 1759, 71, 0, 25, "Output",ExpressionUUID->"e28c565e-2a35-4030-81ec-c70369667adb"] }, Open ]], Cell[CellGroupData[{ Cell[49031, 1764, 70, 0, 24, "Input",ExpressionUUID->"a052bc09-b1cf-4937-8c90-bdb0978ae5fb"], Cell[49104, 1766, 71, 0, 179, "Output",ExpressionUUID->"27ad9b7a-bb2e-42b7-9b85-f4860d194c8a"] }, Open ]], Cell[49190, 1769, 70, 0, 75, "Input",ExpressionUUID->"bc95d58f-92c7-4786-bf70-93a6a30e7d08"], Cell[CellGroupData[{ Cell[49285, 1773, 70, 0, 24, "Input",ExpressionUUID->"b99c27c3-28f4-463a-bbd4-0d707f24ede5"], Cell[49358, 1775, 71, 0, 178, "Output",ExpressionUUID->"dbb1ea27-23d8-498f-9931-237735b90888"] }, Open ]], Cell[49444, 1778, 70, 0, 109, "Input",ExpressionUUID->"e125971c-79d1-4a87-ab30-82edcc7a11b6"], Cell[CellGroupData[{ Cell[49539, 1782, 70, 0, 24, "Input",ExpressionUUID->"da2bc76c-d02b-4910-a9ef-13df31a8a85d"], Cell[49612, 1784, 71, 0, 180, "Output",ExpressionUUID->"3379bb53-2814-44a6-8d6d-c6bf9ff90130"] }, Open ]], Cell[49698, 1787, 70, 0, 55, "Input",ExpressionUUID->"0ff99b46-5b6d-4857-b18e-faa48625e0b2"], Cell[CellGroupData[{ Cell[49793, 1791, 70, 0, 22, "Input",ExpressionUUID->"70a7e635-ea68-4ab2-b208-3f27f1f18773"], Cell[49866, 1793, 71, 0, 25, "Output",ExpressionUUID->"ff4ef488-7509-4a22-b38b-3e5ee979dfec"] }, Open ]], Cell[CellGroupData[{ Cell[49974, 1798, 70, 0, 71, "Input",ExpressionUUID->"e7efdffa-c82b-4b24-afeb-7b606e3a56b6"], Cell[50047, 1800, 71, 0, 136, "Output",ExpressionUUID->"ea054bf8-969f-415b-abfb-ad7f9b45bd69"] }, Open ]], Cell[50133, 1803, 70, 0, 55, "Input",ExpressionUUID->"376c00c5-9f33-4e41-9b82-73d25dddfb86"], Cell[CellGroupData[{ Cell[50228, 1807, 70, 0, 22, "Input",ExpressionUUID->"51dc3d02-9fb1-45c0-a232-766e908af724"], Cell[50301, 1809, 71, 0, 25, "Output",ExpressionUUID->"37d0c2a2-52d2-4d89-8972-8e422f0e5216"] }, Open ]], Cell[CellGroupData[{ Cell[50409, 1814, 70, 0, 71, "Input",ExpressionUUID->"b0ed41fc-0793-4607-b285-69dc836fbc46"], Cell[50482, 1816, 71, 0, 135, "Output",ExpressionUUID->"1a124bff-ae77-4eae-9842-4ec08b7c4be7"] }, Open ]], Cell[50568, 1819, 70, 0, 55, "Input",ExpressionUUID->"ce3d50ae-7830-43f7-9e8b-ff1617bdfce1"], Cell[CellGroupData[{ Cell[50663, 1823, 70, 0, 57, "Input",ExpressionUUID->"1d5c2fc0-e8df-4896-8045-0fde59533d77"], Cell[50736, 1825, 71, 0, 44, "Output",ExpressionUUID->"2c63f7bd-1cf3-4607-b707-7a6b95e64ad2"] }, Open ]], Cell[CellGroupData[{ Cell[50844, 1830, 70, 0, 71, "Input",ExpressionUUID->"e9f77ee6-ddde-4089-a778-5ece4a57f773"], Cell[50917, 1832, 71, 0, 136, "Output",ExpressionUUID->"a47f9b99-a5ed-4171-b8a9-afdc15370d19"] }, Open ]], Cell[51003, 1835, 70, 0, 55, "Input",ExpressionUUID->"c66d9b43-8912-4776-8df9-4b82e92385a2"], Cell[CellGroupData[{ Cell[51098, 1839, 70, 0, 57, "Input",ExpressionUUID->"d3511a9b-2734-4512-8448-59796db57c80"], Cell[51171, 1841, 71, 0, 44, "Output",ExpressionUUID->"02bbcf9e-2ac0-4d1f-8fa5-b00695e27836"] }, Open ]], Cell[CellGroupData[{ Cell[51279, 1846, 70, 0, 71, "Input",ExpressionUUID->"59b991fc-3c45-48aa-9268-cff7572aa8c6"], Cell[51352, 1848, 71, 0, 136, "Output",ExpressionUUID->"b20c1ede-027a-4011-ba6a-a217ceecc8e8"] }, Open ]], Cell[51438, 1851, 70, 0, 55, "Input",ExpressionUUID->"3597eaa7-3139-4518-bbfe-df34271dde2a"], Cell[CellGroupData[{ Cell[51533, 1855, 70, 0, 57, "Input",ExpressionUUID->"77c87cdf-033d-4185-b49d-b5d681d7f0f9"], Cell[51606, 1857, 71, 0, 44, "Output",ExpressionUUID->"78a71b8d-3942-4850-b5d4-5a45d3517416"] }, Open ]], Cell[CellGroupData[{ Cell[51714, 1862, 70, 0, 71, "Input",ExpressionUUID->"b37e4fd1-1edc-4db8-a29a-c5c0b1ee2464"], Cell[51787, 1864, 71, 0, 134, "Output",ExpressionUUID->"951d7a74-9aa0-40b2-8c7e-afd33547bd6f"] }, Open ]], Cell[51873, 1867, 70, 0, 55, "Input",ExpressionUUID->"fc9769af-3482-4891-854c-c4f69b3e7ab2"], Cell[CellGroupData[{ Cell[51968, 1871, 70, 0, 73, "Input",ExpressionUUID->"b726930b-8825-4fc1-bdd4-f13327dfafcc"], Cell[52041, 1873, 71, 0, 42, "Output",ExpressionUUID->"dcc85e39-87fd-4c7a-adc2-f6dbe9ac4f86"] }, Open ]], Cell[CellGroupData[{ Cell[52149, 1878, 70, 0, 71, "Input",ExpressionUUID->"3d6268b9-9dcd-4abd-a190-2d411c0f9ac5"], Cell[52222, 1880, 71, 0, 136, "Output",ExpressionUUID->"b95a5d46-00d9-454a-bdbb-7b373fb54a04"] }, Open ]], Cell[52308, 1883, 70, 0, 55, "Input",ExpressionUUID->"75d213ac-5b7e-4a17-b0e6-82481e033952"], Cell[CellGroupData[{ Cell[52403, 1887, 70, 0, 89, "Input",ExpressionUUID->"402a64a2-7215-43ff-afb2-5ffdb07699eb"], Cell[52476, 1889, 71, 0, 25, "Output",ExpressionUUID->"84187abd-3a8b-42cd-8388-c4431767b6fc"] }, Open ]], Cell[CellGroupData[{ Cell[52584, 1894, 70, 0, 71, "Input",ExpressionUUID->"855b658f-9a32-44de-bcab-f191fa636709"], Cell[52657, 1896, 71, 0, 133, "Output",ExpressionUUID->"c2f9aac7-afc1-4b9d-9453-1a00347fcbe9"] }, Open ]], Cell[CellGroupData[{ Cell[52765, 1901, 70, 0, 22, "Input",ExpressionUUID->"72c66ca0-a15a-4276-8266-9702097608f9"], Cell[52838, 1903, 71, 0, 177, "Output",ExpressionUUID->"c22b79eb-939c-44d3-832b-d02d2b74f6d7"] }, Open ]], Cell[CellGroupData[{ Cell[52946, 1908, 70, 0, 63, "Input",ExpressionUUID->"fe1d3062-e3cb-440f-8b39-b4206ce88f50"], Cell[53019, 1910, 72, 0, 22, "Message",ExpressionUUID->"a8cdbd70-b1ae-4bac-b3e9-4a3a33f415b4"], Cell[53094, 1912, 72, 0, 22, "Message",ExpressionUUID->"3a00a43c-0975-4a69-8a45-f6d37256351e"], Cell[53169, 1914, 72, 0, 22, "Message",ExpressionUUID->"490c70b7-6d80-4544-ad78-0bdf86f8cf57"], Cell[53244, 1916, 72, 0, 22, "Message",ExpressionUUID->"a33d77be-ae6e-4ad0-bc43-7822886c2702"] }, Open ]], Cell[53331, 1919, 70, 0, 75, "Input",ExpressionUUID->"4a1ef349-9985-4fd3-a4ef-904651cf68ac"], Cell[53404, 1921, 70, 0, 109, "Input",ExpressionUUID->"50c02bdb-5ed2-40ab-ba77-b26952532ed9"], Cell[53477, 1923, 70, 0, 126, "Input",ExpressionUUID->"3f2d1ac4-1ccc-46f3-b1c3-9e780be42bfd"], Cell[CellGroupData[{ Cell[53572, 1927, 70, 0, 24, "Input",ExpressionUUID->"7fb890bc-1064-4d99-b6f5-6ecab88b82da"], Cell[53645, 1929, 71, 0, 182, "Output",ExpressionUUID->"f209a90a-6414-4c82-b1ac-a415e04bb40b"] }, Open ]], Cell[CellGroupData[{ Cell[53753, 1934, 70, 0, 24, "Input",ExpressionUUID->"2241f538-313e-49d3-adfa-ce7a1941836a"], Cell[53826, 1936, 71, 0, 178, "Output",ExpressionUUID->"e60c6984-4395-45c5-bdea-cc5d8603b5ea"] }, Open ]], Cell[CellGroupData[{ Cell[53934, 1941, 70, 0, 24, "Input",ExpressionUUID->"72447e76-665c-4e50-939a-7de5c0764602"], Cell[54007, 1943, 71, 0, 179, "Output",ExpressionUUID->"c1192d4e-ddba-4b86-80cd-25d21e620f98"] }, Open ]], Cell[54093, 1946, 70, 0, 55, "Input",ExpressionUUID->"cebc93a0-79b0-4da8-98e0-dac61dd498b9"], Cell[CellGroupData[{ Cell[54188, 1950, 70, 0, 57, "Input",ExpressionUUID->"599c1193-9a9a-4e09-bef2-d12c1f4a1969"], Cell[54261, 1952, 72, 0, 34, "Message",ExpressionUUID->"11e2554d-75ea-4c0a-9448-8bfb332a62f3"], Cell[54336, 1954, 71, 0, 44, "Output",ExpressionUUID->"6b1f6bb2-0a9c-4b87-aa00-e784a50c66dc"] }, Open ]], Cell[CellGroupData[{ Cell[54444, 1959, 70, 0, 71, "Input",ExpressionUUID->"61a36220-5b85-4beb-bbe5-4d4a78e82a94"], Cell[54517, 1961, 71, 0, 135, "Output",ExpressionUUID->"b177731d-7523-4738-97e5-0fab244202d6"] }, Open ]], Cell[CellGroupData[{ Cell[54625, 1966, 70, 0, 22, "Input",ExpressionUUID->"bfc95959-ad22-467f-8b96-2c1c826f5655"], Cell[54698, 1968, 71, 0, 177, "Output",ExpressionUUID->"4bc2cbcd-5582-4860-bb36-8c588aa6b1b0"] }, Open ]], Cell[54784, 1971, 70, 0, 55, "Input",ExpressionUUID->"4e2d6149-b3b3-4123-babc-92a2df998316"], Cell[CellGroupData[{ Cell[54879, 1975, 70, 0, 57, "Input",ExpressionUUID->"d4b73ce5-7524-4652-9579-36229cebbccf"], Cell[54952, 1977, 71, 0, 44, "Output",ExpressionUUID->"25f27aca-d25c-4d15-ab55-cf857b68dcb2"] }, Open ]], Cell[CellGroupData[{ Cell[55060, 1982, 70, 0, 71, "Input",ExpressionUUID->"4b312d26-e716-4e13-99c6-2e39cc88c447"], Cell[55133, 1984, 71, 0, 135, "Output",ExpressionUUID->"ad045ca4-bf3e-45f2-be6a-188c8fb39746"] }, Open ]], Cell[CellGroupData[{ Cell[55241, 1989, 70, 0, 22, "Input",ExpressionUUID->"ff569190-822f-433e-ac6c-14b1dcd96ed9"], Cell[55314, 1991, 71, 0, 177, "Output",ExpressionUUID->"436b5bb4-ba6b-46e9-ab6e-3829cbc4f6f8"] }, Open ]], Cell[55400, 1994, 70, 0, 55, "Input",ExpressionUUID->"fe675aeb-309d-4146-9e6b-7ccf11b6980f"], Cell[CellGroupData[{ Cell[55495, 1998, 70, 0, 41, "Input",ExpressionUUID->"955fd7fe-8805-4dc6-bcd9-f0b6fe561e94"], Cell[55568, 2000, 71, 0, 44, "Output",ExpressionUUID->"1f525144-95cc-4f1d-a2b1-7ed52efe7b5e"] }, Open ]], Cell[CellGroupData[{ Cell[55676, 2005, 70, 0, 71, "Input",ExpressionUUID->"59ee4596-58f4-4760-9707-1639a55478ef"], Cell[55749, 2007, 71, 0, 136, "Output",ExpressionUUID->"bcf0ddd6-91b4-474e-8418-aafc45056303"] }, Open ]], Cell[CellGroupData[{ Cell[55857, 2012, 70, 0, 22, "Input",ExpressionUUID->"bf8f6059-088d-4951-bbb6-e2c25b6a202b"], Cell[55930, 2014, 71, 0, 180, "Output",ExpressionUUID->"baf431bc-0457-4cd5-b76b-e8aeacd57202"] }, Open ]], Cell[56016, 2017, 70, 0, 55, "Input",ExpressionUUID->"21502648-5bb8-4309-888f-8d4797b6965f"], Cell[CellGroupData[{ Cell[56111, 2021, 70, 0, 41, "Input",ExpressionUUID->"25c31f45-9b44-4e7a-a888-7c4634fb8ae8"], Cell[56184, 2023, 72, 0, 22, "Message",ExpressionUUID->"c514ee03-eba1-48e4-af1e-0991d7159e99"], Cell[56259, 2025, 71, 0, 44, "Output",ExpressionUUID->"8d39b42e-cf19-4334-a472-16b27afd3f8e"] }, Open ]], Cell[CellGroupData[{ Cell[56367, 2030, 70, 0, 71, "Input",ExpressionUUID->"15b1dea7-4387-4196-86ca-e5029d19055e"], Cell[56440, 2032, 71, 0, 138, "Output",ExpressionUUID->"71a0bd1f-9ee3-45c1-8043-10fc45b089f2"] }, Open ]], Cell[CellGroupData[{ Cell[56548, 2037, 70, 0, 22, "Input",ExpressionUUID->"ea7e7eb2-0ae4-48e4-9de2-2070d9c80ef7"], Cell[56621, 2039, 71, 0, 177, "Output",ExpressionUUID->"a52313f1-4c10-40c6-b4b1-90cde6f32b05"] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[56741, 2045, 203, 4, 40, "Section",ExpressionUUID->"5d9c76ab-41db-4d8f-b32b-3ceed5a29b07"], Cell[56947, 2051, 213, 4, 22, "Input",ExpressionUUID->"c2736e8b-b9a2-44e3-be7a-35f424888e11"], Cell[CellGroupData[{ Cell[57185, 2059, 3014, 55, 22, "Input",ExpressionUUID->"a326d1ad-f5a3-49d5-9b86-3a79e4cb291c"], Cell[60202, 2116, 1303, 23, 25, "Output",ExpressionUUID->"97d0a138-49bc-4f29-960c-16ea2836e8d6"] }, Open ]], Cell[CellGroupData[{ Cell[61542, 2144, 648, 17, 24, "Input",ExpressionUUID->"8eab97ea-e359-40c0-9935-fde12f7b604a"], Cell[62193, 2163, 940, 18, 27, "Output",ExpressionUUID->"657cc05f-0a6c-4bfc-ac63-5c7dda33b28c"] }, Open ]], Cell[CellGroupData[{ Cell[63170, 2186, 4389, 67, 75, "Input",ExpressionUUID->"205f64ad-0fed-40fc-a0ee-a19d5c4d39b3"], Cell[67562, 2255, 16434, 321, 210, "Output",ExpressionUUID->"50732af7-406a-47af-b446-2d2e30f9e4ac"] }, Open ]], Cell[CellGroupData[{ Cell[84033, 2581, 4487, 68, 75, "Input",ExpressionUUID->"5755d9a0-f64b-44fe-a9ca-88f25a3c1639"], Cell[88523, 2651, 12408, 232, 209, "Output",ExpressionUUID->"d5be2d93-8799-4554-97ed-a66db4df9e0a"] }, Open ]], Cell[100946, 2886, 99, 0, 22, "Input",ExpressionUUID->"d8f49b29-f847-451a-a460-2535964a9a0a"], Cell[CellGroupData[{ Cell[101070, 2890, 945, 21, 24, "Input",ExpressionUUID->"b8ec9dac-481c-4447-b6be-1a0fca4ca17b"], Cell[102018, 2913, 494, 11, 22, "Message",ExpressionUUID->"38e1e97e-6922-4902-bd7b-4347bdc13a47"], Cell[102515, 2926, 494, 11, 22, "Message",ExpressionUUID->"a33755cf-536c-4641-9c78-7289962fa472"], Cell[103012, 2939, 266, 5, 18, "Print",ExpressionUUID->"e2133c02-599f-4265-8ee0-047003daf318"], Cell[103281, 2946, 531, 11, 22, "Message",ExpressionUUID->"668d8ed1-e748-4361-801c-3b3622c9e584"], Cell[103815, 2959, 537, 12, 22, "Message",ExpressionUUID->"6271bd0b-cc2b-4bb6-976f-ea43e0cce940"], Cell[CellGroupData[{ Cell[104377, 2975, 266, 5, 18, "Print",ExpressionUUID->"7035d7f9-98ac-4ffd-a934-ef2622699155"], Cell[104646, 2982, 268, 5, 18, "Print",ExpressionUUID->"e0d087bb-d143-4be9-8121-da53fae84005"] }, Open ]], Cell[104929, 2990, 532, 11, 22, "Message",ExpressionUUID->"0522f535-30ca-4741-802a-bb8a853e882d"], Cell[105464, 3003, 527, 11, 22, "Message",ExpressionUUID->"aa249a58-de29-40dc-aae9-b1b44827b2c7"], Cell[CellGroupData[{ Cell[106016, 3018, 266, 5, 18, "Print",ExpressionUUID->"5a87b09d-851d-4928-bc80-d3c2e6276486"], Cell[106285, 3025, 268, 5, 18, "Print",ExpressionUUID->"29a0662b-8080-4911-a9d1-8fcefdde30fe"], Cell[106556, 3032, 266, 5, 18, "Print",ExpressionUUID->"098c6f69-b055-4dd3-8bfd-423282782cfa"], Cell[106825, 3039, 268, 5, 18, "Print",ExpressionUUID->"974a42b3-eb50-42fb-b86b-1fc3b45d6c54"], Cell[107096, 3046, 268, 5, 18, "Print",ExpressionUUID->"581c19dd-5430-4e9a-bd6a-620526353336"], Cell[107367, 3053, 266, 5, 18, "Print",ExpressionUUID->"25e141dd-4610-4868-a9d7-d5a3fd63eafd"] }, Open ]], Cell[107648, 3061, 1135, 22, 25, "Output",ExpressionUUID->"925a3f69-9d05-48c7-98d4-b3010fe027fa"] }, Open ]], Cell[CellGroupData[{ Cell[108820, 3088, 247, 5, 22, "Input",ExpressionUUID->"fa94781f-8445-46c2-8474-4226f805b567"], Cell[109070, 3095, 299, 6, 25, "Output",ExpressionUUID->"d3c62db3-05b9-4187-9bcc-ddb3de13793c"] }, Open ]], Cell[CellGroupData[{ Cell[109406, 3106, 1244, 32, 24, "Input",ExpressionUUID->"ee264c8f-1f8f-4cc9-aa8c-84111cea251b"], Cell[110653, 3140, 605, 13, 22, "Message",ExpressionUUID->"b7316a79-d459-413d-8e45-f8c1f75251d7"], Cell[111261, 3155, 809, 19, 25, "Output",ExpressionUUID->"79e68256-f728-4955-a624-e60c6c8ea908"] }, Open ]], Cell[CellGroupData[{ Cell[112107, 3179, 589, 15, 24, "Input",ExpressionUUID->"f5b06313-e438-43cc-9cb3-d01232c73e1f"], Cell[112699, 3196, 218, 3, 25, "Output",ExpressionUUID->"73287823-12e5-4424-b776-ffaef3d1f313"] }, Open ]], Cell[CellGroupData[{ Cell[112954, 3204, 707, 20, 22, "Input",ExpressionUUID->"29398383-9203-4cf6-aabb-1d3fe15a5894"], Cell[CellGroupData[{ Cell[113686, 3228, 356, 6, 18, "Print",ExpressionUUID->"2487362d-5c14-4c33-b345-40ddb69ef3da"], Cell[114045, 3236, 356, 6, 18, "Print",ExpressionUUID->"a6fe3275-23df-4e8a-bd70-c5f23038882b"], Cell[114404, 3244, 354, 6, 18, "Print",ExpressionUUID->"d7432d20-dfa4-4e51-b255-1dfcc908c271"], Cell[114761, 3252, 356, 6, 18, "Print",ExpressionUUID->"02c205d3-5106-4a3b-a2df-92d4bb9605d4"], Cell[115120, 3260, 356, 6, 18, "Print",ExpressionUUID->"a1c49a36-3b8c-42a0-8953-abf3faa882d9"] }, Open ]], Cell[115491, 3269, 932, 19, 25, "Output",ExpressionUUID->"d5e4c61a-fc6e-47b8-9909-b3202b08adb1"] }, Open ]], Cell[CellGroupData[{ Cell[116460, 3293, 1358, 34, 24, "Input",ExpressionUUID->"672771a7-a1bf-4e81-a251-1d2b0d34398b"], Cell[117821, 3329, 697, 14, 22, "Message",ExpressionUUID->"30825e01-eb21-4382-93ac-46a8324b26e0"], Cell[118521, 3345, 1044, 25, 25, "Output",ExpressionUUID->"3ac239fc-e3d8-4fa6-bd3c-6a4f018a72fd"] }, Open ]], Cell[CellGroupData[{ Cell[119602, 3375, 639, 16, 24, "Input",ExpressionUUID->"becbd2c1-3886-4d89-919e-83cea993abb3"], Cell[120244, 3393, 217, 3, 25, "Output",ExpressionUUID->"de992139-61ec-45d2-a14b-74928691d4aa"] }, Open ]], Cell[CellGroupData[{ Cell[120498, 3401, 978, 26, 24, "Input",ExpressionUUID->"c364dda0-78f5-4a76-94b1-e8f7c84b3bff"], Cell[CellGroupData[{ Cell[121501, 3431, 425, 7, 18, "Print",ExpressionUUID->"a946ecb3-353a-4b0f-a9fb-ab7640b1b75c"], Cell[121929, 3440, 424, 7, 18, "Print",ExpressionUUID->"4266f228-fa5d-4036-ba39-ead2abb5fc55"], Cell[122356, 3449, 426, 7, 18, "Print",ExpressionUUID->"8c1a6163-9f63-48da-b626-50dbad8fd5bf"], Cell[122785, 3458, 426, 7, 18, "Print",ExpressionUUID->"88b8db6e-3fdf-483b-af65-2c2999af38f5"] }, Open ]], Cell[123226, 3468, 746, 14, 22, "Message",ExpressionUUID->"ba32119b-06f1-4a37-a68c-eb07d99fac2d"], Cell[123975, 3484, 749, 14, 22, "Message",ExpressionUUID->"1770cc78-2c3c-4877-825c-f4728148b97d"], Cell[124727, 3500, 748, 14, 22, "Message",ExpressionUUID->"0ce5aef7-b955-4225-882b-98866bfce2b2"], Cell[125478, 3516, 687, 13, 22, "Message",ExpressionUUID->"cb1b4c0a-3d15-4c11-931c-36c9a19171a4"], Cell[126168, 3531, 423, 7, 18, "Print",ExpressionUUID->"14397552-cc28-4d45-ba69-afa6d658ce72"], Cell[126594, 3540, 1214, 26, 25, "Output",ExpressionUUID->"531124ae-8ead-4a78-8719-39ec0b3fae79"] }, Open ]], Cell[CellGroupData[{ Cell[127845, 3571, 1359, 34, 24, "Input",ExpressionUUID->"eaf55068-7c6e-48d1-8e5b-093c2f4b5994"], Cell[129207, 3607, 943, 17, 34, "Message",ExpressionUUID->"334ca9d2-87ff-4b5b-82cf-03a54d1382ab"], Cell[130153, 3626, 1300, 31, 42, "Output",ExpressionUUID->"a9055bc2-2ac1-4de8-8dac-28ec754d13c2"] }, Open ]], Cell[CellGroupData[{ Cell[131490, 3662, 589, 15, 24, "Input",ExpressionUUID->"bbab0f46-5630-4e0d-9151-1d8b6f618dd4"], Cell[132082, 3679, 216, 3, 25, "Output",ExpressionUUID->"8bfd2404-26dd-479a-b323-cfa1bea22ba1"] }, Open ]], Cell[CellGroupData[{ Cell[132335, 3687, 806, 21, 24, "Input",ExpressionUUID->"549433df-adc9-4102-a29c-48e725ec49b3"], Cell[133144, 3710, 385, 7, 18, "Print",ExpressionUUID->"acad0e19-ca48-4f70-b570-3c13e6559546"], Cell[133532, 3719, 650, 13, 22, "Message",ExpressionUUID->"f3b26d2a-327a-40f2-bf48-762d2e826c8b"], Cell[134185, 3734, 646, 13, 22, "Message",ExpressionUUID->"e2893e1a-da81-4967-9028-c2ddf3c859a9"], Cell[134834, 3749, 646, 13, 22, "Message",ExpressionUUID->"4ebedd47-e11c-475c-baed-f9b6b907d76c"], Cell[135483, 3764, 643, 13, 22, "Message",ExpressionUUID->"bf29ec8b-6d0d-494f-a286-5b236a62dad9"], Cell[CellGroupData[{ Cell[136151, 3781, 385, 7, 18, "Print",ExpressionUUID->"b609a385-9bb2-4557-8acc-bed35111ad21"], Cell[136539, 3790, 384, 7, 18, "Print",ExpressionUUID->"ccffdeb3-c221-47bf-b880-30efb5f19937"], Cell[136926, 3799, 385, 7, 18, "Print",ExpressionUUID->"c797301d-6cd0-4b0b-b6a0-7b2bf6ad9c93"], Cell[137314, 3808, 387, 7, 18, "Print",ExpressionUUID->"238aa827-985b-46ca-ba93-7235adf631b7"] }, Open ]], Cell[137716, 3818, 1176, 28, 25, "Output",ExpressionUUID->"dc4d99cd-a7e0-49bb-9939-cd444c973ba8"] }, Open ]], Cell[CellGroupData[{ Cell[138929, 3851, 1509, 37, 24, "Input",ExpressionUUID->"0355409d-8b8c-45c1-9506-a20c5fe4044b"], Cell[140441, 3890, 1019, 18, 34, "Message",ExpressionUUID->"9d0aaa2d-9044-4606-9061-02502fb2546a"], Cell[141463, 3910, 1373, 33, 42, "Output",ExpressionUUID->"566df64d-7810-429a-afb1-f800919aefb9"] }, Open ]], Cell[CellGroupData[{ Cell[142873, 3948, 593, 16, 24, "Input",ExpressionUUID->"db5637ef-5db6-417e-aa71-a7604e24c6ef"], Cell[143469, 3966, 192, 3, 25, "Output",ExpressionUUID->"3de50d92-0b34-4eb5-b769-b252da7dda77"] }, Open ]], Cell[CellGroupData[{ Cell[143698, 3974, 1311, 32, 24, "Input",ExpressionUUID->"d22ce325-6b7f-4f46-b453-76866b23bb27"], Cell[145012, 4008, 608, 12, 22, "Message",ExpressionUUID->"1eb674f0-c985-414c-8dd4-9df222e3420e"], Cell[145623, 4022, 608, 12, 22, "Message",ExpressionUUID->"79ae622b-68cc-4ae5-9cbf-67c098c2cfdc"], Cell[146234, 4036, 607, 12, 22, "Message",ExpressionUUID->"702c1b9f-d31c-42f7-8c24-f62b86396c0d"], Cell[146844, 4050, 546, 11, 22, "Message",ExpressionUUID->"c458fce2-db72-4ca5-a4dc-37f71ca848e3"], Cell[CellGroupData[{ Cell[147415, 4065, 286, 5, 18, "Print",ExpressionUUID->"1eadd117-6f6a-485f-b06d-5da8ab64d17d"], Cell[147704, 4072, 287, 5, 18, "Print",ExpressionUUID->"2c93ecc5-7bfe-40b2-b98d-6164a1f802db"], Cell[147994, 4079, 285, 5, 18, "Print",ExpressionUUID->"7a2062df-133d-4aed-b7ac-a77a0c3957f1"], Cell[148282, 4086, 285, 5, 18, "Print",ExpressionUUID->"466d97cd-f0c3-4dcd-b3b4-a489a8cf840d"], Cell[148570, 4093, 287, 5, 18, "Print",ExpressionUUID->"59599292-8821-416f-8a16-ae9ecf852ef6"] }, Open ]], Cell[148872, 4101, 1689, 38, 25, "Output",ExpressionUUID->"6d7a8040-abd3-4614-8989-bd49a44bcdd7"] }, Open ]], Cell[CellGroupData[{ Cell[150598, 4144, 1510, 37, 24, "Input",ExpressionUUID->"05fba3a3-cdb1-4967-ac49-78ffed60b2dc"], Cell[152111, 4183, 1007, 17, 34, "Message",ExpressionUUID->"bd9355a7-8279-4425-9f9f-040a6462886b"], Cell[153121, 4202, 1624, 39, 42, "Output",ExpressionUUID->"654d71eb-dee5-458e-8255-34110ac2bc9b"] }, Open ]], Cell[CellGroupData[{ Cell[154782, 4246, 542, 15, 24, "Input",ExpressionUUID->"95183f9d-14a9-49a1-839d-4444c8816906"], Cell[155327, 4263, 168, 3, 25, "Output",ExpressionUUID->"8587fd91-aaae-4609-8a53-56d0d1a38c08"] }, Open ]], Cell[CellGroupData[{ Cell[155532, 4271, 1241, 34, 24, "Input",ExpressionUUID->"11802c33-e902-4c87-b4ea-a0ce5f2dcdff"], Cell[156776, 4307, 547, 12, 22, "Message",ExpressionUUID->"41668fb4-8f9f-4c09-b1cd-03ad9ef4c0e9"], Cell[157326, 4321, 547, 12, 22, "Message",ExpressionUUID->"ca915e3a-7833-4a4f-a0ed-814ea3e75567"], Cell[157876, 4335, 545, 12, 22, "Message",ExpressionUUID->"05c2fd8d-fd1a-4756-b04a-e8537047f74e"], Cell[158424, 4349, 581, 12, 22, "Message",ExpressionUUID->"f1fa7de1-abe8-4fbe-a3b9-7254834db41f"], Cell[159008, 4363, 497, 11, 22, "Message",ExpressionUUID->"6fece7d9-7a00-4299-9f04-f5fb8de0cd65"], Cell[159508, 4376, 598, 13, 33, "Message",ExpressionUUID->"778f2f82-5b97-4ffc-b743-59c8fccbe5dc"], Cell[160109, 4391, 598, 13, 33, "Message",ExpressionUUID->"f02a9f16-0650-4b8e-8c23-94f56cff9fd7"], Cell[160710, 4406, 598, 13, 33, "Message",ExpressionUUID->"4e59c2e0-2258-40e7-94de-27b4487488c2"], Cell[161311, 4421, 578, 12, 22, "Message",ExpressionUUID->"b661f0d6-f0ad-49ab-ba5e-571ab55dc3d4"], Cell[CellGroupData[{ Cell[161914, 4437, 244, 5, 18, "Print",ExpressionUUID->"2771a46a-e776-4ace-a985-62647351a33a"], Cell[162161, 4444, 241, 5, 18, "Print",ExpressionUUID->"5fd5c7c5-8b0e-49d6-ad3d-e57ec084ccd1"], Cell[162405, 4451, 242, 5, 18, "Print",ExpressionUUID->"7f628f55-8395-4206-8d7f-3b6b90a6d353"], Cell[162650, 4458, 241, 5, 18, "Print",ExpressionUUID->"0347675c-f132-46eb-ac5a-2a9d1d0bbc75"], Cell[162894, 4465, 242, 5, 18, "Print",ExpressionUUID->"49328f8b-e9ec-473a-9744-d85b769718df"] }, Open ]], Cell[163151, 4473, 1838, 42, 25, "Output",ExpressionUUID->"c78d02da-d4d4-4c03-afa0-380e8a60c5de"] }, Open ]], Cell[CellGroupData[{ Cell[165026, 4520, 383, 11, 24, "Input",ExpressionUUID->"17f91843-8956-4f81-b1e8-d44b6a7d9eb0"], Cell[165412, 4533, 154, 3, 25, "Output",ExpressionUUID->"47bd5d48-5e3c-4239-aeb3-925830a4d4ee"] }, Open ]], Cell[CellGroupData[{ Cell[165603, 4541, 257, 6, 22, "Input",ExpressionUUID->"e5e0d48d-1b36-449f-a213-47b0b8f5a51a"], Cell[165863, 4549, 154, 3, 25, "Output",ExpressionUUID->"b9b6d78e-1395-494a-9d59-1adb52d2e1c5"] }, Open ]], Cell[CellGroupData[{ Cell[166054, 4557, 1609, 38, 24, "Input",ExpressionUUID->"d76e85cc-6ecb-4d98-b567-57b256fbb910"], Cell[167666, 4597, 726, 14, 22, "Message",ExpressionUUID->"d81d89d5-0b6f-4772-bbbc-daf7132151e3"], Cell[168395, 4613, 1924, 45, 42, "Output",ExpressionUUID->"e3396b93-78fe-43c2-9e7f-cba4d01a8c7b"] }, Open ]], Cell[CellGroupData[{ Cell[170356, 4663, 595, 16, 24, "Input",ExpressionUUID->"a65b95cb-3d7a-457b-baa4-3dfcacab2a82"], Cell[170954, 4681, 193, 3, 25, "Output",ExpressionUUID->"5dbdd46f-88a3-41c7-a9b9-703ff7b38428"] }, Open ]], Cell[CellGroupData[{ Cell[171184, 4689, 1326, 35, 24, "Input",ExpressionUUID->"bacf1c86-2f2d-48d5-884c-81947e6029a1"], Cell[172513, 4726, 461, 10, 22, "Message",ExpressionUUID->"43154a2d-4b29-45a0-a434-ee75a37ea5a6"], Cell[172977, 4738, 461, 10, 22, "Message",ExpressionUUID->"0193046b-c796-40a0-8d34-92b38c08612e"], Cell[173441, 4750, 461, 10, 22, "Message",ExpressionUUID->"4eb58821-12d5-4a9d-a211-26a420c2aae5"], Cell[173905, 4762, 458, 10, 22, "Message",ExpressionUUID->"49bff667-63d7-4760-978a-73a296ee578b"], Cell[174366, 4774, 195, 4, 18, "Print",ExpressionUUID->"a32f3152-51d5-4d8f-abff-ecbf1de0c45a"], Cell[174564, 4780, 424, 10, 22, "Message",ExpressionUUID->"6bb8fc13-d816-4592-82ed-6b658105114c"], Cell[CellGroupData[{ Cell[175013, 4794, 195, 4, 18, "Print",ExpressionUUID->"e2626643-02b1-42d1-a109-9025993730a9"], Cell[175211, 4800, 193, 4, 18, "Print",ExpressionUUID->"44ecfe86-c61b-4b43-9afd-ff7bdde5e0f6"], Cell[175407, 4806, 193, 4, 18, "Print",ExpressionUUID->"8dc8547d-7d28-4209-996f-f00c3583f4c6"], Cell[175603, 4812, 192, 4, 18, "Print",ExpressionUUID->"86348a39-d046-406d-803b-3b303b6142ed"] }, Open ]], Cell[175810, 4819, 1641, 43, 44, "Output",ExpressionUUID->"3390f52a-3233-4bad-8428-c484f32992c1"] }, Open ]], Cell[CellGroupData[{ Cell[177488, 4867, 1662, 39, 24, "Input",ExpressionUUID->"c58535c6-e2cc-4022-b4ee-6e96bd40636a"], Cell[179153, 4908, 749, 14, 22, "Message",ExpressionUUID->"5f9bd29b-8eb0-4a32-ae66-82cfd8da388b"], Cell[179905, 4924, 2202, 52, 60, "Output",ExpressionUUID->"8ef30ce7-91ad-4cb6-8ff5-0b797be59053"] }, Open ]], Cell[CellGroupData[{ Cell[182144, 4981, 542, 15, 24, "Input",ExpressionUUID->"7f30ad07-05ba-4e34-952b-ca6f21b02e96"], Cell[182689, 4998, 170, 3, 25, "Output",ExpressionUUID->"f51249ff-f932-482f-9bc1-b30044e4e4b1"] }, Open ]], Cell[CellGroupData[{ Cell[182896, 5006, 1173, 29, 24, "Input",ExpressionUUID->"200b94d3-7cab-4649-99f3-c2558b1a5011"], Cell[184072, 5037, 461, 10, 22, "Message",ExpressionUUID->"8286d0bb-4e6c-4e7a-b928-3c79819fc289"], Cell[184536, 5049, 461, 10, 22, "Message",ExpressionUUID->"e2ff3031-bd78-4855-8bc7-9747fcae88e3"], Cell[185000, 5061, 461, 10, 22, "Message",ExpressionUUID->"193d3a87-2837-49e1-b092-63ac86b20f22"], Cell[185464, 5073, 458, 10, 22, "Message",ExpressionUUID->"903983c6-c194-4176-a62a-37d20d186199"], Cell[185925, 5085, 195, 4, 18, "Print",ExpressionUUID->"f39aff0b-2bf3-4ae8-beec-a77c7cdab645"], Cell[186123, 5091, 424, 10, 22, "Message",ExpressionUUID->"829bb464-97dd-4460-9e09-24e64f09c6cd"], Cell[CellGroupData[{ Cell[186572, 5105, 195, 4, 18, "Print",ExpressionUUID->"31d0dd9c-24f2-4fe0-9dd2-0608475aa63c"], Cell[186770, 5111, 193, 4, 18, "Print",ExpressionUUID->"07cc8905-7513-4079-baa4-1590126efe5b"], Cell[186966, 5117, 193, 4, 18, "Print",ExpressionUUID->"cd190030-d600-470f-a1b8-f2cf48a0bb35"], Cell[187162, 5123, 192, 4, 18, "Print",ExpressionUUID->"da7b9bba-21ae-4e2a-8c84-ec593f50dff7"] }, Open ]], Cell[187369, 5130, 1641, 43, 44, "Output",ExpressionUUID->"d66cf11c-6249-4ce5-90b1-7ccedf7b8994"] }, Open ]], Cell[CellGroupData[{ Cell[189047, 5178, 5233, 88, 59, "Input",ExpressionUUID->"aee89b99-c52c-426f-9380-809683f9fe8d"], Cell[194283, 5268, 12998, 248, 171, "Output",ExpressionUUID->"e2cf0809-e3b4-4dec-a74f-4d1922647b69"] }, Open ]], Cell[CellGroupData[{ Cell[207318, 5521, 5279, 88, 59, "Input",ExpressionUUID->"86e28df3-e9b9-4c9d-b376-e2250a73da96"], Cell[212600, 5611, 11050, 202, 165, "Output",ExpressionUUID->"7248522d-d1d4-4c85-974e-1c4fb75d0538"] }, Open ]], Cell[CellGroupData[{ Cell[223687, 5818, 768, 20, 22, "Input",ExpressionUUID->"c18b0b40-ab1a-45cd-ade8-999f04490358"], Cell[224458, 5840, 749, 14, 27, "Output",ExpressionUUID->"08d062c4-9852-492a-8cb4-f8dd85719bf0"] }, Open ]], Cell[CellGroupData[{ Cell[225244, 5859, 229, 5, 22, "Input",ExpressionUUID->"294039ec-927c-4d0e-b5e8-b787af6c65a6"], Cell[225476, 5866, 1379, 35, 25, "Output",ExpressionUUID->"754c9690-f873-4d2f-beb2-c3646db81f65"] }, Open ]], Cell[226870, 5904, 677, 20, 24, "Input",ExpressionUUID->"9d9f94f3-e11c-49e5-a722-caf2af60837a"], Cell[227550, 5926, 10248, 225, 157, "Input",ExpressionUUID->"696e8dad-b679-4cff-9df9-7fa32582e84f"], Cell[CellGroupData[{ Cell[237823, 6155, 1040, 22, 24, "Input",ExpressionUUID->"0f44ea2f-bcb6-4b65-a37b-65515908d127"], Cell[238866, 6179, 8161, 190, 269, "Output",ExpressionUUID->"7be6558a-70f0-43d7-951c-51b419e583cb"] }, Open ]] }, Open ]] } ] *)